MFmainframe-rea
WS carddemo · 26f629ef

Business rules · 307 guarded actionsCOCRDLIC

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-ENTERmeans CDEMO-PGM-CONTEXT = 0COCOM01Y.cpy:30 via COCRDLIC.cbl:227
CCARD-AID-ENTERmeans CCARD-AID = 'ENTER'CVCRD01Y.cpy:4 via COCRDLIC.cbl:221
CCARD-AID-PFK03means CCARD-AID = 'PFK03'CVCRD01Y.cpy:10 via COCRDLIC.cbl:221
CCARD-AID-PFK07means CCARD-AID = 'PFK07'CVCRD01Y.cpy:14 via COCRDLIC.cbl:221
CCARD-AID-PFK08means CCARD-AID = 'PFK08'CVCRD01Y.cpy:15 via COCRDLIC.cbl:221
PFK-INVALIDmeans WS-PFK-FLAG = '1'COCRDLIC.cbl:129
INPUT-ERRORmeans WS-INPUT-FLAG = '1'COCRDLIC.cbl:60
FLG-ACCTFILTER-NOT-OKmeans WS-EDIT-ACCT-FLAG = '0'COCRDLIC.cbl:62
FLG-CARDFILTER-NOT-OKmeans WS-EDIT-CARD-FLAG = '0'COCRDLIC.cbl:66
CA-FIRST-PAGEmeans WS-CA-SCREEN-NUM = 1COCRDLIC.cbl:238
CDEMO-PGM-REENTERmeans CDEMO-PGM-CONTEXT = 1COCOM01Y.cpy:31 via COCRDLIC.cbl:227
CA-NEXT-PAGE-EXISTSmeans WS-CA-NEXT-PAGE-IND = 'Y'COCRDLIC.cbl:244
VIEW-REQUESTED-ONmeans WS-EDIT-SELECT = 'S'COCRDLIC.cbl:78
UPDATE-REQUESTED-ONmeans WS-EDIT-SELECT = 'U'COCRDLIC.cbl:79
FLG-PROTECT-SELECT-ROWS-YESmeans FLG-PROTECT-SELECT-ROWS = '1'COCRDLIC.cbl:107
FLG-ACCTFILTER-ISVALIDmeans WS-EDIT-ACCT-FLAG = '1'COCRDLIC.cbl:63
FLG-CARDFILTER-ISVALIDmeans WS-EDIT-CARD-FLAG = '1'COCRDLIC.cbl:67
INPUT-OKmeans WS-INPUT-FLAG = '0' OR ' ' OR LOW-VALUESCOCRDLIC.cbl:57
CA-NEXT-PAGE-NOT-EXISTSmeans WS-CA-NEXT-PAGE-IND = LOW-VALUESCOCRDLIC.cbl:243
CA-LAST-PAGE-SHOWNmeans WS-CA-LAST-PAGE-DISPLAYED = 0COCRDLIC.cbl:240
CA-LAST-PAGE-NOT-SHOWNmeans WS-CA-LAST-PAGE-DISPLAYED = 9COCRDLIC.cbl:241
WS-NO-INFO-MESSAGEmeans WS-INFO-MSG = SPACES OR LOW-VALUESCOCRDLIC.cbl:113
WS-NO-RECORDS-FOUNDmeans WS-ERROR-MSG = 'NO RECORDS FOUND FOR THIS SEARCH CONDITION.'COCRDLIC.cbl:121
WS-ERROR-MSG-OFFmeans WS-ERROR-MSG = SPACESCOCRDLIC.cbl:118
SELECT-OKmeans WS-EDIT-SELECT = 'S' OR 'U'COCRDLIC.cbl:77
WS-MORE-THAN-1-ACTIONmeans WS-ERROR-MSG = 'PLEASE SELECT ONLY ONE RECORD TO VIEW OR UPDATE'COCRDLIC.cbl:123
SELECT-BLANKmeans WS-EDIT-SELECT = ' ' OR LOW-VALUESCOCRDLIC.cbl:80
READ-LOOP-EXITmeans WS-RECORDS-TO-PROCESS-FLAG = '0'COCRDLIC.cbl:151
WS-DONOT-EXCLUDE-THIS-RECORDmeans WS-FILTER-RECORD-FLAG = '1'COCRDLIC.cbl:149
105 rules

0000-MAIN

