MFmainframe-rea
WS carddemo · 26f629ef

Business rules · 257 guarded actionsCOPAUS0C

Each row is an action and the full chain of conditions that must hold for it to run, recovered from nested IF / EVALUATE / PERFORM UNTIL scopes. Name the rule; the evidence is already attached.

88 levels

Condition names used

CDEMO-PGM-REENTERmeans CDEMO-PGM-CONTEXT = 1COCOM01Y.cpy:31 via COPAUS0C.cbl:116
FOUND-PAUT-SMRY-SEGmeans WS-PAUT-SMRY-SEG-FLG = 'Y'COPAUS0C.cbl:104
NEXT-PAGE-YESmeans CDEMO-CPVS-NEXT-PAGE-FLG = 'Y'COPAUS0C.cbl:124
ERR-FLG-OFFmeans WS-ERR-FLG = 'N'COPAUS0C.cbl:108
AUTHS-EOFmeans WS-AUTHS-EOF = 'Y'COPAUS0C.cbl:110
ERR-FLG-ONmeans WS-ERR-FLG = 'Y'COPAUS0C.cbl:107
AUTHS-NOT-EOFmeans WS-AUTHS-EOF = 'N'COPAUS0C.cbl:111
STATUS-OKmeans IMS-RETURN-CODE = ' ' OR 'FW'COPAUS0C.cbl:79
SEGMENT-NOT-FOUNDmeans IMS-RETURN-CODE = 'GE'COPAUS0C.cbl:80
END-OF-DBmeans IMS-RETURN-CODE = 'GB'COPAUS0C.cbl:83
IMS-PSB-SCHDmeans WS-IMS-PSB-SCHD-FLG = 'Y'COPAUS0C.cbl:89
SEND-ERASE-YESmeans WS-SEND-ERASE-FLG = 'Y'COPAUS0C.cbl:113
PSB-SCHEDULED-MORE-THAN-ONCEmeans IMS-RETURN-CODE = 'TC'COPAUS0C.cbl:85
31 rules

MAIN-PARA

WhenThenAt
  1. EIBCALEN = 0
 INITIALIZE CARDDEMO-COMMAREACOPAUS0C.cbl:191
  1. EIBCALEN = 0
 MOVE WS-PGM-AUTH-SMRY TO CDEMO-TO-PROGRAMCOPAUS0C.cbl:192
  1. EIBCALEN = 0
 SET CDEMO-PGM-REENTER TO TRUECOPAUS0C.cbl:194
  1. EIBCALEN = 0
 MOVE LOW-VALUES TO COPAU0AOCOPAUS0C.cbl:195
  1. EIBCALEN = 0
 MOVE -1 TO ACCTIDL OF COPAU0AICOPAUS0C.cbl:196
  1. EIBCALEN = 0
 PERFORM SEND-PAULST-SCREENCOPAUS0C.cbl:198
  1. NOT (EIBCALEN = 0)
 MOVE DFHCOMMAREA(1:EIBCALEN) TO CARDDEMO-COMMAREACOPAUS0C.cbl:200
  1. NOT (EIBCALEN = 0)
  2. NOT CDEMO-PGM-REENTER
 SET CDEMO-PGM-REENTER TO TRUECOPAUS0C.cbl:203
  1. NOT (EIBCALEN = 0)
  2. NOT CDEMO-PGM-REENTER
 MOVE LOW-VALUES TO COPAU0AOCOPAUS0C.cbl:205
  1. NOT (EIBCALEN = 0)
  2. NOT CDEMO-PGM-REENTER
  3. CDEMO-ACCT-ID IS NUMERIC
 MOVE CDEMO-ACCT-ID TO WS-ACCT-ID ACCTIDO OF COPAU0AOCOPAUS0C.cbl:208–209
  1. NOT (EIBCALEN = 0)
  2. NOT CDEMO-PGM-REENTER
  3. NOT (CDEMO-ACCT-ID IS NUMERIC)
 MOVE SPACE TO ACCTIDO OF COPAU0AOCOPAUS0C.cbl:211
  1. NOT (EIBCALEN = 0)
  2. NOT CDEMO-PGM-REENTER
  3. NOT (CDEMO-ACCT-ID IS NUMERIC)
 MOVE LOW-VALUES TO WS-ACCT-IDCOPAUS0C.cbl:212
  1. NOT (EIBCALEN = 0)
  2. NOT CDEMO-PGM-REENTER
 PERFORM GATHER-DETAILSCOPAUS0C.cbl:215
  1. NOT (EIBCALEN = 0)
  2. NOT CDEMO-PGM-REENTER
 SET SEND-ERASE-YES TO TRUECOPAUS0C.cbl:217
  1. NOT (EIBCALEN = 0)
  2. NOT CDEMO-PGM-REENTER
 PERFORM SEND-PAULST-SCREENCOPAUS0C.cbl:219
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
 PERFORM RECEIVE-PAULST-SCREENCOPAUS0C.cbl:222
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID = DFHENTER
 PERFORM PROCESS-ENTER-KEYCOPAUS0C.cbl:226
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID = DFHENTER
  4. WS-ACCT-ID = LOW-VALUES
 MOVE SPACE TO ACCTIDO OF COPAU0AOCOPAUS0C.cbl:229
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID = DFHENTER
  4. NOT (WS-ACCT-ID = LOW-VALUES)
 MOVE WS-ACCT-ID TO ACCTIDO OF COPAU0AOCOPAUS0C.cbl:231
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID = DFHENTER
 PERFORM SEND-PAULST-SCREENCOPAUS0C.cbl:234
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID = DFHPF3
 MOVE WS-PGM-MENU TO CDEMO-TO-PROGRAMCOPAUS0C.cbl:236
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID = DFHPF3
 PERFORM RETURN-TO-PREV-SCREENCOPAUS0C.cbl:237
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID = DFHPF3
 PERFORM SEND-PAULST-SCREENCOPAUS0C.cbl:238
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID = DFHPF7
 PERFORM PROCESS-PF7-KEYCOPAUS0C.cbl:240
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID = DFHPF7
 PERFORM SEND-PAULST-SCREENCOPAUS0C.cbl:241
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID = DFHPF8
 PERFORM PROCESS-PF8-KEYCOPAUS0C.cbl:243
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID = DFHPF8
 PERFORM SEND-PAULST-SCREENCOPAUS0C.cbl:244
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID is none of [DFHENTER; DFHPF3; DFHPF7; DFHPF8]
 MOVE 'Y' TO WS-ERR-FLGCOPAUS0C.cbl:246
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID is none of [DFHENTER; DFHPF3; DFHPF7; DFHPF8]
 MOVE -1 TO ACCTIDL OF COPAU0AICOPAUS0C.cbl:247
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID is none of [DFHENTER; DFHPF3; DFHPF7; DFHPF8]
 MOVE CCDA-MSG-INVALID-KEY TO WS-MESSAGECOPAUS0C.cbl:248
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID is none of [DFHENTER; DFHPF3; DFHPF7; DFHPF8]
 PERFORM SEND-PAULST-SCREENCOPAUS0C.cbl:249
