MFmainframe-rea
WS carddemo · 26f629ef

Business rules · 147 guarded actionsCOCRDSLC

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 COCRDSLC.cbl:198
CCARD-AID-ENTERmeans CCARD-AID = 'ENTER'CVCRD01Y.cpy:4 via COCRDSLC.cbl:194
CCARD-AID-PFK03means CCARD-AID = 'PFK03'CVCRD01Y.cpy:10 via COCRDSLC.cbl:194
PFK-INVALIDmeans WS-PFK-FLAG = '1'COCRDSLC.cbl:68
CDEMO-PGM-ENTERmeans CDEMO-PGM-CONTEXT = 0COCOM01Y.cpy:30 via COCRDSLC.cbl:198
INPUT-ERRORmeans WS-INPUT-FLAG = '1'COCRDSLC.cbl:53
FOUND-CARDS-FOR-ACCOUNTmeans WS-INFO-MSG = ' Displaying requested details'COCRDSLC.cbl:129
WS-NO-INFO-MESSAGEmeans WS-INFO-MSG = SPACES OR LOW-VALUESCOCRDSLC.cbl:127
FLG-ACCTFILTER-NOT-OKmeans WS-EDIT-ACCT-FLAG = '0'COCRDSLC.cbl:56
FLG-ACCTFILTER-BLANKmeans WS-EDIT-ACCT-FLAG = ' 'COCRDSLC.cbl:58
FLG-CARDFILTER-NOT-OKmeans WS-EDIT-CARD-FLAG = '0'COCRDSLC.cbl:60
FLG-CARDFILTER-BLANKmeans WS-EDIT-CARD-FLAG = ' 'COCRDSLC.cbl:62
WS-RETURN-MSG-OFFmeans WS-RETURN-MSG = SPACESCOCRDSLC.cbl:135
38 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-PROGCOMMAREACOCRDSLC.cbl:271–272
  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-COMMAREACOCRDSLC.cbl:274–275
  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-PROGCOMMAREACOCRDSLC.cbl:276–278
  1. CCARD-AID-ENTER OR CCARD-AID-PFK03
 SET PFK-VALID TO TRUECOCRDSLC.cbl:294
  1. PFK-INVALID
 SET CCARD-AID-ENTER TO TRUECOCRDSLC.cbl:298
  1. CCARD-AID-PFK03
  2. CDEMO-FROM-TRANID EQUAL LOW-VALUES OR CDEMO-FROM-TRANID EQUAL SPACES
 MOVE LIT-MENUTRANID TO CDEMO-TO-TRANIDCOCRDSLC.cbl:311
  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-TRANIDCOCRDSLC.cbl:313
  1. CCARD-AID-PFK03
  2. CDEMO-FROM-PROGRAM EQUAL LOW-VALUES OR CDEMO-FROM-PROGRAM EQUAL SPACES
 MOVE LIT-MENUPGM TO CDEMO-TO-PROGRAMCOCRDSLC.cbl:318
  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-PROGRAMCOCRDSLC.cbl:320
  1. CCARD-AID-PFK03
 MOVE LIT-THISTRANID TO CDEMO-FROM-TRANIDCOCRDSLC.cbl:323
  1. CCARD-AID-PFK03
 MOVE LIT-THISPGM TO CDEMO-FROM-PROGRAMCOCRDSLC.cbl:324
  1. CCARD-AID-PFK03
 SET CDEMO-USRTYP-USER TO TRUECOCRDSLC.cbl:326
  1. CCARD-AID-PFK03
 SET CDEMO-PGM-ENTER TO TRUECOCRDSLC.cbl:327
  1. CCARD-AID-PFK03
 MOVE LIT-THISMAPSET TO CDEMO-LAST-MAPSETCOCRDSLC.cbl:328
  1. CCARD-AID-PFK03
 MOVE LIT-THISMAP TO CDEMO-LAST-MAPCOCRDSLC.cbl:329
  1. CCARD-AID-PFK03
 EXEC CICS XCTL PROGRAM (CDEMO-TO-PROGRAM) COMMAREA(CARDDEMO-COMMAREA) END-EXECCOCRDSLC.cbl:331–334
  1. CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM
 SET INPUT-OK TO TRUECOCRDSLC.cbl:341
  1. CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM
 MOVE CDEMO-ACCT-ID TO CC-ACCT-ID-NCOCRDSLC.cbl:342
  1. CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM
 MOVE CDEMO-CARD-NUM TO CC-CARD-NUM-NCOCRDSLC.cbl:343
  1. CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM
 PERFORM 9000-READ-DATA THRU 9000-READ-DATA-EXITCOCRDSLC.cbl:344–345
  1. CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM
 PERFORM 1000-SEND-MAP THRU 1000-SEND-MAP-EXITCOCRDSLC.cbl:346–347
  1. CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM
 GO TO COMMON-RETURNCOCRDSLC.cbl:348
  1. CDEMO-PGM-ENTER
 PERFORM 1000-SEND-MAP THRU 1000-SEND-MAP-EXITCOCRDSLC.cbl:354–355
  1. CDEMO-PGM-ENTER
 GO TO COMMON-RETURNCOCRDSLC.cbl:356
  1. CDEMO-PGM-REENTER
 PERFORM 2000-PROCESS-INPUTS THRU 2000-PROCESS-INPUTS-EXITCOCRDSLC.cbl:358–359
  1. CDEMO-PGM-REENTER
  2. INPUT-ERROR
 PERFORM 1000-SEND-MAP THRU 1000-SEND-MAP-EXITCOCRDSLC.cbl:361–362
  1. CDEMO-PGM-REENTER
  2. INPUT-ERROR
 GO TO COMMON-RETURNCOCRDSLC.cbl:363
  1. CDEMO-PGM-REENTER
  2. NOT (INPUT-ERROR)
 PERFORM 9000-READ-DATA THRU 9000-READ-DATA-EXITCOCRDSLC.cbl:365–366
  1. CDEMO-PGM-REENTER
  2. NOT (INPUT-ERROR)
 PERFORM 1000-SEND-MAP THRU 1000-SEND-MAP-EXITCOCRDSLC.cbl:367–368
  1. CDEMO-PGM-REENTER
  2. NOT (INPUT-ERROR)
 GO TO COMMON-RETURNCOCRDSLC.cbl:369
  1. TRUE is none of [CCARD-AID-PFK03; CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM; CDEMO-PGM-ENTER; CDEMO-PGM-REENTER]
 MOVE LIT-THISPGM TO ABEND-CULPRITCOCRDSLC.cbl:374
  1. TRUE is none of [CCARD-AID-PFK03; CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM; CDEMO-PGM-ENTER; CDEMO-PGM-REENTER]
 MOVE '0001' TO ABEND-CODECOCRDSLC.cbl:375
  1. TRUE is none of [CCARD-AID-PFK03; CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM; CDEMO-PGM-ENTER; CDEMO-PGM-REENTER]
 MOVE SPACES TO ABEND-REASONCOCRDSLC.cbl:376
  1. TRUE is none of [CCARD-AID-PFK03; CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM; CDEMO-PGM-ENTER; CDEMO-PGM-REENTER]
 MOVE 'UNEXPECTED DATA SCENARIO' TO WS-RETURN-MSGCOCRDSLC.cbl:377–378
  1. TRUE is none of [CCARD-AID-PFK03; CDEMO-PGM-ENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM; CDEMO-PGM-ENTER; CDEMO-PGM-REENTER]
 PERFORM SEND-PLAIN-TEXT THRU SEND-PLAIN-TEXT-EXITCOCRDSLC.cbl:379–380
  1. INPUT-ERROR
 MOVE WS-RETURN-MSG TO CCARD-ERROR-MSGCOCRDSLC.cbl:387
  1. INPUT-ERROR
 PERFORM 1000-SEND-MAP THRU 1000-SEND-MAP-EXITCOCRDSLC.cbl:388–389
  1. INPUT-ERROR
 GO TO COMMON-RETURNCOCRDSLC.cbl:390
