MFmainframe-rea
WS carddemo · 26f629ef

Business rules · 276 guarded actionsCOCRDUPC

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 COCRDUPC.cbl:272
CCARD-AID-ENTERmeans CCARD-AID = 'ENTER'CVCRD01Y.cpy:4 via COCRDUPC.cbl:268
CCARD-AID-PFK03means CCARD-AID = 'PFK03'CVCRD01Y.cpy:10 via COCRDUPC.cbl:268
CCARD-AID-PFK05means CCARD-AID = 'PFK05'CVCRD01Y.cpy:12 via COCRDUPC.cbl:268
CCUP-CHANGES-OK-NOT-CONFIRMEDmeans CCUP-CHANGE-ACTION = 'N'COCRDUPC.cbl:286
CCARD-AID-PFK12means CCARD-AID = 'PFK12'CVCRD01Y.cpy:19 via COCRDUPC.cbl:268
CCUP-DETAILS-NOT-FETCHEDmeans CCUP-CHANGE-ACTION = LOW-VALUES OR SPACESCOCRDUPC.cbl:278
PFK-INVALIDmeans WS-PFK-FLAG = '1'COCRDUPC.cbl:86
CCUP-CHANGES-OKAYED-AND-DONEmeans CCUP-CHANGE-ACTION = 'C'COCRDUPC.cbl:287
CCUP-CHANGES-FAILEDmeans CCUP-CHANGE-ACTION = 'L' OR 'F'COCRDUPC.cbl:288
CDEMO-PGM-ENTERmeans CDEMO-PGM-CONTEXT = 0COCOM01Y.cpy:30 via COCRDUPC.cbl:272
FLG-ACCTFILTER-BLANKmeans WS-EDIT-ACCT-FLAG = ' 'COCRDUPC.cbl:60
FLG-CARDFILTER-BLANKmeans WS-EDIT-CARD-FLAG = ' 'COCRDUPC.cbl:64
NO-CHANGES-DETECTEDmeans WS-RETURN-MSG = 'No change detected with respect to values fetched.'COCRDUPC.cbl:187
INPUT-ERRORmeans WS-INPUT-FLAG = '1'COCRDUPC.cbl:55
WS-RETURN-MSG-OFFmeans WS-RETURN-MSG = SPACESCOCRDUPC.cbl:174
FLG-YES-NO-VALIDmeans FLG-YES-NO-CHECK = 'Y' OR 'N'COCRDUPC.cbl:91
VALID-MONTHmeans CARD-MONTH-CHECK-N = 1 THRU 12COCRDUPC.cbl:95
VALID-YEARmeans CARD-YEAR-CHECK-N = 1950 THRU 2099COCRDUPC.cbl:99
FLG-ACCTFILTER-ISVALIDmeans WS-EDIT-ACCT-FLAG = '1'COCRDUPC.cbl:59
FLG-CARDFILTER-ISVALIDmeans WS-EDIT-CARD-FLAG = '1'COCRDUPC.cbl:63
FOUND-CARDS-FOR-ACCOUNTmeans WS-INFO-MSG = 'Details of selected card shown above'COCRDUPC.cbl:160
CCUP-SHOW-DETAILSmeans CCUP-CHANGE-ACTION = 'S'COCRDUPC.cbl:281
COULD-NOT-LOCK-FOR-UPDATEmeans WS-RETURN-MSG = 'Could not lock record for update'COCRDUPC.cbl:205
LOCKED-BUT-UPDATE-FAILEDmeans WS-RETURN-MSG = 'Update of record failed'COCRDUPC.cbl:209
DATA-WAS-CHANGED-BEFORE-UPDATEmeans WS-RETURN-MSG = 'Record changed by some one else. Please review'COCRDUPC.cbl:207
CCUP-CHANGES-NOT-OKmeans CCUP-CHANGE-ACTION = 'E'COCRDUPC.cbl:285
CCUP-CHANGES-MADEmeans CCUP-CHANGE-ACTION = 'E' OR 'N' OR 'C' OR 'L' OR 'F'COCRDUPC.cbl:282
CCUP-CHANGES-OKAYED-LOCK-ERRORmeans CCUP-CHANGE-ACTION = 'L'COCRDUPC.cbl:289
CCUP-CHANGES-OKAYED-BUT-FAILEDmeans CCUP-CHANGE-ACTION = 'F'COCRDUPC.cbl:290
WS-NO-INFO-MESSAGEmeans WS-INFO-MSG = SPACES OR LOW-VALUESCOCRDUPC.cbl:158
FLG-ACCTFILTER-NOT-OKmeans WS-EDIT-ACCT-FLAG = '0'COCRDUPC.cbl:58
FLG-CARDFILTER-NOT-OKmeans WS-EDIT-CARD-FLAG = '0'COCRDUPC.cbl:62
FLG-CARDNAME-NOT-OKmeans WS-EDIT-CARDNAME-FLAG = '0'COCRDUPC.cbl:66
FLG-CARDNAME-BLANKmeans WS-EDIT-CARDNAME-FLAG = ' 'COCRDUPC.cbl:68
FLG-CARDSTATUS-NOT-OKmeans WS-EDIT-CARDSTATUS-FLAG = '0'COCRDUPC.cbl:70
FLG-CARDSTATUS-BLANKmeans WS-EDIT-CARDSTATUS-FLAG = ' 'COCRDUPC.cbl:72
FLG-CARDEXPMON-NOT-OKmeans WS-EDIT-CARDEXPMON-FLAG = '0'COCRDUPC.cbl:74
FLG-CARDEXPMON-BLANKmeans WS-EDIT-CARDEXPMON-FLAG = ' 'COCRDUPC.cbl:76
FLG-CARDEXPYEAR-NOT-OKmeans WS-EDIT-CARDEXPYEAR-FLAG = '0'COCRDUPC.cbl:78
FLG-CARDEXPYEAR-BLANKmeans WS-EDIT-CARDEXPYEAR-FLAG = ' 'COCRDUPC.cbl:80
PROMPT-FOR-CONFIRMATIONmeans WS-INFO-MSG = 'Changes validated.Press F5 to save'COCRDUPC.cbl:166
46 rules

0000-MAIN

