1 dic 2009

CURSO COBOL OS/390. DECLARACION DE ARCHIVOS.

    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: