Cita:
Empezado por roman
¿Esta es la descripción de la tabla? ¿En qué archivo la encontraste?
LineComment Saludos
|
Hace muchos años que no veía programas en Cobol...para mi fué una pesadilla aprender a programar en este lenguaje...Pero fue bueno recordar esos momentos...
A tu pregunta...
Los archivos fuentes son los *.CBL, miré algunos y por coincidencia los nombres de los archivos fuentes son muy parecidos a los archivos de datos...
Así que :
BIBLI001.CBL contiene esto...
Código Delphi
[-]
IDENTIFICATION DIVISION.
PROGRAM-ID. BIBLI001.
SECURITY. ABM DE LIBROS.
*
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. PCI.
OBJECT-COMPUTER. PCI.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT BIBLIO ASSIGN TO DISK,
"bibli01.fil"
ORGANIZATION IS RELATIVE
ACCESS MODE IS dynamic
RELATIVE IS B1-CLAVE.
...
DATA DIVISION.
FILE SECTION.
COPY "bibli01.cop".
COPY "bibli02.cop".
COPY "bibli03.cop".
COPY "bibli04.cop".
COPY "bibli07.cop".
El
FILE SECTION es donde se hace la descripción de los registros de los archivos...
Bibli01.COP
Código Delphi
[-]
FD BIBLIO
label record standard.
01 B1-REG.
02 B1-FECHIN PIC 9(6).
02 B1-TITULO PIC X(58).
02 B1-AUTOR1 PIC X(25).
02 B1-AUTOR2 PIC X(25).
02 B1-AUTOR3 PIC X(25).
02 B1-EDITOR PIC X(18).
02 B1-EDICION.
03 B1-ANIO PIC 9(4).
03 B1-VEZ PIC 9(2).
02 B1-ASIGNATURA PIC X(15).
02 B1-TOPO.
03 B1-UB PIC X(3).
03 B1-EST PIC X(3).
02 B1-COLECCION PIC X(20).
02 B1-PROCEDENCIA PIC X.
Y lo demás fué cantar...