No puedo crear un archivo indexado

[CHITOBLA]

Hola foreros, como estan.
Primero quiero darles una idea del entorno que estoy usando:
GNUCOBOL 3.1 con Visual Studio en una netbook de 64.

El problema que tengo es que NO HE PODIDO crear ARCHIVOS INDEXADOS y lo he estado probando con un programa que compila perfecto y muy corto.
Ese mismo programa lo he corrido para crear un ARCHIVO SECUENCIAL y lo HA CREADO SIN PROBLEMAS en el directorio correspondiente.

He hecho mil pruebas, no es un tema de compilación y no tengo idea porque el mismo programa si le asigno la forma de archivo SECUENCIAL funciona perfectamente e INDEXADO no lo puede abrir.

El FILE SISTEM me da como valor 91 y esto es que no puede abrir el archivo.

Adjunto el PATH del sistema que lo he copiado en un block de notas por lo cual esta recortado ya que era una linea continua imposible de leer.

Si alguien del foro me puede ayudar o le ha sucedido algo similar, que me cuente que debo hacer en el programa para usar ARCHIVOS INDEXADOS.

Muchas gracias y un gran saludo a todos.
CHITOBLA.

PATH=C:\Windows\system32;C:\Windows;C:\Windows\System32\Wbem;C:\Windows\System32\WindowsPowerShell\v1.0\;
C:\Windows\System32\OpenSSH\;C:\GNUCOBOL\bin;C:\GNUCOBOL\config;C:\GNUCOBOL\copy;C:\GNUCOBOL\lib;;
C:\Program Files\Microsoft VS Code\bin;C:\Users\chito\AppData\Local\Microsoft\WindowsApps

[CHITOBLA]

Quiero agregarles el inicio del programa para que vean si he hecho algo que esta mal para lo cual adjunto un archivo txt.
Un saludo.
Gracias.

         IDENTIFICATION DIVISION.
       PROGRAM-ID. PRUEBA10.
       ENVIRONMENT DIVISION.
 
       INPUT-OUTPUT SECTION.
      *Archivo físico en modo dinámico.
       FILE-CONTROL.
       SELECT EMPLEADOS-ARCHIVO
         ASSIGN TO "EMPINX.TXT"
       ORGANIZATION IS INDEXED
       RECORD KEY IS EMPLEADOS-ID
       ACCESS MODE IS DYNAMIC
       FILE STATUS IS FS-ST.

[Joseg]

❞ Quiero agregarles el inicio del programa para que vean si he hecho algo que esta mal para lo cual adjunto un archivo txt. Un saludo. Gracias.

O GnuCobol pode ter mais do que um sistema de ficheiros indexados.
Qual a versção que esta a usar?

Nesta pagina tem as varias opções:
GnuCOBOL/OpenCOBOL Downloads, Binaries, and Links


Berkeley DataBase: https://www.arnoldtrembley.com/GC32-...e-7z-to-exe.7z (gratuito para aplicações opensource)
VBISAM : https://www.arnoldtrembley.com/GC312...e-7z-to-exe.7z (gratuito para aplicações opensource e comerciais)
Tamém pode procurar nesta pagina por
OpenCobolIDE e analisar a varias opções.

Ainda existe esta opção: DISAM FileHandler | Fast ISAM for New and Legacy data development que tambem funciona muito bem com o GnuCobol (versao paga)


Outra opção de IDE: Releases · mridoni/gix · GitHub
Trabalha com ISAM e SQL sem necessitar de instalar outras librarias.

Espero que ajude.
Jose

[JCantero]

@CHITOBLA, podria se un problema de acceso al directorio por defecto.

En vez de poner esto

       SELECT EMPLEADOS-ARCHIVO
         ASSIGN TO "EMPINX.TXT"

Crea una carpeta, por ejemplo c:ficheros