WhenThenAt
  1. EIBCALEN = 0
 INITIALIZE CARDDEMO-COMMAREA WS-THIS-PROGCOMMAREACOCRDLIC.cbl:316–317
  1. EIBCALEN = 0
 MOVE LIT-THISTRANID TO CDEMO-FROM-TRANIDCOCRDLIC.cbl:318
  1. EIBCALEN = 0
 MOVE LIT-THISPGM TO CDEMO-FROM-PROGRAMCOCRDLIC.cbl:319
  1. EIBCALEN = 0
 SET CDEMO-USRTYP-USER TO TRUECOCRDLIC.cbl:320
  1. EIBCALEN = 0
 SET CDEMO-PGM-ENTER TO TRUECOCRDLIC.cbl:321
  1. EIBCALEN = 0
 MOVE LIT-THISMAP TO CDEMO-LAST-MAPCOCRDLIC.cbl:322
  1. EIBCALEN = 0
 MOVE LIT-THISMAPSET TO CDEMO-LAST-MAPSETCOCRDLIC.cbl:323
  1. EIBCALEN = 0
 SET CA-FIRST-PAGE TO TRUECOCRDLIC.cbl:324
  1. EIBCALEN = 0
 SET CA-LAST-PAGE-NOT-SHOWN TO TRUECOCRDLIC.cbl:325
  1. NOT (EIBCALEN = 0)
 MOVE DFHCOMMAREA (1:LENGTH OF CARDDEMO-COMMAREA) TO CARDDEMO-COMMAREACOCRDLIC.cbl:327–328
  1. NOT (EIBCALEN = 0)
 MOVE DFHCOMMAREA(LENGTH OF CARDDEMO-COMMAREA + 1: LENGTH OF WS-THIS-PROGCOMMAREA )TO WS-THIS-PROGCOMMAREACOCRDLIC.cbl:329–331
  1. (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM)
 INITIALIZE WS-THIS-PROGCOMMAREACOCRDLIC.cbl:338
  1. (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM)
 SET CDEMO-PGM-ENTER TO TRUECOCRDLIC.cbl:339
  1. (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM)
 MOVE LIT-THISMAP TO CDEMO-LAST-MAPCOCRDLIC.cbl:340
  1. (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM)
 SET CA-FIRST-PAGE TO TRUECOCRDLIC.cbl:341
  1. (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM)
 SET CA-LAST-PAGE-NOT-SHOWN TO TRUECOCRDLIC.cbl:342
  1. EIBCALEN > 0 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 PERFORM 2000-RECEIVE-MAP THRU 2000-RECEIVE-MAP-EXITCOCRDLIC.cbl:359–360
  1. CCARD-AID-ENTER OR CCARD-AID-PFK03 OR CCARD-AID-PFK07 OR CCARD-AID-PFK08
 SET PFK-VALID TO TRUECOCRDLIC.cbl:375
  1. PFK-INVALID
 SET CCARD-AID-ENTER TO TRUECOCRDLIC.cbl:379
  1. (CCARD-AID-PFK03 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM)
 MOVE LIT-THISTRANID TO CDEMO-FROM-TRANIDCOCRDLIC.cbl:386
  1. (CCARD-AID-PFK03 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM)
 MOVE LIT-THISPGM TO CDEMO-FROM-PROGRAMCOCRDLIC.cbl:387
  1. (CCARD-AID-PFK03 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM)
 SET CDEMO-USRTYP-USER TO TRUECOCRDLIC.cbl:388
  1. (CCARD-AID-PFK03 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM)
 SET CDEMO-PGM-ENTER TO TRUECOCRDLIC.cbl:389
  1. (CCARD-AID-PFK03 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM)
 MOVE LIT-THISMAPSET TO CDEMO-LAST-MAPSETCOCRDLIC.cbl:390
  1. (CCARD-AID-PFK03 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM)
 MOVE LIT-THISMAP TO CDEMO-LAST-MAPCOCRDLIC.cbl:391
  1. (CCARD-AID-PFK03 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM)
 MOVE LIT-MENUPGM TO CDEMO-TO-PROGRAMCOCRDLIC.cbl:392
  1. (CCARD-AID-PFK03 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM)
 MOVE LIT-MENUMAPSET TO CCARD-NEXT-MAPSETCOCRDLIC.cbl:394
  1. (CCARD-AID-PFK03 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM)
 MOVE LIT-THISMAP TO CCARD-NEXT-MAPCOCRDLIC.cbl:395
  1. (CCARD-AID-PFK03 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM)
 SET WS-EXIT-MESSAGE TO TRUECOCRDLIC.cbl:396
  1. (CCARD-AID-PFK03 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM)
 SET CDEMO-PGM-ENTER TO TRUECOCRDLIC.cbl:400
  1. (CCARD-AID-PFK03 AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM)
 EXEC CICS XCTL PROGRAM (LIT-MENUPGM) COMMAREA(CARDDEMO-COMMAREA) END-EXECCOCRDLIC.cbl:402–405
  1. NOT (CCARD-AID-PFK08)
 SET CA-LAST-PAGE-NOT-SHOWN TO TRUECOCRDLIC.cbl:413
  1. INPUT-ERROR
 MOVE WS-ERROR-MSG TO CCARD-ERROR-MSGCOCRDLIC.cbl:423
  1. INPUT-ERROR
 MOVE LIT-THISPGM TO CDEMO-FROM-PROGRAMCOCRDLIC.cbl:424
  1. INPUT-ERROR
 MOVE LIT-THISMAPSET TO CDEMO-LAST-MAPSETCOCRDLIC.cbl:425
  1. INPUT-ERROR
 MOVE LIT-THISMAP TO CDEMO-LAST-MAPCOCRDLIC.cbl:426
  1. INPUT-ERROR
 MOVE LIT-THISPGM TO CCARD-NEXT-PROGCOCRDLIC.cbl:428
  1. INPUT-ERROR
 MOVE LIT-THISMAPSET TO CCARD-NEXT-MAPSETCOCRDLIC.cbl:429
  1. INPUT-ERROR
 MOVE LIT-THISMAP TO CCARD-NEXT-MAPCOCRDLIC.cbl:430
  1. INPUT-ERROR
  2. NOT FLG-ACCTFILTER-NOT-OK AND NOT FLG-CARDFILTER-NOT-OK
 PERFORM 9000-READ-FORWARD THRU 9000-READ-FORWARD-EXITCOCRDLIC.cbl:433–434
  1. INPUT-ERROR
 PERFORM 1000-SEND-MAP THRU 1000-SEND-MAPCOCRDLIC.cbl:436–437
  1. INPUT-ERROR
 GO TO COMMON-RETURNCOCRDLIC.cbl:438
  1. CCARD-AID-PFK07 AND CA-FIRST-PAGE | CCARD-AID-PFK07 AND CA-FIRST-PAGE
 MOVE WS-CA-FIRST-CARD-NUM TO WS-CARD-RID-CARDNUMCOCRDLIC.cbl:446–447
  1. CCARD-AID-PFK07 AND CA-FIRST-PAGE | CCARD-AID-PFK07 AND CA-FIRST-PAGE
 PERFORM 9000-READ-FORWARD THRU 9000-READ-FORWARD-EXITCOCRDLIC.cbl:450–451
  1. CCARD-AID-PFK07 AND CA-FIRST-PAGE | CCARD-AID-PFK07 AND CA-FIRST-PAGE
 PERFORM 1000-SEND-MAP THRU 1000-SEND-MAPCOCRDLIC.cbl:452–453
  1. CCARD-AID-PFK07 AND CA-FIRST-PAGE | CCARD-AID-PFK07 AND CA-FIRST-PAGE
 GO TO COMMON-RETURNCOCRDLIC.cbl:454
  1. CCARD-AID-PFK03 | CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM
 INITIALIZE CARDDEMO-COMMAREA WS-THIS-PROGCOMMAREACOCRDLIC.cbl:462–463
  1. CCARD-AID-PFK03 | CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM
 MOVE LIT-THISTRANID TO CDEMO-FROM-TRANIDCOCRDLIC.cbl:464
  1. CCARD-AID-PFK03 | CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM
 MOVE LIT-THISPGM TO CDEMO-FROM-PROGRAMCOCRDLIC.cbl:465
  1. CCARD-AID-PFK03 | CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM
 SET CDEMO-USRTYP-USER TO TRUECOCRDLIC.cbl:466
  1. CCARD-AID-PFK03 | CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM
 SET CDEMO-PGM-ENTER TO TRUECOCRDLIC.cbl:467
  1. CCARD-AID-PFK03 | CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM
 MOVE LIT-THISMAP TO CDEMO-LAST-MAPCOCRDLIC.cbl:468
  1. CCARD-AID-PFK03 | CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM
 MOVE LIT-THISMAPSET TO CDEMO-LAST-MAPSETCOCRDLIC.cbl:469
  1. CCARD-AID-PFK03 | CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM
 SET CA-FIRST-PAGE TO TRUECOCRDLIC.cbl:470
  1. CCARD-AID-PFK03 | CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM
 SET CA-LAST-PAGE-NOT-SHOWN TO TRUECOCRDLIC.cbl:471
  1. CCARD-AID-PFK03 | CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM
 MOVE WS-CA-FIRST-CARD-NUM TO WS-CARD-RID-CARDNUMCOCRDLIC.cbl:473–474
  1. CCARD-AID-PFK03 | CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM
 PERFORM 9000-READ-FORWARD THRU 9000-READ-FORWARD-EXITCOCRDLIC.cbl:478–479
  1. CCARD-AID-PFK03 | CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM
 PERFORM 1000-SEND-MAP THRU 1000-SEND-MAPCOCRDLIC.cbl:480–481
  1. CCARD-AID-PFK03 | CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM
 GO TO COMMON-RETURNCOCRDLIC.cbl:482
  1. CCARD-AID-PFK08 AND CA-NEXT-PAGE-EXISTS
 MOVE WS-CA-LAST-CARD-NUM TO WS-CARD-RID-CARDNUMCOCRDLIC.cbl:488–489
  1. CCARD-AID-PFK08 AND CA-NEXT-PAGE-EXISTS
calc ADD +1 TO WS-CA-SCREEN-NUMCOCRDLIC.cbl:492
  1. CCARD-AID-PFK08 AND CA-NEXT-PAGE-EXISTS
 PERFORM 9000-READ-FORWARD THRU 9000-READ-FORWARD-EXITCOCRDLIC.cbl:493–494
  1. CCARD-AID-PFK08 AND CA-NEXT-PAGE-EXISTS
 PERFORM 1000-SEND-MAP THRU 1000-SEND-MAP-EXITCOCRDLIC.cbl:495–496
  1. CCARD-AID-PFK08 AND CA-NEXT-PAGE-EXISTS
 GO TO COMMON-RETURNCOCRDLIC.cbl:497
  1. CCARD-AID-PFK07 AND NOT CA-FIRST-PAGE
 MOVE WS-CA-FIRST-CARD-NUM TO WS-CARD-RID-CARDNUMCOCRDLIC.cbl:504–505
  1. CCARD-AID-PFK07 AND NOT CA-FIRST-PAGE
