Tema: Exportar datos de una app Cobol a un .txt o .csv
Ver Mensaje Individual
  #12
Antiguo 18 de abril de 2022, 00:20
manu
Forero Junior
Última Actividad 20.04.2022 00:42
Posts Posts: 11
Likes enviados Enviados: 5
Likes recibidos Recibidos: 0
Predeterminado
0
Likes

None...

Inactivo Inactivo
Citación del post de JCantero Ver Mensaje
❞
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

Código COBOL:
  1.        FD  SOCIOS             LABEL RECORD IS STANDARD
  2.                               RECORD  CONTAINS 256 CHARACTERS.
  3.        01  I-REG-SOCI.
  4.            03  I-CVE-SOCI.
  5.                05  I-SOCI               PIC 9(05).
  6.            03  I-APENOM-SOCI            PIC X(35).
  7.            03  I-CVE-DIR-SOCI.
  8.                05  I-DIR-SOCI           PIC X(35).
  9.            03  I-CODPOS-SOCI            PIC 9(04).
  10.            03  I-LOCAL-SOCI             PIC X(15).
  11.            03  I-TE-SOCI                PIC X(11).
  12.            03  I-CVE-PANTEON-SOCI.
  13.                05  I-N-PANTEON-SOCI     PIC 99.
  14.            03  I-CVE-ZONA.
  15.                05  I-ZONA-SOCI          PIC 99.
  16.                05  I-RUTA-SOCI          PIC 9(04).
  17.            03  I-CATEG-SOCI             PIC 99.
  18.            03  I-CVE-NICHO-SOCI.
  19.                05  I-N-NICHO-SOCI       PIC 9(06).
  20.                05  I-N-QUEK-NICH REDEFINES I-N-NICHO-SOCI.
  21.                    07  I-N-NICHO-3      PIC 9(03).
  22.                    07  FILLER           PIC XXX.
  23.            03  I-N-PISO-SOCI            PIC XX.
  24.            03  I-N-FILA-SOCI            PIC 99.
  25.            03  KK-CON-FILA REDEFINES I-N-FILA-SOCI.
  26.                05 I-1ER-BYTE PIC X.
  27.                05 I-2DO-BYTE PIC X.
  28.            03  I-CVE-ALTA-SOCI.
  29.                05  I-F-ALTA-SOCI            PIC 9(06).
  30.                05  I-F-ALTA-SOCIX           REDEFINES I-F-ALTA-SOCI.
  31.                    07  I-F-AA-ALTA-SOCI     PIC 99.
  32.                    07  I-F-MM-ALTA-SOCI     PIC 99.
  33.                    07  I-F-DD-ALTA-SOCI     PIC 99.
  34.                05  I-F-ALTA-SOCIXX          REDEFINES I-F-ALTA-SOCI.
  35.                    07  I-F-AAMM-ALTA-SOCI   PIC 9999.
  36.                    07  FILLER               PIC 99.
  37.            03  I-ACUM-SOCI              PIC S9(12)V99.
  38.            03  I-IMP-CTDO-SOCI          PIC S9(12)V99.
  39.            03  I-IMP-ANTI-SOCI          PIC S9(12)V99.
  40.            03  I-CAN-CUO-SOCI           PIC 99.
  41.            03  I-IMP-CUO-SOCI           PIC S9(12)V99.
  42.            03  I-C-MONEDA-SOCI          PIC X.
  43.            03  I-F-PRIMER-CUO-SOCI      PIC 9(06).
  44.            03  FILLER                   PIC X(46).
  45.            03  I-OPER-SOCI              PIC X(04).
  46.            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
manu is offline   Responder Con Cita