[Herramienta] Exportar datos de una app Cobol a un .txt o .csv

[JCantero]

Como que lo has recortado ?
Por que ?

No hay que recortarlo.
Pon extención .txt
Abrelo con el bloc de notas o con la excel

El registro de cada socio puede que tenga 256 caracteres o mas. Revisa el fuente o pon aqui la fd del fichero de socios para orientarte.

Lo que envias, aparentemente, como lo has cortado 2 tienes lineas por socio. Cuando es una linea por socio.

Los campos son de ancho fijo, la longitud de cada campo esta en la fd.

Si abres ese fichero, sin cortar, con la excel, lo abres delimitado por longitud variable, vas marcando cada campo, lo tendras en la excel y podras guardarlo en .csv delimitado como quieras, comas, punto y comas, tabuladores, etc..

---------- Post añadido el 17 de abril de 2022 a las 23:19 ----------

❞ Una consulta: El programa tiene una función de imprimir todos los datos que se encuentran en esos archivos y de forma ordenada... Hay alguna forma de modificar el código para que en vez de imprimirlos los guarde en un .csv/.txt/.xlsx ? Porque esa sería una forma de realizar lo que necesito...

No

El TXT lo puedes coger con excel, marcar cada campo, ayudantote de la FD que estará en algun fuente.

Una vez lo tengas en la excel lo puedes guardar en .CSV

---------- Post añadido el 17 de abril de 2022 a las 23:20 ----------

Envia el txt sin cortar y un fuente que tenga la FD y te muestro como hacerlo

---------- Post añadido el 17 de abril de 2022 a las 23:21 ----------

Para generar un .csv directamente hay que hacer la opción 3 que te propuse al principio de este hilo.

---------- Post añadido el 17 de abril de 2022 a las 23:33 ----------

❞ Acá estan los archivos que entiendo son los encargados de realizar la impresión..

Con la FD que has enviado

       FD  SOCIOS             LABEL RECORD IS STANDARD
                              RECORD  CONTAINS 256 CHARACTERS.
       01  I-REG-SOCI.
           03  I-CVE-SOCI.
               05  I-SOCI               PIC 9(05).
           03  I-APENOM-SOCI            PIC X(35).
           03  I-CVE-DIR-SOCI.
               05  I-DIR-SOCI           PIC X(35).
           03  I-CODPOS-SOCI            PIC 9(04).
           03  I-LOCAL-SOCI             PIC X(15).
           03  I-TE-SOCI                PIC X(11).
           03  I-CVE-PANTEON-SOCI.
               05  I-N-PANTEON-SOCI     PIC 99.
           03  I-CVE-ZONA.
               05  I-ZONA-SOCI          PIC 99.
               05  I-RUTA-SOCI          PIC 9(04).
           03  I-CATEG-SOCI             PIC 99.
           03  I-CVE-NICHO-SOCI.
               05  I-N-NICHO-SOCI       PIC 9(06).
               05  I-N-QUEK-NICH REDEFINES I-N-NICHO-SOCI.
                   07  I-N-NICHO-3      PIC 9(03).
                   07  FILLER           PIC XXX.
           03  I-N-PISO-SOCI            PIC XX.
           03  I-N-FILA-SOCI            PIC 99.
           03  KK-CON-FILA REDEFINES I-N-FILA-SOCI.
               05 I-1ER-BYTE PIC X.
               05 I-2DO-BYTE PIC X.
           03  I-CVE-ALTA-SOCI.
               05  I-F-ALTA-SOCI            PIC 9(06).
               05  I-F-ALTA-SOCIX           REDEFINES I-F-ALTA-SOCI.
                   07  I-F-AA-ALTA-SOCI     PIC 99.
                   07  I-F-MM-ALTA-SOCI     PIC 99.
                   07  I-F-DD-ALTA-SOCI     PIC 99.
               05  I-F-ALTA-SOCIXX          REDEFINES I-F-ALTA-SOCI.
                   07  I-F-AAMM-ALTA-SOCI   PIC 9999.
                   07  FILLER               PIC 99.
           03  I-ACUM-SOCI              PIC S9(12)V99.
           03  I-IMP-CTDO-SOCI          PIC S9(12)V99.
           03  I-IMP-ANTI-SOCI          PIC S9(12)V99.
           03  I-CAN-CUO-SOCI           PIC 99.
           03  I-IMP-CUO-SOCI           PIC S9(12)V99.
           03  I-C-MONEDA-SOCI          PIC X.
           03  I-F-PRIMER-CUO-SOCI      PIC 9(06).
           03  FILLER                   PIC X(46).
           03  I-OPER-SOCI              PIC X(04).
           03  I-F-MODI-SOCI            PIC 9(06).

