FD ATENCION GLOBAL EXTERNAL LABEL RECORD STANDARD.
01 ATENCION-REC.
02 ATENCION-KEY.
03 OFICINA-AT PIC 99.
03 ANO-AT PIC 9(4).
03 MES-AT PIC 99.
03 DIA-AT PIC 99.
02 ATENCION1-KEY.
03 ANO1-AT PIC 9(4).
03 MES1-AT PIC 99.
03 DIA1-AT PIC 99.
03 OFICINA1-AT PIC 99.
02 CANT-ATENCION-AT PIC 9(6).
02 QUEDO PIC 99.
02 cAMPO-LIBRE PIC X(15).
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 SWICH GLOBAL EXTERNAL.
02 SWT PIC 9.
01 SWICH1 GLOBAL EXTERNAL.
02 SWT1 PIC 9.
01 SNU-G GLOBAL EXTERNAL.
02 SNU-1 PIC 99.
02 SNU-2 PIC 99.
01 SN-UL GLOBAL EXTERNAL.
02 SNUS-U PIC 99.
02 SNUT-U PIC 99.
* 01 SNU-G GLOBAL EXTERNAL.
* 01 SNU-1 PIC 999 value 0.
* 01 SNU-2 PIC 999 value 0.
01 cantidadw PIC 999999.
01 SNU GLOBAL EXTERNAL.
02 SNU-11 PIC 99.
02 SNU-22 PIC 99.
01 SNUS PIC 999 VALUE 0.
01 SNUT PIC 999 VALUE 0.
01 ACUMULADO PIC 9(5) VALUE 0.
* 01 catg GLOBAL EXTERNAL.
*- 01 CAS1 PIC 999.
* 01 CAT2 PIC 999.
01 FECHA.
02 AA PIC 99.
02 MM PIC 99.
02 DD PIC 99.
01 SW GLOBAL EXTERNAL.
02 1VEZ PIC 9.
* 01 SWT pic 9 VALUE 0.
01 USUARIO GLOBAL EXTERNAL.
02 DEFINE PIC 9.
02 SISTEMA PIC 999.
02 TESORERIA PIC 999.
01 SS PIC 999.
01 ST PIC 999.
01 SISTEMA-1 PIC 999 VALUE 0.
01 TESORERIA-2 PIC 999 VALUE 0.
01 gen GLOBAL EXTERNAL.
02 general pic 999.
01 AAD PIC 9999 VALUE ZEROS.
01 QUEDO-W PIC 99.
01 CANT-ATENCION-AT-W PIC 9(6).
PROCEDURE DIVISION.
mayor-100.
move swt to pow-numeric of cmstatic11.
IF DEFINE not = 1 or 2
INVOKE CMCOMMAND2 "SETFOCUS".
IF DEFINE = 1 move SISTEMA to ss.
IF DEFINE = 2 move TESORERIA to st.
INICIO.
IF DEFINE = 1 move SS to snuS.
IF DEFINE = 2 move ST to snuT.
adiciona.
IF SWT = 0
ADD 0 TO SNUS SNUT
.
IF SWT = 1 AND DEFINE = 1
ADD 1 TO SNUS.
IF SWT = 1 AND DEFINE = 2
ADD 1 TO SNUT.
move DEFINE to pow-numeric of cmstatic12.
IF DEFINE = 1 move snuS to sistema SISTEMA-1
MOVE POW-COLOR-RED TO FORECOLOR OF CMSTATIC3.
*
IF DEFINE = 2 move snuT to tesoreria TESORERIA-2
MOVE POW-COLOR-BLUE TO FORECOLOR OF CMSTATIC9.
**********************************************
IF SNUS = 100 AND DEFINE = 1 move 0 TO snuS sistema
move 0 to swt
ADD 1 TO CANT-ATENCION-AT
go to mayor-100.
if snut = 100 AND DEFINE = 2 move 0 TO snuT TESORERIA
move 0 to swt
ADD 1 TO CANT-ATENCION-AT
go to mayor-100.
* move 0 to swt.
**********************************************
OPEN I-O ATENCION.
ACCEPT FECHA FROM DATE.
IF AA > 90
COMPUTE AAD = 1900 + AA
MOVE AAD TO ANO-AT ANO1-AT
ELSE
COMPUTE AAD = 2000 + AA
MOVE AAD TO ANO-AT ANO1-AT.
* MOVE AA TO ANO-AT ANO1-AT.
MOVE MM TO MES-AT MES1-AT.
MOVE DD TO DIA-AT DIA1-AT.
MOVE DEFINE TO OFICINA-AT OFICINA1-AT.
*****************************************
* move swt to pow-numeric of cmstatic12
* move 1vez to pow-numeric of cmstatic13
* MOVE 0 TO SWT.
************************rutina saber dnde quedoooo******************
IF DEFINE = 1 AND SWT = 0 or swt = 1
MOVE POW-COLOR-red TO FORECOLOR OF CMSTATIC3
MOVE 250 TO "Size" OF "FONT" OF CmSTATIC3
MOVE SNUS TO POW-NUMERIC OF CmSTATIC3
else
IF DEFINE = 2 AND SWT = 0 or swt = 1
MOVE POW-COLOR-blue TO FORECOLOR OF CMSTATIC9
MOVE 250 TO "Size" OF "FONT" OF CmSTATIC9
MOVE SNUT to poW-NUMERIC OF CmSTATIC9.
******rut quedoooooooooooooooooooooooooooooooooooooooooooo
*
****************************fin saber dde quedoooo*********************
LEE. READ ATENCION INVALID KEY GO CREA.
* ESCRIBE QUEDO
move 0 to 1vez
if DEFINE = 1 AND SWT = 0 or swt = 1
MOVE DEFINE TO OFICINA-AT OFICINA1-AT
MOVE AAD TO ANO-AT ANO1-AT
MOVE MM TO MES-AT MES1-AT
MOVE DD TO DIA-AT DIA1-AT
ADD 1 TO QUEDO CANT-ATENCION-AT
move quedo to snus QUEDO-W
MOVE CANT-ATENCION-AT TO CANT-ATENCION-AT-W
MOVE SNUs to poW-NUMERIC OF CmSTATIC3
move cant-atencion-at TO CAPTION OF CMSTATIC7
move QUEDO-W to quedo
MOVE CANT-ATENCION-AT-W TO CANT-ATENCION-AT
MOVE AAD TO ANO-AT ANO1-AT
MOVE MM TO MES-AT MES1-AT
MOVE DD TO DIA-AT DIA1-AT
MOVE DEFINE TO OFICINA-AT OFICINA1-AT.
if DEFINE = 2 AND SWT = 0
MOVE DEFINE TO OFICINA-AT OFICINA1-AT
MOVE AAD TO ANO-AT ANO1-AT
MOVE MM TO MES-AT MES1-AT
MOVE DD TO DIA-AT DIA1-AT
ADD 1 TO QUEDO CANT-ATENCION-AT
move quedo to SNUT QUEDO-W
MOVE CANT-ATENCION-AT TO CANT-ATENCION-AT-W
MOVE SNUT to poW-NUMERIC OF CmSTATIC9
move cant-atencion-at TO CAPTION OF CMSTATIC8
move QUEDO-W to quedo
MOVE CANT-ATENCION-AT-W TO CANT-ATENCION-AT
MOVE AAD TO ANO-AT ANO1-AT
MOVE MM TO MES-AT MES1-AT
MOVE DD TO DIA-AT DIA1-AT
MOVE DEFINE TO OFICINA-AT OFICINA1-AT.
if DEFINE = 2 AND SWT = 1
MOVE DEFINE TO OFICINA-AT OFICINA1-AT
MOVE AAD TO ANO-AT ANO1-AT
MOVE MM TO MES-AT MES1-AT
MOVE DD TO DIA-AT DIA1-AT
ADD 1 TO QUEDO CANT-ATENCION-AT
move quedo to SNUT QUEDO-W
MOVE CANT-ATENCION-AT TO CANT-ATENCION-AT-W
MOVE SNUT to poW-NUMERIC OF CmSTATIC9
move cant-atencion-at TO CAPTION OF CMSTATIC8
move QUEDO-W to quedo
MOVE CANT-ATENCION-AT-W TO CANT-ATENCION-AT
MOVE AAD TO ANO-AT ANO1-AT
MOVE MM TO MES-AT MES1-AT
MOVE DD TO DIA-AT DIA1-AT
MOVE DEFINE TO OFICINA-AT OFICINA1-AT.
*2345678
REWRITE ATENCION-REC INVALID KEY STOP "NO rGRABRA ".
go fin.
CREA.
MOVE 0 TO QUEDO
MOVE 1 TO CANT-ATENCION-AT 1vez
*2345678
WRITE ATENCION-REC INVALID KEY
MOVE 1 TO 1VEZ STOP "NO GRABRA X CREA".
REWRITE ATENCION-REC INVALID KEY STOP "NO rGRABRA ".
FIN.
INVOKE POW-SELF "REFRESH".
INVOKE POW-SELF "ThruEvents".
CLOSE ATENCION.
* MOVE 9 TO 1VEZ.
IF DEFINE = 1 and swt not = 9
MOVE CANT-ATENCION-AT TO CAPTION OF CMSTATIC7
else
IF DEFINE = 2 and swt not = 9
MOVE CANT-ATENCION-AT TO CAPTION OF CMSTATIC8.
* if swt = 0
* move 1 to swt.
MOVE DEFINE to pow-numeric of cmstatic13.
move swt to pow-numeric of cmstatic14.
EXIT PROGRAM.