y cambia lo anterior por

       SELECT EMPLEADOS-ARCHIVO
         ASSIGN TO "c:ficherosEMPINX.TXT"

[CHITOBLA]

❞ @CHITOBLA, podria se un problema de acceso al directorio por defecto. En vez de poner esto        SELECT EMPLEADOS-ARCHIVO          ASSIGN TO "EMPINX.TXT" Crea una carpeta, por ejemplo c:ficheros y cambia lo anterior por        SELECT EMPLEADOS-ARCHIVO          ASSIGN TO "c:ficherosEMPINX.TXT"

JCantero, muchas gracias por tu sugerencia.
He hecho lo mismo que tu me dices con el archivo que he creado para guardar todo lo relacionado con la instalacion que se llama "COBOL".

Puse

  SELECT EMPLEADOS-ARCHIVO
         ASSIGN TO "c:COBOLEMPINX.TXT"

y no funciono.

Si compila sin problemas y como dije en el mensaje que escribi antes el FILE SISTEM me pone como resultado 91 (no puede abrir el archivo) y estoy poniendo

PROCEDIMIENTO-DE-APERTURA.
       OPEN OUTPUT  EMPLEADOS-ARCHIVO.
        DISPLAY "APERTURA: " FS-ST

(esto es para saber que pasa cuando trata de hacer el OPEN y da 91.

Como he dicho si pongo que el archivo es SECUENCIAL no hay ningun problema.

Aguardo algun comentario de los amigos del foro sobre si el GNUCOBOL tiene problemas con el tema de ARCHIVOS INDEXADOS y me falta cargar algo para que lo pueda usar.

Un saludo a todos.
Gracias.

[CHITOBLA]

Joseg, muchas gracias por tus sugerencias.
Tengo una pregunta BASICA, esto que tu me sugieres que baje es un directorio por lo que he visto y DONDE LO TENDRIA QUE PONER dentro de donde tengo guardado el GNUCOBOL 3.2
Es para cambiar alguna parte de lo que viene cuando lo bajas?.
Por favor ayudame a entender que tengo que hacer con lo que me has sugerido que baje.
Un abrazo y muchas gracias.
CHITOBLA.

[JCantero]

@CHITOBLA, yo he probado con un fichero indexado y si funciona.

Prueba a realizar este cambio y si no me lo tendrás que enviarme el fuente para probar.

Haz esto:

en vez de ASSIGN TO "c:COBOLEMPINX.TXT"

pon ASSIGN TO "c:COBOLEMPINX"

O sea sin extensión

[CHITOBLA]

Joseg, lo links que tu me has sugerido son muy interesantes,
Acabo de leerme todo el "Descargas, archivos binarios y enlaces de GnuCOBOL/OpenCOBOL".

La pregunta del millon que te hago es: TENGO QUE DESINSTALAR TODO LO QUE YA HE INSTALADO PARA HACER TODOS ESTOS PASOS y asi tener una versión realmente completa y distinta ya que esta apuntando al OPEN COBOL (ya lo tengo instalado y es el que he usado hasta ahora) que me gusta mas que usar el VISUAL STUDIO que tengo ahora como para escribir con el GNU 3.2 como compilador.

Aguardo tu sabia respuesta para saber que hago.

Te soy sincero, no soy un experto instalando de esta manera ningun soft ya que siempre he usado algun instalador, lo pongo dentro del computador y funciona, me da un poco de miedo hacer errores.

De verdad no es sencillo hacer todos los pasos y te pregunto si existe algo que le pueda agregar a lo que tengo para poder usar ARCHIVOS INDEXADOS sin tener que sacar todo y empezar de 0.

SALUDOS.

[fastpho]

Hola @CHITOBLA , subi el ejemplo completo tal cual te da el error "91" en un archivo txt o cbl
que paso con el powercobol ?
Saludos ...

[JCantero]

@CHITOBLA, los fichero indexados funcionan.

Prueba a realizar el cambio que te propuse