11 rules

1200-SETUP-SCREEN-VARS

WhenThenAt
  1. EIBCALEN = 0
 SET WS-PROMPT-FOR-INPUT TO TRUECOCRDSLC.cbl:460
  1. NOT (EIBCALEN = 0)
  2. CDEMO-ACCT-ID = 0
 MOVE LOW-VALUES TO ACCTSIDO OF CCRDSLAOCOCRDSLC.cbl:463
  1. NOT (EIBCALEN = 0)
  2. NOT (CDEMO-ACCT-ID = 0)
 MOVE CC-ACCT-ID TO ACCTSIDO OF CCRDSLAOCOCRDSLC.cbl:465
  1. NOT (EIBCALEN = 0)
  2. CDEMO-CARD-NUM = 0
 MOVE LOW-VALUES TO CARDSIDO OF CCRDSLAOCOCRDSLC.cbl:469
  1. NOT (EIBCALEN = 0)
  2. NOT (CDEMO-CARD-NUM = 0)
 MOVE CC-CARD-NUM TO CARDSIDO OF CCRDSLAOCOCRDSLC.cbl:471
  1. NOT (EIBCALEN = 0)
  2. FOUND-CARDS-FOR-ACCOUNT
 MOVE CARD-EMBOSSED-NAME TO CRDNAMEO OF CCRDSLAOCOCRDSLC.cbl:475–476
  1. NOT (EIBCALEN = 0)
  2. FOUND-CARDS-FOR-ACCOUNT
 MOVE CARD-EXPIRAION-DATE TO CARD-EXPIRAION-DATE-XCOCRDSLC.cbl:477–478
  1. NOT (EIBCALEN = 0)
  2. FOUND-CARDS-FOR-ACCOUNT
 MOVE CARD-EXPIRY-MONTH TO EXPMONO OF CCRDSLAOCOCRDSLC.cbl:480
  1. NOT (EIBCALEN = 0)
  2. FOUND-CARDS-FOR-ACCOUNT
 MOVE CARD-EXPIRY-YEAR TO EXPYEARO OF CCRDSLAOCOCRDSLC.cbl:482
  1. NOT (EIBCALEN = 0)
  2. FOUND-CARDS-FOR-ACCOUNT
 MOVE CARD-ACTIVE-STATUS TO CRDSTCDO OF CCRDSLAOCOCRDSLC.cbl:484
  1. WS-NO-INFO-MESSAGE
 SET WS-PROMPT-FOR-INPUT TO TRUECOCRDSLC.cbl:491
