Visor archivos RM/COBOL modo texto

[BASA01]

En el antiguo foro de Cobol en Español existía una rutina que sacaba los datos de un fichero Rmcobol a texto.

Alguien la tiene?:o

[Kuk]

Échale un vistazo a esto ;)

[BASA01]

No me funciona con ficheros rmcobol

[Kuk]

BASA01, los ficheros indexados de RM son los mismos que los de Power, son RMKF. A mi me funciona... :cardenal:

[EFREN]

*******@gmail.com

HAY QUE LEERSE LAS NORMAS DEL FORO (http://www.cobolforo.es/announcement.php?f=9)

[Kuk]

EFREN, ¿y este post, según tú, qué información aporta al foro? Si no quieres compartir información de manera pública, para eso existe el sistema de MP (mensajería Privada). PARA TODOS: No me publiquéis un post sólo con vuestro e-mail.

[juanmoras]

El programa (RM COBOL file Extractor) está bien, aunque no siempre me funciona.
¿Hay alguna posibilidad de ver el código fuente o saber que es lo que hace?

[JCantero]

Yo utilizo uno de cosecha propia empleando utilidades del RM/Cobol

Para ejecutar: mira nombre_fichero

Adjunto .ZIP

Utilidades del cobol:

1 (Runcobol) es de la version 5.35 pero podeis utilizar otra porterior sobre todos si los ficheros de cobol son de version 1, 2, 3 o 4. Con esta version solo leera ficheros version 0. Hay una utilidad para cambiar la version de ficheros rm/cobol.

2 (run.msg ) mesajes que necesita el runcobol

3 (recover2) utilidad de rmcobol que pasa un fichero a texto con descriptores. Ademas es util cuando el recover1 es incapaz de reconstruir un fichero.

4 (c$file) lo necesita el recover2

y ya para terminar mira.bat nombre_fichero

1) convierte a texto el fichero dejandolo en el fichero B
2)mira_c.cob quita los descriptores del fichero B dejandolo en el fichero A
3) notepad saca el contenido del fichero A

Si alquien desea ver el programa fuente mira_c se lo puedo enviar.

[XyVy]

Gracias JCantero muchas gracias por compartirlo, me ha sido muy útil.

Un saludo.

---------- Post añadido : 17:14 ---------- Post anterior : 17:07 ----------

Échale un vistazo a esto ;)

Hola Kuk, ¿está aplicación es un desarrollo tuyo?

Saludos

[Kuk]

XyVy, no, lo encontré hace años en un foro ruso :)

[luisbago]

tarde pero ....

[JCantero]

@luisbago, los importes no los extrae.

[luisbago]

con un archivo tipo:
FD ARCHIVO.
1 Z-SALIDA.
3 LEGAJO PIC 9(07).
3 APNOMB PIC X(32).
3 DOMIC PIC X(35).

se extrae bien los datos, pero con un archivo tipo:

FD NOM-IDX.
01 R-NOM-IDX.
02 R-NOMPRO.
03 NSDO PIC X(02).
03 UD PIC 9(03) COMP. <---aquí el problema
03 CT PIC X(10).
03 LLAVE-PLAZA PIC X(21).
03 PUESTO PIC X(07).
03 STA-PLAZA PIC X(02).
03 MOT-PLAZA PIC X(02).
03 RFC PIC X(13).
03 NOMBRE PIC X(28).

desde que tenga tipo COMP, COMP-3 O COMP-6 ya no puede leer el campo y se traba:silba: