MFmainframe-rea
WS carddemo · 26f629ef

Business rules · 158 guarded actionsCOACTVWC

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 COACTVWC.cbl:211
CCARD-AID-ENTERmeans CCARD-AID = 'ENTER'CVCRD01Y.cpy:4 via COACTVWC.cbl:207
CCARD-AID-PFK03means CCARD-AID = 'PFK03'CVCRD01Y.cpy:10 via COACTVWC.cbl:207
PFK-INVALIDmeans WS-PFK-FLAG = '1'COACTVWC.cbl:56
CDEMO-PGM-ENTERmeans CDEMO-PGM-CONTEXT = 0COCOM01Y.cpy:30 via COACTVWC.cbl:211
INPUT-ERRORmeans WS-INPUT-FLAG = '1'COACTVWC.cbl:52
FLG-ACCTFILTER-BLANKmeans WS-EDIT-ACCT-FLAG = ' 'COACTVWC.cbl:61
FOUND-ACCT-IN-MASTERmeans WS-ACCOUNT-MASTER-READ-FLAG = '1'COACTVWC.cbl:83
FOUND-CUST-IN-MASTERmeans WS-CUST-MASTER-READ-FLAG = '1'COACTVWC.cbl:85
WS-NO-INFO-MESSAGEmeans WS-INFO-MSG = SPACES OR LOW-VALUESCOACTVWC.cbl:111
FLG-ACCTFILTER-NOT-OKmeans WS-EDIT-ACCT-FLAG = '0'COACTVWC.cbl:59
WS-RETURN-MSG-OFFmeans WS-RETURN-MSG = SPACESCOACTVWC.cbl:118
DID-NOT-FIND-ACCT-IN-ACCTDATmeans WS-RETURN-MSG = 'Did not find this account in account master file'COACTVWC.cbl:131
DID-NOT-FIND-CUST-IN-CUSTDATmeans WS-RETURN-MSG = 'Did not find associated customer in master file'COACTVWC.cbl:133
32 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-PROGCOMMAREACOACTVWC.cbl:285–286
  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-COMMAREACOACTVWC.cbl:288–289
  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-PROGCOMMAREACOACTVWC.cbl:290–292
  1. CCARD-AID-ENTER OR CCARD-AID-PFK03
 SET PFK-VALID TO TRUECOACTVWC.cbl:309
  1. PFK-INVALID
 SET CCARD-AID-ENTER TO TRUECOACTVWC.cbl:313
  1. CCARD-AID-PFK03
  2. CDEMO-FROM-TRANID EQUAL LOW-VALUES OR CDEMO-FROM-TRANID EQUAL SPACES
 MOVE LIT-MENUTRANID TO CDEMO-TO-TRANIDCOACTVWC.cbl:330
  1. CCARD-AID-PFK03
  2. NOT (CDEMO-FROM-TRANID EQUAL LOW-VALUES OR CDEMO-FROM-TRANID EQUAL SPACES)
 MOVE CDEMO-FROM-TRANID TO CDEMO-TO-TRANIDCOACTVWC.cbl:332
  1. CCARD-AID-PFK03
  2. CDEMO-FROM-PROGRAM EQUAL LOW-VALUES OR CDEMO-FROM-PROGRAM EQUAL SPACES
 MOVE LIT-MENUPGM TO CDEMO-TO-PROGRAMCOACTVWC.cbl:336
  1. CCARD-AID-PFK03
  2. NOT (CDEMO-FROM-PROGRAM EQUAL LOW-VALUES OR CDEMO-FROM-PROGRAM EQUAL SPACES)
 MOVE CDEMO-FROM-PROGRAM TO CDEMO-TO-PROGRAMCOACTVWC.cbl:338
  1. CCARD-AID-PFK03
 MOVE LIT-THISTRANID TO CDEMO-FROM-TRANIDCOACTVWC.cbl:341
  1. CCARD-AID-PFK03
 MOVE LIT-THISPGM TO CDEMO-FROM-PROGRAMCOACTVWC.cbl:342
  1. CCARD-AID-PFK03
 SET CDEMO-USRTYP-USER TO TRUECOACTVWC.cbl:344
  1. CCARD-AID-PFK03
 SET CDEMO-PGM-ENTER TO TRUECOACTVWC.cbl:345
  1. CCARD-AID-PFK03
 MOVE LIT-THISMAPSET TO CDEMO-LAST-MAPSETCOACTVWC.cbl:346
  1. CCARD-AID-PFK03
 MOVE LIT-THISMAP TO CDEMO-LAST-MAPCOACTVWC.cbl:347
  1. CCARD-AID-PFK03
 EXEC CICS XCTL PROGRAM (CDEMO-TO-PROGRAM) COMMAREA(CARDDEMO-COMMAREA) END-EXECCOACTVWC.cbl:349–352
  1. CDEMO-PGM-ENTER
 PERFORM 1000-SEND-MAP THRU 1000-SEND-MAP-EXITCOACTVWC.cbl:358–359
  1. CDEMO-PGM-ENTER
 GO TO COMMON-RETURNCOACTVWC.cbl:360
  1. CDEMO-PGM-REENTER
 PERFORM 2000-PROCESS-INPUTS THRU 2000-PROCESS-INPUTS-EXITCOACTVWC.cbl:362–363
  1. CDEMO-PGM-REENTER
  2. INPUT-ERROR
 PERFORM 1000-SEND-MAP THRU 1000-SEND-MAP-EXITCOACTVWC.cbl:365–366
  1. CDEMO-PGM-REENTER
  2. INPUT-ERROR
 GO TO COMMON-RETURNCOACTVWC.cbl:367
  1. CDEMO-PGM-REENTER
  2. NOT (INPUT-ERROR)
 PERFORM 9000-READ-ACCT THRU 9000-READ-ACCT-EXITCOACTVWC.cbl:369–370
  1. CDEMO-PGM-REENTER
  2. NOT (INPUT-ERROR)
 PERFORM 1000-SEND-MAP THRU 1000-SEND-MAP-EXITCOACTVWC.cbl:371–372
  1. CDEMO-PGM-REENTER
  2. NOT (INPUT-ERROR)
 GO TO COMMON-RETURNCOACTVWC.cbl:373
  1. TRUE is none of [CCARD-AID-PFK03; CDEMO-PGM-ENTER; CDEMO-PGM-REENTER]
 MOVE LIT-THISPGM TO ABEND-CULPRITCOACTVWC.cbl:376
  1. TRUE is none of [CCARD-AID-PFK03; CDEMO-PGM-ENTER; CDEMO-PGM-REENTER]
 MOVE '0001' TO ABEND-CODECOACTVWC.cbl:377
  1. TRUE is none of [CCARD-AID-PFK03; CDEMO-PGM-ENTER; CDEMO-PGM-REENTER]
 MOVE SPACES TO ABEND-REASONCOACTVWC.cbl:378
  1. TRUE is none of [CCARD-AID-PFK03; CDEMO-PGM-ENTER; CDEMO-PGM-REENTER]
 MOVE 'UNEXPECTED DATA SCENARIO' TO WS-RETURN-MSGCOACTVWC.cbl:379–380
  1. TRUE is none of [CCARD-AID-PFK03; CDEMO-PGM-ENTER; CDEMO-PGM-REENTER]
 PERFORM SEND-PLAIN-TEXT THRU SEND-PLAIN-TEXT-EXITCOACTVWC.cbl:381–382
  1. INPUT-ERROR
 MOVE WS-RETURN-MSG TO CCARD-ERROR-MSGCOACTVWC.cbl:388
  1. INPUT-ERROR
 PERFORM 1000-SEND-MAP THRU 1000-SEND-MAP-EXITCOACTVWC.cbl:389–390
  1. INPUT-ERROR
 GO TO COMMON-RETURNCOACTVWC.cbl:391
32 rules

1200-SETUP-SCREEN-VARS

WhenThenAt
  1. EIBCALEN = 0
 SET WS-PROMPT-FOR-INPUT TO TRUECOACTVWC.cbl:463
  1. NOT (EIBCALEN = 0)
  2. FLG-ACCTFILTER-BLANK
 MOVE LOW-VALUES TO ACCTSIDO OF CACTVWAOCOACTVWC.cbl:466
  1. NOT (EIBCALEN = 0)
  2. NOT (FLG-ACCTFILTER-BLANK)
 MOVE CC-ACCT-ID TO ACCTSIDO OF CACTVWAOCOACTVWC.cbl:468
  1. NOT (EIBCALEN = 0)
  2. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE ACCT-ACTIVE-STATUS TO ACSTTUSO OF CACTVWAOCOACTVWC.cbl:473
  1. NOT (EIBCALEN = 0)
  2. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE ACCT-CURR-BAL TO ACURBALO OF CACTVWAOCOACTVWC.cbl:475
  1. NOT (EIBCALEN = 0)
  2. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE ACCT-CREDIT-LIMIT TO ACRDLIMO OF CACTVWAOCOACTVWC.cbl:477
  1. NOT (EIBCALEN = 0)
  2. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE ACCT-CASH-CREDIT-LIMIT TO ACSHLIMO OF CACTVWAOCOACTVWC.cbl:479–480
  1. NOT (EIBCALEN = 0)
  2. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE ACCT-CURR-CYC-CREDIT TO ACRCYCRO OF CACTVWAOCOACTVWC.cbl:482–483
  1. NOT (EIBCALEN = 0)
  2. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE ACCT-CURR-CYC-DEBIT TO ACRCYDBO OF CACTVWAOCOACTVWC.cbl:485
  1. NOT (EIBCALEN = 0)
  2. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE ACCT-OPEN-DATE TO ADTOPENO OF CACTVWAOCOACTVWC.cbl:487
  1. NOT (EIBCALEN = 0)
  2. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE ACCT-EXPIRAION-DATE TO AEXPDTO OF CACTVWAOCOACTVWC.cbl:488
  1. NOT (EIBCALEN = 0)
  2. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE ACCT-REISSUE-DATE TO AREISDTO OF CACTVWAOCOACTVWC.cbl:489
  1. NOT (EIBCALEN = 0)
  2. FOUND-ACCT-IN-MASTER OR FOUND-CUST-IN-MASTER
 MOVE ACCT-GROUP-ID TO AADDGRPO OF CACTVWAOCOACTVWC.cbl:490
  1. NOT (EIBCALEN = 0)
  2. FOUND-CUST-IN-MASTER
 MOVE CUST-ID TO ACSTNUMO OF CACTVWAOCOACTVWC.cbl:494
  1. NOT (EIBCALEN = 0)
  2. FOUND-CUST-IN-MASTER
 STRING CUST-SSN(1:3) '-' CUST-SSN(4:2) '-' CUST-SSN(6:4) DELIMITED BY SIZE INTO ACSTSSNO OF CACTVWAOCOACTVWC.cbl:496–503
  1. NOT (EIBCALEN = 0)
  2. FOUND-CUST-IN-MASTER
 MOVE CUST-FICO-CREDIT-SCORE TO ACSTFCOO OF CACTVWAOCOACTVWC.cbl:505–506
  1. NOT (EIBCALEN = 0)
  2. FOUND-CUST-IN-MASTER
 MOVE CUST-DOB-YYYY-MM-DD TO ACSTDOBO OF CACTVWAOCOACTVWC.cbl:507
  1. NOT (EIBCALEN = 0)
  2. FOUND-CUST-IN-MASTER
 MOVE CUST-FIRST-NAME TO ACSFNAMO OF CACTVWAOCOACTVWC.cbl:508
  1. NOT (EIBCALEN = 0)
  2. FOUND-CUST-IN-MASTER
 MOVE CUST-MIDDLE-NAME TO ACSMNAMO OF CACTVWAOCOACTVWC.cbl:509
  1. NOT (EIBCALEN = 0)
  2. FOUND-CUST-IN-MASTER
 MOVE CUST-LAST-NAME TO ACSLNAMO OF CACTVWAOCOACTVWC.cbl:510
  1. NOT (EIBCALEN = 0)
  2. FOUND-CUST-IN-MASTER
 MOVE CUST-ADDR-LINE-1 TO ACSADL1O OF CACTVWAOCOACTVWC.cbl:511
  1. NOT (EIBCALEN = 0)
  2. FOUND-CUST-IN-MASTER
 MOVE CUST-ADDR-LINE-2 TO ACSADL2O OF CACTVWAOCOACTVWC.cbl:512
  1. NOT (EIBCALEN = 0)
  2. FOUND-CUST-IN-MASTER
 MOVE CUST-ADDR-LINE-3 TO ACSCITYO OF CACTVWAOCOACTVWC.cbl:513
  1. NOT (EIBCALEN = 0)
  2. FOUND-CUST-IN-MASTER
 MOVE CUST-ADDR-STATE-CD TO ACSSTTEO OF CACTVWAOCOACTVWC.cbl:514
  1. NOT (EIBCALEN = 0)
  2. FOUND-CUST-IN-MASTER
 MOVE CUST-ADDR-ZIP TO ACSZIPCO OF CACTVWAOCOACTVWC.cbl:515
  1. NOT (EIBCALEN = 0)
  2. FOUND-CUST-IN-MASTER
 MOVE CUST-ADDR-COUNTRY-CD TO ACSCTRYO OF CACTVWAOCOACTVWC.cbl:516
  1. NOT (EIBCALEN = 0)
  2. FOUND-CUST-IN-MASTER
 MOVE CUST-PHONE-NUM-1 TO ACSPHN1O OF CACTVWAOCOACTVWC.cbl:517
  1. NOT (EIBCALEN = 0)
  2. FOUND-CUST-IN-MASTER
 MOVE CUST-PHONE-NUM-2 TO ACSPHN2O OF CACTVWAOCOACTVWC.cbl:518
  1. NOT (EIBCALEN = 0)
  2. FOUND-CUST-IN-MASTER
 MOVE CUST-GOVT-ISSUED-ID TO ACSGOVTO OF CACTVWAOCOACTVWC.cbl:519
  1. NOT (EIBCALEN = 0)
  2. FOUND-CUST-IN-MASTER
 MOVE CUST-EFT-ACCOUNT-ID TO ACSEFTCO OF CACTVWAOCOACTVWC.cbl:520
  1. NOT (EIBCALEN = 0)
  2. FOUND-CUST-IN-MASTER
 MOVE CUST-PRI-CARD-HOLDER-IND TO ACSPFLGO OF CACTVWAOCOACTVWC.cbl:521–522
  1. WS-NO-INFO-MESSAGE
 SET WS-PROMPT-FOR-INPUT TO TRUECOACTVWC.cbl:529