29 rules

PROCESS-ENTER-KEY

WhenThenAt
  1. ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES
 MOVE LOW-VALUES TO WS-ACCT-IDCOPAUS0C.cbl:265
  1. ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES
 MOVE 'Y' TO WS-ERR-FLGCOPAUS0C.cbl:267
  1. ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES
 MOVE 'Please enter Acct Id...' TO WS-MESSAGECOPAUS0C.cbl:268–269
  1. ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES
 MOVE -1 TO ACCTIDL OF COPAU0AICOPAUS0C.cbl:271
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. ACCTIDI OF COPAU0AI IS NOT NUMERIC
 MOVE LOW-VALUES TO WS-ACCT-IDCOPAUS0C.cbl:274
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. ACCTIDI OF COPAU0AI IS NOT NUMERIC
 MOVE 'Y' TO WS-ERR-FLGCOPAUS0C.cbl:276
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. ACCTIDI OF COPAU0AI IS NOT NUMERIC
 MOVE 'Acct Id must be Numeric ...' TO WS-MESSAGECOPAUS0C.cbl:277–278
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. ACCTIDI OF COPAU0AI IS NOT NUMERIC
 MOVE -1 TO ACCTIDL OF COPAU0AICOPAUS0C.cbl:280
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC)
 MOVE ACCTIDI OF COPAU0AI TO WS-ACCT-ID CDEMO-ACCT-IDCOPAUS0C.cbl:283–284
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC)
  3. SEL0001I OF COPAU0AI NOT = SPACES AND LOW-VALUES
 MOVE SEL0001I OF COPAU0AI TO CDEMO-CPVS-PAU-SEL-FLGCOPAUS0C.cbl:287
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC)
  3. SEL0001I OF COPAU0AI NOT = SPACES AND LOW-VALUES
 MOVE CDEMO-CPVS-AUTH-KEYS(1) TO CDEMO-CPVS-PAU-SELECTEDCOPAUS0C.cbl:288–289
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC)
  3. SEL0002I OF COPAU0AI NOT = SPACES AND LOW-VALUES
 MOVE SEL0002I OF COPAU0AI TO CDEMO-CPVS-PAU-SEL-FLGCOPAUS0C.cbl:291
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC)
  3. SEL0002I OF COPAU0AI NOT = SPACES AND LOW-VALUES
 MOVE CDEMO-CPVS-AUTH-KEYS(2) TO CDEMO-CPVS-PAU-SELECTEDCOPAUS0C.cbl:292–293
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC)
  3. SEL0003I OF COPAU0AI NOT = SPACES AND LOW-VALUES
 MOVE SEL0003I OF COPAU0AI TO CDEMO-CPVS-PAU-SEL-FLGCOPAUS0C.cbl:295
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC)
  3. SEL0003I OF COPAU0AI NOT = SPACES AND LOW-VALUES
 MOVE CDEMO-CPVS-AUTH-KEYS(3) TO CDEMO-CPVS-PAU-SELECTEDCOPAUS0C.cbl:296–297
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC)
  3. SEL0004I OF COPAU0AI NOT = SPACES AND LOW-VALUES
 MOVE SEL0004I OF COPAU0AI TO CDEMO-CPVS-PAU-SEL-FLGCOPAUS0C.cbl:299
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC)
  3. SEL0004I OF COPAU0AI NOT = SPACES AND LOW-VALUES
 MOVE CDEMO-CPVS-AUTH-KEYS(4) TO CDEMO-CPVS-PAU-SELECTEDCOPAUS0C.cbl:300–301
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC)
  3. SEL0005I OF COPAU0AI NOT = SPACES AND LOW-VALUES
 MOVE SEL0005I OF COPAU0AI TO CDEMO-CPVS-PAU-SEL-FLGCOPAUS0C.cbl:303
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC)
  3. SEL0005I OF COPAU0AI NOT = SPACES AND LOW-VALUES
 MOVE CDEMO-CPVS-AUTH-KEYS(5) TO CDEMO-CPVS-PAU-SELECTEDCOPAUS0C.cbl:304–305
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC)
  3. TRUE is none of [SEL0001I OF COPAU0AI NOT = SPACES AND LOW-VALUES; SEL0002I OF COPAU0AI NOT = SPACES AND LOW-VALUES; SEL0003I OF COPAU0AI NOT = SPACES AND LOW-VALUES; SEL0004I OF COPAU0AI NOT = SPACES AND LOW-VALUES; SEL0005I OF COPAU0AI NOT = SPACES AND LOW-VALUES]
 MOVE SPACES TO CDEMO-CPVS-PAU-SEL-FLGCOPAUS0C.cbl:307
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC)
  3. TRUE is none of [SEL0001I OF COPAU0AI NOT = SPACES AND LOW-VALUES; SEL0002I OF COPAU0AI NOT = SPACES AND LOW-VALUES; SEL0003I OF COPAU0AI NOT = SPACES AND LOW-VALUES; SEL0004I OF COPAU0AI NOT = SPACES AND LOW-VALUES; SEL0005I OF COPAU0AI NOT = SPACES AND LOW-VALUES]
 MOVE SPACES TO CDEMO-CPVS-PAU-SELECTEDCOPAUS0C.cbl:308
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC)
  3. (CDEMO-CPVS-PAU-SEL-FLG NOT = SPACES AND LOW-VALUES) AND (CDEMO-CPVS-PAU-SELECTED NOT = SPACES AND LOW-VALUES)
  4. CDEMO-CPVS-PAU-SEL-FLG = 'S' OR CDEMO-CPVS-PAU-SEL-FLG = 's'
 MOVE WS-PGM-AUTH-DTL TO CDEMO-TO-PROGRAMCOPAUS0C.cbl:316
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC)
  3. (CDEMO-CPVS-PAU-SEL-FLG NOT = SPACES AND LOW-VALUES) AND (CDEMO-CPVS-PAU-SELECTED NOT = SPACES AND LOW-VALUES)
  4. CDEMO-CPVS-PAU-SEL-FLG = 'S' OR CDEMO-CPVS-PAU-SEL-FLG = 's'
 MOVE WS-CICS-TRANID TO CDEMO-FROM-TRANIDCOPAUS0C.cbl:317
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC)
  3. (CDEMO-CPVS-PAU-SEL-FLG NOT = SPACES AND LOW-VALUES) AND (CDEMO-CPVS-PAU-SELECTED NOT = SPACES AND LOW-VALUES)
  4. CDEMO-CPVS-PAU-SEL-FLG = 'S' OR CDEMO-CPVS-PAU-SEL-FLG = 's'
 MOVE WS-PGM-AUTH-SMRY TO CDEMO-FROM-PROGRAMCOPAUS0C.cbl:318
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC)
  3. (CDEMO-CPVS-PAU-SEL-FLG NOT = SPACES AND LOW-VALUES) AND (CDEMO-CPVS-PAU-SELECTED NOT = SPACES AND LOW-VALUES)
  4. CDEMO-CPVS-PAU-SEL-FLG = 'S' OR CDEMO-CPVS-PAU-SEL-FLG = 's'
 MOVE 0 TO CDEMO-PGM-CONTEXTCOPAUS0C.cbl:319
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC)
  3. (CDEMO-CPVS-PAU-SEL-FLG NOT = SPACES AND LOW-VALUES) AND (CDEMO-CPVS-PAU-SELECTED NOT = SPACES AND LOW-VALUES)
  4. CDEMO-CPVS-PAU-SEL-FLG = 'S' OR CDEMO-CPVS-PAU-SEL-FLG = 's'
 SET CDEMO-PGM-ENTER TO TRUECOPAUS0C.cbl:320
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC)
  3. (CDEMO-CPVS-PAU-SEL-FLG NOT = SPACES AND LOW-VALUES) AND (CDEMO-CPVS-PAU-SELECTED NOT = SPACES AND LOW-VALUES)
  4. CDEMO-CPVS-PAU-SEL-FLG = 'S' OR CDEMO-CPVS-PAU-SEL-FLG = 's'
 EXEC CICS XCTL PROGRAM(CDEMO-TO-PROGRAM) COMMAREA(CARDDEMO-COMMAREA) END-EXECCOPAUS0C.cbl:322–325
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC)
  3. (CDEMO-CPVS-PAU-SEL-FLG NOT = SPACES AND LOW-VALUES) AND (CDEMO-CPVS-PAU-SELECTED NOT = SPACES AND LOW-VALUES)
  4. CDEMO-CPVS-PAU-SEL-FLG is none of ['S'; 's']
 MOVE 'Invalid selection. Valid value is S' TO WS-MESSAGECOPAUS0C.cbl:327–329
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC)
  3. (CDEMO-CPVS-PAU-SEL-FLG NOT = SPACES AND LOW-VALUES) AND (CDEMO-CPVS-PAU-SELECTED NOT = SPACES AND LOW-VALUES)
  4. CDEMO-CPVS-PAU-SEL-FLG is none of ['S'; 's']
 MOVE -1 TO ACCTIDL OF COPAU0AICOPAUS0C.cbl:330
