Cobol Foro
Página 1 de 5 1 2345
Mostrar 40 mensajes desde este tema en una página

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)

CHITOBLA 22 de noviembre de 2022 02:56
No puedo crear un archivo indexado
 
1 Archivos Adjunto(s)
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.

Código:
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 22 de noviembre de 2022 03:09
1 Archivos Adjunto(s)
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.

Código COBOL:
  1.          IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. PRUEBA10.
  3.        ENVIRONMENT DIVISION.
  4.  
  5.        INPUT-OUTPUT SECTION.
  6.       *Archivo físico en modo dinámico.
  7.        FILE-CONTROL.
  8.        SELECT EMPLEADOS-ARCHIVO
  9.          ASSIGN TO "EMPINX.TXT"
  10.        ORGANIZATION IS INDEXED
  11.        RECORD KEY IS EMPLEADOS-ID
  12.        ACCESS MODE IS DYNAMIC
  13.        FILE STATUS IS FS-ST.

Joseg 22 de noviembre de 2022 12:05
Cita:
Citación del post de CHITOBLA (Mensaje 8393)
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 22 de noviembre de 2022 17:33
@CHITOBLA, podria se un problema de acceso al directorio por defecto.

En vez de poner esto

Código COBOL:
  1.        SELECT EMPLEADOS-ARCHIVO
  2.          ASSIGN TO "EMPINX.TXT"

Crea una carpeta, por ejemplo c:ficheros

y cambia lo anterior por

Código COBOL:
  1.        SELECT EMPLEADOS-ARCHIVO
  2.          ASSIGN TO "c:ficherosEMPINX.TXT"

CHITOBLA 22 de noviembre de 2022 18:50
Cita:
Citación del post de JCantero (Mensaje 8397)
@CHITOBLA, podria se un problema de acceso al directorio por defecto.

En vez de poner esto

Código COBOL:
  1.        SELECT EMPLEADOS-ARCHIVO
  2.          ASSIGN TO "EMPINX.TXT"

Crea una carpeta, por ejemplo c:ficheros

y cambia lo anterior por

Código COBOL:
  1.        SELECT EMPLEADOS-ARCHIVO
  2.          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
Código COBOL:
  1.   SELECT EMPLEADOS-ARCHIVO
  2.          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

Código COBOL:
  1. PROCEDIMIENTO-DE-APERTURA.
  2.        OPEN OUTPUT  EMPLEADOS-ARCHIVO.
  3.         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 22 de noviembre de 2022 19:19
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 22 de noviembre de 2022 19:43
@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 22 de noviembre de 2022 20:11
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:

fastpho 22 de noviembre de 2022 20:13
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 22 de noviembre de 2022 20:16
@CHITOBLA, los fichero indexados funcionan.

Prueba a realizar el cambio que te propuse


La franja horaria es GMT +2. Ahora son las 05:44.
Página 1 de 5 1 2345
Mostrar 40 mensajes desde este tema en una página

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.