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 ----------
Citación del post de
manu
|
❞
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 ----------
Citación del post de
manu
|
❞
Acá estan los archivos que entiendo son los encargados de realizar la impresión..
|
Con la FD que has enviado
Código COBOL:
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.