3 rules

GATHER-DETAILS

WhenThenAt
  1. WS-ACCT-ID NOT = LOW-VALUES
 PERFORM GATHER-ACCOUNT-DETAILSCOPAUS0C.cbl:350
  1. WS-ACCT-ID NOT = LOW-VALUES
 PERFORM INITIALIZE-AUTH-DATACOPAUS0C.cbl:352
  1. WS-ACCT-ID NOT = LOW-VALUES
  2. FOUND-PAUT-SMRY-SEG
 PERFORM PROCESS-PAGE-FORWARDCOPAUS0C.cbl:355
10 rules

PROCESS-PF7-KEY

WhenThenAt
  1. CDEMO-CPVS-PAGE-NUM > 1
calc COMPUTE CDEMO-CPVS-PAGE-NUM = CDEMO-CPVS-PAGE-NUM - 1COPAUS0C.cbl:366
  1. CDEMO-CPVS-PAGE-NUM > 1
 MOVE CDEMO-CPVS-PAUKEY-PREV-PG(CDEMO-CPVS-PAGE-NUM) TO WS-AUTH-KEY-SAVECOPAUS0C.cbl:368–369
  1. CDEMO-CPVS-PAGE-NUM > 1
 PERFORM GET-AUTH-SUMMARYCOPAUS0C.cbl:370
  1. CDEMO-CPVS-PAGE-NUM > 1
 SET SEND-ERASE-NO TO TRUECOPAUS0C.cbl:372
  1. CDEMO-CPVS-PAGE-NUM > 1
 SET NEXT-PAGE-YES TO TRUECOPAUS0C.cbl:374
  1. CDEMO-CPVS-PAGE-NUM > 1
 MOVE -1 TO ACCTIDL OF COPAU0AICOPAUS0C.cbl:375
  1. CDEMO-CPVS-PAGE-NUM > 1
 PERFORM INITIALIZE-AUTH-DATACOPAUS0C.cbl:377
  1. CDEMO-CPVS-PAGE-NUM > 1
 PERFORM PROCESS-PAGE-FORWARDCOPAUS0C.cbl:379
  1. NOT (CDEMO-CPVS-PAGE-NUM > 1)
 MOVE 'You are already at the top of the page...' TO WS-MESSAGECOPAUS0C.cbl:381–382
  1. NOT (CDEMO-CPVS-PAGE-NUM > 1)
 SET SEND-ERASE-NO TO TRUECOPAUS0C.cbl:383
7 rules

PROCESS-PF8-KEY

