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