WhenThenAt
  1. EIBCALEN IS EQUAL TO 0 OR (CDEMO-FROM-PROGRAM = LIT-MENUPGM AND NOT CDEMO-PGM-REENTER)
 INITIALIZE CARDDEMO-COMMAREA WS-THIS-PROGCOMMAREACOCRDUPC.cbl:391–392
  1. EIBCALEN IS EQUAL TO 0 OR (CDEMO-FROM-PROGRAM = LIT-MENUPGM AND NOT CDEMO-PGM-REENTER)
 SET CDEMO-PGM-ENTER TO TRUECOCRDUPC.cbl:393
  1. EIBCALEN IS EQUAL TO 0 OR (CDEMO-FROM-PROGRAM = LIT-MENUPGM AND NOT CDEMO-PGM-REENTER)
 SET CCUP-DETAILS-NOT-FETCHED TO TRUECOCRDUPC.cbl:394
  1. NOT (EIBCALEN IS EQUAL TO 0 OR (CDEMO-FROM-PROGRAM = LIT-MENUPGM AND NOT CDEMO-PGM-REENTER))
 MOVE DFHCOMMAREA (1:LENGTH OF CARDDEMO-COMMAREA) TO CARDDEMO-COMMAREACOCRDUPC.cbl:396–397
  1. NOT (EIBCALEN IS EQUAL TO 0 OR (CDEMO-FROM-PROGRAM = LIT-MENUPGM AND NOT CDEMO-PGM-REENTER))
 MOVE DFHCOMMAREA(LENGTH OF CARDDEMO-COMMAREA + 1: LENGTH OF WS-THIS-PROGCOMMAREA ) TO WS-THIS-PROGCOMMAREACOCRDUPC.cbl:398–400
  1. CCARD-AID-ENTER OR CCARD-AID-PFK03 OR (CCARD-AID-PFK05 AND CCUP-CHANGES-OK-NOT-CONFIRMED) OR (CCARD-AID-PFK12 AND NOT CCUP-DETAILS-NOT-FETCHED)
 SET PFK-VALID TO TRUECOCRDUPC.cbl:419
  1. PFK-INVALID
 SET CCARD-AID-ENTER TO TRUECOCRDUPC.cbl:423
  1. CCARD-AID-PFK03 | (CCUP-CHANGES-OKAYED-AND-DONE AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET) | (CCUP-CHANGES-FAILED AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET)
 SET CCARD-AID-PFK03 TO TRUECOCRDUPC.cbl:440
  1. CCARD-AID-PFK03 | (CCUP-CHANGES-OKAYED-AND-DONE AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET) | (CCUP-CHANGES-FAILED AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET)
  2. CDEMO-FROM-TRANID EQUAL LOW-VALUES OR CDEMO-FROM-TRANID EQUAL SPACES
 MOVE LIT-MENUTRANID TO CDEMO-TO-TRANIDCOCRDUPC.cbl:444
  1. CCARD-AID-PFK03 | (CCUP-CHANGES-OKAYED-AND-DONE AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET) | (CCUP-CHANGES-FAILED AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET)
  2. NOT (CDEMO-FROM-TRANID EQUAL LOW-VALUES OR CDEMO-FROM-TRANID EQUAL SPACES)
 MOVE CDEMO-FROM-TRANID TO CDEMO-TO-TRANIDCOCRDUPC.cbl:446
  1. CCARD-AID-PFK03 | (CCUP-CHANGES-OKAYED-AND-DONE AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET) | (CCUP-CHANGES-FAILED AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET)
  2. CDEMO-FROM-PROGRAM EQUAL LOW-VALUES OR CDEMO-FROM-PROGRAM EQUAL SPACES
 MOVE LIT-MENUPGM TO CDEMO-TO-PROGRAMCOCRDUPC.cbl:451
  1. CCARD-AID-PFK03 | (CCUP-CHANGES-OKAYED-AND-DONE AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET) | (CCUP-CHANGES-FAILED AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET)
  2. NOT (CDEMO-FROM-PROGRAM EQUAL LOW-VALUES OR CDEMO-FROM-PROGRAM EQUAL SPACES)
 MOVE CDEMO-FROM-PROGRAM TO CDEMO-TO-PROGRAMCOCRDUPC.cbl:453
  1. CCARD-AID-PFK03 | (CCUP-CHANGES-OKAYED-AND-DONE AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET) | (CCUP-CHANGES-FAILED AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET)
 MOVE LIT-THISTRANID TO CDEMO-FROM-TRANIDCOCRDUPC.cbl:456
  1. CCARD-AID-PFK03 | (CCUP-CHANGES-OKAYED-AND-DONE AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET) | (CCUP-CHANGES-FAILED AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET)
 MOVE LIT-THISPGM TO CDEMO-FROM-PROGRAMCOCRDUPC.cbl:457
  1. CCARD-AID-PFK03 | (CCUP-CHANGES-OKAYED-AND-DONE AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET) | (CCUP-CHANGES-FAILED AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET)
  2. CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET
 MOVE ZEROS TO CDEMO-ACCT-ID CDEMO-CARD-NUMCOCRDUPC.cbl:460–461
  1. CCARD-AID-PFK03 | (CCUP-CHANGES-OKAYED-AND-DONE AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET) | (CCUP-CHANGES-FAILED AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET)
 SET CDEMO-USRTYP-USER TO TRUECOCRDUPC.cbl:464
  1. CCARD-AID-PFK03 | (CCUP-CHANGES-OKAYED-AND-DONE AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET) | (CCUP-CHANGES-FAILED AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET)
 SET CDEMO-PGM-ENTER TO TRUECOCRDUPC.cbl:465
  1. CCARD-AID-PFK03 | (CCUP-CHANGES-OKAYED-AND-DONE AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET) | (CCUP-CHANGES-FAILED AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET)
 MOVE LIT-THISMAPSET TO CDEMO-LAST-MAPSETCOCRDUPC.cbl:466
  1. CCARD-AID-PFK03 | (CCUP-CHANGES-OKAYED-AND-DONE AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET) | (CCUP-CHANGES-FAILED AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET)
 MOVE LIT-THISMAP TO CDEMO-LAST-MAPCOCRDUPC.cbl:467
  1. CCARD-AID-PFK03 | (CCUP-CHANGES-OKAYED-AND-DONE AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET) | (CCUP-CHANGES-FAILED AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET)
 EXEC CICS SYNCPOINT END-EXECCOCRDUPC.cbl:469–471
  1. CCARD-AID-PFK03 | (CCUP-CHANGES-OKAYED-AND-DONE AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET) | (CCUP-CHANGES-FAILED AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET)
 EXEC CICS XCTL PROGRAM (CDEMO-TO-PROGRAM) COMMAREA(CARDDEMO-COMMAREA) END-EXECCOCRDUPC.cbl:473–476
  1. CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM | CCARD-AID-PFK12 AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM
 SET CDEMO-PGM-REENTER TO TRUECOCRDUPC.cbl:486
  1. CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM | CCARD-AID-PFK12 AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM
 SET INPUT-OK TO TRUECOCRDUPC.cbl:487
  1. CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM | CCARD-AID-PFK12 AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM
 SET FLG-ACCTFILTER-ISVALID TO TRUECOCRDUPC.cbl:488
  1. CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM | CCARD-AID-PFK12 AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM
 SET FLG-CARDFILTER-ISVALID TO TRUECOCRDUPC.cbl:489
  1. CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM | CCARD-AID-PFK12 AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM
 MOVE CDEMO-ACCT-ID TO CC-ACCT-ID-NCOCRDUPC.cbl:490
  1. CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM | CCARD-AID-PFK12 AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM
 MOVE CDEMO-CARD-NUM TO CC-CARD-NUM-NCOCRDUPC.cbl:491
  1. CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM | CCARD-AID-PFK12 AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM
 PERFORM 9000-READ-DATA THRU 9000-READ-DATA-EXITCOCRDUPC.cbl:492–493
  1. CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM | CCARD-AID-PFK12 AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM
 SET CCUP-SHOW-DETAILS TO TRUECOCRDUPC.cbl:494
  1. CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM | CCARD-AID-PFK12 AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM
 PERFORM 3000-SEND-MAP THRU 3000-SEND-MAP-EXITCOCRDUPC.cbl:495–496
  1. CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM | CCARD-AID-PFK12 AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM
 GO TO COMMON-RETURNCOCRDUPC.cbl:497
  1. CCUP-DETAILS-NOT-FETCHED AND CDEMO-PGM-ENTER | CDEMO-FROM-PROGRAM EQUAL LIT-MENUPGM AND NOT CDEMO-PGM-REENTER
 INITIALIZE WS-THIS-PROGCOMMAREACOCRDUPC.cbl:506
  1. CCUP-DETAILS-NOT-FETCHED AND CDEMO-PGM-ENTER | CDEMO-FROM-PROGRAM EQUAL LIT-MENUPGM AND NOT CDEMO-PGM-REENTER
 PERFORM 3000-SEND-MAP THRU 3000-SEND-MAP-EXITCOCRDUPC.cbl:507–508
  1. CCUP-DETAILS-NOT-FETCHED AND CDEMO-PGM-ENTER | CDEMO-FROM-PROGRAM EQUAL LIT-MENUPGM AND NOT CDEMO-PGM-REENTER
 SET CDEMO-PGM-REENTER TO TRUECOCRDUPC.cbl:509
  1. CCUP-DETAILS-NOT-FETCHED AND CDEMO-PGM-ENTER | CDEMO-FROM-PROGRAM EQUAL LIT-MENUPGM AND NOT CDEMO-PGM-REENTER
 SET CCUP-DETAILS-NOT-FETCHED TO TRUECOCRDUPC.cbl:510
  1. CCUP-DETAILS-NOT-FETCHED AND CDEMO-PGM-ENTER | CDEMO-FROM-PROGRAM EQUAL LIT-MENUPGM AND NOT CDEMO-PGM-REENTER
 GO TO COMMON-RETURNCOCRDUPC.cbl:511
  1. CCUP-CHANGES-OKAYED-AND-DONE | CCUP-CHANGES-FAILED
 INITIALIZE WS-THIS-PROGCOMMAREA WS-MISC-STORAGE CDEMO-ACCT-ID CDEMO-CARD-NUMCOCRDUPC.cbl:519–522
  1. CCUP-CHANGES-OKAYED-AND-DONE | CCUP-CHANGES-FAILED
 SET CDEMO-PGM-ENTER TO TRUECOCRDUPC.cbl:523
  1. CCUP-CHANGES-OKAYED-AND-DONE | CCUP-CHANGES-FAILED
 PERFORM 3000-SEND-MAP THRU 3000-SEND-MAP-EXITCOCRDUPC.cbl:524–525
  1. CCUP-CHANGES-OKAYED-AND-DONE | CCUP-CHANGES-FAILED
 SET CDEMO-PGM-REENTER TO TRUECOCRDUPC.cbl:526
  1. CCUP-CHANGES-OKAYED-AND-DONE | CCUP-CHANGES-FAILED
 SET CCUP-DETAILS-NOT-FETCHED TO TRUECOCRDUPC.cbl:527
  1. CCUP-CHANGES-OKAYED-AND-DONE | CCUP-CHANGES-FAILED
 GO TO COMMON-RETURNCOCRDUPC.cbl:528
  1. TRUE is none of [CCARD-AID-PFK03; (CCUP-CHANGES-OKAYED-AND-DONE AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET); (CCUP-CHANGES-FAILED AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET); CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM; CCARD-AID-PFK12 AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM; CCUP-DETAILS-NOT-FETCHED AND CDEMO-PGM-ENTER; CDEMO-FROM-PROGRAM EQUAL LIT-MENUPGM AND NOT CDEMO-PGM-REENTER; CCUP-CHANGES-OKAYED-AND-DONE; CCUP-CHANGES-FAILED]
 PERFORM 1000-PROCESS-INPUTS THRU 1000-PROCESS-INPUTS-EXITCOCRDUPC.cbl:536–537
  1. TRUE is none of [CCARD-AID-PFK03; (CCUP-CHANGES-OKAYED-AND-DONE AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET); (CCUP-CHANGES-FAILED AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET); CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM; CCARD-AID-PFK12 AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM; CCUP-DETAILS-NOT-FETCHED AND CDEMO-PGM-ENTER; CDEMO-FROM-PROGRAM EQUAL LIT-MENUPGM AND NOT CDEMO-PGM-REENTER; CCUP-CHANGES-OKAYED-AND-DONE; CCUP-CHANGES-FAILED]
 PERFORM 2000-DECIDE-ACTION THRU 2000-DECIDE-ACTION-EXITCOCRDUPC.cbl:538–539
  1. TRUE is none of [CCARD-AID-PFK03; (CCUP-CHANGES-OKAYED-AND-DONE AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET); (CCUP-CHANGES-FAILED AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET); CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM; CCARD-AID-PFK12 AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM; CCUP-DETAILS-NOT-FETCHED AND CDEMO-PGM-ENTER; CDEMO-FROM-PROGRAM EQUAL LIT-MENUPGM AND NOT CDEMO-PGM-REENTER; CCUP-CHANGES-OKAYED-AND-DONE; CCUP-CHANGES-FAILED]
 PERFORM 3000-SEND-MAP THRU 3000-SEND-MAP-EXITCOCRDUPC.cbl:540–541
  1. TRUE is none of [CCARD-AID-PFK03; (CCUP-CHANGES-OKAYED-AND-DONE AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET); (CCUP-CHANGES-FAILED AND CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET); CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM; CCARD-AID-PFK12 AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM; CCUP-DETAILS-NOT-FETCHED AND CDEMO-PGM-ENTER; CDEMO-FROM-PROGRAM EQUAL LIT-MENUPGM AND NOT CDEMO-PGM-REENTER; CCUP-CHANGES-OKAYED-AND-DONE; CCUP-CHANGES-FAILED]
 GO TO COMMON-RETURNCOCRDUPC.cbl:542