calc SUBTRACT 1 FROM WS-CA-SCREEN-NUMCOCRDLIC.cbl:508
  1. CCARD-AID-PFK07 AND NOT CA-FIRST-PAGE
 PERFORM 9100-READ-BACKWARDS THRU 9100-READ-BACKWARDS-EXITCOCRDLIC.cbl:509–510
  1. CCARD-AID-PFK07 AND NOT CA-FIRST-PAGE
 PERFORM 1000-SEND-MAP THRU 1000-SEND-MAP-EXITCOCRDLIC.cbl:511–512
  1. CCARD-AID-PFK07 AND NOT CA-FIRST-PAGE
 GO TO COMMON-RETURNCOCRDLIC.cbl:513
  1. CCARD-AID-ENTER AND VIEW-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 MOVE LIT-THISTRANID TO CDEMO-FROM-TRANIDCOCRDLIC.cbl:520
  1. CCARD-AID-ENTER AND VIEW-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 MOVE LIT-THISPGM TO CDEMO-FROM-PROGRAMCOCRDLIC.cbl:521
  1. CCARD-AID-ENTER AND VIEW-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 SET CDEMO-USRTYP-USER TO TRUECOCRDLIC.cbl:522
  1. CCARD-AID-ENTER AND VIEW-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 SET CDEMO-PGM-ENTER TO TRUECOCRDLIC.cbl:523
  1. CCARD-AID-ENTER AND VIEW-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 MOVE LIT-THISMAPSET TO CDEMO-LAST-MAPSETCOCRDLIC.cbl:524
  1. CCARD-AID-ENTER AND VIEW-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 MOVE LIT-THISMAP TO CDEMO-LAST-MAPCOCRDLIC.cbl:525
  1. CCARD-AID-ENTER AND VIEW-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 MOVE LIT-CARDDTLPGM TO CCARD-NEXT-PROGCOCRDLIC.cbl:526
  1. CCARD-AID-ENTER AND VIEW-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 MOVE LIT-CARDDTLMAPSET TO CCARD-NEXT-MAPSETCOCRDLIC.cbl:528
  1. CCARD-AID-ENTER AND VIEW-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 MOVE LIT-CARDDTLMAP TO CCARD-NEXT-MAPCOCRDLIC.cbl:529
  1. CCARD-AID-ENTER AND VIEW-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 MOVE WS-ROW-ACCTNO (I-SELECTED) TO CDEMO-ACCT-IDCOCRDLIC.cbl:531–532
  1. CCARD-AID-ENTER AND VIEW-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 MOVE WS-ROW-CARD-NUM (I-SELECTED) TO CDEMO-CARD-NUMCOCRDLIC.cbl:533–534
  1. CCARD-AID-ENTER AND VIEW-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 EXEC CICS XCTL PROGRAM (CCARD-NEXT-PROG) COMMAREA(CARDDEMO-COMMAREA) END-EXECCOCRDLIC.cbl:538–541
  1. CCARD-AID-ENTER AND UPDATE-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 MOVE LIT-THISTRANID TO CDEMO-FROM-TRANIDCOCRDLIC.cbl:548
  1. CCARD-AID-ENTER AND UPDATE-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 MOVE LIT-THISPGM TO CDEMO-FROM-PROGRAMCOCRDLIC.cbl:549
  1. CCARD-AID-ENTER AND UPDATE-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 SET CDEMO-USRTYP-USER TO TRUECOCRDLIC.cbl:550
  1. CCARD-AID-ENTER AND UPDATE-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 SET CDEMO-PGM-ENTER TO TRUECOCRDLIC.cbl:551
  1. CCARD-AID-ENTER AND UPDATE-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 MOVE LIT-THISMAPSET TO CDEMO-LAST-MAPSETCOCRDLIC.cbl:552
  1. CCARD-AID-ENTER AND UPDATE-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 MOVE LIT-THISMAP TO CDEMO-LAST-MAPCOCRDLIC.cbl:553
  1. CCARD-AID-ENTER AND UPDATE-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 MOVE LIT-CARDUPDPGM TO CCARD-NEXT-PROGCOCRDLIC.cbl:554
  1. CCARD-AID-ENTER AND UPDATE-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 MOVE LIT-CARDUPDMAPSET TO CCARD-NEXT-MAPSETCOCRDLIC.cbl:556
  1. CCARD-AID-ENTER AND UPDATE-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 MOVE LIT-CARDUPDMAP TO CCARD-NEXT-MAPCOCRDLIC.cbl:557
  1. CCARD-AID-ENTER AND UPDATE-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 MOVE WS-ROW-ACCTNO (I-SELECTED) TO CDEMO-ACCT-IDCOCRDLIC.cbl:559–560
  1. CCARD-AID-ENTER AND UPDATE-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 MOVE WS-ROW-CARD-NUM (I-SELECTED) TO CDEMO-CARD-NUMCOCRDLIC.cbl:561–562
  1. CCARD-AID-ENTER AND UPDATE-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM
 EXEC CICS XCTL PROGRAM (CCARD-NEXT-PROG) COMMAREA(CARDDEMO-COMMAREA) END-EXECCOCRDLIC.cbl:566–569
  1. TRUE is none of [INPUT-ERROR; CCARD-AID-PFK07 AND CA-FIRST-PAGE; CCARD-AID-PFK07 AND CA-FIRST-PAGE; CCARD-AID-PFK03; CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM; CCARD-AID-PFK08 AND CA-NEXT-PAGE-EXISTS; CCARD-AID-PFK07 AND NOT CA-FIRST-PAGE; CCARD-AID-ENTER AND VIEW-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM; CCARD-AID-ENTER AND UPDATE-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM]
 MOVE WS-CA-FIRST-CARD-NUM TO WS-CARD-RID-CARDNUMCOCRDLIC.cbl:574–575
  1. TRUE is none of [INPUT-ERROR; CCARD-AID-PFK07 AND CA-FIRST-PAGE; CCARD-AID-PFK07 AND CA-FIRST-PAGE; CCARD-AID-PFK03; CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM; CCARD-AID-PFK08 AND CA-NEXT-PAGE-EXISTS; CCARD-AID-PFK07 AND NOT CA-FIRST-PAGE; CCARD-AID-ENTER AND VIEW-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM; CCARD-AID-ENTER AND UPDATE-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM]
 PERFORM 9000-READ-FORWARD THRU 9000-READ-FORWARD-EXITCOCRDLIC.cbl:578–579
  1. TRUE is none of [INPUT-ERROR; CCARD-AID-PFK07 AND CA-FIRST-PAGE; CCARD-AID-PFK07 AND CA-FIRST-PAGE; CCARD-AID-PFK03; CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM; CCARD-AID-PFK08 AND CA-NEXT-PAGE-EXISTS; CCARD-AID-PFK07 AND NOT CA-FIRST-PAGE; CCARD-AID-ENTER AND VIEW-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM; CCARD-AID-ENTER AND UPDATE-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM]
 PERFORM 1000-SEND-MAP THRU 1000-SEND-MAPCOCRDLIC.cbl:580–581
  1. TRUE is none of [INPUT-ERROR; CCARD-AID-PFK07 AND CA-FIRST-PAGE; CCARD-AID-PFK07 AND CA-FIRST-PAGE; CCARD-AID-PFK03; CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM NOT EQUAL LIT-THISPGM; CCARD-AID-PFK08 AND CA-NEXT-PAGE-EXISTS; CCARD-AID-PFK07 AND NOT CA-FIRST-PAGE; CCARD-AID-ENTER AND VIEW-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM; CCARD-AID-ENTER AND UPDATE-REQUESTED-ON(I-SELECTED) AND CDEMO-FROM-PROGRAM EQUAL LIT-THISPGM]
 GO TO COMMON-RETURNCOCRDLIC.cbl:582
  1. INPUT-ERROR
 MOVE WS-ERROR-MSG TO CCARD-ERROR-MSGCOCRDLIC.cbl:587
  1. INPUT-ERROR
 MOVE LIT-THISPGM TO CDEMO-FROM-PROGRAMCOCRDLIC.cbl:588
  1. INPUT-ERROR
 MOVE LIT-THISMAPSET TO CDEMO-LAST-MAPSETCOCRDLIC.cbl:589
  1. INPUT-ERROR
 MOVE LIT-THISMAP TO CDEMO-LAST-MAPCOCRDLIC.cbl:590
  1. INPUT-ERROR
 MOVE LIT-THISPGM TO CCARD-NEXT-PROGCOCRDLIC.cbl:592
  1. INPUT-ERROR
 MOVE LIT-THISMAPSET TO CCARD-NEXT-MAPSETCOCRDLIC.cbl:593
  1. INPUT-ERROR
 MOVE LIT-THISMAP TO CCARD-NEXT-MAPCOCRDLIC.cbl:594
  1. INPUT-ERROR
 GO TO COMMON-RETURNCOCRDLIC.cbl:597
28 rules

1200-SCREEN-ARRAY-INIT

