Ejemplo
WORKING-STORAGE SECTION.
*-----------------------
01 ÁREA-ZTBGB006 PIC X(200) VALUE LOW-VALUES.
*- -*
01 FILLER REDEFINES ÁREA-ZTBGB006.
05 ORIGEN-ZTBGB006 PIC X.
05 CODIGO-RDO-ZTBGB006 PIC 9(4).
05 SENTIDO-ZTBGB006 PIC X(01).
05 GRABAR-SISLOG-ZTBGB006 PIC X(01).
05 SESION-PRESENTACION-ZTBGB006 PIC X(24).
05 SESION-TRANSMISION-ZTBGB006.
07 LOCAL-TRANSMISION-ZTBGB006 PIC X(9).
07 REMOTO-TRANSMISION-ZTBGB006 PIC X(9).
07 APLICA-TRANSMISION-ZTBGB006 PIC X(6).
05 CODIGO-MENSAJE-ZTBGB006 PIC 9(4).
05 PROGRAMA-INC-ZTBGB006 PIC X(8).
05 FILLER REDEFINES PROGRAMA-INC-ZTBGB006.
10 IDENT-MENSAJE-ZTBGB006 PIC X(3).
10 FILLER PIC X(5).
05 RECURSO-INC-ZTBGB006 PIC X(8).
05 RETORNO-INC-ZTBGB006.
10 F-S-INC-ZTBGB006 PIC X(2).
10 RESTO-INC-ZTBGB006 PIC X(3).
05 FILLER REDEFINES RETORNO-INC-ZTBGB006.
10 ERRCOD-INC-ZTBGB006 PIC 9(5).
05 TEXTO-ULT-MSJE-ZTBGB006 PIC X(60).
05 XRESP-ZTBGB006.
10 RESP-ZTBGB006 PIC 9(05).
05 XRAZON-ZTBGB006.
10 RAZON-ZTBGB006 PIC 9(05).
05 FILLER PIC X(50).
*- -*
01 ÁREA-ZTBGB110.
05 LONGITUD-ZTBGB110 PIC 9(4) COMP.
05 ORIGEN-ZTBGB110 PIC X.
05 FUNCION-ZTBGB110 PIC XX.
05 SESION-PRESENTACION-ZTBGB110.
10 LOCAL-ZTBGB110 PIC X(9).
10 REMOTO-ZTBGB110 PIC X(9).
10 APLICACION-ZTBGB110 PIC X(6).
05 FICHCAR-ZTBGB110 PIC X.
• -*
LINKAGE SECTION.
*----------------
*
01 ÁREA-PASO PIC X(29).
*
PROCEDURE DIVISION USING ÁREA-PASO.
*-----------------------------------
N1-P-PROGRAMA.
*
MOVE LOW-VALUES TO ÁREA-ZTBGB006
MOVE ‘U’ TO ORIGEN-ZTBGB006
MOVE ZEROS TO CODIGO-RDO-ZTBGB006
MOVE 'E' TO SENTIDO-ZTBGB006
MOVE 'S' TO GRABAR-SISLOG-ZTBGB006
MOVE SESION-PRESENTACION-ZTBGB110
TO SESION-PRESENTACION-ZTBGB006
MOVE LOW-VALUES TO SESION-TRANSMISION-ZTBGB006
MOVE 1331 TO CODIGO-MENSAJE-ZTBGB006
MOVE 'USU' TO IDENT-MENSAJE-ZTBGB006
MOVE 'ESTO ES UNA PRUEBA DE MENSAJE DE USUARIO'
TO TEXTO-ULT-MSJE-ZTBGB006
*
CALL ZTBGB006 USING ÁREA-ZTBGB006.
IF CODIGO-RDO-ZTBGB006 NOT = ZEROS
DISPLAY 'ERROR EN ZTBGB006, RDO = ' CODIGO-RDO-ZTBGB006.
Última actualización