WhenThenAt
  1. CDEMO-CPVS-PAUKEY-LAST = SPACES OR LOW-VALUES
 MOVE LOW-VALUES TO WS-AUTH-KEY-SAVECOPAUS0C.cbl:392
  1. NOT (CDEMO-CPVS-PAUKEY-LAST = SPACES OR LOW-VALUES)
 MOVE CDEMO-CPVS-PAUKEY-LAST TO WS-AUTH-KEY-SAVECOPAUS0C.cbl:394
  1. NOT (CDEMO-CPVS-PAUKEY-LAST = SPACES OR LOW-VALUES)
 PERFORM GET-AUTH-SUMMARYCOPAUS0C.cbl:396
  1. NOT (CDEMO-CPVS-PAUKEY-LAST = SPACES OR LOW-VALUES)
 PERFORM REPOSITION-AUTHORIZATIONSCOPAUS0C.cbl:397
  1. NEXT-PAGE-YES
 PERFORM INITIALIZE-AUTH-DATACOPAUS0C.cbl:405
  1. NEXT-PAGE-YES
 PERFORM PROCESS-PAGE-FORWARDCOPAUS0C.cbl:407
  1. NOT (NEXT-PAGE-YES)
 MOVE 'You are already at the bottom of the page...' TO WS-MESSAGECOPAUS0C.cbl:409–410
13 rules

PROCESS-PAGE-FORWARD

WhenThenAt
  1. ERR-FLG-OFF
 MOVE 1 TO WS-IDXCOPAUS0C.cbl:420
  1. ERR-FLG-OFF
 MOVE LOW-VALUES TO CDEMO-CPVS-PAUKEY-LASTCOPAUS0C.cbl:422
  1. ERR-FLG-OFF
 PERFORM UNTIL WS-IDX > 5 OR AUTHS-EOF OR ERR-FLG-ONCOPAUS0C.cbl:424
  1. ERR-FLG-OFF
  2. PERFORM UNTIL WS-IDX > 5 OR AUTHS-EOF OR ERR-FLG-ON
  3. EIBAID = DFHPF7 AND WS-IDX = 1
 PERFORM REPOSITION-AUTHORIZATIONSCOPAUS0C.cbl:426
  1. ERR-FLG-OFF
  2. PERFORM UNTIL WS-IDX > 5 OR AUTHS-EOF OR ERR-FLG-ON
  3. NOT (EIBAID = DFHPF7 AND WS-IDX = 1)
 PERFORM GET-AUTHORIZATIONSCOPAUS0C.cbl:428
  1. ERR-FLG-OFF
  2. PERFORM UNTIL WS-IDX > 5 OR AUTHS-EOF OR ERR-FLG-ON
  3. AUTHS-NOT-EOF AND ERR-FLG-OFF
 PERFORM POPULATE-AUTH-LISTCOPAUS0C.cbl:431
  1. ERR-FLG-OFF
  2. PERFORM UNTIL WS-IDX > 5 OR AUTHS-EOF OR ERR-FLG-ON
  3. AUTHS-NOT-EOF AND ERR-FLG-OFF
calc COMPUTE WS-IDX = WS-IDX + 1COPAUS0C.cbl:432
  1. ERR-FLG-OFF
  2. PERFORM UNTIL WS-IDX > 5 OR AUTHS-EOF OR ERR-FLG-ON
  3. AUTHS-NOT-EOF AND ERR-FLG-OFF
 MOVE PA-AUTHORIZATION-KEY TO CDEMO-CPVS-PAUKEY-LASTCOPAUS0C.cbl:434–435
  1. ERR-FLG-OFF
  2. PERFORM UNTIL WS-IDX > 5 OR AUTHS-EOF OR ERR-FLG-ON
  3. AUTHS-NOT-EOF AND ERR-FLG-OFF
  4. WS-IDX = 2
calc COMPUTE CDEMO-CPVS-PAGE-NUM = CDEMO-CPVS-PAGE-NUM + 1COPAUS0C.cbl:437–438
  1. ERR-FLG-OFF
  2. PERFORM UNTIL WS-IDX > 5 OR AUTHS-EOF OR ERR-FLG-ON
  3. AUTHS-NOT-EOF AND ERR-FLG-OFF
  4. WS-IDX = 2
 MOVE PA-AUTHORIZATION-KEY TO CDEMO-CPVS-PAUKEY-PREV-PG(CDEMO-CPVS-PAGE-NUM)COPAUS0C.cbl:439–440
  1. ERR-FLG-OFF
  2. AUTHS-NOT-EOF AND ERR-FLG-OFF
 PERFORM GET-AUTHORIZATIONSCOPAUS0C.cbl:446
  1. ERR-FLG-OFF
  2. AUTHS-NOT-EOF AND ERR-FLG-OFF
  3. AUTHS-NOT-EOF AND ERR-FLG-OFF
 SET NEXT-PAGE-YES TO TRUECOPAUS0C.cbl:448
  1. ERR-FLG-OFF
  2. AUTHS-NOT-EOF AND ERR-FLG-OFF
  3. NOT (AUTHS-NOT-EOF AND ERR-FLG-OFF)
 SET NEXT-PAGE-NO TO TRUECOPAUS0C.cbl:450
6 rules

GET-AUTHORIZATIONS

WhenThenAt
  1. STATUS-OK
 SET AUTHS-NOT-EOF TO TRUECOPAUS0C.cbl:469
  1. SEGMENT-NOT-FOUND | END-OF-DB
 SET AUTHS-EOF TO TRUECOPAUS0C.cbl:472
  1. TRUE is none of [STATUS-OK; SEGMENT-NOT-FOUND; END-OF-DB]
 MOVE 'Y' TO WS-ERR-FLGCOPAUS0C.cbl:474
  1. TRUE is none of [STATUS-OK; SEGMENT-NOT-FOUND; END-OF-DB]
 STRING ' System error while reading AUTH Details: Code:' IMS-RETURN-CODE DELIMITED BY SIZE INTO WS-MESSAGECOPAUS0C.cbl:476–480
  1. TRUE is none of [STATUS-OK; SEGMENT-NOT-FOUND; END-OF-DB]
 MOVE -1 TO ACCTIDL OF COPAU0AICOPAUS0C.cbl:482
  1. TRUE is none of [STATUS-OK; SEGMENT-NOT-FOUND; END-OF-DB]
 PERFORM SEND-PAULST-SCREENCOPAUS0C.cbl:483