7 rules

1300-SETUP-SCREEN-ATTRS

WhenThenAt
  1. FLG-ACCTFILTER-NOT-OK | FLG-ACCTFILTER-BLANK
 MOVE -1 TO ACCTSIDL OF CACTVWAICOACTVWC.cbl:549
  1. TRUE is none of [FLG-ACCTFILTER-NOT-OK; FLG-ACCTFILTER-BLANK]
 MOVE -1 TO ACCTSIDL OF CACTVWAICOACTVWC.cbl:551
  1. FLG-ACCTFILTER-NOT-OK
 MOVE DFHRED TO ACCTSIDC OF CACTVWAOCOACTVWC.cbl:558
  1. FLG-ACCTFILTER-BLANK AND CDEMO-PGM-REENTER
 MOVE '*' TO ACCTSIDO OF CACTVWAOCOACTVWC.cbl:563
  1. FLG-ACCTFILTER-BLANK AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACCTSIDC OF CACTVWAOCOACTVWC.cbl:564
  1. WS-NO-INFO-MESSAGE
 MOVE DFHBMDAR TO INFOMSGC OF CACTVWAOCOACTVWC.cbl:568
  1. NOT (WS-NO-INFO-MESSAGE)
 MOVE DFHNEUTR TO INFOMSGC OF CACTVWAOCOACTVWC.cbl:570
