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.