Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   COBOL - General (https://www.cobolforo.es/forumdisplay.php?f=44)
-   -   Recuperar archivo (https://www.cobolforo.es/showthread.php?t=1153)

Roger 30 de mayo de 2020 01:03
Recuperar archivo
 
1 Archivos Adjunto(s)
Amigos tengo un fichero que deseo recuperar ¿podria alguien del foro ayudarme?
esto es la descripción
Código COBOL:
  1. FD  HISTORIA GLOBAL EXTERNAL LABEL RECORD STANDARD.
  2.         01  HISTORIA-REC.
  3.           05 HISTORIA-KEY.
  4.              10 COD-P-HIS PIC 9(6).
  5.              10 COD-M-HIS PIC 9(6).
  6.              10 ANO-HIS PIC 9999.
  7.              10 MES-HIS PIC 99.
  8.              10 DIA-HIS PIC 99.
  9.           05 TEMPERATURA-HIS PIC 9(6)V99.
  10.           05 PESO-HIS PIC 9(6)V99.
  11.           05 F-RES-HIS PIC 9(6)V99.
  12.           05 F-CAR-HIS PIC 9(6)V99.
  13.           05 MUC-HIS   PIC X(15). 
  14.           05 INF-HIS   PIC X(150). 
  15.           05 CAPILAR-HIS   PIC X(150). 
  16.           05 USUARIO-HIS PIC X(35).
  17.           05 LIBRE-HIS PIC X(150). 
  18.           05 DATOS-HIS PIC X(5000).
  19.         
  20.          

Código COBOL:
  1. SELECT HISTORIA ASSIGN TO WF-HISTORIA  ORGANIZATION
  2.             INDEXED ACCESS DYNAMIC RECORD KEY HISTORIA-KEY
  3.               LOCK MODE IS AUTOMATIC WITH LOCK ON RECORD
  4.              FILE STATUS IS FS-HISTORIA.

Josber 30 de mayo de 2020 12:17
@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 30 de mayo de 2020 17:42
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 30 de mayo de 2020 18:40
Cita:
Citación del post de Roger (Mensaje 5760)
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 31 de mayo de 2020 17:09
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 31 de mayo de 2020 18:30
@Dasije me salvaste la vida, pude lograr recuperar el archivo con COBFUT32, una herramienta que incluye en NetCOBOL Gracias.


La franja horaria es GMT +2. Ahora son las 08:43.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.