3 rules

2200-EDIT-MAP-INPUTS

WhenThenAt
  1. ACCTSIDI OF CACTVWAI = '*' OR ACCTSIDI OF CACTVWAI = SPACES
 MOVE LOW-VALUES TO CC-ACCT-IDCOACTVWC.cbl:630
  1. NOT (ACCTSIDI OF CACTVWAI = '*' OR ACCTSIDI OF CACTVWAI = SPACES)
 MOVE ACCTSIDI OF CACTVWAI TO CC-ACCT-IDCOACTVWC.cbl:632
  1. FLG-ACCTFILTER-BLANK
 SET NO-SEARCH-CRITERIA-RECEIVED TO TRUECOACTVWC.cbl:641
12 rules

2210-EDIT-ACCOUNT

WhenThenAt
  1. CC-ACCT-ID EQUAL LOW-VALUES OR CC-ACCT-ID EQUAL SPACES
 SET INPUT-ERROR TO TRUECOACTVWC.cbl:655
  1. CC-ACCT-ID EQUAL LOW-VALUES OR CC-ACCT-ID EQUAL SPACES
 SET FLG-ACCTFILTER-BLANK TO TRUECOACTVWC.cbl:656
  1. CC-ACCT-ID EQUAL LOW-VALUES OR CC-ACCT-ID EQUAL SPACES
  2. WS-RETURN-MSG-OFF
 SET WS-PROMPT-FOR-ACCT TO TRUECOACTVWC.cbl:658
  1. CC-ACCT-ID EQUAL LOW-VALUES OR CC-ACCT-ID EQUAL SPACES
 MOVE ZEROES TO CDEMO-ACCT-IDCOACTVWC.cbl:660
  1. CC-ACCT-ID EQUAL LOW-VALUES OR CC-ACCT-ID EQUAL SPACES
 GO TO 2210-EDIT-ACCOUNT-EXITCOACTVWC.cbl:661
  1. CC-ACCT-ID IS NOT NUMERIC OR CC-ACCT-ID EQUAL ZEROES
 SET INPUT-ERROR TO TRUECOACTVWC.cbl:668
  1. CC-ACCT-ID IS NOT NUMERIC OR CC-ACCT-ID EQUAL ZEROES
 SET FLG-ACCTFILTER-NOT-OK TO TRUECOACTVWC.cbl:669
  1. CC-ACCT-ID IS NOT NUMERIC OR CC-ACCT-ID EQUAL ZEROES
  2. WS-RETURN-MSG-OFF
 MOVE 'Account Filter must be a non-zero 11 digit number' TO WS-RETURN-MSGCOACTVWC.cbl:671–673
  1. CC-ACCT-ID IS NOT NUMERIC OR CC-ACCT-ID EQUAL ZEROES
 MOVE ZERO TO CDEMO-ACCT-IDCOACTVWC.cbl:675
  1. CC-ACCT-ID IS NOT NUMERIC OR CC-ACCT-ID EQUAL ZEROES
 GO TO 2210-EDIT-ACCOUNT-EXITCOACTVWC.cbl:676
  1. NOT (CC-ACCT-ID IS NOT NUMERIC OR CC-ACCT-ID EQUAL ZEROES)
 MOVE CC-ACCT-ID TO CDEMO-ACCT-IDCOACTVWC.cbl:678
  1. NOT (CC-ACCT-ID IS NOT NUMERIC OR CC-ACCT-ID EQUAL ZEROES)
 SET FLG-ACCTFILTER-ISVALID TO TRUECOACTVWC.cbl:679