17 rules

1300-SETUP-SCREEN-ATTRS

WhenThenAt
  1. CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM
 MOVE DFHBMPRF TO ACCTSIDA OF CCRDSLAICOCRDSLC.cbl:507
  1. CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM
 MOVE DFHBMPRF TO CARDSIDA OF CCRDSLAICOCRDSLC.cbl:508
  1. NOT (CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM)
 MOVE DFHBMFSE TO ACCTSIDA OF CCRDSLAICOCRDSLC.cbl:510
  1. NOT (CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM)
 MOVE DFHBMFSE TO CARDSIDA OF CCRDSLAICOCRDSLC.cbl:511
  1. FLG-ACCTFILTER-NOT-OK | FLG-ACCTFILTER-BLANK
 MOVE -1 TO ACCTSIDL OF CCRDSLAICOCRDSLC.cbl:518
  1. FLG-CARDFILTER-NOT-OK | FLG-CARDFILTER-BLANK
 MOVE -1 TO CARDSIDL OF CCRDSLAICOCRDSLC.cbl:521
  1. TRUE is none of [FLG-ACCTFILTER-NOT-OK; FLG-ACCTFILTER-BLANK; FLG-CARDFILTER-NOT-OK; FLG-CARDFILTER-BLANK]
 MOVE -1 TO ACCTSIDL OF CCRDSLAICOCRDSLC.cbl:523
  1. CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM
 MOVE DFHDFCOL TO ACCTSIDC OF CCRDSLAOCOCRDSLC.cbl:529
  1. CDEMO-LAST-MAPSET EQUAL LIT-CCLISTMAPSET AND CDEMO-FROM-PROGRAM EQUAL LIT-CCLISTPGM
 MOVE DFHDFCOL TO CARDSIDC OF CCRDSLAOCOCRDSLC.cbl:530
  1. FLG-ACCTFILTER-NOT-OK
 MOVE DFHRED TO ACCTSIDC OF CCRDSLAOCOCRDSLC.cbl:534
  1. FLG-CARDFILTER-NOT-OK
 MOVE DFHRED TO CARDSIDC OF CCRDSLAOCOCRDSLC.cbl:538
  1. FLG-ACCTFILTER-BLANK AND CDEMO-PGM-REENTER
 MOVE '*' TO ACCTSIDO OF CCRDSLAOCOCRDSLC.cbl:543
  1. FLG-ACCTFILTER-BLANK AND CDEMO-PGM-REENTER
 MOVE DFHRED TO ACCTSIDC OF CCRDSLAOCOCRDSLC.cbl:544
  1. FLG-CARDFILTER-BLANK AND CDEMO-PGM-REENTER
 MOVE '*' TO CARDSIDO OF CCRDSLAOCOCRDSLC.cbl:549
  1. FLG-CARDFILTER-BLANK AND CDEMO-PGM-REENTER
 MOVE DFHRED TO CARDSIDC OF CCRDSLAOCOCRDSLC.cbl:550
  1. WS-NO-INFO-MESSAGE
 MOVE DFHBMDAR TO INFOMSGC OF CCRDSLAOCOCRDSLC.cbl:554
  1. NOT (WS-NO-INFO-MESSAGE)
 MOVE DFHNEUTR TO INFOMSGC OF CCRDSLAOCOCRDSLC.cbl:556