1) Selecciona el TXT sin recortar con la excel,

2) Te pregunta la excel, delimitados o ancho ficho, le das ancho fijo,
3) Le das siguiente,
4) Vas marcando cada campo con su logitud determinada por la fd que te he puesto arriba.
5) Cuando termines, siguiente
6) y ya tienes en excel cada campo en una columna,
7) lo guardas en .csv con las caracteristicas deseadas

---------- Post añadido el 17 de abril de 2022 a las 23:35 ----------

Si hay algun campo de la FD que no entiendas, pregunta.

[manu]

❞ Como que lo has recortado ? Por que ? No hay que recortarlo. Pon extención .txt Abrelo con el bloc de notas o con la excel El registro de cada socio puede que tenga 256 caracteres o mas. Revisa el fuente o pon aqui la fd del fichero de socios para orientarte. Lo que envias, aparentemente, como lo has cortado 2 tienes lineas por socio. Cuando es una linea por socio. Los campos son de ancho fijo, la longitud de cada campo esta en la fd. Si abres ese fichero, sin cortar, con la excel, lo abres delimitado por longitud variable, vas marcando cada campo, lo tendras en la excel y podras guardarlo en .csv delimitado como quieras, comas, punto y comas, tabuladores, etc.. ---------- Post añadido el 17 de abril de 2022 a las 23:19 ---------- No El TXT lo puedes coger con excel, marcar cada campo, ayudantote de la FD que estará en algun fuente. Una vez lo tengas en la excel lo puedes guardar en .CSV ---------- Post añadido el 17 de abril de 2022 a las 23:20 ---------- Envia el txt sin cortar y un fuente que tenga la FD y te muestro como hacerlo ---------- Post añadido el 17 de abril de 2022 a las 23:21 ---------- Para generar un .csv directamente hay que hacer la opción 3 que te propuse al principio de este hilo. ---------- Post añadido el 17 de abril de 2022 a las 23:33 ---------- Con la FD que has enviado        FD  SOCIOS             LABEL RECORD IS STANDARD                               RECORD  CONTAINS 256 CHARACTERS.        01  I-REG-SOCI.            03  I-CVE-SOCI.                05  I-SOCI               PIC 9(05).            03  I-APENOM-SOCI            PIC X(35).            03  I-CVE-DIR-SOCI.                05  I-DIR-SOCI           PIC X(35).            03  I-CODPOS-SOCI            PIC 9(04).            03  I-LOCAL-SOCI             PIC X(15).            03  I-TE-SOCI                PIC X(11).            03  I-CVE-PANTEON-SOCI.                05  I-N-PANTEON-SOCI     PIC 99.            03  I-CVE-ZONA.                05  I-ZONA-SOCI          PIC 99.                05  I-RUTA-SOCI          PIC 9(04).            03  I-CATEG-SOCI             PIC 99.            03  I-CVE-NICHO-SOCI.                05  I-N-NICHO-SOCI       PIC 9(06).                05  I-N-QUEK-NICH REDEFINES I-N-NICHO-SOCI.                    07  I-N-NICHO-3      PIC 9(03).                    07  FILLER           PIC XXX.            03  I-N-PISO-SOCI            PIC XX.            03  I-N-FILA-SOCI            PIC 99.            03  KK-CON-FILA REDEFINES I-N-FILA-SOCI.                05 I-1ER-BYTE PIC X.                05 I-2DO-BYTE PIC X.            03  I-CVE-ALTA-SOCI.                05  I-F-ALTA-SOCI            PIC 9(06).                05  I-F-ALTA-SOCIX           REDEFINES I-F-ALTA-SOCI.                    07  I-F-AA-ALTA-SOCI     PIC 99.                    07  I-F-MM-ALTA-SOCI     PIC 99.                    07  I-F-DD-ALTA-SOCI     PIC 99.                05  I-F-ALTA-SOCIXX          REDEFINES I-F-ALTA-SOCI.                    07  I-F-AAMM-ALTA-SOCI   PIC 9999.                    07  FILLER               PIC 99.            03  I-ACUM-SOCI              PIC S9(12)V99.            03  I-IMP-CTDO-SOCI          PIC S9(12)V99.            03  I-IMP-ANTI-SOCI          PIC S9(12)V99.            03  I-CAN-CUO-SOCI           PIC 99.            03  I-IMP-CUO-SOCI           PIC S9(12)V99.            03  I-C-MONEDA-SOCI          PIC X.            03  I-F-PRIMER-CUO-SOCI      PIC 9(06).            03  FILLER                   PIC X(46).            03  I-OPER-SOCI              PIC X(04).            03  I-F-MODI-SOCI            PIC 9(06). 1) Selecciona el TXT sin recortar con la excel, 2) Te pregunta la excel, delimitados o ancho ficho, le das ancho fijo, 3) Le das siguiente, 4) Vas marcando cada campo con su logitud determinada por la fd que te he puesto arriba. 5) Cuando termines, siguiente 6) y ya tienes en excel cada campo en una columna, 7) lo guardas en .csv con las caracteristicas deseadas ---------- Post añadido el 17 de abril de 2022 a las 23:35 ---------- Si hay algun campo de la FD que no entiendas, pregunta.