12 rules

1100-RECEIVE-MAP

WhenThenAt
  1. ACCTSIDI OF CCRDUPAI = '*' OR ACCTSIDI OF CCRDUPAI = SPACES
 MOVE LOW-VALUES TO CC-ACCT-ID CCUP-NEW-ACCTIDCOCRDUPC.cbl:591–592
  1. NOT (ACCTSIDI OF CCRDUPAI = '*' OR ACCTSIDI OF CCRDUPAI = SPACES)
 MOVE ACCTSIDI OF CCRDUPAI TO CC-ACCT-ID CCUP-NEW-ACCTIDCOCRDUPC.cbl:594–595
  1. CARDSIDI OF CCRDUPAI = '*' OR CARDSIDI OF CCRDUPAI = SPACES
 MOVE LOW-VALUES TO CC-CARD-NUM CCUP-NEW-CARDIDCOCRDUPC.cbl:600–601
  1. NOT (CARDSIDI OF CCRDUPAI = '*' OR CARDSIDI OF CCRDUPAI = SPACES)
 MOVE CARDSIDI OF CCRDUPAI TO CC-CARD-NUM CCUP-NEW-CARDIDCOCRDUPC.cbl:603–604
  1. CRDNAMEI OF CCRDUPAI = '*' OR CRDNAMEI OF CCRDUPAI = SPACES
 MOVE LOW-VALUES TO CCUP-NEW-CRDNAMECOCRDUPC.cbl:609
  1. NOT (CRDNAMEI OF CCRDUPAI = '*' OR CRDNAMEI OF CCRDUPAI = SPACES)
 MOVE CRDNAMEI OF CCRDUPAI TO CCUP-NEW-CRDNAMECOCRDUPC.cbl:611
  1. CRDSTCDI OF CCRDUPAI = '*' OR CRDSTCDI OF CCRDUPAI = SPACES
 MOVE LOW-VALUES TO CCUP-NEW-CRDSTCDCOCRDUPC.cbl:616
  1. NOT (CRDSTCDI OF CCRDUPAI = '*' OR CRDSTCDI OF CCRDUPAI = SPACES)
 MOVE CRDSTCDI OF CCRDUPAI TO CCUP-NEW-CRDSTCDCOCRDUPC.cbl:618
  1. EXPMONI OF CCRDUPAI = '*' OR EXPMONI OF CCRDUPAI = SPACES
 MOVE LOW-VALUES TO CCUP-NEW-EXPMONCOCRDUPC.cbl:625
  1. NOT (EXPMONI OF CCRDUPAI = '*' OR EXPMONI OF CCRDUPAI = SPACES)
 MOVE EXPMONI OF CCRDUPAI TO CCUP-NEW-EXPMONCOCRDUPC.cbl:627
  1. EXPYEARI OF CCRDUPAI = '*' OR EXPYEARI OF CCRDUPAI = SPACES
 MOVE LOW-VALUES TO CCUP-NEW-EXPYEARCOCRDUPC.cbl:632
  1. NOT (EXPYEARI OF CCRDUPAI = '*' OR EXPYEARI OF CCRDUPAI = SPACES)
 MOVE EXPYEARI OF CCRDUPAI TO CCUP-NEW-EXPYEARCOCRDUPC.cbl:634
12 rules

1200-EDIT-MAP-INPUTS

WhenThenAt
  1. CCUP-DETAILS-NOT-FETCHED
 PERFORM 1210-EDIT-ACCOUNT THRU 1210-EDIT-ACCOUNT-EXITCOCRDUPC.cbl:647–648
  1. CCUP-DETAILS-NOT-FETCHED
 PERFORM 1220-EDIT-CARD THRU 1220-EDIT-CARD-EXITCOCRDUPC.cbl:650–651
  1. CCUP-DETAILS-NOT-FETCHED
 MOVE LOW-VALUES TO CCUP-NEW-CARDDATACOCRDUPC.cbl:653
  1. CCUP-DETAILS-NOT-FETCHED
  2. FLG-ACCTFILTER-BLANK AND FLG-CARDFILTER-BLANK
 SET NO-SEARCH-CRITERIA-RECEIVED TO TRUECOCRDUPC.cbl:658
  1. CCUP-DETAILS-NOT-FETCHED
 GO TO 1200-EDIT-MAP-INPUTS-EXITCOCRDUPC.cbl:661
  1. (FUNCTION UPPER-CASE(CCUP-NEW-CARDDATA) EQUAL FUNCTION UPPER-CASE(CCUP-OLD-CARDDATA))
 SET NO-CHANGES-DETECTED TO TRUECOCRDUPC.cbl:682
  1. NO-CHANGES-DETECTED OR CCUP-CHANGES-OK-NOT-CONFIRMED OR CCUP-CHANGES-OKAYED-AND-DONE
 SET FLG-CARDNAME-ISVALID TO TRUECOCRDUPC.cbl:688
  1. NO-CHANGES-DETECTED OR CCUP-CHANGES-OK-NOT-CONFIRMED OR CCUP-CHANGES-OKAYED-AND-DONE
 SET FLG-CARDSTATUS-ISVALID TO TRUECOCRDUPC.cbl:689
  1. NO-CHANGES-DETECTED OR CCUP-CHANGES-OK-NOT-CONFIRMED OR CCUP-CHANGES-OKAYED-AND-DONE
 SET FLG-CARDEXPMON-ISVALID TO TRUECOCRDUPC.cbl:690
  1. NO-CHANGES-DETECTED OR CCUP-CHANGES-OK-NOT-CONFIRMED OR CCUP-CHANGES-OKAYED-AND-DONE
 SET FLG-CARDEXPYEAR-ISVALID TO TRUECOCRDUPC.cbl:691
  1. NO-CHANGES-DETECTED OR CCUP-CHANGES-OK-NOT-CONFIRMED OR CCUP-CHANGES-OKAYED-AND-DONE
 GO TO 1200-EDIT-MAP-INPUTS-EXITCOCRDUPC.cbl:692
  1. NOT (INPUT-ERROR)
 SET CCUP-CHANGES-OK-NOT-CONFIRMED TO TRUECOCRDUPC.cbl:713
14 rules

1210-EDIT-ACCOUNT