5 rules

2200-EDIT-MAP-INPUTS

WhenThenAt
  1. ACCTSIDI OF CCRDSLAI = '*' OR ACCTSIDI OF CCRDSLAI = SPACES
 MOVE LOW-VALUES TO CC-ACCT-IDCOCRDSLC.cbl:617
  1. NOT (ACCTSIDI OF CCRDSLAI = '*' OR ACCTSIDI OF CCRDSLAI = SPACES)
 MOVE ACCTSIDI OF CCRDSLAI TO CC-ACCT-IDCOCRDSLC.cbl:619
  1. CARDSIDI OF CCRDSLAI = '*' OR CARDSIDI OF CCRDSLAI = SPACES
 MOVE LOW-VALUES TO CC-CARD-NUMCOCRDSLC.cbl:624
  1. NOT (CARDSIDI OF CCRDSLAI = '*' OR CARDSIDI OF CCRDSLAI = SPACES)
 MOVE CARDSIDI OF CCRDSLAI TO CC-CARD-NUMCOCRDSLC.cbl:626
  1. FLG-ACCTFILTER-BLANK AND FLG-CARDFILTER-BLANK
 SET NO-SEARCH-CRITERIA-RECEIVED TO TRUECOCRDSLC.cbl:639
12 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 INPUT-ERROR TO TRUECOCRDSLC.cbl:654
  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 TRUECOCRDSLC.cbl:655
  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 TRUECOCRDSLC.cbl:657
  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-IDCOCRDSLC.cbl:659
  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-EXITCOCRDSLC.cbl:660
  1. CC-ACCT-ID IS NOT NUMERIC
 SET INPUT-ERROR TO TRUECOCRDSLC.cbl:666
  1. CC-ACCT-ID IS NOT NUMERIC
 SET FLG-ACCTFILTER-NOT-OK TO TRUECOCRDSLC.cbl:667
  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-MSGCOCRDSLC.cbl:669–671
  1. CC-ACCT-ID IS NOT NUMERIC
 MOVE ZERO TO CDEMO-ACCT-IDCOCRDSLC.cbl:673
  1. CC-ACCT-ID IS NOT NUMERIC
 GO TO 2210-EDIT-ACCOUNT-EXITCOCRDSLC.cbl:674
  1. NOT (CC-ACCT-ID IS NOT NUMERIC)
 MOVE CC-ACCT-ID TO CDEMO-ACCT-IDCOCRDSLC.cbl:676
  1. NOT (CC-ACCT-ID IS NOT NUMERIC)
 SET FLG-ACCTFILTER-ISVALID TO TRUECOCRDSLC.cbl:677