3 rules

9000-READ-ACCT

WhenThenAt
  1. FLG-ACCTFILTER-NOT-OK
 GO TO 9000-READ-ACCT-EXITCOACTVWC.cbl:698
  1. DID-NOT-FIND-ACCT-IN-ACCTDAT
 GO TO 9000-READ-ACCT-EXITCOACTVWC.cbl:705
  1. DID-NOT-FIND-CUST-IN-CUSTDAT
 GO TO 9000-READ-ACCT-EXITCOACTVWC.cbl:714
14 rules

9200-GETCARDXREF-BYACCT

WhenThenAt
  1. WS-RESP-CD = DFHRESP(NORMAL)
 MOVE XREF-CUST-ID TO CDEMO-CUST-IDCOACTVWC.cbl:739
  1. WS-RESP-CD = DFHRESP(NORMAL)
 MOVE XREF-CARD-NUM TO CDEMO-CARD-NUMCOACTVWC.cbl:740
  1. WS-RESP-CD = DFHRESP(NOTFND)
 SET INPUT-ERROR TO TRUECOACTVWC.cbl:742
  1. WS-RESP-CD = DFHRESP(NOTFND)
 SET FLG-ACCTFILTER-NOT-OK TO TRUECOACTVWC.cbl:743
  1. WS-RESP-CD = DFHRESP(NOTFND)
  2. WS-RETURN-MSG-OFF
 MOVE WS-RESP-CD TO ERROR-RESPCOACTVWC.cbl:745
  1. WS-RESP-CD = DFHRESP(NOTFND)
  2. WS-RETURN-MSG-OFF
 MOVE WS-REAS-CD TO ERROR-RESP2COACTVWC.cbl:746
  1. WS-RESP-CD = DFHRESP(NOTFND)
  2. WS-RETURN-MSG-OFF
 STRING 'Account:' WS-CARD-RID-ACCT-ID-X ' not found in' ' Cross ref file. Resp:' ERROR-RESP ' Reas:' ERROR-RESP2 DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTVWC.cbl:747–756
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 SET INPUT-ERROR TO TRUECOACTVWC.cbl:760
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 SET FLG-ACCTFILTER-NOT-OK TO TRUECOACTVWC.cbl:761
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE 'READ' TO ERROR-OPNAMECOACTVWC.cbl:762
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE LIT-CARDXREFNAME-ACCT-PATH TO ERROR-FILECOACTVWC.cbl:763
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-RESP-CD TO ERROR-RESPCOACTVWC.cbl:764
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-REAS-CD TO ERROR-RESP2COACTVWC.cbl:765
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-FILE-ERROR-MESSAGE TO WS-RETURN-MSGCOACTVWC.cbl:766
13 rules