WhenThenAt
  1. CC-ACCT-ID EQUAL LOW-VALUES OR CC-ACCT-ID EQUAL SPACES OR CC-ACCT-ID-N EQUAL ZEROS
 SET INPUT-ERROR TO TRUECOCRDUPC.cbl:728
  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 TRUECOCRDUPC.cbl:729
  1. CC-ACCT-ID EQUAL LOW-VALUES OR CC-ACCT-ID EQUAL SPACES OR CC-ACCT-ID-N EQUAL ZEROS
  2. WS-RETURN-MSG-OFF
 SET WS-PROMPT-FOR-ACCT TO TRUECOCRDUPC.cbl:731
  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-IDCOCRDUPC.cbl:733
  1. CC-ACCT-ID EQUAL LOW-VALUES OR CC-ACCT-ID EQUAL SPACES OR CC-ACCT-ID-N EQUAL ZEROS
 MOVE LOW-VALUES TO CCUP-NEW-ACCTIDCOCRDUPC.cbl:734
  1. CC-ACCT-ID EQUAL LOW-VALUES OR CC-ACCT-ID EQUAL SPACES OR CC-ACCT-ID-N EQUAL ZEROS
 GO TO 1210-EDIT-ACCOUNT-EXITCOCRDUPC.cbl:735
  1. CC-ACCT-ID IS NOT NUMERIC
 SET INPUT-ERROR TO TRUECOCRDUPC.cbl:741
  1. CC-ACCT-ID IS NOT NUMERIC
 SET FLG-ACCTFILTER-NOT-OK TO TRUECOCRDUPC.cbl:742
  1. CC-ACCT-ID IS NOT NUMERIC
  2. WS-RETURN-MSG-OFF
 MOVE 'ACCOUNT FILTER,IF SUPPLIED MUST BE A 11 DIGIT NUMBER' TO WS-RETURN-MSGCOCRDUPC.cbl:744–746
  1. CC-ACCT-ID IS NOT NUMERIC
 MOVE ZERO TO CDEMO-ACCT-IDCOCRDUPC.cbl:748
  1. CC-ACCT-ID IS NOT NUMERIC
 MOVE LOW-VALUES TO CCUP-NEW-ACCTIDCOCRDUPC.cbl:749
  1. CC-ACCT-ID IS NOT NUMERIC
 GO TO 1210-EDIT-ACCOUNT-EXITCOCRDUPC.cbl:750
  1. NOT (CC-ACCT-ID IS NOT NUMERIC)
 MOVE CC-ACCT-ID TO CDEMO-ACCT-ID CCUP-NEW-ACCTIDCOCRDUPC.cbl:752–753
  1. NOT (CC-ACCT-ID IS NOT NUMERIC)
 SET FLG-ACCTFILTER-ISVALID TO TRUECOCRDUPC.cbl:754
14 rules

1220-EDIT-CARD

WhenThenAt
  1. CC-CARD-NUM EQUAL LOW-VALUES OR CC-CARD-NUM EQUAL SPACES OR CC-CARD-NUM-N EQUAL ZEROS
 SET INPUT-ERROR TO TRUECOCRDUPC.cbl:771
  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 TRUECOCRDUPC.cbl:772
  1. CC-CARD-NUM EQUAL LOW-VALUES OR CC-CARD-NUM EQUAL SPACES OR CC-CARD-NUM-N EQUAL ZEROS
  2. WS-RETURN-MSG-OFF
 SET WS-PROMPT-FOR-CARD TO TRUECOCRDUPC.cbl:774
  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-NUM CCUP-NEW-CARDIDCOCRDUPC.cbl:777–778
  1. CC-CARD-NUM EQUAL LOW-VALUES OR CC-CARD-NUM EQUAL SPACES OR CC-CARD-NUM-N EQUAL ZEROS
 GO TO 1220-EDIT-CARD-EXITCOCRDUPC.cbl:779
  1. CC-CARD-NUM IS NOT NUMERIC
 SET INPUT-ERROR TO TRUECOCRDUPC.cbl:785
  1. CC-CARD-NUM IS NOT NUMERIC
 SET FLG-CARDFILTER-NOT-OK TO TRUECOCRDUPC.cbl:786
  1. CC-CARD-NUM IS NOT NUMERIC
  2. WS-RETURN-MSG-OFF
 MOVE 'CARD ID FILTER,IF SUPPLIED MUST BE A 16 DIGIT NUMBER' TO WS-RETURN-MSGCOCRDUPC.cbl:788–790
  1. CC-CARD-NUM IS NOT NUMERIC
 MOVE ZERO TO CDEMO-CARD-NUMCOCRDUPC.cbl:792
  1. CC-CARD-NUM IS NOT NUMERIC
 MOVE LOW-VALUES TO CCUP-NEW-CARDIDCOCRDUPC.cbl:793
  1. CC-CARD-NUM IS NOT NUMERIC
 GO TO 1220-EDIT-CARD-EXITCOCRDUPC.cbl:794
  1. NOT (CC-CARD-NUM IS NOT NUMERIC)
 MOVE CC-CARD-NUM-N TO CDEMO-CARD-NUMCOCRDUPC.cbl:796
  1. NOT (CC-CARD-NUM IS NOT NUMERIC)
 MOVE CC-CARD-NUM TO CCUP-NEW-CARDIDCOCRDUPC.cbl:797
  1. NOT (CC-CARD-NUM IS NOT NUMERIC)
 SET FLG-CARDFILTER-ISVALID TO TRUECOCRDUPC.cbl:798
8 rules

1230-EDIT-NAME

WhenThenAt
  1. CCUP-NEW-CRDNAME EQUAL LOW-VALUES OR CCUP-NEW-CRDNAME EQUAL SPACES OR CCUP-NEW-CRDNAME EQUAL ZEROS
 SET INPUT-ERROR TO TRUECOCRDUPC.cbl:814
  1. CCUP-NEW-CRDNAME EQUAL LOW-VALUES OR CCUP-NEW-CRDNAME EQUAL SPACES OR CCUP-NEW-CRDNAME EQUAL ZEROS
 SET FLG-CARDNAME-BLANK TO TRUECOCRDUPC.cbl:815
  1. CCUP-NEW-CRDNAME EQUAL LOW-VALUES OR CCUP-NEW-CRDNAME EQUAL SPACES OR CCUP-NEW-CRDNAME EQUAL ZEROS
  2. WS-RETURN-MSG-OFF
 SET WS-PROMPT-FOR-NAME TO TRUECOCRDUPC.cbl:817
  1. CCUP-NEW-CRDNAME EQUAL LOW-VALUES OR CCUP-NEW-CRDNAME EQUAL SPACES OR CCUP-NEW-CRDNAME EQUAL ZEROS
 GO TO 1230-EDIT-NAME-EXITCOCRDUPC.cbl:819
  1. NOT (FUNCTION LENGTH(FUNCTION TRIM(CARD-NAME-CHECK)) = 0)
 SET INPUT-ERROR TO TRUECOCRDUPC.cbl:831
  1. NOT (FUNCTION LENGTH(FUNCTION TRIM(CARD-NAME-CHECK)) = 0)
 SET FLG-CARDNAME-NOT-OK TO TRUECOCRDUPC.cbl:832
  1. NOT (FUNCTION LENGTH(FUNCTION TRIM(CARD-NAME-CHECK)) = 0)
  2. WS-RETURN-MSG-OFF
 SET WS-NAME-MUST-BE-ALPHA TO TRUECOCRDUPC.cbl:834
  1. NOT (FUNCTION LENGTH(FUNCTION TRIM(CARD-NAME-CHECK)) = 0)
 GO TO 1230-EDIT-NAME-EXITCOCRDUPC.cbl:836
9 rules

1240-EDIT-CARDSTATUS

WhenThenAt
  1. CCUP-NEW-CRDSTCD EQUAL LOW-VALUES OR CCUP-NEW-CRDSTCD EQUAL SPACES OR CCUP-NEW-CRDSTCD EQUAL ZEROS
 SET INPUT-ERROR TO TRUECOCRDUPC.cbl:853
  1. CCUP-NEW-CRDSTCD EQUAL LOW-VALUES OR CCUP-NEW-CRDSTCD EQUAL SPACES OR CCUP-NEW-CRDSTCD EQUAL ZEROS
 SET FLG-CARDSTATUS-BLANK TO TRUECOCRDUPC.cbl:854
  1. CCUP-NEW-CRDSTCD EQUAL LOW-VALUES OR CCUP-NEW-CRDSTCD EQUAL SPACES OR CCUP-NEW-CRDSTCD EQUAL ZEROS
  2. WS-RETURN-MSG-OFF
 SET CARD-STATUS-MUST-BE-YES-NO TO TRUECOCRDUPC.cbl:856
  1. CCUP-NEW-CRDSTCD EQUAL LOW-VALUES OR CCUP-NEW-CRDSTCD EQUAL SPACES OR CCUP-NEW-CRDSTCD EQUAL ZEROS
 GO TO 1240-EDIT-CARDSTATUS-EXITCOCRDUPC.cbl:858
  1. FLG-YES-NO-VALID
 SET FLG-CARDSTATUS-ISVALID TO TRUECOCRDUPC.cbl:864
  1. NOT (FLG-YES-NO-VALID)
 SET INPUT-ERROR TO TRUECOCRDUPC.cbl:866
  1. NOT (FLG-YES-NO-VALID)
 SET FLG-CARDSTATUS-NOT-OK TO TRUECOCRDUPC.cbl:867
  1. NOT (FLG-YES-NO-VALID)
  2. WS-RETURN-MSG-OFF
 SET CARD-STATUS-MUST-BE-YES-NO TO TRUECOCRDUPC.cbl:869
  1. NOT (FLG-YES-NO-VALID)
 GO TO 1240-EDIT-CARDSTATUS-EXITCOCRDUPC.cbl:871
9 rules

1250-EDIT-EXPIRY-MON

