Cobol Foro - No puedo crear un archivo indexado

Cobol Foro (https://www.cobolforo.es/index.php)

- GnuCOBOL (OpenCOBOL) (https://www.cobolforo.es/forumdisplay.php?f=90)

- - No puedo crear un archivo indexado (https://www.cobolforo.es/showthread.php?t=1568)

Cita:

Citación del post de CHITOBLA (Mensaje 8401)

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.:bien::piensa:

" TENGO QUE DESINSTALAR TODO LO QUE YA HE INSTALADO PARA HACER TODOS ESTOS PASOS"
- Depend, mas em princípio No !!!!!!

Minha sugestão: Download de:
. https://www.arnoldtrembley.com/GC32-...e-7z-to-exe.7z
. rename .7z para .exe
. Descompactar - Copiar para o diretorio que tem atualmente
. Procurar o ficheiro: set_env.cmd ---> executar ---> "carrega manualmente todo o ambiente
- Pode fazer testes pela linha de comandos

Sem ter acesso ao PC não é fácil ajudar muito mais. O GnuCobol tem muitas opções, por exemplo o compilador de "C" pode ser o MinGW ou Microsoft C++

Se gosta do VStudio Code: Executar os ficheiros: VScobc.cmd e VScobcrun.cmd.

Mas se tem dificuldades em configurar manualmente o IDE, instale:
https://github.com/mridoni/gix/relea...-installer.exe
Configura automaticamente o Debug, ESQL, ISAM.

Também deduzo que esta a usar o Windows.

O GnuCobol tenho testado mais vezes com Linux+PostgreeSQL. É Muito rápido!

Espero que possa ajudar, mas admito que poderá não ser fácil!!!

José

JCantero, lamentablemente no hay ningun cambio, el FILE STATUS sigue dando 91 y no crea nada.
Te voy a enviar el fuente, es un programa muy chico que solo crea un archivo indexado con 2 campos.
Fijate los File Status que te diran que pasa.
Si a ti te anda, es que tienen cargado todo lo que lei hoy sobre VSAM para manejo de archivos indexados.
Tu usas Visual Studio o usas OPEN COBOL para escribir el programa.
Ahora te adjunto el programa completo.
Gracias por tu tiempo y ojala encuentres que te anda y el tema es porque?
Un gran abrazo.

Jose, cuando tu me dices Copiar para o diretorio que tem atualmente, cual de los 2, el directorio c:/GNUCOBOL o el directorio
c:/COBOL.

Por favor aclarame a cual directorio le pongo lo que bajo y voy a probar.

Tambien aclarame esto: . Procurar o ficheiro: set_env.cmd ---> executar ---> "carrega manualmente todo o ambiente onde eu executo isto??

Eu acredito que seria mais facil pra mim a ultima opción: https://github.com/mridoni/gix/relea...-installer.exe
que creo instala solo todo.

Aguardo tus sugerencias, MUITO BRIGADO AMIGO.
ABRAZO

@CHITOBLA,

Comentario de Moderador

No metas código en adjuntos salvo que sea un programa gigantesco, es mucho más cómodo para ver el código
Utiliza los botones de resalto de sintaxis, también es mucho más cómodo para ver el código

En cuanto a tu problema has intentado hacer el OPEN de la siguiente manera en vez de OUTPUT?

Código COBOL:

     OPEN I-O EMPLEADOS-ARCHIVO

Esto depende del compilador y del File-Handler, pero las combinaciones de ACCESS MODE y OPEN no siempre funcionan todas. Lo tienes en

Código COBOL:

     ORGANIZATION IS INDEXED
     ACCESS MODE IS  DYNAMIC

Así que haz el OPEN como te digo y a ver qué pasa. ;)

@CHITOBLA, sin tocar nada funciona perfectamente. "APERTURA : 00 "

Lo hago con el IDE de Open Cobol.

Adjunto pantallazo:

Kuk, como estas.
Puse OPEN OUTPUT porque quiero que se cree el archivo.
ESE ES EL PROBLEMA-
Si pongo OPEN I-O no me va a crear el archivo y me dara en el FILE SYSTEM el valor de 91 como ya escrito.
Yo creo que falta cargar algo en la versión de GNU que tengo para que pueda manejar archivos VSAM (indexados).
Digo esto porque el mismo programa si pongo SECUENCIAL funciona perfectamente.
Un abrazo y gracias por tu tiempo.

- - - Updated - - -

JCantero, antes de pasar el programa para el GNU, lo probe con el OPEN y funciona perfectamente como te ha funcionado a ti.
Por esto te dije que no es el programa.
Para mi falta agregar al GNU "algo" que lo haga interpretar ARCHIVOS INDEXADOS.
De todo lo que lei de los links que me mandaste para generar una versión de GNU, se ve claramente que hay paquetes que se ocupan especialmente de ARCHIVOS INDEXADOS, pero para instalar estos paquetes, creo que debo borrar todo y empezar de nuevo de otra manera y eso de ser posible no quisiera hacerlo.
Por eso les he preguntado a Uds. que se que saben mucho mas que yo.
Un abrazo y muchas gracias.

Cita:

Citación del post de CHITOBLA (Mensaje 8406)

Ver imagem!
Com OPEN I-O não deveria ser necessário, mas tente a seguinte alteração:

Código COBOL:

SELECT optional EMPLEADOS-ARCHIVO
           ASSIGN TO "EMPINX"
           ORGANIZATION IS INDEXED
           RECORD KEY IS EMPLEADOS-ID
           ACCESS MODE IS DYNAMIC
           FILE STATUS IS FS-ST.

Foi inserido "optional"

- - - Updated - - -

Cita:

Citación del post de CHITOBLA (Mensaje 8409)

Me parece que não tem nenhum motor ISAM instalado.
Isto porque o status 91 = "FEATURE NOT AVAILABLE"

Joseg, coincidimos que no tengo instalado nada que permita manejar Archivos Indexados (ISAM).

Tu me mandas una pantalla con algunas indicaciones que yo no entiendo.

Me sugieres que tengo que cambiar el directorio INCLUDE, pero de donde lo saco para sustituirlo porque lo que me pones "set_env.cmd" no se donde ejecutarlo.

Los otros archivos que me indicas, tampoco se de donde sacarlos o como armar este directorio de GNU.

Si por favor me ayudas un poquito mas te lo agradeceré mucho.
Un abrazo
Gracias.

Cita:

Citación del post de CHITOBLA (Mensaje 8411)

Fez isto?
Download de:
. https://www.arnoldtrembley.com/GC312...e-7z-to-exe.7z
. rename .7z para .exe

- Executar (extrair)--> vai descompactar para uma pasta qualquer, por exemplo \GnuCobol
- Na linha de comandos dessa pasta, executar: set_env.cmd

Na mesma linha de comandos:
- Tente compilar o programa. cobc -x exemplo.cob (ver na mesma pasta o ficheiro: GnuCOBOL 3.1.2 Manual.pdf para mais opções)

- Executar o programa

Se fizer tudo o programa vai compilar e poder usar ficheiros indexados.

Cita:

Citación del post de Joseg (Mensaje 8412)

Para que tem dúvidas um tutorial básico:

Installing gnuCOBOL on Windows | Big Dan the Blogging Man