Amigos tengo un fichero que deseo recuperar ¿podria alguien del foro ayudarme?
esto es la descripción
Código COBOL:
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).
Código COBOL:
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.