WhenThenAt
  1. CCUP-NEW-EXPMON EQUAL LOW-VALUES OR CCUP-NEW-EXPMON EQUAL SPACES OR CCUP-NEW-EXPMON EQUAL ZEROS
 SET INPUT-ERROR TO TRUECOCRDUPC.cbl:886
  1. CCUP-NEW-EXPMON EQUAL LOW-VALUES OR CCUP-NEW-EXPMON EQUAL SPACES OR CCUP-NEW-EXPMON EQUAL ZEROS
 SET FLG-CARDEXPMON-BLANK TO TRUECOCRDUPC.cbl:887
  1. CCUP-NEW-EXPMON EQUAL LOW-VALUES OR CCUP-NEW-EXPMON EQUAL SPACES OR CCUP-NEW-EXPMON EQUAL ZEROS
  2. WS-RETURN-MSG-OFF
 SET CARD-EXPIRY-MONTH-NOT-VALID TO TRUECOCRDUPC.cbl:889
  1. CCUP-NEW-EXPMON EQUAL LOW-VALUES OR CCUP-NEW-EXPMON EQUAL SPACES OR CCUP-NEW-EXPMON EQUAL ZEROS
 GO TO 1250-EDIT-EXPIRY-MON-EXITCOCRDUPC.cbl:891
  1. VALID-MONTH
 SET FLG-CARDEXPMON-ISVALID TO TRUECOCRDUPC.cbl:899
  1. NOT (VALID-MONTH)
 SET INPUT-ERROR TO TRUECOCRDUPC.cbl:901
  1. NOT (VALID-MONTH)
 SET FLG-CARDEXPMON-NOT-OK TO TRUECOCRDUPC.cbl:902
  1. NOT (VALID-MONTH)
  2. WS-RETURN-MSG-OFF
 SET CARD-EXPIRY-MONTH-NOT-VALID TO TRUECOCRDUPC.cbl:904
  1. NOT (VALID-MONTH)
 GO TO 1250-EDIT-EXPIRY-MON-EXITCOCRDUPC.cbl:906
9 rules

1260-EDIT-EXPIRY-YEAR

WhenThenAt
  1. CCUP-NEW-EXPYEAR EQUAL LOW-VALUES OR CCUP-NEW-EXPYEAR EQUAL SPACES OR CCUP-NEW-EXPYEAR EQUAL ZEROS
 SET INPUT-ERROR TO TRUECOCRDUPC.cbl:919
  1. CCUP-NEW-EXPYEAR EQUAL LOW-VALUES OR CCUP-NEW-EXPYEAR EQUAL SPACES OR CCUP-NEW-EXPYEAR EQUAL ZEROS
 SET FLG-CARDEXPYEAR-BLANK TO TRUECOCRDUPC.cbl:920
  1. CCUP-NEW-EXPYEAR EQUAL LOW-VALUES OR CCUP-NEW-EXPYEAR EQUAL SPACES OR CCUP-NEW-EXPYEAR EQUAL ZEROS
  2. WS-RETURN-MSG-OFF
 SET CARD-EXPIRY-YEAR-NOT-VALID TO TRUECOCRDUPC.cbl:922
  1. CCUP-NEW-EXPYEAR EQUAL LOW-VALUES OR CCUP-NEW-EXPYEAR EQUAL SPACES OR CCUP-NEW-EXPYEAR EQUAL ZEROS
 GO TO 1260-EDIT-EXPIRY-YEAR-EXITCOCRDUPC.cbl:924
  1. VALID-YEAR
 SET FLG-CARDEXPYEAR-ISVALID TO TRUECOCRDUPC.cbl:935
  1. NOT (VALID-YEAR)
 SET INPUT-ERROR TO TRUECOCRDUPC.cbl:937
  1. NOT (VALID-YEAR)
 SET FLG-CARDEXPYEAR-NOT-OK TO TRUECOCRDUPC.cbl:938
  1. NOT (VALID-YEAR)
  2. WS-RETURN-MSG-OFF
 SET CARD-EXPIRY-YEAR-NOT-VALID TO TRUECOCRDUPC.cbl:940
  1. NOT (VALID-YEAR)
 GO TO 1260-EDIT-EXPIRY-YEAR-EXITCOCRDUPC.cbl:942
16 rules

2000-DECIDE-ACTION

WhenThenAt
  1. CCUP-DETAILS-NOT-FETCHED | CCARD-AID-PFK12
  2. FLG-ACCTFILTER-ISVALID AND FLG-CARDFILTER-ISVALID
 PERFORM 9000-READ-DATA THRU 9000-READ-DATA-EXITCOCRDUPC.cbl:961–962
  1. CCUP-DETAILS-NOT-FETCHED | CCARD-AID-PFK12
  2. FLG-ACCTFILTER-ISVALID AND FLG-CARDFILTER-ISVALID
  3. FOUND-CARDS-FOR-ACCOUNT
 SET CCUP-SHOW-DETAILS TO TRUECOCRDUPC.cbl:964
  1. CCUP-SHOW-DETAILS
  2. NOT (INPUT-ERROR OR NO-CHANGES-DETECTED)
 SET CCUP-CHANGES-OK-NOT-CONFIRMED TO TRUECOCRDUPC.cbl:976
  1. CCUP-CHANGES-OK-NOT-CONFIRMED AND CCARD-AID-PFK05
 PERFORM 9200-WRITE-PROCESSING THRU 9200-WRITE-PROCESSING-EXITCOCRDUPC.cbl:990–991
  1. CCUP-CHANGES-OK-NOT-CONFIRMED AND CCARD-AID-PFK05
  2. COULD-NOT-LOCK-FOR-UPDATE
 SET CCUP-CHANGES-OKAYED-LOCK-ERROR TO TRUECOCRDUPC.cbl:994
  1. CCUP-CHANGES-OK-NOT-CONFIRMED AND CCARD-AID-PFK05
  2. LOCKED-BUT-UPDATE-FAILED
 SET CCUP-CHANGES-OKAYED-BUT-FAILED TO TRUECOCRDUPC.cbl:996
  1. CCUP-CHANGES-OK-NOT-CONFIRMED AND CCARD-AID-PFK05
  2. DATA-WAS-CHANGED-BEFORE-UPDATE
 SET CCUP-SHOW-DETAILS TO TRUECOCRDUPC.cbl:998
  1. CCUP-CHANGES-OK-NOT-CONFIRMED AND CCARD-AID-PFK05
  2. TRUE is none of [COULD-NOT-LOCK-FOR-UPDATE; LOCKED-BUT-UPDATE-FAILED; DATA-WAS-CHANGED-BEFORE-UPDATE]
 SET CCUP-CHANGES-OKAYED-AND-DONE TO TRUECOCRDUPC.cbl:1000
  1. CCUP-CHANGES-OKAYED-AND-DONE
 SET CCUP-SHOW-DETAILS TO TRUECOCRDUPC.cbl:1012
  1. CCUP-CHANGES-OKAYED-AND-DONE
  2. CDEMO-FROM-TRANID EQUAL LOW-VALUES OR CDEMO-FROM-TRANID EQUAL SPACES
 MOVE ZEROES TO CDEMO-ACCT-ID CDEMO-CARD-NUMCOCRDUPC.cbl:1015–1016
  1. CCUP-CHANGES-OKAYED-AND-DONE
  2. CDEMO-FROM-TRANID EQUAL LOW-VALUES OR CDEMO-FROM-TRANID EQUAL SPACES
 MOVE LOW-VALUES TO CDEMO-ACCT-STATUSCOCRDUPC.cbl:1017
  1. TRUE is none of [CCUP-DETAILS-NOT-FETCHED; CCARD-AID-PFK12; CCUP-SHOW-DETAILS; CCUP-CHANGES-NOT-OK; CCUP-CHANGES-OK-NOT-CONFIRMED AND CCARD-AID-PFK05; CCUP-CHANGES-OK-NOT-CONFIRMED; CCUP-CHANGES-OKAYED-AND-DONE]
 MOVE LIT-THISPGM TO ABEND-CULPRITCOCRDUPC.cbl:1020
  1. TRUE is none of [CCUP-DETAILS-NOT-FETCHED; CCARD-AID-PFK12; CCUP-SHOW-DETAILS; CCUP-CHANGES-NOT-OK; CCUP-CHANGES-OK-NOT-CONFIRMED AND CCARD-AID-PFK05; CCUP-CHANGES-OK-NOT-CONFIRMED; CCUP-CHANGES-OKAYED-AND-DONE]
 MOVE '0001' TO ABEND-CODECOCRDUPC.cbl:1021
  1. TRUE is none of [CCUP-DETAILS-NOT-FETCHED; CCARD-AID-PFK12; CCUP-SHOW-DETAILS; CCUP-CHANGES-NOT-OK; CCUP-CHANGES-OK-NOT-CONFIRMED AND CCARD-AID-PFK05; CCUP-CHANGES-OK-NOT-CONFIRMED; CCUP-CHANGES-OKAYED-AND-DONE]
 MOVE SPACES TO ABEND-REASONCOCRDUPC.cbl:1022
  1. TRUE is none of [CCUP-DETAILS-NOT-FETCHED; CCARD-AID-PFK12; CCUP-SHOW-DETAILS; CCUP-CHANGES-NOT-OK; CCUP-CHANGES-OK-NOT-CONFIRMED AND CCARD-AID-PFK05; CCUP-CHANGES-OK-NOT-CONFIRMED; CCUP-CHANGES-OKAYED-AND-DONE]
 MOVE 'UNEXPECTED DATA SCENARIO' TO ABEND-MSGCOCRDUPC.cbl:1023–1024
  1. TRUE is none of [CCUP-DETAILS-NOT-FETCHED; CCARD-AID-PFK12; CCUP-SHOW-DETAILS; CCUP-CHANGES-NOT-OK; CCUP-CHANGES-OK-NOT-CONFIRMED AND CCARD-AID-PFK05; CCUP-CHANGES-OK-NOT-CONFIRMED; CCUP-CHANGES-OKAYED-AND-DONE]
 PERFORM ABEND-ROUTINE THRU ABEND-ROUTINE-EXITCOCRDUPC.cbl:1025–1026