WhenThenAt
  1. NOT (WS-EACH-CARD(1) EQUAL LOW-VALUES)
 MOVE WS-EDIT-SELECT(1) TO CRDSEL1O OF CCRDLIAOCOCRDLIC.cbl:683
  1. NOT (WS-EACH-CARD(1) EQUAL LOW-VALUES)
 MOVE WS-ROW-ACCTNO(1) TO ACCTNO1O OF CCRDLIAOCOCRDLIC.cbl:684
  1. NOT (WS-EACH-CARD(1) EQUAL LOW-VALUES)
 MOVE WS-ROW-CARD-NUM(1) TO CRDNUM1O OF CCRDLIAOCOCRDLIC.cbl:685
  1. NOT (WS-EACH-CARD(1) EQUAL LOW-VALUES)
 MOVE WS-ROW-CARD-STATUS(1) TO CRDSTS1O OF CCRDLIAOCOCRDLIC.cbl:686
  1. NOT (WS-EACH-CARD(2) EQUAL LOW-VALUES)
 MOVE WS-EDIT-SELECT(2) TO CRDSEL2O OF CCRDLIAOCOCRDLIC.cbl:692
  1. NOT (WS-EACH-CARD(2) EQUAL LOW-VALUES)
 MOVE WS-ROW-ACCTNO(2) TO ACCTNO2O OF CCRDLIAOCOCRDLIC.cbl:693
  1. NOT (WS-EACH-CARD(2) EQUAL LOW-VALUES)
 MOVE WS-ROW-CARD-NUM(2) TO CRDNUM2O OF CCRDLIAOCOCRDLIC.cbl:694
  1. NOT (WS-EACH-CARD(2) EQUAL LOW-VALUES)
 MOVE WS-ROW-CARD-STATUS(2) TO CRDSTS2O OF CCRDLIAOCOCRDLIC.cbl:695
  1. NOT (WS-EACH-CARD(3) EQUAL LOW-VALUES)
 MOVE WS-EDIT-SELECT(3) TO CRDSEL3O OF CCRDLIAOCOCRDLIC.cbl:701
  1. NOT (WS-EACH-CARD(3) EQUAL LOW-VALUES)
 MOVE WS-ROW-ACCTNO(3) TO ACCTNO3O OF CCRDLIAOCOCRDLIC.cbl:702
  1. NOT (WS-EACH-CARD(3) EQUAL LOW-VALUES)
 MOVE WS-ROW-CARD-NUM(3) TO CRDNUM3O OF CCRDLIAOCOCRDLIC.cbl:703
  1. NOT (WS-EACH-CARD(3) EQUAL LOW-VALUES)
 MOVE WS-ROW-CARD-STATUS(3) TO CRDSTS3O OF CCRDLIAOCOCRDLIC.cbl:704
  1. NOT (WS-EACH-CARD(4) EQUAL LOW-VALUES)
 MOVE WS-EDIT-SELECT(4) TO CRDSEL4O OF CCRDLIAOCOCRDLIC.cbl:710
  1. NOT (WS-EACH-CARD(4) EQUAL LOW-VALUES)
 MOVE WS-ROW-ACCTNO(4) TO ACCTNO4O OF CCRDLIAOCOCRDLIC.cbl:711
  1. NOT (WS-EACH-CARD(4) EQUAL LOW-VALUES)
 MOVE WS-ROW-CARD-NUM(4) TO CRDNUM4O OF CCRDLIAOCOCRDLIC.cbl:712
  1. NOT (WS-EACH-CARD(4) EQUAL LOW-VALUES)
 MOVE WS-ROW-CARD-STATUS(4) TO CRDSTS4O OF CCRDLIAOCOCRDLIC.cbl:713
  1. NOT (WS-EACH-CARD(5) EQUAL LOW-VALUES)
 MOVE WS-EDIT-SELECT(5) TO CRDSEL5O OF CCRDLIAOCOCRDLIC.cbl:719
  1. NOT (WS-EACH-CARD(5) EQUAL LOW-VALUES)
 MOVE WS-ROW-ACCTNO(5) TO ACCTNO5O OF CCRDLIAOCOCRDLIC.cbl:720
  1. NOT (WS-EACH-CARD(5) EQUAL LOW-VALUES)
 MOVE WS-ROW-CARD-NUM(5) TO CRDNUM5O OF CCRDLIAOCOCRDLIC.cbl:721
  1. NOT (WS-EACH-CARD(5) EQUAL LOW-VALUES)
 MOVE WS-ROW-CARD-STATUS(5) TO CRDSTS5O OF CCRDLIAOCOCRDLIC.cbl:722
  1. NOT (WS-EACH-CARD(6) EQUAL LOW-VALUES)
 MOVE WS-EDIT-SELECT(6) TO CRDSEL6O OF CCRDLIAOCOCRDLIC.cbl:729
  1. NOT (WS-EACH-CARD(6) EQUAL LOW-VALUES)
 MOVE WS-ROW-ACCTNO(6) TO ACCTNO6O OF CCRDLIAOCOCRDLIC.cbl:730
  1. NOT (WS-EACH-CARD(6) EQUAL LOW-VALUES)
 MOVE WS-ROW-CARD-NUM(6) TO CRDNUM6O OF CCRDLIAOCOCRDLIC.cbl:731
  1. NOT (WS-EACH-CARD(6) EQUAL LOW-VALUES)
 MOVE WS-ROW-CARD-STATUS(6) TO CRDSTS6O OF CCRDLIAOCOCRDLIC.cbl:732
  1. NOT (WS-EACH-CARD(7) EQUAL LOW-VALUES)
 MOVE WS-EDIT-SELECT(7) TO CRDSEL7O OF CCRDLIAOCOCRDLIC.cbl:738
  1. NOT (WS-EACH-CARD(7) EQUAL LOW-VALUES)
 MOVE WS-ROW-ACCTNO(7) TO ACCTNO7O OF CCRDLIAOCOCRDLIC.cbl:739
  1. NOT (WS-EACH-CARD(7) EQUAL LOW-VALUES)
 MOVE WS-ROW-CARD-NUM(7) TO CRDNUM7O OF CCRDLIAOCOCRDLIC.cbl:740
  1. NOT (WS-EACH-CARD(7) EQUAL LOW-VALUES)
 MOVE WS-ROW-CARD-STATUS(7) TO CRDSTS7O OF CCRDLIAOCOCRDLIC.cbl:741
28 rules

1250-SETUP-ARRAY-ATTRIBS