6 rules

REPOSITION-AUTHORIZATIONS

WhenThenAt
  1. STATUS-OK
 SET AUTHS-NOT-EOF TO TRUECOPAUS0C.cbl:502
  1. SEGMENT-NOT-FOUND | END-OF-DB
 SET AUTHS-EOF TO TRUECOPAUS0C.cbl:505
  1. TRUE is none of [STATUS-OK; SEGMENT-NOT-FOUND; END-OF-DB]
 MOVE 'Y' TO WS-ERR-FLGCOPAUS0C.cbl:507
  1. TRUE is none of [STATUS-OK; SEGMENT-NOT-FOUND; END-OF-DB]
 STRING ' System error while repos. AUTH Details: Code:' IMS-RETURN-CODE DELIMITED BY SIZE INTO WS-MESSAGECOPAUS0C.cbl:509–513
  1. TRUE is none of [STATUS-OK; SEGMENT-NOT-FOUND; END-OF-DB]
 MOVE -1 TO ACCTIDL OF COPAU0AICOPAUS0C.cbl:515
  1. TRUE is none of [STATUS-OK; SEGMENT-NOT-FOUND; END-OF-DB]
 PERFORM SEND-PAULST-SCREENCOPAUS0C.cbl:516
47 rules

POPULATE-AUTH-LIST

WhenThenAt
  1. PA-AUTH-RESP-CODE = '00'
 MOVE 'A' TO WS-AUTH-APRV-STATCOPAUS0C.cbl:537
  1. NOT (PA-AUTH-RESP-CODE = '00')
 MOVE 'D' TO WS-AUTH-APRV-STATCOPAUS0C.cbl:539
  1. WS-IDX = 1
 MOVE PA-AUTHORIZATION-KEY TO CDEMO-CPVS-AUTH-KEYS(1)COPAUS0C.cbl:544–545
  1. WS-IDX = 1
 MOVE PA-TRANSACTION-ID TO TRNID01I OF COPAU0AICOPAUS0C.cbl:547
  1. WS-IDX = 1
 MOVE WS-AUTH-DATE TO PDATE01I OF COPAU0AICOPAUS0C.cbl:548
  1. WS-IDX = 1
 MOVE WS-AUTH-TIME TO PTIME01I OF COPAU0AICOPAUS0C.cbl:549
  1. WS-IDX = 1
 MOVE PA-AUTH-TYPE TO PTYPE01I OF COPAU0AICOPAUS0C.cbl:550
  1. WS-IDX = 1
 MOVE WS-AUTH-APRV-STAT TO PAPRV01I OF COPAU0AICOPAUS0C.cbl:551
  1. WS-IDX = 1
 MOVE PA-MATCH-STATUS TO PSTAT01I OF COPAU0AICOPAUS0C.cbl:552
  1. WS-IDX = 1
 MOVE WS-AUTH-AMT TO PAMT001I OF COPAU0AICOPAUS0C.cbl:553
  1. WS-IDX = 1
 MOVE DFHBMUNP TO SEL0001A OF COPAU0AICOPAUS0C.cbl:554
  1. WS-IDX = 2
 MOVE PA-AUTHORIZATION-KEY TO CDEMO-CPVS-AUTH-KEYS(2)COPAUS0C.cbl:556–557
  1. WS-IDX = 2
 MOVE PA-TRANSACTION-ID TO TRNID02I OF COPAU0AICOPAUS0C.cbl:559
  1. WS-IDX = 2
 MOVE WS-AUTH-DATE TO PDATE02I OF COPAU0AICOPAUS0C.cbl:560
  1. WS-IDX = 2
 MOVE WS-AUTH-TIME TO PTIME02I OF COPAU0AICOPAUS0C.cbl:561
  1. WS-IDX = 2
 MOVE PA-AUTH-TYPE TO PTYPE02I OF COPAU0AICOPAUS0C.cbl:562
  1. WS-IDX = 2
 MOVE WS-AUTH-APRV-STAT TO PAPRV02I OF COPAU0AICOPAUS0C.cbl:563
  1. WS-IDX = 2
 MOVE PA-MATCH-STATUS TO PSTAT02I OF COPAU0AICOPAUS0C.cbl:564
  1. WS-IDX = 2
 MOVE WS-AUTH-AMT TO PAMT002I OF COPAU0AICOPAUS0C.cbl:565
  1. WS-IDX = 2
 MOVE DFHBMUNP TO SEL0002A OF COPAU0AICOPAUS0C.cbl:566
  1. WS-IDX = 3
 MOVE PA-AUTHORIZATION-KEY TO CDEMO-CPVS-AUTH-KEYS(3)COPAUS0C.cbl:568–569
  1. WS-IDX = 3
 MOVE PA-TRANSACTION-ID TO TRNID03I OF COPAU0AICOPAUS0C.cbl:571
  1. WS-IDX = 3
 MOVE WS-AUTH-DATE TO PDATE03I OF COPAU0AICOPAUS0C.cbl:572
  1. WS-IDX = 3
 MOVE WS-AUTH-TIME TO PTIME03I OF COPAU0AICOPAUS0C.cbl:573
  1. WS-IDX = 3
 MOVE PA-AUTH-TYPE TO PTYPE03I OF COPAU0AICOPAUS0C.cbl:574
  1. WS-IDX = 3
 MOVE WS-AUTH-APRV-STAT TO PAPRV03I OF COPAU0AICOPAUS0C.cbl:575
  1. WS-IDX = 3
 MOVE PA-MATCH-STATUS TO PSTAT03I OF COPAU0AICOPAUS0C.cbl:576
  1. WS-IDX = 3
 MOVE WS-AUTH-AMT TO PAMT003I OF COPAU0AICOPAUS0C.cbl:577
  1. WS-IDX = 3
 MOVE DFHBMUNP TO SEL0003A OF COPAU0AICOPAUS0C.cbl:578
  1. WS-IDX = 4
 MOVE PA-AUTHORIZATION-KEY TO CDEMO-CPVS-AUTH-KEYS(4)COPAUS0C.cbl:580–581
  1. WS-IDX = 4
 MOVE PA-TRANSACTION-ID TO TRNID04I OF COPAU0AICOPAUS0C.cbl:583
  1. WS-IDX = 4
 MOVE WS-AUTH-DATE TO PDATE04I OF COPAU0AICOPAUS0C.cbl:584
  1. WS-IDX = 4
 MOVE WS-AUTH-TIME TO PTIME04I OF COPAU0AICOPAUS0C.cbl:585
  1. WS-IDX = 4
 MOVE PA-AUTH-TYPE TO PTYPE04I OF COPAU0AICOPAUS0C.cbl:586
  1. WS-IDX = 4
 MOVE WS-AUTH-APRV-STAT TO PAPRV04I OF COPAU0AICOPAUS0C.cbl:587
  1. WS-IDX = 4
 MOVE PA-MATCH-STATUS TO PSTAT04I OF COPAU0AICOPAUS0C.cbl:588
  1. WS-IDX = 4
 MOVE WS-AUTH-AMT TO PAMT004I OF COPAU0AICOPAUS0C.cbl:589
  1. WS-IDX = 4
 MOVE DFHBMUNP TO SEL0004A OF COPAU0AICOPAUS0C.cbl:590
  1. WS-IDX = 5
 MOVE PA-AUTHORIZATION-KEY TO CDEMO-CPVS-AUTH-KEYS(5)COPAUS0C.cbl:592–593
  1. WS-IDX = 5
 MOVE PA-TRANSACTION-ID TO TRNID05I OF COPAU0AICOPAUS0C.cbl:595
  1. WS-IDX = 5
 MOVE WS-AUTH-DATE TO PDATE05I OF COPAU0AICOPAUS0C.cbl:596
  1. WS-IDX = 5
 MOVE WS-AUTH-TIME TO PTIME05I OF COPAU0AICOPAUS0C.cbl:597
  1. WS-IDX = 5
 MOVE PA-AUTH-TYPE TO PTYPE05I OF COPAU0AICOPAUS0C.cbl:598
  1. WS-IDX = 5
 MOVE WS-AUTH-APRV-STAT TO PAPRV05I OF COPAU0AICOPAUS0C.cbl:599
  1. WS-IDX = 5
 MOVE PA-MATCH-STATUS TO PSTAT05I OF COPAU0AICOPAUS0C.cbl:600
  1. WS-IDX = 5
 MOVE WS-AUTH-AMT TO PAMT005I OF COPAU0AICOPAUS0C.cbl:601
  1. WS-IDX = 5
 MOVE DFHBMUNP TO SEL0005A OF COPAU0AICOPAUS0C.cbl:602