20 rules

3200-SETUP-SCREEN-VARS

WhenThenAt
  1. NOT (CDEMO-PGM-ENTER)
  2. CC-ACCT-ID-N = 0
 MOVE LOW-VALUES TO ACCTSIDO OF CCRDUPAOCOCRDUPC.cbl:1088
  1. NOT (CDEMO-PGM-ENTER)
  2. NOT (CC-ACCT-ID-N = 0)
 MOVE CC-ACCT-ID TO ACCTSIDO OF CCRDUPAOCOCRDUPC.cbl:1090
  1. NOT (CDEMO-PGM-ENTER)
  2. CC-CARD-NUM-N = 0
 MOVE LOW-VALUES TO CARDSIDO OF CCRDUPAOCOCRDUPC.cbl:1094
  1. NOT (CDEMO-PGM-ENTER)
  2. NOT (CC-CARD-NUM-N = 0)
 MOVE CC-CARD-NUM TO CARDSIDO OF CCRDUPAOCOCRDUPC.cbl:1096
  1. NOT (CDEMO-PGM-ENTER)
  2. CCUP-DETAILS-NOT-FETCHED
 MOVE LOW-VALUES TO CRDNAMEO OF CCRDUPAO CRDNAMEO OF CCRDUPAO CRDSTCDO OF CCRDUPAO EXPDAYO OF CCRDUPAO EXPMONO OF CCRDUPAO EXPYEARO OF CCRDUPAOCOCRDUPC.cbl:1101–1106
  1. NOT (CDEMO-PGM-ENTER)
  2. CCUP-SHOW-DETAILS
 MOVE CCUP-OLD-CRDNAME TO CRDNAMEO OF CCRDUPAOCOCRDUPC.cbl:1108
  1. NOT (CDEMO-PGM-ENTER)
  2. CCUP-SHOW-DETAILS
 MOVE CCUP-OLD-CRDSTCD TO CRDSTCDO OF CCRDUPAOCOCRDUPC.cbl:1109
  1. NOT (CDEMO-PGM-ENTER)
  2. CCUP-SHOW-DETAILS
 MOVE CCUP-OLD-EXPDAY TO EXPDAYO OF CCRDUPAOCOCRDUPC.cbl:1110
  1. NOT (CDEMO-PGM-ENTER)
  2. CCUP-SHOW-DETAILS
 MOVE CCUP-OLD-EXPMON TO EXPMONO OF CCRDUPAOCOCRDUPC.cbl:1111
  1. NOT (CDEMO-PGM-ENTER)
  2. CCUP-SHOW-DETAILS
 MOVE CCUP-OLD-EXPYEAR TO EXPYEARO OF CCRDUPAOCOCRDUPC.cbl:1112
  1. NOT (CDEMO-PGM-ENTER)
  2. CCUP-CHANGES-MADE
 MOVE CCUP-NEW-CRDNAME TO CRDNAMEO OF CCRDUPAOCOCRDUPC.cbl:1114
  1. NOT (CDEMO-PGM-ENTER)
  2. CCUP-CHANGES-MADE
 MOVE CCUP-NEW-CRDSTCD TO CRDSTCDO OF CCRDUPAOCOCRDUPC.cbl:1115
  1. NOT (CDEMO-PGM-ENTER)
  2. CCUP-CHANGES-MADE
 MOVE CCUP-NEW-EXPMON TO EXPMONO OF CCRDUPAOCOCRDUPC.cbl:1116
  1. NOT (CDEMO-PGM-ENTER)
  2. CCUP-CHANGES-MADE
 MOVE CCUP-NEW-EXPYEAR TO EXPYEARO OF CCRDUPAOCOCRDUPC.cbl:1117
  1. NOT (CDEMO-PGM-ENTER)
  2. CCUP-CHANGES-MADE
 MOVE CCUP-OLD-EXPDAY TO EXPDAYO OF CCRDUPAOCOCRDUPC.cbl:1123
  1. NOT (CDEMO-PGM-ENTER)
  2. TRUE is none of [CCUP-DETAILS-NOT-FETCHED; CCUP-SHOW-DETAILS; CCUP-CHANGES-MADE]
 MOVE CCUP-OLD-CRDNAME TO CRDNAMEO OF CCRDUPAOCOCRDUPC.cbl:1125
  1. NOT (CDEMO-PGM-ENTER)
  2. TRUE is none of [CCUP-DETAILS-NOT-FETCHED; CCUP-SHOW-DETAILS; CCUP-CHANGES-MADE]
 MOVE CCUP-OLD-CRDSTCD TO CRDSTCDO OF CCRDUPAOCOCRDUPC.cbl:1126
  1. NOT (CDEMO-PGM-ENTER)
  2. TRUE is none of [CCUP-DETAILS-NOT-FETCHED; CCUP-SHOW-DETAILS; CCUP-CHANGES-MADE]
 MOVE CCUP-OLD-EXPDAY TO EXPDAYO OF CCRDUPAOCOCRDUPC.cbl:1127
  1. NOT (CDEMO-PGM-ENTER)
  2. TRUE is none of [CCUP-DETAILS-NOT-FETCHED; CCUP-SHOW-DETAILS; CCUP-CHANGES-MADE]
 MOVE CCUP-OLD-EXPMON TO EXPMONO OF CCRDUPAOCOCRDUPC.cbl:1128
  1. NOT (CDEMO-PGM-ENTER)
  2. TRUE is none of [CCUP-DETAILS-NOT-FETCHED; CCUP-SHOW-DETAILS; CCUP-CHANGES-MADE]
 MOVE CCUP-OLD-EXPYEAR TO EXPYEARO OF CCRDUPAOCOCRDUPC.cbl:1129
9 rules

3250-SETUP-INFOMSG

WhenThenAt
  1. CDEMO-PGM-ENTER
 SET PROMPT-FOR-SEARCH-KEYS TO TRUECOCRDUPC.cbl:1142
  1. CCUP-DETAILS-NOT-FETCHED
 SET PROMPT-FOR-SEARCH-KEYS TO TRUECOCRDUPC.cbl:1144
  1. CCUP-SHOW-DETAILS
 SET FOUND-CARDS-FOR-ACCOUNT TO TRUECOCRDUPC.cbl:1146
  1. CCUP-CHANGES-NOT-OK
 SET PROMPT-FOR-CHANGES TO TRUECOCRDUPC.cbl:1148
  1. CCUP-CHANGES-OK-NOT-CONFIRMED
 SET PROMPT-FOR-CONFIRMATION TO TRUECOCRDUPC.cbl:1150
  1. CCUP-CHANGES-OKAYED-AND-DONE
 SET CONFIRM-UPDATE-SUCCESS TO TRUECOCRDUPC.cbl:1152
  1. CCUP-CHANGES-OKAYED-LOCK-ERROR
 SET INFORM-FAILURE TO TRUECOCRDUPC.cbl:1154
  1. CCUP-CHANGES-OKAYED-BUT-FAILED
 SET INFORM-FAILURE TO TRUECOCRDUPC.cbl:1156
  1. WS-NO-INFO-MESSAGE
 SET PROMPT-FOR-SEARCH-KEYS TO TRUECOCRDUPC.cbl:1158
38 rules

3300-SETUP-SCREEN-ATTRS