12 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 INPUT-ERROR TO TRUECOCRDSLC.cbl:694
  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 TRUECOCRDSLC.cbl:695
  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 TRUECOCRDSLC.cbl:697
  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-NUMCOCRDSLC.cbl:700
  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-EXITCOCRDSLC.cbl:701
  1. CC-CARD-NUM IS NOT NUMERIC
 SET INPUT-ERROR TO TRUECOCRDSLC.cbl:707
  1. CC-CARD-NUM IS NOT NUMERIC
 SET FLG-CARDFILTER-NOT-OK TO TRUECOCRDSLC.cbl:708
  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-MSGCOCRDSLC.cbl:710–712
  1. CC-CARD-NUM IS NOT NUMERIC
 MOVE ZERO TO CDEMO-CARD-NUMCOCRDSLC.cbl:714
  1. CC-CARD-NUM IS NOT NUMERIC
 GO TO 2220-EDIT-CARD-EXITCOCRDSLC.cbl:715
  1. NOT (CC-CARD-NUM IS NOT NUMERIC)
 MOVE CC-CARD-NUM-N TO CDEMO-CARD-NUMCOCRDSLC.cbl:717
  1. NOT (CC-CARD-NUM IS NOT NUMERIC)
 SET FLG-CARDFILTER-ISVALID TO TRUECOCRDSLC.cbl:718
12 rules

9100-GETCARD-BYACCTCARD

WhenThenAt
  1. WS-RESP-CD = DFHRESP(NORMAL)
 SET FOUND-CARDS-FOR-ACCOUNT TO TRUECOCRDSLC.cbl:754
  1. WS-RESP-CD = DFHRESP(NOTFND)
 SET INPUT-ERROR TO TRUECOCRDSLC.cbl:756
  1. WS-RESP-CD = DFHRESP(NOTFND)
 SET FLG-ACCTFILTER-NOT-OK TO TRUECOCRDSLC.cbl:757
  1. WS-RESP-CD = DFHRESP(NOTFND)
 SET FLG-CARDFILTER-NOT-OK TO TRUECOCRDSLC.cbl:758
  1. WS-RESP-CD = DFHRESP(NOTFND)
  2. WS-RETURN-MSG-OFF
 SET DID-NOT-FIND-ACCTCARD-COMBO TO TRUECOCRDSLC.cbl:760
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 SET INPUT-ERROR TO TRUECOCRDSLC.cbl:763
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
  2. WS-RETURN-MSG-OFF
 SET FLG-ACCTFILTER-NOT-OK TO TRUECOCRDSLC.cbl:765
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE 'READ' TO ERROR-OPNAMECOCRDSLC.cbl:767
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE LIT-CARDFILENAME TO ERROR-FILECOCRDSLC.cbl:768
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-RESP-CD TO ERROR-RESPCOCRDSLC.cbl:769
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-REAS-CD TO ERROR-RESP2COCRDSLC.cbl:770
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-FILE-ERROR-MESSAGE TO WS-RETURN-MSGCOCRDSLC.cbl:771
11 rules

9150-GETCARD-BYACCT

WhenThenAt
  1. WS-RESP-CD = DFHRESP(NORMAL)
 SET FOUND-CARDS-FOR-ACCOUNT TO TRUECOCRDSLC.cbl:795
  1. WS-RESP-CD = DFHRESP(NOTFND)
 SET INPUT-ERROR TO TRUECOCRDSLC.cbl:797
  1. WS-RESP-CD = DFHRESP(NOTFND)
 SET FLG-ACCTFILTER-NOT-OK TO TRUECOCRDSLC.cbl:798
  1. WS-RESP-CD = DFHRESP(NOTFND)
 SET DID-NOT-FIND-ACCT-IN-CARDXREF TO TRUECOCRDSLC.cbl:799
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 SET INPUT-ERROR TO TRUECOCRDSLC.cbl:801
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 SET FLG-ACCTFILTER-NOT-OK TO TRUECOCRDSLC.cbl:802
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE 'READ' TO ERROR-OPNAMECOCRDSLC.cbl:803
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE LIT-CARDFILENAME-ACCT-PATH TO ERROR-FILECOCRDSLC.cbl:804
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-RESP-CD TO ERROR-RESPCOCRDSLC.cbl:805
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-REAS-CD TO ERROR-RESP2COCRDSLC.cbl:806
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE WS-FILE-ERROR-MESSAGE TO WS-RETURN-MSGCOCRDSLC.cbl:807
28 rules

YYYY-STORE-PFKEY

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

ABEND-ROUTINE

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