40 rules

INITIALIZE-AUTH-DATA

WhenThenAt
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 1
 MOVE DFHBMPRO TO SEL0001A OF COPAU0AICOPAUS0C.cbl:614
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 1
 MOVE SPACES TO TRNID01I OF COPAU0AICOPAUS0C.cbl:615
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 1
 MOVE SPACES TO PDATE01I OF COPAU0AICOPAUS0C.cbl:616
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 1
 MOVE SPACES TO PTIME01I OF COPAU0AICOPAUS0C.cbl:617
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 1
 MOVE SPACES TO PTYPE01I OF COPAU0AICOPAUS0C.cbl:618
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 1
 MOVE SPACES TO PAPRV01I OF COPAU0AICOPAUS0C.cbl:619
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 1
 MOVE SPACES TO PSTAT01I OF COPAU0AICOPAUS0C.cbl:620
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 1
 MOVE SPACES TO PAMT001I OF COPAU0AICOPAUS0C.cbl:621
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 2
 MOVE DFHBMPRO TO SEL0002A OF COPAU0AICOPAUS0C.cbl:623
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 2
 MOVE SPACES TO TRNID02I OF COPAU0AICOPAUS0C.cbl:624
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 2
 MOVE SPACES TO PDATE02I OF COPAU0AICOPAUS0C.cbl:625
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 2
 MOVE SPACES TO PTIME02I OF COPAU0AICOPAUS0C.cbl:626
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 2
 MOVE SPACES TO PTYPE02I OF COPAU0AICOPAUS0C.cbl:627
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 2
 MOVE SPACES TO PAPRV02I OF COPAU0AICOPAUS0C.cbl:628
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 2
 MOVE SPACES TO PSTAT02I OF COPAU0AICOPAUS0C.cbl:629
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 2
 MOVE SPACES TO PAMT002I OF COPAU0AICOPAUS0C.cbl:630
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 3
 MOVE DFHBMPRO TO SEL0003A OF COPAU0AICOPAUS0C.cbl:632
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 3
 MOVE SPACES TO TRNID03I OF COPAU0AICOPAUS0C.cbl:633
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 3
 MOVE SPACES TO PDATE03I OF COPAU0AICOPAUS0C.cbl:634
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 3
 MOVE SPACES TO PTIME03I OF COPAU0AICOPAUS0C.cbl:635
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 3
 MOVE SPACES TO PTYPE03I OF COPAU0AICOPAUS0C.cbl:636
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 3
 MOVE SPACES TO PAPRV03I OF COPAU0AICOPAUS0C.cbl:637
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 3
 MOVE SPACES TO PSTAT03I OF COPAU0AICOPAUS0C.cbl:638
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 3
 MOVE SPACES TO PAMT003I OF COPAU0AICOPAUS0C.cbl:639
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 4
 MOVE DFHBMPRO TO SEL0004A OF COPAU0AICOPAUS0C.cbl:641
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 4
 MOVE SPACES TO TRNID04I OF COPAU0AICOPAUS0C.cbl:642
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 4
 MOVE SPACES TO PDATE04I OF COPAU0AICOPAUS0C.cbl:643
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 4
 MOVE SPACES TO PTIME04I OF COPAU0AICOPAUS0C.cbl:644
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 4
 MOVE SPACES TO PTYPE04I OF COPAU0AICOPAUS0C.cbl:645
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 4
 MOVE SPACES TO PAPRV04I OF COPAU0AICOPAUS0C.cbl:646
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 4
 MOVE SPACES TO PSTAT04I OF COPAU0AICOPAUS0C.cbl:647
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 4
 MOVE SPACES TO PAMT004I OF COPAU0AICOPAUS0C.cbl:648
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 5
 MOVE DFHBMPRO TO SEL0005A OF COPAU0AICOPAUS0C.cbl:650
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 5
 MOVE SPACES TO TRNID05I OF COPAU0AICOPAUS0C.cbl:651
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 5
 MOVE SPACES TO PDATE05I OF COPAU0AICOPAUS0C.cbl:652
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 5
 MOVE SPACES TO PTIME05I OF COPAU0AICOPAUS0C.cbl:653
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 5
 MOVE SPACES TO PTYPE05I OF COPAU0AICOPAUS0C.cbl:654
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 5
 MOVE SPACES TO PAPRV05I OF COPAU0AICOPAUS0C.cbl:655
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 5
 MOVE SPACES TO PSTAT05I OF COPAU0AICOPAUS0C.cbl:656
  1. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 5
  2. WS-IDX = 5
 MOVE SPACES TO PAMT005I OF COPAU0AICOPAUS0C.cbl:657