WhenThenAt
  1. CCUP-DETAILS-NOT-FETCHED
 MOVE DFHBMFSE TO ACCTSIDA OF CCRDUPAI CARDSIDA OF CCRDUPAICOCRDUPC.cbl:1174–1175
  1. CCUP-DETAILS-NOT-FETCHED
 MOVE DFHBMPRF TO CRDNAMEA OF CCRDUPAI CRDSTCDA OF CCRDUPAI EXPMONA OF CCRDUPAI EXPYEARA OF CCRDUPAICOCRDUPC.cbl:1176–1180
  1. CCUP-SHOW-DETAILS | CCUP-CHANGES-NOT-OK
 MOVE DFHBMPRF TO ACCTSIDA OF CCRDUPAI CARDSIDA OF CCRDUPAICOCRDUPC.cbl:1183–1184
  1. CCUP-SHOW-DETAILS | CCUP-CHANGES-NOT-OK
 MOVE DFHBMFSE TO CRDNAMEA OF CCRDUPAI CRDSTCDA OF CCRDUPAI EXPMONA OF CCRDUPAI EXPYEARA OF CCRDUPAICOCRDUPC.cbl:1186–1190
  1. CCUP-CHANGES-OK-NOT-CONFIRMED | CCUP-CHANGES-OKAYED-AND-DONE
 MOVE DFHBMPRF TO ACCTSIDA OF CCRDUPAI CARDSIDA OF CCRDUPAI CRDNAMEA OF CCRDUPAI CRDSTCDA OF CCRDUPAI EXPMONA OF CCRDUPAI EXPYEARA OF CCRDUPAICOCRDUPC.cbl:1193–1199
  1. TRUE is none of [CCUP-DETAILS-NOT-FETCHED; CCUP-SHOW-DETAILS; CCUP-CHANGES-NOT-OK; CCUP-CHANGES-OK-NOT-CONFIRMED; CCUP-CHANGES-OKAYED-AND-DONE]
 MOVE DFHBMFSE TO ACCTSIDA OF CCRDUPAI CARDSIDA OF CCRDUPAICOCRDUPC.cbl:1201–1202
  1. TRUE is none of [CCUP-DETAILS-NOT-FETCHED; CCUP-SHOW-DETAILS; CCUP-CHANGES-NOT-OK; CCUP-CHANGES-OK-NOT-CONFIRMED; CCUP-CHANGES-OKAYED-AND-DONE]
 MOVE DFHBMPRF TO CRDNAMEA OF CCRDUPAI CRDSTCDA OF CCRDUPAI EXPMONA OF CCRDUPAI EXPYEARA OF CCRDUPAICOCRDUPC.cbl:1203–1207
  1. FOUND-CARDS-FOR-ACCOUNT | NO-CHANGES-DETECTED
 MOVE -1 TO CRDNAMEL OF CCRDUPAICOCRDUPC.cbl:1214
  1. FLG-ACCTFILTER-NOT-OK | FLG-ACCTFILTER-BLANK
 MOVE -1 TO ACCTSIDL OF CCRDUPAICOCRDUPC.cbl:1217
  1. FLG-CARDFILTER-NOT-OK | FLG-CARDFILTER-BLANK
 MOVE -1 TO CARDSIDL OF CCRDUPAICOCRDUPC.cbl:1220
  1. FLG-CARDNAME-NOT-OK | FLG-CARDNAME-BLANK
 MOVE -1 TO CRDNAMEL OF CCRDUPAICOCRDUPC.cbl:1223
  1. FLG-CARDSTATUS-NOT-OK | FLG-CARDSTATUS-BLANK
 MOVE -1 TO CRDSTCDL OF CCRDUPAICOCRDUPC.cbl:1226
  1. FLG-CARDEXPMON-NOT-OK | FLG-CARDEXPMON-BLANK
 MOVE -1 TO EXPMONL OF CCRDUPAICOCRDUPC.cbl:1229
  1. FLG-CARDEXPYEAR-NOT-OK | FLG-CARDEXPYEAR-BLANK
 MOVE -1 TO EXPYEARL OF CCRDUPAICOCRDUPC.cbl:1232
  1. TRUE is none of [FOUND-CARDS-FOR-ACCOUNT; NO-CHANGES-DETECTED; FLG-ACCTFILTER-NOT-OK; FLG-ACCTFILTER-BLANK; FLG-CARDFILTER-NOT-OK; FLG-CARDFILTER-BLANK; FLG-CARDNAME-NOT-OK; FLG-CARDNAME-BLANK; FLG-CARDSTATUS-NOT-OK; FLG-CARDSTATUS-BLANK; FLG-CARDEXPMON-NOT-OK; FLG-CARDEXPMON-BLANK; FLG-CARDEXPYEAR-NOT-OK; FLG-CARDEXPYEAR-BLANK]
 MOVE -1 TO ACCTSIDL OF CCRDUPAICOCRDUPC.cbl:1234
  1. CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET
 MOVE DFHDFCOL TO ACCTSIDC OF CCRDUPAOCOCRDUPC.cbl:1239
  1. CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET
 MOVE DFHDFCOL TO CARDSIDC OF CCRDUPAOCOCRDUPC.cbl:1240
  1. FLG-ACCTFILTER-NOT-OK
 MOVE DFHRED TO ACCTSIDC OF CCRDUPAOCOCRDUPC.cbl:1244
  1. FLG-ACCTFILTER-BLANK AND CDEMO-PGM-REENTER
 MOVE '*' TO ACCTSIDO OF CCRDUPAOCOCRDUPC.cbl:1249
  1. FLG-ACCTFILTER-BLANK AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACCTSIDC OF CCRDUPAOCOCRDUPC.cbl:1250
  1. FLG-CARDFILTER-NOT-OK
 MOVE DFHRED TO CARDSIDC OF CCRDUPAOCOCRDUPC.cbl:1254
  1. FLG-CARDFILTER-BLANK AND CDEMO-PGM-REENTER
 MOVE '*' TO CARDSIDO OF CCRDUPAOCOCRDUPC.cbl:1259
  1. FLG-CARDFILTER-BLANK AND CDEMO-PGM-REENTER
 MOVE DFHRED TO CARDSIDC OF CCRDUPAOCOCRDUPC.cbl:1260
  1. FLG-CARDNAME-NOT-OK AND CCUP-CHANGES-NOT-OK
 MOVE DFHRED TO CRDNAMEC OF CCRDUPAOCOCRDUPC.cbl:1265
  1. FLG-CARDNAME-BLANK AND CCUP-CHANGES-NOT-OK
 MOVE '*' TO CRDNAMEO OF CCRDUPAOCOCRDUPC.cbl:1270
  1. FLG-CARDNAME-BLANK AND CCUP-CHANGES-NOT-OK
 MOVE DFHRED TO CRDNAMEC OF CCRDUPAOCOCRDUPC.cbl:1271
  1. FLG-CARDSTATUS-NOT-OK AND CCUP-CHANGES-NOT-OK
 MOVE DFHRED TO CRDSTCDC OF CCRDUPAOCOCRDUPC.cbl:1276
  1. FLG-CARDSTATUS-BLANK AND CCUP-CHANGES-NOT-OK
 MOVE '*' TO CRDSTCDO OF CCRDUPAOCOCRDUPC.cbl:1281
  1. FLG-CARDSTATUS-BLANK AND CCUP-CHANGES-NOT-OK
 MOVE DFHRED TO CRDSTCDC OF CCRDUPAOCOCRDUPC.cbl:1282
  1. FLG-CARDEXPMON-NOT-OK AND CCUP-CHANGES-NOT-OK
 MOVE DFHRED TO EXPMONC OF CCRDUPAOCOCRDUPC.cbl:1289
  1. FLG-CARDEXPMON-BLANK AND CCUP-CHANGES-NOT-OK
 MOVE '*' TO EXPMONO OF CCRDUPAOCOCRDUPC.cbl:1294
  1. FLG-CARDEXPMON-BLANK AND CCUP-CHANGES-NOT-OK
 MOVE DFHRED TO EXPMONC OF CCRDUPAOCOCRDUPC.cbl:1295
  1. FLG-CARDEXPYEAR-NOT-OK AND CCUP-CHANGES-NOT-OK
 MOVE DFHRED TO EXPYEARC OF CCRDUPAOCOCRDUPC.cbl:1300
  1. FLG-CARDEXPYEAR-BLANK AND CCUP-CHANGES-NOT-OK
 MOVE '*' TO EXPYEARO OF CCRDUPAOCOCRDUPC.cbl:1305
  1. FLG-CARDEXPYEAR-BLANK AND CCUP-CHANGES-NOT-OK
 MOVE DFHRED TO EXPYEARC OF CCRDUPAOCOCRDUPC.cbl:1306
  1. WS-NO-INFO-MESSAGE
 MOVE DFHBMDAR TO INFOMSGA OF CCRDUPAICOCRDUPC.cbl:1310
  1. NOT (WS-NO-INFO-MESSAGE)
 MOVE DFHBMBRY TO INFOMSGA OF CCRDUPAICOCRDUPC.cbl:1312
  1. PROMPT-FOR-CONFIRMATION
 MOVE DFHBMBRY TO FKEYSCA OF CCRDUPAICOCRDUPC.cbl:1316
6 rules

9000-READ-DATA

WhenThenAt
  1. FOUND-CARDS-FOR-ACCOUNT
 MOVE CARD-CVV-CD TO CCUP-OLD-CVV-CDCOCRDUPC.cbl:1354
  1. FOUND-CARDS-FOR-ACCOUNT
 MOVE CARD-EMBOSSED-NAME TO CCUP-OLD-CRDNAMECOCRDUPC.cbl:1360
  1. FOUND-CARDS-FOR-ACCOUNT
 MOVE CARD-EXPIRAION-DATE(1:4) TO CCUP-OLD-EXPYEARCOCRDUPC.cbl:1361–1362
  1. FOUND-CARDS-FOR-ACCOUNT
 MOVE CARD-EXPIRAION-DATE(6:2) TO CCUP-OLD-EXPMONCOCRDUPC.cbl:1363–1364
  1. FOUND-CARDS-FOR-ACCOUNT
 MOVE CARD-EXPIRAION-DATE(9:2) TO CCUP-OLD-EXPDAYCOCRDUPC.cbl:1365–1366
  1. FOUND-CARDS-FOR-ACCOUNT
 MOVE CARD-ACTIVE-STATUS TO CCUP-OLD-CRDSTCDCOCRDUPC.cbl:1367