tuve que cortarlo para subirlo acá... igualmente se muestra bien, con un socio por linea... pero si te fijas, por ejemplo, de la línea 1 hasta la 10 el nro de operacion consiste de 5 caracteres y en las líneas 11 y 12 consiste de 4, luego vuelve a 5... y asi con varios campos...

Intenté hacer lo que me decís con ese archivo pero al no coincidir todos los campos como debería, las columnas agarraban partes de otras... no se si me explico...

Estuve revisando y ese no es el .CBL... es de otro listado q no me sirve.. el que si me sirve no tengo el .CBL (creo q solo tengo el .COB)

De todas formas lo que hice fue imprimir con el PDFCreator a un .TXT y ahi si lo importe al excel y quedo dentro de todo bien pero no llega a ser lo que necesito... es mejor que nada pero no lo que necesito porque lo imprime en dos lineas y por momentos se mezclan ciertos campos...

Sinceramente no logro entender como el COBOL entiende cuando comienza y finaliza un campo si no coinciden en la cantidad de caracteres entre distintos registros...

Te paso -> acá <- todos los archivos del programa a ver si logras entenderlo... Los datos que yo necesito extraer están en los archivos SOCIMANT y SOCIOSER

Estos son los dos archivos TXT recuperados con rmifca y ReadCOBOLFiles -> txt.rar <-


Gracias por toda la ayuda que me estás brindando... Quería molestar lo menos posible pero ya me está mareando todo esto

[JCantero]

Debe de ser problema del readcobolfiles.

Inténtalo con la utilidad mira.

O mejor pásame los ficheros recuperados del rmifca.cob

[manu]

❞ pásame los ficheros recuperados del rmifca.cob

Aquí están: txt rmifca.rar

[manu]

❞ Debe de ser problema del readcobolfiles. Inténtalo con la utilidad mira.

Bueno, al final tanto dolor de cabeza y era esto... Un problema en el ReadCOBOLFiles...

Intenté con Mira y quedo EXCELENTE...

Nada más que agradecerte por toda la voluntad y la paciencia que me tuviste... Sos el mejor de los mejores...

Saludos y MUCHISIMAS MUCHISIMAS GRACIAS!@JCantero,

[JCantero]

❞ Bueno, al final tanto dolor de cabeza y era esto... Un problema en el ReadCOBOLFiles... Intenté con Mira y quedo EXCELENTE... Nada más que agradecerte por toda la voluntad y la paciencia que me tuviste... Sos el mejor de los mejores... Saludos y MUCHISIMAS MUCHISIMAS GRACIAS!@JCantero,

El "mira" es que lo hice yo.

[manu]

❞ El "mira" es que lo hice yo.

Ahhh hubiésemos empezado por ahí!!! 👏🏻👏🏻👏🏻👏🏻👏🏻

Un genio total

Nuevamente muchas Gracias, y espero que sigas muy bien!

Saludos y un fuerte abrazo...