1 rules

RETURN-TO-PREV-SCREEN

WhenThenAt
  1. CDEMO-TO-PROGRAM = LOW-VALUES OR SPACES
 MOVE 'COSGN00C' TO CDEMO-TO-PROGRAMCOPAUS0C.cbl:669
4 rules

SEND-PAULST-SCREEN

WhenThenAt
  1. IMS-PSB-SCHD
 SET IMS-PSB-NOT-SCHD TO TRUECOPAUS0C.cbl:685
  1. IMS-PSB-SCHD
 EXEC CICS SYNCPOINT END-EXECCOPAUS0C.cbl:686–687
  1. SEND-ERASE-YES
 EXEC CICS SEND MAP('COPAU0A') MAPSET('COPAU00') FROM(COPAU0AO) ERASE CURSOR END-EXECCOPAUS0C.cbl:695–701
  1. NOT (SEND-ERASE-YES)
 EXEC CICS SEND MAP('COPAU0A') MAPSET('COPAU00') FROM(COPAU0AO) CURSOR END-EXECCOPAUS0C.cbl:703–708
13 rules

GATHER-ACCOUNT-DETAILS

WhenThenAt
  1. FOUND-PAUT-SMRY-SEG
 MOVE PA-APPROVED-AUTH-CNT TO WS-DISPLAY-COUNTCOPAUS0C.cbl:788
  1. FOUND-PAUT-SMRY-SEG
 MOVE WS-DISPLAY-COUNT TO APPRCNTOCOPAUS0C.cbl:789
  1. FOUND-PAUT-SMRY-SEG
 MOVE PA-DECLINED-AUTH-CNT TO WS-DISPLAY-COUNTCOPAUS0C.cbl:790
  1. FOUND-PAUT-SMRY-SEG
 MOVE WS-DISPLAY-COUNT TO DECLCNTOCOPAUS0C.cbl:791
  1. FOUND-PAUT-SMRY-SEG
 MOVE PA-CREDIT-BALANCE TO WS-DISPLAY-AMT12COPAUS0C.cbl:792
  1. FOUND-PAUT-SMRY-SEG
 MOVE WS-DISPLAY-AMT12 TO CREDBALOCOPAUS0C.cbl:793
  1. FOUND-PAUT-SMRY-SEG
 MOVE PA-CASH-BALANCE TO WS-DISPLAY-AMT9COPAUS0C.cbl:794
  1. FOUND-PAUT-SMRY-SEG
 MOVE WS-DISPLAY-AMT9 TO CASHBALOCOPAUS0C.cbl:795
  1. FOUND-PAUT-SMRY-SEG
 MOVE PA-APPROVED-AUTH-AMT TO WS-DISPLAY-AMT9COPAUS0C.cbl:796
  1. FOUND-PAUT-SMRY-SEG
 MOVE WS-DISPLAY-AMT9 TO APPRAMTOCOPAUS0C.cbl:797
  1. FOUND-PAUT-SMRY-SEG
 MOVE PA-DECLINED-AUTH-AMT TO WS-DISPLAY-AMT9COPAUS0C.cbl:798
  1. FOUND-PAUT-SMRY-SEG
 MOVE WS-DISPLAY-AMT9 TO DECLAMTOCOPAUS0C.cbl:799
  1. NOT (FOUND-PAUT-SMRY-SEG)
 MOVE ZERO TO APPRCNTO DECLCNTO CREDBALO CASHBALO APPRAMTO DECLAMTOCOPAUS0C.cbl:801–806
13 rules

GETCARDXREF-BYACCT

WhenThenAt
  1. WS-RESP-CD = DFHRESP(NORMAL)
 MOVE XREF-CUST-ID TO CDEMO-CUST-IDCOPAUS0C.cbl:830
  1. WS-RESP-CD = DFHRESP(NORMAL)
 MOVE XREF-CARD-NUM TO CDEMO-CARD-NUMCOPAUS0C.cbl:831
  1. WS-RESP-CD = DFHRESP(NOTFND)
 MOVE WS-RESP-CD TO WS-RESP-CD-DISCOPAUS0C.cbl:833
  1. WS-RESP-CD = DFHRESP(NOTFND)
 MOVE WS-REAS-CD TO WS-REAS-CD-DISCOPAUS0C.cbl:834
  1. WS-RESP-CD = DFHRESP(NOTFND)
 STRING 'Account:' WS-ACCT-ID ' not found in XREF file. Resp:' WS-RESP-CD-DIS ' Reas:' WS-REAS-CD-DIS DELIMITED BY SIZE INTO WS-MESSAGECOPAUS0C.cbl:836–842
  1. WS-RESP-CD = DFHRESP(NOTFND)
 MOVE -1 TO ACCTIDL OF COPAU0AICOPAUS0C.cbl:844
  1. WS-RESP-CD = DFHRESP(NOTFND)
 PERFORM SEND-PAULST-SCREENCOPAUS0C.cbl:845
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE 'Y' TO WS-ERR-FLGCOPAUS0C.cbl:847
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-RESP-CD TO WS-RESP-CD-DISCOPAUS0C.cbl:848
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-REAS-CD TO WS-REAS-CD-DISCOPAUS0C.cbl:849
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 STRING 'Account:' WS-CARD-RID-ACCT-ID-X ' System error while reading XREF file. Resp:' WS-RESP-CD-DIS ' Reas:' WS-REAS-CD-DIS DELIMITED BY SIZE INTO WS-MESSAGECOPAUS0C.cbl:851–857
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE -1 TO ACCTIDL OF COPAU0AICOPAUS0C.cbl:859
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 PERFORM SEND-PAULST-SCREENCOPAUS0C.cbl:860
11 rules

