CURSO COBOL OS/390. DECLARACION DE VARIABLES, CONSTANTES, TABLAS, CONTADORES, SWITCHES, ETC.

    DECLARAR UNA VARIABLE EN COBOL ES BASTANTE FACIL PERO DE ACUERDO A COMO LAS DECLARES SE TE FACILITARA MAS HACER CIERTAS COSAS A LA HORA DE PROGRAMAR.

PIC X(LONGITUD DE LA VARIABLE ALFANUMERICA).
PIC 9(LONGITUD DE LA VARIABLE NUMERICA).
PIC 9(LONGITUD DE LA VARIABLE NUMERICA)V9(LONGITUD DECIMAL VIRTUAL).
PIC Z,ZZ9.99 VARIABLE NUMERICA EDITADA (NO SIRVE PARA OPERACIONES).

         01  WS-VARIABLES.
            05  WS-NOMBRE       PIC X(30).
            05  WS-APEMAT       PIC X(20).
            05  WS-APEPAT       PIC X(20).


        01  CT-CONSTANTES.
            05  CT-A       PIC X(01) VALUE 'A'.
            05  CT-1       PIC 9(01) VALUE 1.

    EXISTE UN COMODIN LLAMADO FILLER. UN EJEMPLO PARA USARLO SERIA:

        01  WS-FECHA.
            05  WS-YEAR    PIC X(04).
            05  FILLER     PIC X(01) VALUE '/'.
            05  WS-MES     PIC X(02).
            05  FILLER     PIC X(01) VALUE '/'.
            05  WS-DIA     PIC X(02).

    LA DECLARACION DE UNA TABLA DE HACE DE LA SIGUIENTE MANERA:

        01  WT-TABLA-DIVISAS.
            05  WT-DIVISAS OCCURS 100 TIMES
                INDEXED BY WI-CODDIV.
                10  WT-COD-DIVISA PIC X(03).
                10  WT-DES-DIVISA PIC X(25).

    LA DECLARACION DE CONTADORES SE HACE ASI:

        01  CN-CONTADORES.
            05  LEIDOS-ARCHIVO1    PIC 9(06).
            05  LEIDOS-ARCHIVO2    PIC 9(06).

    LA DECLARACION DE SWITCHES SE HACE ASI:

        01  SW-PROGRAMA.
            05  SW-ERROR.
                10  SW-ERROR-SI    PIC X(01).
                10  SW-ERROR-NO    PIC X(01).
    


    NOTA: NO NECESARIAMENTE SE DEBEN DECLARAR(VARIABLES, CONTADORES, ETC) COMO SE LOS PONGO SE PODRIA DECLARAR COMO:

        01  ACHUCHITALABOLSEARON   PIC X(10).

    PERO NOTESE QUE A LA HORA DE PROGRAMAR NO SABRIAMOS QUE TIPO DE VARIABLE ES.

    POR ESO ES BUENO ESTANDARIZAR.