WhenThenAt
  1. WS-EACH-CARD(1) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES
 MOVE DFHBMPRF TO CRDSEL1A OF CCRDLIAICOCRDLIC.cbl:753
  1. NOT (WS-EACH-CARD(1) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
  2. WS-ROW-CRDSELECT-ERROR(1) = '1'
 MOVE DFHRED TO CRDSEL1C OF CCRDLIAOCOCRDLIC.cbl:756
  1. NOT (WS-EACH-CARD(1) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
  2. WS-ROW-CRDSELECT-ERROR(1) = '1'
  3. WS-EDIT-SELECT(1) = SPACE OR LOW-VALUES
 MOVE '*' TO CRDSEL1O OF CCRDLIAOCOCRDLIC.cbl:758
  1. NOT (WS-EACH-CARD(1) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
 MOVE DFHBMFSE TO CRDSEL1A OF CCRDLIAICOCRDLIC.cbl:761
  1. WS-EACH-CARD(2) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES
 MOVE DFHBMPRO TO CRDSEL2A OF CCRDLIAICOCRDLIC.cbl:766
  1. NOT (WS-EACH-CARD(2) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
  2. WS-ROW-CRDSELECT-ERROR(2) = '1'
 MOVE DFHRED TO CRDSEL2C OF CCRDLIAOCOCRDLIC.cbl:769
  1. NOT (WS-EACH-CARD(2) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
  2. WS-ROW-CRDSELECT-ERROR(2) = '1'
 MOVE -1 TO CRDSEL2L OF CCRDLIAICOCRDLIC.cbl:770
  1. NOT (WS-EACH-CARD(2) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
 MOVE DFHBMFSE TO CRDSEL2A OF CCRDLIAICOCRDLIC.cbl:772
  1. WS-EACH-CARD(3) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES
 MOVE DFHBMPRO TO CRDSEL3A OF CCRDLIAICOCRDLIC.cbl:777
  1. NOT (WS-EACH-CARD(3) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
  2. WS-ROW-CRDSELECT-ERROR(3) = '1'
 MOVE DFHRED TO CRDSEL3C OF CCRDLIAOCOCRDLIC.cbl:781
  1. NOT (WS-EACH-CARD(3) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
  2. WS-ROW-CRDSELECT-ERROR(3) = '1'
 MOVE -1 TO CRDSEL3L OF CCRDLIAICOCRDLIC.cbl:782
  1. NOT (WS-EACH-CARD(3) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
 MOVE DFHBMFSE TO CRDSEL3A OF CCRDLIAICOCRDLIC.cbl:784
  1. WS-EACH-CARD(4) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES
 MOVE DFHBMPRO TO CRDSEL4A OF CCRDLIAI ICOCRDLIC.cbl:789–790
  1. NOT (WS-EACH-CARD(4) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
  2. WS-ROW-CRDSELECT-ERROR(4) = '1'
 MOVE DFHRED TO CRDSEL4C OF CCRDLIAOCOCRDLIC.cbl:793
  1. NOT (WS-EACH-CARD(4) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
  2. WS-ROW-CRDSELECT-ERROR(4) = '1'
 MOVE -1 TO CRDSEL4L OF CCRDLIAICOCRDLIC.cbl:794
  1. NOT (WS-EACH-CARD(4) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
 MOVE DFHBMFSE TO CRDSEL4A OF CCRDLIAICOCRDLIC.cbl:796
  1. WS-EACH-CARD(5) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES
 MOVE DFHBMPRO TO CRDSEL5A OF CCRDLIAICOCRDLIC.cbl:801
  1. NOT (WS-EACH-CARD(5) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
  2. WS-ROW-CRDSELECT-ERROR(5) = '1'
 MOVE DFHRED TO CRDSEL5C OF CCRDLIAOCOCRDLIC.cbl:804
  1. NOT (WS-EACH-CARD(5) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
  2. WS-ROW-CRDSELECT-ERROR(5) = '1'
 MOVE -1 TO CRDSEL5L OF CCRDLIAICOCRDLIC.cbl:805
  1. NOT (WS-EACH-CARD(5) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
 MOVE DFHBMFSE TO CRDSEL5A OF CCRDLIAICOCRDLIC.cbl:807
  1. WS-EACH-CARD(6) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES
 MOVE DFHBMPRO TO CRDSEL6A OF CCRDLIAICOCRDLIC.cbl:812
  1. NOT (WS-EACH-CARD(6) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
  2. WS-ROW-CRDSELECT-ERROR(6) = '1'
 MOVE DFHRED TO CRDSEL6C OF CCRDLIAOCOCRDLIC.cbl:816
  1. NOT (WS-EACH-CARD(6) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
  2. WS-ROW-CRDSELECT-ERROR(6) = '1'
 MOVE -1 TO CRDSEL6L OF CCRDLIAICOCRDLIC.cbl:817
  1. NOT (WS-EACH-CARD(6) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
 MOVE DFHBMFSE TO CRDSEL6A OF CCRDLIAICOCRDLIC.cbl:819
  1. WS-EACH-CARD(7) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES
 MOVE DFHBMPRO TO CRDSEL7A OF CCRDLIAICOCRDLIC.cbl:824
  1. NOT (WS-EACH-CARD(7) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
  2. WS-ROW-CRDSELECT-ERROR(7) = '1'
 MOVE DFHRED TO CRDSEL7C OF CCRDLIAOCOCRDLIC.cbl:827
  1. NOT (WS-EACH-CARD(7) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
  2. WS-ROW-CRDSELECT-ERROR(7) = '1'
 MOVE -1 TO CRDSEL7L OF CCRDLIAICOCRDLIC.cbl:828
  1. NOT (WS-EACH-CARD(7) EQUAL LOW-VALUES OR FLG-PROTECT-SELECT-ROWS-YES)
 MOVE DFHBMFSE TO CRDSEL7A OF CCRDLIAICOCRDLIC.cbl:830
15 rules

1300-SETUP-SCREEN-ATTRS

WhenThenAt
  1. NOT (EIBCALEN = 0 OR (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM = LIT-MENUPGM))
  2. FLG-ACCTFILTER-ISVALID | FLG-ACCTFILTER-NOT-OK
 MOVE CC-ACCT-ID TO ACCTSIDO OF CCRDLIAOCOCRDLIC.cbl:847
  1. NOT (EIBCALEN = 0 OR (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM = LIT-MENUPGM))
  2. FLG-ACCTFILTER-ISVALID | FLG-ACCTFILTER-NOT-OK
 MOVE DFHBMFSE TO ACCTSIDA OF CCRDLIAICOCRDLIC.cbl:848
  1. NOT (EIBCALEN = 0 OR (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM = LIT-MENUPGM))
  2. CDEMO-ACCT-ID = 0
 MOVE LOW-VALUES TO ACCTSIDO OF CCRDLIAOCOCRDLIC.cbl:850
  1. NOT (EIBCALEN = 0 OR (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM = LIT-MENUPGM))
  2. TRUE is none of [FLG-ACCTFILTER-ISVALID; FLG-ACCTFILTER-NOT-OK; CDEMO-ACCT-ID = 0]
 MOVE CDEMO-ACCT-ID TO ACCTSIDO OF CCRDLIAOCOCRDLIC.cbl:852
  1. NOT (EIBCALEN = 0 OR (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM = LIT-MENUPGM))
  2. TRUE is none of [FLG-ACCTFILTER-ISVALID; FLG-ACCTFILTER-NOT-OK; CDEMO-ACCT-ID = 0]
 MOVE DFHBMFSE TO ACCTSIDA OF CCRDLIAICOCRDLIC.cbl:853
  1. NOT (EIBCALEN = 0 OR (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM = LIT-MENUPGM))
  2. FLG-CARDFILTER-ISVALID | FLG-CARDFILTER-NOT-OK
 MOVE CC-CARD-NUM TO CARDSIDO OF CCRDLIAOCOCRDLIC.cbl:859
  1. NOT (EIBCALEN = 0 OR (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM = LIT-MENUPGM))
  2. FLG-CARDFILTER-ISVALID | FLG-CARDFILTER-NOT-OK
 MOVE DFHBMFSE TO CARDSIDA OF CCRDLIAICOCRDLIC.cbl:860
  1. NOT (EIBCALEN = 0 OR (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM = LIT-MENUPGM))
  2. CDEMO-CARD-NUM = 0
 MOVE LOW-VALUES TO CARDSIDO OF CCRDLIAOCOCRDLIC.cbl:862
  1. NOT (EIBCALEN = 0 OR (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM = LIT-MENUPGM))
  2. TRUE is none of [FLG-CARDFILTER-ISVALID; FLG-CARDFILTER-NOT-OK; CDEMO-CARD-NUM = 0]
 MOVE CDEMO-CARD-NUM TO CARDSIDO OF CCRDLIAOCOCRDLIC.cbl:864–865
  1. NOT (EIBCALEN = 0 OR (CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM = LIT-MENUPGM))
  2. TRUE is none of [FLG-CARDFILTER-ISVALID; FLG-CARDFILTER-NOT-OK; CDEMO-CARD-NUM = 0]
 MOVE DFHBMFSE TO CARDSIDA OF CCRDLIAICOCRDLIC.cbl:866
  1. FLG-ACCTFILTER-NOT-OK
 MOVE DFHRED TO ACCTSIDC OF CCRDLIAOCOCRDLIC.cbl:873
  1. FLG-ACCTFILTER-NOT-OK
 MOVE -1 TO ACCTSIDL OF CCRDLIAICOCRDLIC.cbl:874
  1. FLG-CARDFILTER-NOT-OK
 MOVE DFHRED TO CARDSIDC OF CCRDLIAOCOCRDLIC.cbl:878
  1. FLG-CARDFILTER-NOT-OK
 MOVE -1 TO CARDSIDL OF CCRDLIAICOCRDLIC.cbl:879
  1. INPUT-OK
 MOVE -1 TO ACCTSIDL OF CCRDLIAICOCRDLIC.cbl:885
8 rules

1400-SETUP-MESSAGE

WhenThenAt
  1. CCARD-AID-PFK07 AND CA-FIRST-PAGE
 MOVE 'NO PREVIOUS PAGES TO DISPLAY' TO WS-ERROR-MSGCOCRDLIC.cbl:903–904
  1. CCARD-AID-PFK08 AND CA-NEXT-PAGE-NOT-EXISTS AND CA-LAST-PAGE-SHOWN
 MOVE 'NO MORE PAGES TO DISPLAY' TO WS-ERROR-MSGCOCRDLIC.cbl:908–909
  1. CCARD-AID-PFK08 AND CA-NEXT-PAGE-NOT-EXISTS
 SET WS-INFORM-REC-ACTIONS TO TRUECOCRDLIC.cbl:912
  1. CCARD-AID-PFK08 AND CA-NEXT-PAGE-NOT-EXISTS
  2. CA-LAST-PAGE-NOT-SHOWN AND CA-NEXT-PAGE-NOT-EXISTS
 SET CA-LAST-PAGE-SHOWN TO TRUECOCRDLIC.cbl:915
  1. WS-NO-INFO-MESSAGE | CA-NEXT-PAGE-EXISTS
 SET WS-INFORM-REC-ACTIONS TO TRUECOCRDLIC.cbl:919
  1. TRUE is none of [FLG-ACCTFILTER-NOT-OK; FLG-CARDFILTER-NOT-OK; CCARD-AID-PFK07 AND CA-FIRST-PAGE; CCARD-AID-PFK08 AND CA-NEXT-PAGE-NOT-EXISTS AND CA-LAST-PAGE-SHOWN; CCARD-AID-PFK08 AND CA-NEXT-PAGE-NOT-EXISTS; WS-NO-INFO-MESSAGE; CA-NEXT-PAGE-EXISTS]
 SET WS-NO-INFO-MESSAGE TO TRUECOCRDLIC.cbl:921
  1. NOT WS-NO-INFO-MESSAGE AND NOT WS-NO-RECORDS-FOUND
 MOVE WS-INFO-MSG TO INFOMSGO OF CCRDLIAOCOCRDLIC.cbl:928
  1. NOT WS-NO-INFO-MESSAGE AND NOT WS-NO-RECORDS-FOUND
 MOVE DFHNEUTR TO INFOMSGC OF CCRDLIAOCOCRDLIC.cbl:929
11 rules

2210-EDIT-ACCOUNT

WhenThenAt
  1. CC-ACCT-ID EQUAL LOW-VALUES OR CC-ACCT-ID EQUAL SPACES OR CC-ACCT-ID-N EQUAL ZEROS
 SET FLG-ACCTFILTER-BLANK TO TRUECOCRDLIC.cbl:1010
  1. CC-ACCT-ID EQUAL LOW-VALUES OR CC-ACCT-ID EQUAL SPACES OR CC-ACCT-ID-N EQUAL ZEROS
 MOVE ZEROES TO CDEMO-ACCT-IDCOCRDLIC.cbl:1011
  1. CC-ACCT-ID EQUAL LOW-VALUES OR CC-ACCT-ID EQUAL SPACES OR CC-ACCT-ID-N EQUAL ZEROS
 GO TO 2210-EDIT-ACCOUNT-EXITCOCRDLIC.cbl:1012
  1. CC-ACCT-ID IS NOT NUMERIC
 SET INPUT-ERROR TO TRUECOCRDLIC.cbl:1018
  1. CC-ACCT-ID IS NOT NUMERIC
 SET FLG-ACCTFILTER-NOT-OK TO TRUECOCRDLIC.cbl:1019
  1. CC-ACCT-ID IS NOT NUMERIC
 SET FLG-PROTECT-SELECT-ROWS-YES TO TRUECOCRDLIC.cbl:1020
  1. CC-ACCT-ID IS NOT NUMERIC
 MOVE 'ACCOUNT FILTER,IF SUPPLIED MUST BE A 11 DIGIT NUMBER' TO WS-ERROR-MSGCOCRDLIC.cbl:1021–1023
  1. CC-ACCT-ID IS NOT NUMERIC
 MOVE ZERO TO CDEMO-ACCT-IDCOCRDLIC.cbl:1024
  1. CC-ACCT-ID IS NOT NUMERIC
 GO TO 2210-EDIT-ACCOUNT-EXITCOCRDLIC.cbl:1025
  1. NOT (CC-ACCT-ID IS NOT NUMERIC)
 MOVE CC-ACCT-ID TO CDEMO-ACCT-IDCOCRDLIC.cbl:1027
  1. NOT (CC-ACCT-ID IS NOT NUMERIC)
 SET FLG-ACCTFILTER-ISVALID TO TRUECOCRDLIC.cbl:1028
11 rules

2220-EDIT-CARD

WhenThenAt
  1. CC-CARD-NUM EQUAL LOW-VALUES OR CC-CARD-NUM EQUAL SPACES OR CC-CARD-NUM-N EQUAL ZEROS
 SET FLG-CARDFILTER-BLANK TO TRUECOCRDLIC.cbl:1045
  1. CC-CARD-NUM EQUAL LOW-VALUES OR CC-CARD-NUM EQUAL SPACES OR CC-CARD-NUM-N EQUAL ZEROS
 MOVE ZEROES TO CDEMO-CARD-NUMCOCRDLIC.cbl:1046
  1. CC-CARD-NUM EQUAL LOW-VALUES OR CC-CARD-NUM EQUAL SPACES OR CC-CARD-NUM-N EQUAL ZEROS
 GO TO 2220-EDIT-CARD-EXITCOCRDLIC.cbl:1047
  1. CC-CARD-NUM IS NOT NUMERIC
 SET INPUT-ERROR TO TRUECOCRDLIC.cbl:1053
  1. CC-CARD-NUM IS NOT NUMERIC
 SET FLG-CARDFILTER-NOT-OK TO TRUECOCRDLIC.cbl:1054
  1. CC-CARD-NUM IS NOT NUMERIC
 SET FLG-PROTECT-SELECT-ROWS-YES TO TRUECOCRDLIC.cbl:1055
  1. CC-CARD-NUM IS NOT NUMERIC
  2. WS-ERROR-MSG-OFF
 MOVE 'CARD ID FILTER,IF SUPPLIED MUST BE A 16 DIGIT NUMBER' TO WS-ERROR-MSGCOCRDLIC.cbl:1057–1059
  1. CC-CARD-NUM IS NOT NUMERIC
 MOVE ZERO TO CDEMO-CARD-NUMCOCRDLIC.cbl:1061
  1. CC-CARD-NUM IS NOT NUMERIC
 GO TO 2220-EDIT-CARD-EXITCOCRDLIC.cbl:1062
  1. NOT (CC-CARD-NUM IS NOT NUMERIC)
 MOVE CC-CARD-NUM-N TO CDEMO-CARD-NUMCOCRDLIC.cbl:1064
  1. NOT (CC-CARD-NUM IS NOT NUMERIC)
 SET FLG-CARDFILTER-ISVALID TO TRUECOCRDLIC.cbl:1065
9 rules

2250-EDIT-ARRAY

WhenThenAt
  1. INPUT-ERROR
 GO TO 2250-EDIT-ARRAY-EXITCOCRDLIC.cbl:1076
  1. I > +1
 SET INPUT-ERROR TO TRUECOCRDLIC.cbl:1085
  1. I > +1
 SET WS-MORE-THAN-1-ACTION TO TRUECOCRDLIC.cbl:1086
  1. I > +1
 MOVE WS-EDIT-SELECT-FLAGS TO WS-EDIT-SELECT-ERROR-FLAGSCOCRDLIC.cbl:1088–1089
  1. PERFORM VARYING I FROM 1 BY 1 UNTIL I > 7
  2. SELECT-OK(I)
 MOVE I TO I-SELECTEDCOCRDLIC.cbl:1102
  1. PERFORM VARYING I FROM 1 BY 1 UNTIL I > 7
  2. SELECT-OK(I)
  3. WS-MORE-THAN-1-ACTION
 MOVE '1' TO WS-ROW-CRDSELECT-ERROR(I)COCRDLIC.cbl:1104
  1. PERFORM VARYING I FROM 1 BY 1 UNTIL I > 7
  2. TRUE is none of [SELECT-OK(I); SELECT-BLANK(I)]
 SET INPUT-ERROR TO TRUECOCRDLIC.cbl:1109
  1. PERFORM VARYING I FROM 1 BY 1 UNTIL I > 7
  2. TRUE is none of [SELECT-OK(I); SELECT-BLANK(I)]
 MOVE '1' TO WS-ROW-CRDSELECT-ERROR(I)COCRDLIC.cbl:1110
  1. PERFORM VARYING I FROM 1 BY 1 UNTIL I > 7
  2. TRUE is none of [SELECT-OK(I); SELECT-BLANK(I)]
  3. WS-ERROR-MSG-OFF
 SET WS-INVALID-ACTION-CODE TO TRUECOCRDLIC.cbl:1112
36 rules

9000-READ-FORWARD

WhenThenAt
  1. PERFORM UNTIL READ-LOOP-EXIT
 EXEC CICS READNEXT DATASET(LIT-CARD-FILE) INTO (CARD-RECORD) LENGTH(LENGTH OF CARD-RECORD) RIDFLD(WS-CARD-RID-CARDNUM) KEYLENGTH(LENGTH OF WS-CARD-RID-CARDNUM) RESP(WS-RESP-CD) RESP2(WS-REAS-CD) END-EXECCOCRDLIC.cbl:1146–1154
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
 PERFORM 9500-FILTER-RECORDS THRU 9500-FILTER-RECORDS-EXITCOCRDLIC.cbl:1159–1160
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-DONOT-EXCLUDE-THIS-RECORD
calc ADD 1 TO WS-SCRN-COUNTERCOCRDLIC.cbl:1163
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-DONOT-EXCLUDE-THIS-RECORD
 MOVE CARD-NUM TO WS-ROW-CARD-NUM( WS-SCRN-COUNTER)COCRDLIC.cbl:1165–1166
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-DONOT-EXCLUDE-THIS-RECORD
 MOVE CARD-ACCT-ID TO WS-ROW-ACCTNO(WS-SCRN-COUNTER)COCRDLIC.cbl:1167–1168
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-DONOT-EXCLUDE-THIS-RECORD
 MOVE CARD-ACTIVE-STATUS TO WS-ROW-CARD-STATUS( WS-SCRN-COUNTER)COCRDLIC.cbl:1169–1171
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-DONOT-EXCLUDE-THIS-RECORD
  4. WS-SCRN-COUNTER = 1
 MOVE CARD-ACCT-ID TO WS-CA-FIRST-CARD-ACCT-IDCOCRDLIC.cbl:1174–1175
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-DONOT-EXCLUDE-THIS-RECORD
  4. WS-SCRN-COUNTER = 1
 MOVE CARD-NUM TO WS-CA-FIRST-CARD-NUMCOCRDLIC.cbl:1176
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-DONOT-EXCLUDE-THIS-RECORD
  4. WS-SCRN-COUNTER = 1
  5. WS-CA-SCREEN-NUM = 0
calc ADD +1 TO WS-CA-SCREEN-NUMCOCRDLIC.cbl:1178
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-SCRN-COUNTER = WS-MAX-SCREEN-LINES
 SET READ-LOOP-EXIT TO TRUECOCRDLIC.cbl:1192
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-SCRN-COUNTER = WS-MAX-SCREEN-LINES
 MOVE CARD-ACCT-ID TO WS-CA-LAST-CARD-ACCT-IDCOCRDLIC.cbl:1194
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-SCRN-COUNTER = WS-MAX-SCREEN-LINES
 MOVE CARD-NUM TO WS-CA-LAST-CARD-NUMCOCRDLIC.cbl:1195
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-SCRN-COUNTER = WS-MAX-SCREEN-LINES
 EXEC CICS READNEXT DATASET(LIT-CARD-FILE) INTO (CARD-RECORD) LENGTH(LENGTH OF CARD-RECORD) RIDFLD(WS-CARD-RID-CARDNUM) KEYLENGTH(LENGTH OF WS-CARD-RID-CARDNUM) RESP(WS-RESP-CD) RESP2(WS-REAS-CD) END-EXECCOCRDLIC.cbl:1197–1205
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-SCRN-COUNTER = WS-MAX-SCREEN-LINES
  4. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
 SET CA-NEXT-PAGE-EXISTS TO TRUECOCRDLIC.cbl:1210–1211
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-SCRN-COUNTER = WS-MAX-SCREEN-LINES
  4. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
 MOVE CARD-ACCT-ID TO WS-CA-LAST-CARD-ACCT-IDCOCRDLIC.cbl:1212–1213
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-SCRN-COUNTER = WS-MAX-SCREEN-LINES
  4. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
 MOVE CARD-NUM TO WS-CA-LAST-CARD-NUMCOCRDLIC.cbl:1214
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-SCRN-COUNTER = WS-MAX-SCREEN-LINES
  4. WS-RESP-CD = DFHRESP(ENDFILE)
 SET CA-NEXT-PAGE-NOT-EXISTS TO TRUECOCRDLIC.cbl:1216
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-SCRN-COUNTER = WS-MAX-SCREEN-LINES
  4. WS-RESP-CD = DFHRESP(ENDFILE)
  5. WS-ERROR-MSG-OFF
 MOVE 'NO MORE RECORDS TO SHOW' TO WS-ERROR-MSGCOCRDLIC.cbl:1219–1220
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-SCRN-COUNTER = WS-MAX-SCREEN-LINES
  4. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPREC); DFHRESP(ENDFILE)]
 SET READ-LOOP-EXIT TO TRUECOCRDLIC.cbl:1225
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-SCRN-COUNTER = WS-MAX-SCREEN-LINES
  4. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPREC); DFHRESP(ENDFILE)]
 MOVE 'READ' TO ERROR-OPNAMECOCRDLIC.cbl:1226
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-SCRN-COUNTER = WS-MAX-SCREEN-LINES
  4. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPREC); DFHRESP(ENDFILE)]
 MOVE LIT-CARD-FILE TO ERROR-FILECOCRDLIC.cbl:1227
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-SCRN-COUNTER = WS-MAX-SCREEN-LINES
  4. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPREC); DFHRESP(ENDFILE)]
 MOVE WS-RESP-CD TO ERROR-RESPCOCRDLIC.cbl:1228
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-SCRN-COUNTER = WS-MAX-SCREEN-LINES
  4. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPREC); DFHRESP(ENDFILE)]
 MOVE WS-REAS-CD TO ERROR-RESP2COCRDLIC.cbl:1229
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-SCRN-COUNTER = WS-MAX-SCREEN-LINES
  4. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPREC); DFHRESP(ENDFILE)]
 MOVE WS-FILE-ERROR-MESSAGE TO WS-ERROR-MSGCOCRDLIC.cbl:1230
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(ENDFILE)
 SET READ-LOOP-EXIT TO TRUECOCRDLIC.cbl:1234
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(ENDFILE)
 SET CA-NEXT-PAGE-NOT-EXISTS TO TRUECOCRDLIC.cbl:1235
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(ENDFILE)
 MOVE CARD-ACCT-ID TO WS-CA-LAST-CARD-ACCT-IDCOCRDLIC.cbl:1236
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(ENDFILE)
 MOVE CARD-NUM TO WS-CA-LAST-CARD-NUMCOCRDLIC.cbl:1237
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(ENDFILE)
  3. WS-ERROR-MSG-OFF
 MOVE 'NO MORE RECORDS TO SHOW' TO WS-ERROR-MSGCOCRDLIC.cbl:1239
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(ENDFILE)
  3. WS-CA-SCREEN-NUM = 1 AND WS-SCRN-COUNTER = 0
 SET WS-NO-RECORDS-FOUND TO TRUECOCRDLIC.cbl:1244
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPREC); DFHRESP(ENDFILE)]
 SET READ-LOOP-EXIT TO TRUECOCRDLIC.cbl:1249
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPREC); DFHRESP(ENDFILE)]
 MOVE 'READ' TO ERROR-OPNAMECOCRDLIC.cbl:1250
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPREC); DFHRESP(ENDFILE)]
 MOVE LIT-CARD-FILE TO ERROR-FILECOCRDLIC.cbl:1251
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPREC); DFHRESP(ENDFILE)]
 MOVE WS-RESP-CD TO ERROR-RESPCOCRDLIC.cbl:1252
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPREC); DFHRESP(ENDFILE)]
 MOVE WS-REAS-CD TO ERROR-RESP2COCRDLIC.cbl:1253
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPREC); DFHRESP(ENDFILE)]
 MOVE WS-FILE-ERROR-MESSAGE TO WS-ERROR-MSGCOCRDLIC.cbl:1254