GETACCTDATA-BYACCT

WhenThenAt
  1. WS-RESP-CD = DFHRESP(NOTFND)
 MOVE WS-RESP-CD TO WS-RESP-CD-DISCOPAUS0C.cbl:883
  1. WS-RESP-CD = DFHRESP(NOTFND)
 MOVE WS-REAS-CD TO WS-REAS-CD-DISCOPAUS0C.cbl:884
  1. WS-RESP-CD = DFHRESP(NOTFND)
 STRING 'Account:' WS-CARD-RID-ACCT-ID-X ' not found in ACCT file. Resp:' WS-RESP-CD-DIS ' Reas:' WS-REAS-CD-DIS DELIMITED BY SIZE INTO WS-MESSAGECOPAUS0C.cbl:886–892
  1. WS-RESP-CD = DFHRESP(NOTFND)
 MOVE -1 TO ACCTIDL OF COPAU0AICOPAUS0C.cbl:894
  1. WS-RESP-CD = DFHRESP(NOTFND)
 PERFORM SEND-PAULST-SCREENCOPAUS0C.cbl:895
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE 'Y' TO WS-ERR-FLGCOPAUS0C.cbl:897
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-RESP-CD TO WS-RESP-CD-DISCOPAUS0C.cbl:898
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-REAS-CD TO WS-REAS-CD-DISCOPAUS0C.cbl:899
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 STRING 'Account:' WS-CARD-RID-ACCT-ID-X ' System error while reading ACCT file. Resp:' WS-RESP-CD-DIS ' Reas:' WS-REAS-CD-DIS DELIMITED BY SIZE INTO WS-MESSAGECOPAUS0C.cbl:901–907
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE -1 TO ACCTIDL OF COPAU0AICOPAUS0C.cbl:909
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 PERFORM SEND-PAULST-SCREENCOPAUS0C.cbl:910
11 rules

GETCUSTDATA-BYCUST

WhenThenAt
  1. WS-RESP-CD = DFHRESP(NOTFND)
 MOVE WS-RESP-CD TO WS-RESP-CD-DISCOPAUS0C.cbl:934
  1. WS-RESP-CD = DFHRESP(NOTFND)
 MOVE WS-REAS-CD TO WS-REAS-CD-DISCOPAUS0C.cbl:935
  1. WS-RESP-CD = DFHRESP(NOTFND)
 STRING 'Customer:' WS-CARD-RID-CUST-ID-X ' not found in CUST file. Resp:' WS-RESP-CD-DIS ' Reas:' WS-REAS-CD-DIS DELIMITED BY SIZE INTO WS-MESSAGECOPAUS0C.cbl:937–943
  1. WS-RESP-CD = DFHRESP(NOTFND)
 MOVE -1 TO ACCTIDL OF COPAU0AICOPAUS0C.cbl:945
  1. WS-RESP-CD = DFHRESP(NOTFND)
 PERFORM SEND-PAULST-SCREENCOPAUS0C.cbl:946
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE 'Y' TO WS-ERR-FLGCOPAUS0C.cbl:948
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-RESP-CD TO WS-RESP-CD-DISCOPAUS0C.cbl:949
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-REAS-CD TO WS-REAS-CD-DISCOPAUS0C.cbl:950
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 STRING 'Customer:' WS-CARD-RID-CUST-ID-X ' System error while reading CUST file. Resp:' WS-RESP-CD-DIS ' Reas:' WS-REAS-CD-DIS DELIMITED BY SIZE INTO WS-MESSAGECOPAUS0C.cbl:952–958
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE -1 TO ACCTIDL OF COPAU0AICOPAUS0C.cbl:960
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 PERFORM SEND-PAULST-SCREENCOPAUS0C.cbl:961
6 rules

GET-AUTH-SUMMARY

WhenThenAt
  1. STATUS-OK
 SET FOUND-PAUT-SMRY-SEG TO TRUECOPAUS0C.cbl:982
  1. SEGMENT-NOT-FOUND
 SET NFOUND-PAUT-SMRY-SEG TO TRUECOPAUS0C.cbl:984
  1. TRUE is none of [STATUS-OK; SEGMENT-NOT-FOUND]
 MOVE 'Y' TO WS-ERR-FLGCOPAUS0C.cbl:986
  1. TRUE is none of [STATUS-OK; SEGMENT-NOT-FOUND]
 STRING ' System error while reading AUTH Summary: Code:' IMS-RETURN-CODE DELIMITED BY SIZE INTO WS-MESSAGECOPAUS0C.cbl:988–992
  1. TRUE is none of [STATUS-OK; SEGMENT-NOT-FOUND]
 MOVE -1 TO ACCTIDL OF COPAU0AICOPAUS0C.cbl:994
  1. TRUE is none of [STATUS-OK; SEGMENT-NOT-FOUND]
 PERFORM SEND-PAULST-SCREENCOPAUS0C.cbl:995
6 rules

SCHEDULE-PSB

WhenThenAt
  1. PSB-SCHEDULED-MORE-THAN-ONCE
 MOVE DIBSTAT TO IMS-RETURN-CODECOPAUS0C.cbl:1015
  1. STATUS-OK
 SET IMS-PSB-SCHD TO TRUECOPAUS0C.cbl:1018
  1. NOT (STATUS-OK)
 MOVE 'Y' TO WS-ERR-FLGCOPAUS0C.cbl:1020
  1. NOT (STATUS-OK)
 STRING ' System error while scheduling PSB: Code:' IMS-RETURN-CODE DELIMITED BY SIZE INTO WS-MESSAGECOPAUS0C.cbl:1022–1026
  1. NOT (STATUS-OK)
 MOVE -1 TO ACCTIDL OF COPAU0AICOPAUS0C.cbl:1028
  1. NOT (STATUS-OK)
 PERFORM SEND-PAULST-SCREENCOPAUS0C.cbl:1029