CURSO COBOL OS/390. CABECERAS COBOL.

IDENTIFICATION DIVISION.

VOLVIENDO AL COBOL, VAMOS A VER LO QUE LLEVAN LAS CABECERAS DEL LENGUAJE COBOL:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. EJEMPLO.
       AUTHOR.     ALBERTO.
       REMARKS
      **
      *            HOLA SOY UN COMENTARIO JEJE
      **

COMO PODRAN NOTAR L PRIMERO QUE VA EL NOMBRE DE LA CABECERA, SEGUIDO DEL NOMBRE DEL PROGRAMA, NOMBRE DEL AUTOR, COMENTARIOS.

LA SEGUNDA CABECERA QUE VEREMOS ES:

ENVIRONMENT DIVISION.

SE UTILIZA PARA ESTABLECER LA RELACION ENTRE LOS DATOS DEL PROGRAMA COBOL Y LAS TARGETAS DD DEL JOB QUE EJECUTARA EL PROGRAMA.

        ENVIRONMENT DIVISION.
        CONFIGURATION SECTION.
        INPUT-OUTPUT SECTION.
        FILE-CONTROL.


            SELECT E1DQCUEN ASSIGN TO E1DQCUEN
            FILE STATUS IS FS-E1DQCUEN.

DATA DIVISION.

SE DIVIDE EN TRES SECCIONES QUE SON:

FILE SECTION: SE DEFINE LA ESTRUCTURA DE LOS ARCHIVOS DE DATOS.
        FILE SECTION.
        FD E1DQCUEN
            LABEL RECORDS ARE STANDARD
            BLOCK CONTAINS 0 RECORDS
            RECORD CONTAINS 8 CHARACTERS
            DATA RECORD IS FD-E1DQCUEN
            RECORDING MODE F.


        01 FD-E1DQCUEN.
           05 FD-E1-ENTIDA PIC X(04).
           05 FD-E1-CENALT PIC X(04).

WORKING-STORAGE SECTION: DEFINE DATOS A UTILIZAR QUE NO SON PARTE DE ARCHIVOS.
        WORKING-STORAGE SECTION.
        01  WS-VAR-LOC.
            05 WS-VARIABLE     PIC 9(10)V9(02).
        01 CN-CONTADORES.
            05 CN-LEI-E1DQCUEN PIC 9(06).
        01 CT-CONSTANTES.
            05 CT-A            PIC X(01) VALUE 'A'.

LINKAGE SECTION: DEFINE LOS DATOS PROVENIENTES DE OTRO PROGRAMA... ALGUIEN SE ACUERDA DE PASAR PARAMETROS....

PROCEDURE DIVISION.
AQUI ES DONDE VA NUESTRO ALGORITMO YA EN FORMA CODIFICADA.

        PROCEDURE DIVISION.
        000-CONTROL.
            PERFORM 010-INICIO
            PERFORM 100-PROCESO
            PERFORM 900-FINAL
            STOP RUN.