Recuperar archivo

[Roger]

Amigos tengo un fichero que deseo recuperar ¿podria alguien del foro ayudarme?
esto es la descripción

FD  HISTORIA GLOBAL EXTERNAL LABEL RECORD STANDARD.
        01  HISTORIA-REC.
          05 HISTORIA-KEY.
             10 COD-P-HIS PIC 9(6).
             10 COD-M-HIS PIC 9(6).
             10 ANO-HIS PIC 9999.
             10 MES-HIS PIC 99.
             10 DIA-HIS PIC 99.
          05 TEMPERATURA-HIS PIC 9(6)V99.
          05 PESO-HIS PIC 9(6)V99.
          05 F-RES-HIS PIC 9(6)V99.
          05 F-CAR-HIS PIC 9(6)V99.
          05 MUC-HIS   PIC X(15). 
          05 INF-HIS   PIC X(150). 
          05 CAPILAR-HIS   PIC X(150). 
          05 USUARIO-HIS PIC X(35).
          05 LIBRE-HIS PIC X(150). 
          05 DATOS-HIS PIC X(5000).
        
          

SELECT HISTORIA ASSIGN TO WF-HISTORIA  ORGANIZATION
            INDEXED ACCESS DYNAMIC RECORD KEY HISTORIA-KEY
              LOCK MODE IS AUTOMATIC WITH LOCK ON RECORD
             FILE STATUS IS FS-HISTORIA.

[Josber]

@Roger, un par de cosas, Novedades no es el sitio para poner este tema, por lo que lo muevo de sitio, y la segunda es, creo que tanto yo como el resto de foreros, no entendemos qué es lo que quieres exactamente, un programa para recuperar, ejecutar un recovery ... puedes ser un poco más claro

Gracias y salu2.-

[Roger]

Si trate de recuperar con el recovery y no pude tal vez porque mi mi maquina esta en 64 bits antes lo hacia con el recovery de rmcobol en 32 bits.
Este es un archivo de generado en powercobol.
Tambien lei que lo recuperan con un archivo secuencial no se como lo hacen.

[Josber]

❞ Tambien lei que lo recuperan con un archivo secuencial no se como lo hacen

Defines un fichero secuencial con el nombre del archivo a recuperar y un tamaño de registro de la suma de los campos a recuperar, lees el archivo estropeado secuencialmente y lo grabas en uno con las mismas características que el estropeado, al terminar, tienes el indexado recuperado.

Un saludo.-

[Dasije]

Usa el emulador DOSBox, para ejecutar programas en MS-DOS en plataformas en 64 bits.

En ese caso debe usar el recover2 de RMCOBOL para extraer la información, había uno para pequeños y grandes tamaños de archivos, usa el que te corresponda.

Desde COBFUT32, una herramienta que incluye en NetCOBOL, existe también la posibilidad de hacerlo como se hace en recover2 de RMCOBOL.

[Roger]

@Dasije me salvaste la vida, pude lograr recuperar el archivo con COBFUT32, una herramienta que incluye en NetCOBOL Gracias.