12 rules

9100-GETCARD-BYACCTCARD

WhenThenAt
  1. WS-RESP-CD = DFHRESP(NORMAL)
 SET FOUND-CARDS-FOR-ACCOUNT TO TRUECOCRDUPC.cbl:1394
  1. WS-RESP-CD = DFHRESP(NOTFND)
 SET INPUT-ERROR TO TRUECOCRDUPC.cbl:1396
  1. WS-RESP-CD = DFHRESP(NOTFND)
 SET FLG-ACCTFILTER-NOT-OK TO TRUECOCRDUPC.cbl:1397
  1. WS-RESP-CD = DFHRESP(NOTFND)
 SET FLG-CARDFILTER-NOT-OK TO TRUECOCRDUPC.cbl:1398
  1. WS-RESP-CD = DFHRESP(NOTFND)
  2. WS-RETURN-MSG-OFF
 SET DID-NOT-FIND-ACCTCARD-COMBO TO TRUECOCRDUPC.cbl:1400
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 SET INPUT-ERROR TO TRUECOCRDUPC.cbl:1403
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
  2. WS-RETURN-MSG-OFF
 SET FLG-ACCTFILTER-NOT-OK TO TRUECOCRDUPC.cbl:1405
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE 'READ' TO ERROR-OPNAMECOCRDUPC.cbl:1407
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE LIT-CARDFILENAME TO ERROR-FILECOCRDUPC.cbl:1408
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-RESP-CD TO ERROR-RESPCOCRDUPC.cbl:1409
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-REAS-CD TO ERROR-RESP2COCRDUPC.cbl:1410
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-FILE-ERROR-MESSAGE TO WS-RETURN-MSGCOCRDUPC.cbl:1411
5 rules

9200-WRITE-PROCESSING

WhenThenAt
  1. NOT (WS-RESP-CD EQUAL TO DFHRESP(NORMAL))
 SET INPUT-ERROR TO TRUECOCRDUPC.cbl:1444
  1. NOT (WS-RESP-CD EQUAL TO DFHRESP(NORMAL))
  2. WS-RETURN-MSG-OFF
 SET COULD-NOT-LOCK-FOR-UPDATE TO TRUECOCRDUPC.cbl:1446
  1. NOT (WS-RESP-CD EQUAL TO DFHRESP(NORMAL))
 GO TO 9200-WRITE-PROCESSING-EXITCOCRDUPC.cbl:1448
  1. DATA-WAS-CHANGED-BEFORE-UPDATE
 GO TO 9200-WRITE-PROCESSING-EXITCOCRDUPC.cbl:1456
  1. NOT (WS-RESP-CD EQUAL TO DFHRESP(NORMAL))
 SET LOCKED-BUT-UPDATE-FAILED TO TRUECOCRDUPC.cbl:1491
8 rules

9300-CHECK-CHANGE-IN-REC

WhenThenAt
  1. NOT (CARD-CVV-CD EQUAL TO CCUP-OLD-CVV-CD AND CARD-EMBOSSED-NAME EQUAL TO CCUP-OLD-CRDNAME AND CARD-EXPIRAION-DATE(1:4) EQUAL TO CCUP-OLD-EXPYEAR AND CARD-EXPIRAION-DATE(6:2) EQUAL TO CCUP-OLD-EXPMON AND CARD-EXPIRAION-DATE(9:2) EQUAL TO CCUP-OLD-EXPDAY AND CARD-ACTIVE-STATUS EQUAL TO CCUP-OLD-CRDSTCD)
 SET DATA-WAS-CHANGED-BEFORE-UPDATE TO TRUECOCRDUPC.cbl:1511
  1. NOT (CARD-CVV-CD EQUAL TO CCUP-OLD-CVV-CD AND CARD-EMBOSSED-NAME EQUAL TO CCUP-OLD-CRDNAME AND CARD-EXPIRAION-DATE(1:4) EQUAL TO CCUP-OLD-EXPYEAR AND CARD-EXPIRAION-DATE(6:2) EQUAL TO CCUP-OLD-EXPMON AND CARD-EXPIRAION-DATE(9:2) EQUAL TO CCUP-OLD-EXPDAY AND CARD-ACTIVE-STATUS EQUAL TO CCUP-OLD-CRDSTCD)
 MOVE CARD-CVV-CD TO CCUP-OLD-CVV-CDCOCRDUPC.cbl:1512
  1. NOT (CARD-CVV-CD EQUAL TO CCUP-OLD-CVV-CD AND CARD-EMBOSSED-NAME EQUAL TO CCUP-OLD-CRDNAME AND CARD-EXPIRAION-DATE(1:4) EQUAL TO CCUP-OLD-EXPYEAR AND CARD-EXPIRAION-DATE(6:2) EQUAL TO CCUP-OLD-EXPMON AND CARD-EXPIRAION-DATE(9:2) EQUAL TO CCUP-OLD-EXPDAY AND CARD-ACTIVE-STATUS EQUAL TO CCUP-OLD-CRDSTCD)
 MOVE CARD-EMBOSSED-NAME TO CCUP-OLD-CRDNAMECOCRDUPC.cbl:1513
  1. NOT (CARD-CVV-CD EQUAL TO CCUP-OLD-CVV-CD AND CARD-EMBOSSED-NAME EQUAL TO CCUP-OLD-CRDNAME AND CARD-EXPIRAION-DATE(1:4) EQUAL TO CCUP-OLD-EXPYEAR AND CARD-EXPIRAION-DATE(6:2) EQUAL TO CCUP-OLD-EXPMON AND CARD-EXPIRAION-DATE(9:2) EQUAL TO CCUP-OLD-EXPDAY AND CARD-ACTIVE-STATUS EQUAL TO CCUP-OLD-CRDSTCD)
 MOVE CARD-EXPIRAION-DATE(1:4) TO CCUP-OLD-EXPYEARCOCRDUPC.cbl:1514
  1. NOT (CARD-CVV-CD EQUAL TO CCUP-OLD-CVV-CD AND CARD-EMBOSSED-NAME EQUAL TO CCUP-OLD-CRDNAME AND CARD-EXPIRAION-DATE(1:4) EQUAL TO CCUP-OLD-EXPYEAR AND CARD-EXPIRAION-DATE(6:2) EQUAL TO CCUP-OLD-EXPMON AND CARD-EXPIRAION-DATE(9:2) EQUAL TO CCUP-OLD-EXPDAY AND CARD-ACTIVE-STATUS EQUAL TO CCUP-OLD-CRDSTCD)
 MOVE CARD-EXPIRAION-DATE(6:2) TO CCUP-OLD-EXPMONCOCRDUPC.cbl:1515
  1. NOT (CARD-CVV-CD EQUAL TO CCUP-OLD-CVV-CD AND CARD-EMBOSSED-NAME EQUAL TO CCUP-OLD-CRDNAME AND CARD-EXPIRAION-DATE(1:4) EQUAL TO CCUP-OLD-EXPYEAR AND CARD-EXPIRAION-DATE(6:2) EQUAL TO CCUP-OLD-EXPMON AND CARD-EXPIRAION-DATE(9:2) EQUAL TO CCUP-OLD-EXPDAY AND CARD-ACTIVE-STATUS EQUAL TO CCUP-OLD-CRDSTCD)
 MOVE CARD-EXPIRAION-DATE(9:2) TO CCUP-OLD-EXPDAYCOCRDUPC.cbl:1516
  1. NOT (CARD-CVV-CD EQUAL TO CCUP-OLD-CVV-CD AND CARD-EMBOSSED-NAME EQUAL TO CCUP-OLD-CRDNAME AND CARD-EXPIRAION-DATE(1:4) EQUAL TO CCUP-OLD-EXPYEAR AND CARD-EXPIRAION-DATE(6:2) EQUAL TO CCUP-OLD-EXPMON AND CARD-EXPIRAION-DATE(9:2) EQUAL TO CCUP-OLD-EXPDAY AND CARD-ACTIVE-STATUS EQUAL TO CCUP-OLD-CRDSTCD)
 MOVE CARD-ACTIVE-STATUS TO CCUP-OLD-CRDSTCDCOCRDUPC.cbl:1517
  1. NOT (CARD-CVV-CD EQUAL TO CCUP-OLD-CVV-CD AND CARD-EMBOSSED-NAME EQUAL TO CCUP-OLD-CRDNAME AND CARD-EXPIRAION-DATE(1:4) EQUAL TO CCUP-OLD-EXPYEAR AND CARD-EXPIRAION-DATE(6:2) EQUAL TO CCUP-OLD-EXPMON AND CARD-EXPIRAION-DATE(9:2) EQUAL TO CCUP-OLD-EXPDAY AND CARD-ACTIVE-STATUS EQUAL TO CCUP-OLD-CRDSTCD)
 GO TO 9200-WRITE-PROCESSING-EXITCOCRDUPC.cbl:1518
28 rules

YYYY-STORE-PFKEY

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

ABEND-ROUTINE

WhenThenAt
  1. ABEND-MSG EQUAL LOW-VALUES
 MOVE 'UNEXPECTED ABEND OCCURRED.' TO ABEND-MSGCOCRDUPC.cbl:1534