24 rules

9100-READ-BACKWARDS

WhenThenAt
alwayscalc COMPUTE WS-SCRN-COUNTER = WS-MAX-SCREEN-LINES + 1COCRDLIC.cbl:1284–1285
  1. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
calc SUBTRACT 1 FROM WS-SCRN-COUNTERCOCRDLIC.cbl:1307
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPREC)]
 SET READ-LOOP-EXIT TO TRUECOCRDLIC.cbl:1311
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPREC)]
 MOVE 'READ' TO ERROR-OPNAMECOCRDLIC.cbl:1312
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPREC)]
 MOVE LIT-CARD-FILE TO ERROR-FILECOCRDLIC.cbl:1313
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPREC)]
 MOVE WS-RESP-CD TO ERROR-RESPCOCRDLIC.cbl:1314
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPREC)]
 MOVE WS-REAS-CD TO ERROR-RESP2COCRDLIC.cbl:1315
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPREC)]
 MOVE WS-FILE-ERROR-MESSAGE TO WS-ERROR-MSGCOCRDLIC.cbl:1316
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPREC)]
 GO TO 9100-READ-BACKWARDS-EXITCOCRDLIC.cbl:1317
  1. PERFORM UNTIL READ-LOOP-EXIT
 EXEC CICS READPREV DATASET(LIT-CARD-FILE) INTO (CARD-RECORD) LENGTH(LENGTH OF CARD-RECORD) RIDFLD(WS-CARD-RID-CARDNUM) KEYLENGTH(LENGTH OF WS-CARD-RID-CARDNUM) RESP(WS-RESP-CD) RESP2(WS-REAS-CD) END-EXECCOCRDLIC.cbl:1322–1330
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
 PERFORM 9500-FILTER-RECORDS THRU 9500-FILTER-RECORDS-EXITCOCRDLIC.cbl:1335–1336
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-DONOT-EXCLUDE-THIS-RECORD
 MOVE CARD-NUM TO WS-ROW-CARD-NUM(WS-SCRN-COUNTER)COCRDLIC.cbl:1338–1339
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-DONOT-EXCLUDE-THIS-RECORD
 MOVE CARD-ACCT-ID TO WS-ROW-ACCTNO(WS-SCRN-COUNTER)COCRDLIC.cbl:1340–1341
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-DONOT-EXCLUDE-THIS-RECORD
 MOVE CARD-ACTIVE-STATUS TO WS-ROW-CARD-STATUS(WS-SCRN-COUNTER)COCRDLIC.cbl:1342–1344
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-DONOT-EXCLUDE-THIS-RECORD
calc SUBTRACT 1 FROM WS-SCRN-COUNTERCOCRDLIC.cbl:1346
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-DONOT-EXCLUDE-THIS-RECORD
  4. WS-SCRN-COUNTER = 0
 SET READ-LOOP-EXIT TO TRUECOCRDLIC.cbl:1348
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-DONOT-EXCLUDE-THIS-RECORD
  4. WS-SCRN-COUNTER = 0
 MOVE CARD-ACCT-ID TO WS-CA-FIRST-CARD-ACCT-IDCOCRDLIC.cbl:1350–1351
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD = DFHRESP(NORMAL) OR WS-RESP-CD = DFHRESP(DUPREC)
  3. WS-DONOT-EXCLUDE-THIS-RECORD
  4. WS-SCRN-COUNTER = 0
 MOVE CARD-NUM TO WS-CA-FIRST-CARD-NUMCOCRDLIC.cbl:1352–1353
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPREC)]
 SET READ-LOOP-EXIT TO TRUECOCRDLIC.cbl:1364
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPREC)]
 MOVE 'READ' TO ERROR-OPNAMECOCRDLIC.cbl:1365
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPREC)]
 MOVE LIT-CARD-FILE TO ERROR-FILECOCRDLIC.cbl:1366
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPREC)]
 MOVE WS-RESP-CD TO ERROR-RESPCOCRDLIC.cbl:1367
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPREC)]
 MOVE WS-REAS-CD TO ERROR-RESP2COCRDLIC.cbl:1368
  1. PERFORM UNTIL READ-LOOP-EXIT
  2. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPREC)]
 MOVE WS-FILE-ERROR-MESSAGE TO WS-ERROR-MSGCOCRDLIC.cbl:1369
