Ejemplo
WORKING-STORAGE SECTION.
*-----------------------
01 ÁREA-ZTBGBA01 PIC X(250).
01 FILLER REDEFINES ÁREA-GBA01.
05 ÁREA-ENTRADA-GBA01 PIC X(100).
05 FILLER REDEFINES ÁREA-ENTRADA-GBA01.
10 FUNCION-GBA01 PIC 9(2).
10 SENTIDO-GBA01 PIC X.
10 SESION-PRESENTACION-GBA01.
15 LOCAL-GBA01 PIC X(9).
15 FILLER REDEFINES LOCAL-GBA01.
20 FILLER PIC X.
20 LOCAL-2-GBA01 PIC X(7).
20 FILLER PIC X.
15 REMOTO-GBA01 PIC X(9).
15 FILLER REDEFINES REMOTO-GBA01.
20 FILLER PIC X.
20 REMOTO-2-GBA01 PIC X(7).
20 FILLER PIC X.
15 APLICACION-GBA01 PIC X(6).
10 INTERV-WAIT-GBA01 PIC X(6).
10 FILLER REDEFINES INTERV-WAIT-GBA01.
15 HH-WAIT-GBA01 PIC 9(2).
15 MM-WAIT-GBA01 PIC 9(2).
15 SS-WAIT-GBA01 PIC 9(2).
10 INTERV-MAX-GBA01 PIC X(6).
10 FILLER REDEFINES INTERV-MAX-GBA01.
15 HH-MAX-GBA01 PIC 9(2).
15 MM-MAX-GBA01 PIC 9(2).
15 SS-MAX-GBA01 PIC 9(2).
10 LIMITE-MAX-GBA01 REDEFINES INTERV-MAX-GBA01.
15 HH-LIM-MAX-GBA01 PIC 9(2).
15 MM-LIM-MAX-GBA01 PIC 9(2).
15 SS-LIM-MAX-GBA01 PIC 9(2).
10 FILLER PIC X(61).
05 ÁREA-SALIDA-GBA01 PIC X(150).
05 FILLER REDEFINES ÁREA-SALIDA-GBA01.
10 RESULTADO-GBA01 PIC 9(2).
10 RAZON-GBA01 PIC 9(4).
10 EST-SES-PRESENT-GBA01 PIC 9(3).
10 EST-CARGA-CSB-GBA01 PIC 9(3).
10 PRESENT-DEFINIDA-GBA01 PIC X(1).
10 NUM-SESION-GBA01 PIC 9(4).
10 FECHA-INICIO-PRES-GBA01 PIC X(14).
10 FILLER REDEFINES FECHA-INICIO-PRES-GBA01.
15 WFECH-INI-PRES-GBA01 PIC X(8).
15 WHORA-INI-PRES-GBA01 PIC X(6).
10 FECHA-FIN-PRES-GBA01 PIC X(14).
10 FILLER REDEFINES FECHA-FIN-PRES-GBA01.
15 WFECH-FIN-PRES-GBA01 PIC X(8).
15 WHORA-FIN-PRES-GBA01 PIC X(6).
10 FECHA-INICIO-PROC-GBA01 PIC X(14).
10 FECHA-FIN-PROC-GBA01 PIC X(14).
10 INTERV-EJ-GBA01 PIC 9(08).
10 FILLER PIC X(69).
*
PROCEDURE DIVISION.
*
N1-P-PROGRAMA.
*
*
MOVE LOW-VALUES TO ÁREA-GBA01
MOVE 01 TO FUNCION-GBA01.
MOVE ‘E’ TO SENTIDO-GBA01.
MOVE ‘000099990’ TO LOCAL-GBA01
MOVE ‘000099940’ TO REMOTO-GBA01
MOVE ‘PRUEBA’ TO APLICACION-GBA01
* INTERVALOS DE WAIT CADA 5 MINUTOS Y MEDIO.
* INTERVALO MAXIMO DE ESPERA: 31 HORAS, 59 MINUTOS, 14 SEGUNDOS
MOVE 000530 TO INTERV-WAIT-GBA01
MOVE 315914 TO INTERV-MAX-GBA01
MOVE ÁREA-ENTRADA-GBUTC TO ÁREA-ENTRADA-GBA01.
*
CALL ZTBGBA01 USING ÁREA-GBA01.
*
IF RESULTADO-GBA01 = ZEROS OR 07
IF ESTADO-PRESENTACION-GBA01 = 005
DISPLAY ‘FINALIZADO’
* AQUI SE PODRIAN REALIZAR LAS ACCIONES DESEADAS
ELSE
DISPLAY ‘ ESTADO :’ ESTADO-PRESENTACION-GBA01
ELSE
NEXT SENTENCE.
*
MOVE RESULTADO-GBA01 TO RETURN-CODE.
Última actualización