EN ESTA SECCION VEREMOS COMO SE DECLARAN LOS ARCHIVOS TANTO EN LA FILE-CONTROL, FILE SECTION Y COMO CREAR LOS LAYOUTS EN LA WORKING.
FILE-CONTROL SERIA ALGO COMO LO SIGUIENTE:
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
*SPECIAL-NAMES.
*DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
FILE CONTROL.
SELECT E1DQCLIE ASSIGN TO E1DQCLIE
FILE STATUS IS FS-E1DQCLIE.
SELECT S1DQCLIE ASSIGN TO S1DQCLIE
FIEL STATUS IS FS-S1DQCLIE.
ojo LOS NOMBRE E1DQCLIE, S1DQCLIE NOS SERVIRAN EN NUESTRO JCL.
EN LA FILE SECTION DECLARARIAMOS LA ESTRUCTURA DEL REGISTRO:
DATA DIVISION.
FILE SECTION.
FD E1DQCLIE
LABEL RECORD ARE STANDARD
BLOCK CONTAINS 0 RECORDS
RECORD CONTAINS 38 CHARACTERS
DATA RECORD IS FD-E1DQCLIE
RECORDING MODE F.
01 FD-E1DQCLIE.
05 FD-E1-CLAVE PIC X(08).
05 FD-E1-CLIEN PIC X(30).
PODRIA SER QUE EN LA FILE SECTION SOLO PONGAMOS LA LONGITUD TOTAL COMO SIGUE:
01 FD-E1DQCLIE PIC X(38). PERO EN LA WORKING TENDRIAS QUE DECLARAR UN LAYOUT, SOLO QUE A LA HORA DE LEER EN ARCHIVO TENDRAS QUE LEER DENTRO DE ESTE LAYOUT.
01 WS-E1DQCLIE.
05 WS-E1-CLAVE PIC X(08).
05 WS-E1-CLIEN PIC X(30).
ESTO ES MUY UTIL CUANDO QUIERES QUE TU ARCHIVO DE SALIDA LLEVE UN CIERTO FORMATO POR EJEMPLO:
|00001500|ALBERTO CUERVO DE LA CRUZ |
|00001501|NATALIA CATALINA MATINEZ GO|
PUES SI LO HACEMOS DIRECTAMENTE EN LA FD MARCARA UN ERROR A LA HORA DE COMPILAR NUESTRO PROGRAMA.
ALGO QUE NO DEBEMOS OLVIDAR Y QUE A LA MAYORIA SE NOS PASA LA PRIMERA VEZ ES DECLARAR LA VARIABLE DEL FILE STATUS EN LA WORKING.
01 FS-ARCHIVOS.
05 FS-E1DQCLIE PIC X(02).
Y LO DEMAS POCO A POCO CON LA PRACTICA.
0 comentarios:
Publicar un comentario