4 rules

9500-FILTER-RECORDS

WhenThenAt
  1. FLG-ACCTFILTER-ISVALID
  2. NOT (CARD-ACCT-ID = CC-ACCT-ID)
 SET WS-EXCLUDE-THIS-RECORD TO TRUECOCRDLIC.cbl:1389
  1. FLG-ACCTFILTER-ISVALID
  2. NOT (CARD-ACCT-ID = CC-ACCT-ID)
 GO TO 9500-FILTER-RECORDS-EXITCOCRDLIC.cbl:1390
  1. FLG-CARDFILTER-ISVALID
  2. NOT (CARD-NUM = CC-CARD-NUM-N)
 SET WS-EXCLUDE-THIS-RECORD TO TRUECOCRDLIC.cbl:1400
  1. FLG-CARDFILTER-ISVALID
  2. NOT (CARD-NUM = CC-CARD-NUM-N)
 GO TO 9500-FILTER-RECORDS-EXITCOCRDLIC.cbl:1401
28 rules

YYYY-STORE-PFKEY

WhenThenAt
  1. EIBAID IS EQUAL TO DFHENTER
 SET CCARD-AID-ENTER TO TRUECSSTRPFY.cpy:23 via COCRDLIC.cbl:1416
  1. EIBAID IS EQUAL TO DFHCLEAR
 SET CCARD-AID-CLEAR TO TRUECSSTRPFY.cpy:25 via COCRDLIC.cbl:1416
  1. EIBAID IS EQUAL TO DFHPA1
 SET CCARD-AID-PA1 TO TRUECSSTRPFY.cpy:27 via COCRDLIC.cbl:1416
  1. EIBAID IS EQUAL TO DFHPA2
 SET CCARD-AID-PA2 TO TRUECSSTRPFY.cpy:29 via COCRDLIC.cbl:1416
  1. EIBAID IS EQUAL TO DFHPF1
 SET CCARD-AID-PFK01 TO TRUECSSTRPFY.cpy:31 via COCRDLIC.cbl:1416
  1. EIBAID IS EQUAL TO DFHPF2
 SET CCARD-AID-PFK02 TO TRUECSSTRPFY.cpy:33 via COCRDLIC.cbl:1416
  1. EIBAID IS EQUAL TO DFHPF3
 SET CCARD-AID-PFK03 TO TRUECSSTRPFY.cpy:35 via COCRDLIC.cbl:1416
  1. EIBAID IS EQUAL TO DFHPF4
 SET CCARD-AID-PFK04 TO TRUECSSTRPFY.cpy:37 via COCRDLIC.cbl:1416
  1. EIBAID IS EQUAL TO DFHPF5
 SET CCARD-AID-PFK05 TO TRUECSSTRPFY.cpy:39 via COCRDLIC.cbl:1416
  1. EIBAID IS EQUAL TO DFHPF6
 SET CCARD-AID-PFK06 TO TRUECSSTRPFY.cpy:41 via COCRDLIC.cbl:1416
  1. EIBAID IS EQUAL TO DFHPF7
 SET CCARD-AID-PFK07 TO TRUECSSTRPFY.cpy:43 via COCRDLIC.cbl:1416
  1. EIBAID IS EQUAL TO DFHPF8
 SET CCARD-AID-PFK08 TO TRUECSSTRPFY.cpy:45 via COCRDLIC.cbl:1416
  1. EIBAID IS EQUAL TO DFHPF9
 SET CCARD-AID-PFK09 TO TRUECSSTRPFY.cpy:47 via COCRDLIC.cbl:1416
  1. EIBAID IS EQUAL TO DFHPF10
 SET CCARD-AID-PFK10 TO TRUECSSTRPFY.cpy:49 via COCRDLIC.cbl:1416
  1. EIBAID IS EQUAL TO DFHPF11
 SET CCARD-AID-PFK11 TO TRUECSSTRPFY.cpy:51 via COCRDLIC.cbl:1416
  1. EIBAID IS EQUAL TO DFHPF12
 SET CCARD-AID-PFK12 TO TRUECSSTRPFY.cpy:53 via COCRDLIC.cbl:1416
  1. EIBAID IS EQUAL TO DFHPF13
 SET CCARD-AID-PFK01 TO TRUECSSTRPFY.cpy:55 via COCRDLIC.cbl:1416
  1. EIBAID IS EQUAL TO DFHPF14
 SET CCARD-AID-PFK02 TO TRUECSSTRPFY.cpy:57 via COCRDLIC.cbl:1416
  1. EIBAID IS EQUAL TO DFHPF15
 SET CCARD-AID-PFK03 TO TRUECSSTRPFY.cpy:59 via COCRDLIC.cbl:1416
  1. EIBAID IS EQUAL TO DFHPF16
 SET CCARD-AID-PFK04 TO TRUECSSTRPFY.cpy:61 via COCRDLIC.cbl:1416
  1. EIBAID IS EQUAL TO DFHPF17
 SET CCARD-AID-PFK05 TO TRUECSSTRPFY.cpy:63 via COCRDLIC.cbl:1416
  1. EIBAID IS EQUAL TO DFHPF18
 SET CCARD-AID-PFK06 TO TRUECSSTRPFY.cpy:65 via COCRDLIC.cbl:1416
  1. EIBAID IS EQUAL TO DFHPF19
 SET CCARD-AID-PFK07 TO TRUECSSTRPFY.cpy:67 via COCRDLIC.cbl:1416
  1. EIBAID IS EQUAL TO DFHPF20
 SET CCARD-AID-PFK08 TO TRUECSSTRPFY.cpy:69 via COCRDLIC.cbl:1416
  1. EIBAID IS EQUAL TO DFHPF21
 SET CCARD-AID-PFK09 TO TRUECSSTRPFY.cpy:71 via COCRDLIC.cbl:1416
  1. EIBAID IS EQUAL TO DFHPF22
 SET CCARD-AID-PFK10 TO TRUECSSTRPFY.cpy:73 via COCRDLIC.cbl:1416
  1. EIBAID IS EQUAL TO DFHPF23
 SET CCARD-AID-PFK11 TO TRUECSSTRPFY.cpy:75 via COCRDLIC.cbl:1416
  1. EIBAID IS EQUAL TO DFHPF24
 SET CCARD-AID-PFK12 TO TRUECSSTRPFY.cpy:77 via COCRDLIC.cbl:1416