9300-GETACCTDATA-BYACCT

WhenThenAt
  1. WS-RESP-CD = DFHRESP(NORMAL)
 SET FOUND-ACCT-IN-MASTER TO TRUECOACTVWC.cbl:788
  1. WS-RESP-CD = DFHRESP(NOTFND)
 SET INPUT-ERROR TO TRUECOACTVWC.cbl:790
  1. WS-RESP-CD = DFHRESP(NOTFND)
 SET FLG-ACCTFILTER-NOT-OK TO TRUECOACTVWC.cbl:791
  1. WS-RESP-CD = DFHRESP(NOTFND)
  2. WS-RETURN-MSG-OFF
 MOVE WS-RESP-CD TO ERROR-RESPCOACTVWC.cbl:794
  1. WS-RESP-CD = DFHRESP(NOTFND)
  2. WS-RETURN-MSG-OFF
 MOVE WS-REAS-CD TO ERROR-RESP2COACTVWC.cbl:795
  1. WS-RESP-CD = DFHRESP(NOTFND)
  2. WS-RETURN-MSG-OFF
 STRING 'Account:' WS-CARD-RID-ACCT-ID-X ' not found in' ' Acct Master file.Resp:' ERROR-RESP ' Reas:' ERROR-RESP2 DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTVWC.cbl:796–805
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 SET INPUT-ERROR TO TRUECOACTVWC.cbl:810
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 SET FLG-ACCTFILTER-NOT-OK TO TRUECOACTVWC.cbl:811
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE 'READ' TO ERROR-OPNAMECOACTVWC.cbl:812
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE LIT-ACCTFILENAME TO ERROR-FILECOACTVWC.cbl:813
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-RESP-CD TO ERROR-RESPCOACTVWC.cbl:814
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-REAS-CD TO ERROR-RESP2COACTVWC.cbl:815
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-FILE-ERROR-MESSAGE TO WS-RETURN-MSGCOACTVWC.cbl:816
13 rules

9400-GETCUSTDATA-BYCUST

WhenThenAt
  1. WS-RESP-CD = DFHRESP(NORMAL)
 SET FOUND-CUST-IN-MASTER TO TRUECOACTVWC.cbl:838
  1. WS-RESP-CD = DFHRESP(NOTFND)
 SET INPUT-ERROR TO TRUECOACTVWC.cbl:840
  1. WS-RESP-CD = DFHRESP(NOTFND)
 SET FLG-CUSTFILTER-NOT-OK TO TRUECOACTVWC.cbl:841
  1. WS-RESP-CD = DFHRESP(NOTFND)
 MOVE WS-RESP-CD TO ERROR-RESPCOACTVWC.cbl:843
  1. WS-RESP-CD = DFHRESP(NOTFND)
 MOVE WS-REAS-CD TO ERROR-RESP2COACTVWC.cbl:844
  1. WS-RESP-CD = DFHRESP(NOTFND)
  2. WS-RETURN-MSG-OFF
 STRING 'CustId:' WS-CARD-RID-CUST-ID-X ' not found' ' in customer master.Resp: ' ERROR-RESP ' REAS:' ERROR-RESP2 DELIMITED BY SIZE INTO WS-RETURN-MSGCOACTVWC.cbl:846–855
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 SET INPUT-ERROR TO TRUECOACTVWC.cbl:859
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 SET FLG-CUSTFILTER-NOT-OK TO TRUECOACTVWC.cbl:860
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE 'READ' TO ERROR-OPNAMECOACTVWC.cbl:861
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE LIT-CUSTFILENAME TO ERROR-FILECOACTVWC.cbl:862
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-RESP-CD TO ERROR-RESPCOACTVWC.cbl:863
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-REAS-CD TO ERROR-RESP2COACTVWC.cbl:864
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-FILE-ERROR-MESSAGE TO WS-RETURN-MSGCOACTVWC.cbl:865
28 rules

YYYY-STORE-PFKEY

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

ABEND-ROUTINE

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