MFmainframe-rea
WS carddemo · 26f629ef

Business rules · 219 guarded actionsCOTRTUPC

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 COTRTUPC.cbl:292
CCARD-AID-PFK12means CCARD-AID = 'PFK12'CVCRD01Y.cpy:19 via COTRTUPC.cbl:241
TTUP-SHOW-DETAILSmeans TTUP-CHANGE-ACTION = 'S'COTRTUPC.cbl:303
TTUP-CREATE-NEW-RECORDmeans TTUP-CHANGE-ACTION = 'R'COTRTUPC.cbl:305
TTUP-DETAILS-NOT-FOUNDmeans TTUP-CHANGE-ACTION = 'X'COTRTUPC.cbl:302
TTUP-CHANGES-OKAYED-AND-DONEmeans TTUP-CHANGE-ACTION = 'C'COTRTUPC.cbl:326
TTUP-CHANGES-FAILEDmeans TTUP-CHANGE-ACTION = 'L' OR 'F'COTRTUPC.cbl:322
TTUP-CHANGES-BACKED-OUTmeans TTUP-CHANGE-ACTION = 'B'COTRTUPC.cbl:327
TTUP-DELETE-DONEmeans TTUP-CHANGE-ACTION = '7'COTRTUPC.cbl:312
TTUP-DELETE-FAILEDmeans TTUP-CHANGE-ACTION = '6'COTRTUPC.cbl:313
CCARD-AID-PFK03means CCARD-AID = 'PFK03'CVCRD01Y.cpy:10 via COTRTUPC.cbl:241
CDEMO-PGM-ENTERmeans CDEMO-PGM-CONTEXT = 0COCOM01Y.cpy:30 via COTRTUPC.cbl:292
TTUP-DETAILS-NOT-FETCHEDmeans TTUP-CHANGE-ACTION = LOW-VALUES OR SPACESCOTRTUPC.cbl:298
CCARD-AID-PFK04means CCARD-AID = 'PFK04'CVCRD01Y.cpy:11 via COTRTUPC.cbl:241
TTUP-CONFIRM-DELETEmeans TTUP-CHANGE-ACTION = '9'COTRTUPC.cbl:310
CCARD-AID-PFK05means CCARD-AID = 'PFK05'CVCRD01Y.cpy:12 via COTRTUPC.cbl:241
TTUP-CHANGES-OK-NOT-CONFIRMEDmeans TTUP-CHANGE-ACTION = 'N'COTRTUPC.cbl:319
WS-INVALID-KEY-PRESSEDmeans WS-RETURN-MSG = 'Invalid key pressed'COTRTUPC.cbl:193
CCARD-AID-ENTERmeans CCARD-AID = 'ENTER'CVCRD01Y.cpy:4 via COTRTUPC.cbl:241
TTUP-DELETE-IN-PROGRESSmeans TTUP-CHANGE-ACTION = '9' OR '8' OR '7' OR '6'COTRTUPC.cbl:307
WS-RETURN-MSG-OFFmeans WS-RETURN-MSG = SPACESCOTRTUPC.cbl:168
FLG-TRANFILTER-BLANKmeans WS-EDIT-TTYP-FLAG = 'B'COTRTUPC.cbl:97
FLG-TRANFILTER-NOT-OKmeans WS-EDIT-TTYP-FLAG = '0'COTRTUPC.cbl:96
NO-CHANGES-FOUNDmeans WS-DATACHANGED-FLAG = '0'COTRTUPC.cbl:79
INPUT-ERRORmeans WS-INPUT-FLAG = '1'COTRTUPC.cbl:83
FLG-TRANFILTER-ISVALIDmeans WS-EDIT-TTYP-FLAG = LOW-VALUESCOTRTUPC.cbl:95
FOUND-TRANTYPE-IN-TABLEmeans WS-TRANTYPE-MASTER-READ-FLAG = '1'COTRTUPC.cbl:127
NO-CHANGES-DETECTEDmeans WS-RETURN-MSG = 'No change detected with respect to values fetched.'COTRTUPC.cbl:179
WS-INVALID-KEYmeans WS-RETURN-MSG = 'Invalid Key pressed. 'COTRTUPC.cbl:171
TTUP-CHANGES-NOT-OKmeans TTUP-CHANGE-ACTION = 'E'COTRTUPC.cbl:318
TTUP-INVALID-SEARCH-KEYSmeans TTUP-CHANGE-ACTION = 'K'COTRTUPC.cbl:301
TTUP-CHANGES-MADEmeans TTUP-CHANGE-ACTION = 'E' OR 'N' OR 'L' OR 'F'COTRTUPC.cbl:315
TTUP-CHANGES-OKAYED-LOCK-ERRORmeans TTUP-CHANGE-ACTION = 'L'COTRTUPC.cbl:323
TTUP-CHANGES-OKAYED-BUT-FAILEDmeans TTUP-CHANGE-ACTION = 'F'COTRTUPC.cbl:324
WS-NO-INFO-MESSAGEmeans WS-INFO-MSG = SPACES OR LOW-VALUESCOTRTUPC.cbl:143
FLG-DESCRIPTION-NOT-OKmeans WS-EDIT-DESC-FLAGS = '0'COTRTUPC.cbl:102
FLG-DESCRIPTION-BLANKmeans WS-EDIT-DESC-FLAGS = 'B'COTRTUPC.cbl:103
COULD-NOT-LOCK-REC-FOR-UPDATEmeans WS-RETURN-MSG = 'Could not lock record for update'COTRTUPC.cbl:181
TABLE-UPDATE-FAILEDmeans WS-RETURN-MSG = 'Update of record failed'COTRTUPC.cbl:187
DATA-WAS-CHANGED-BEFORE-UPDATEmeans WS-RETURN-MSG = 'Record changed by some one else. Please review'COTRTUPC.cbl:183
47 rules

0000-MAIN

WhenThenAt
  1. EIBCALEN IS EQUAL TO 0 OR (CDEMO-FROM-PROGRAM = LIT-ADMINPGM AND NOT CDEMO-PGM-REENTER) OR (CDEMO-FROM-PROGRAM = LIT-LISTTPGM AND NOT CDEMO-PGM-REENTER)
 INITIALIZE CARDDEMO-COMMAREA WS-THIS-PROGCOMMAREACOTRTUPC.cbl:371–372
  1. EIBCALEN IS EQUAL TO 0 OR (CDEMO-FROM-PROGRAM = LIT-ADMINPGM AND NOT CDEMO-PGM-REENTER) OR (CDEMO-FROM-PROGRAM = LIT-LISTTPGM AND NOT CDEMO-PGM-REENTER)
 SET CDEMO-PGM-ENTER TO TRUECOTRTUPC.cbl:373
  1. EIBCALEN IS EQUAL TO 0 OR (CDEMO-FROM-PROGRAM = LIT-ADMINPGM AND NOT CDEMO-PGM-REENTER) OR (CDEMO-FROM-PROGRAM = LIT-LISTTPGM AND NOT CDEMO-PGM-REENTER)
 SET TTUP-DETAILS-NOT-FETCHED TO TRUECOTRTUPC.cbl:374
  1. NOT (EIBCALEN IS EQUAL TO 0 OR (CDEMO-FROM-PROGRAM = LIT-ADMINPGM AND NOT CDEMO-PGM-REENTER) OR (CDEMO-FROM-PROGRAM = LIT-LISTTPGM AND NOT CDEMO-PGM-REENTER))
 MOVE DFHCOMMAREA (1:LENGTH OF CARDDEMO-COMMAREA) TO CARDDEMO-COMMAREACOTRTUPC.cbl:376–377
  1. NOT (EIBCALEN IS EQUAL TO 0 OR (CDEMO-FROM-PROGRAM = LIT-ADMINPGM AND NOT CDEMO-PGM-REENTER) OR (CDEMO-FROM-PROGRAM = LIT-LISTTPGM AND NOT CDEMO-PGM-REENTER))
 MOVE DFHCOMMAREA(LENGTH OF CARDDEMO-COMMAREA + 1: LENGTH OF WS-THIS-PROGCOMMAREA ) TO WS-THIS-PROGCOMMAREACOTRTUPC.cbl:378–380
  1. CCARD-AID-PFK12 AND (TTUP-SHOW-DETAILS OR TTUP-CREATE-NEW-RECORD OR TTUP-DETAILS-NOT-FOUND) | TTUP-CHANGES-OKAYED-AND-DONE | TTUP-CHANGES-FAILED | TTUP-CHANGES-BACKED-OUT AND (TTUP-OLD-DETAILS EQUAL LOW-VALUES OR TTUP-OLD-DETAILS EQUAL SPACES) | TTUP-DELETE-DONE | TTUP-DELETE-FAILED
 SET CDEMO-PGM-ENTER TO TRUECOTRTUPC.cbl:417
  1. CCARD-AID-PFK12 AND (TTUP-SHOW-DETAILS OR TTUP-CREATE-NEW-RECORD OR TTUP-DETAILS-NOT-FOUND) | TTUP-CHANGES-OKAYED-AND-DONE | TTUP-CHANGES-FAILED | TTUP-CHANGES-BACKED-OUT AND (TTUP-OLD-DETAILS EQUAL LOW-VALUES OR TTUP-OLD-DETAILS EQUAL SPACES) | TTUP-DELETE-DONE | TTUP-DELETE-FAILED
 SET TTUP-DETAILS-NOT-FETCHED TO TRUECOTRTUPC.cbl:418
  1. CCARD-AID-PFK03
  2. CDEMO-FROM-TRANID EQUAL LOW-VALUES OR CDEMO-FROM-TRANID EQUAL SPACES
 MOVE LIT-ADMINTRANID TO CDEMO-TO-TRANIDCOTRTUPC.cbl:433
  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-TRANIDCOTRTUPC.cbl:435
  1. CCARD-AID-PFK03
  2. CDEMO-FROM-PROGRAM EQUAL LOW-VALUES OR CDEMO-FROM-PROGRAM EQUAL SPACES
 MOVE LIT-ADMINPGM TO CDEMO-TO-PROGRAMCOTRTUPC.cbl:440
  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-PROGRAMCOTRTUPC.cbl:442
  1. CCARD-AID-PFK03
 MOVE LIT-THISTRANID TO CDEMO-FROM-TRANIDCOTRTUPC.cbl:445
  1. CCARD-AID-PFK03
 MOVE LIT-THISPGM TO CDEMO-FROM-PROGRAMCOTRTUPC.cbl:446
  1. CCARD-AID-PFK03
 SET CDEMO-USRTYP-ADMIN TO TRUECOTRTUPC.cbl:448
  1. CCARD-AID-PFK03
 SET CDEMO-PGM-ENTER TO TRUECOTRTUPC.cbl:449
  1. CCARD-AID-PFK03
 MOVE LIT-THISMAPSET TO CDEMO-LAST-MAPSETCOTRTUPC.cbl:450
  1. CCARD-AID-PFK03
 MOVE LIT-THISMAP TO CDEMO-LAST-MAPCOTRTUPC.cbl:451
  1. CCARD-AID-PFK03
 EXEC CICS SYNCPOINT END-EXECCOTRTUPC.cbl:453–455
  1. CCARD-AID-PFK03
 EXEC CICS XCTL PROGRAM (CDEMO-TO-PROGRAM) COMMAREA(CARDDEMO-COMMAREA) END-EXECCOTRTUPC.cbl:457–460
  1. NOT CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-ADMINPGM | NOT CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-LISTTPGM | CDEMO-PGM-ENTER AND TTUP-DETAILS-NOT-FETCHED
 INITIALIZE WS-THIS-PROGCOMMAREA WS-MISC-STORAGE CDEMO-ACCT-IDCOTRTUPC.cbl:471–473
  1. NOT CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-ADMINPGM | NOT CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-LISTTPGM | CDEMO-PGM-ENTER AND TTUP-DETAILS-NOT-FETCHED
 PERFORM 3000-SEND-MAP THRU 3000-SEND-MAP-EXITCOTRTUPC.cbl:474–475
  1. NOT CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-ADMINPGM | NOT CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-LISTTPGM | CDEMO-PGM-ENTER AND TTUP-DETAILS-NOT-FETCHED
 SET CDEMO-PGM-REENTER TO TRUECOTRTUPC.cbl:476
  1. NOT CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-ADMINPGM | NOT CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-LISTTPGM | CDEMO-PGM-ENTER AND TTUP-DETAILS-NOT-FETCHED
 SET TTUP-DETAILS-NOT-FETCHED TO TRUECOTRTUPC.cbl:477
  1. NOT CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-ADMINPGM | NOT CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-LISTTPGM | CDEMO-PGM-ENTER AND TTUP-DETAILS-NOT-FETCHED
 GO TO COMMON-RETURNCOTRTUPC.cbl:478
  1. CCARD-AID-PFK04 AND TTUP-CONFIRM-DELETE
 SET TTUP-START-DELETE TO TRUECOTRTUPC.cbl:484
  1. CCARD-AID-PFK04 AND TTUP-CONFIRM-DELETE
 PERFORM 9800-DELETE-PROCESSING THRU 9800-DELETE-PROCESSING-EXITCOTRTUPC.cbl:485–486
  1. CCARD-AID-PFK04 AND TTUP-CONFIRM-DELETE
 PERFORM 3000-SEND-MAP THRU 3000-SEND-MAP-EXITCOTRTUPC.cbl:487–488
  1. CCARD-AID-PFK04 AND TTUP-CONFIRM-DELETE
 GO TO COMMON-RETURNCOTRTUPC.cbl:489
  1. CCARD-AID-PFK04 AND TTUP-SHOW-DETAILS
 SET TTUP-CONFIRM-DELETE TO TRUECOTRTUPC.cbl:495
  1. CCARD-AID-PFK04 AND TTUP-SHOW-DETAILS
 PERFORM 3000-SEND-MAP THRU 3000-SEND-MAP-EXITCOTRTUPC.cbl:496–497
  1. CCARD-AID-PFK04 AND TTUP-SHOW-DETAILS
 GO TO COMMON-RETURNCOTRTUPC.cbl:498
  1. CCARD-AID-PFK05 AND TTUP-DETAILS-NOT-FOUND
 SET TTUP-CREATE-NEW-RECORD TO TRUECOTRTUPC.cbl:505
  1. CCARD-AID-PFK05 AND TTUP-DETAILS-NOT-FOUND
 PERFORM 3000-SEND-MAP THRU 3000-SEND-MAP-EXITCOTRTUPC.cbl:506–507
  1. CCARD-AID-PFK05 AND TTUP-DETAILS-NOT-FOUND
 GO TO COMMON-RETURNCOTRTUPC.cbl:508
  1. CCARD-AID-PFK05 AND TTUP-CHANGES-OK-NOT-CONFIRMED
 PERFORM 9600-WRITE-PROCESSING THRU 9600-WRITE-PROCESSING-EXITCOTRTUPC.cbl:516–517
  1. CCARD-AID-PFK05 AND TTUP-CHANGES-OK-NOT-CONFIRMED
 PERFORM 3000-SEND-MAP THRU 3000-SEND-MAP-EXITCOTRTUPC.cbl:518–519
  1. CCARD-AID-PFK05 AND TTUP-CHANGES-OK-NOT-CONFIRMED
 GO TO COMMON-RETURNCOTRTUPC.cbl:520
  1. CCARD-AID-PFK12 AND (TTUP-CHANGES-OK-NOT-CONFIRMED OR TTUP-CONFIRM-DELETE OR TTUP-SHOW-DETAILS)
 SET FOUND-TRANTYPE-IN-TABLE TO TRUECOTRTUPC.cbl:528
  1. CCARD-AID-PFK12 AND (TTUP-CHANGES-OK-NOT-CONFIRMED OR TTUP-CONFIRM-DELETE OR TTUP-SHOW-DETAILS)
 PERFORM 2000-DECIDE-ACTION THRU 2000-DECIDE-ACTION-EXITCOTRTUPC.cbl:529–530
  1. CCARD-AID-PFK12 AND (TTUP-CHANGES-OK-NOT-CONFIRMED OR TTUP-CONFIRM-DELETE OR TTUP-SHOW-DETAILS)
 PERFORM 3000-SEND-MAP THRU 3000-SEND-MAP-EXITCOTRTUPC.cbl:531–532
  1. CCARD-AID-PFK12 AND (TTUP-CHANGES-OK-NOT-CONFIRMED OR TTUP-CONFIRM-DELETE OR TTUP-SHOW-DETAILS)
 GO TO COMMON-RETURNCOTRTUPC.cbl:533
  1. WS-INVALID-KEY-PRESSED
 PERFORM 3000-SEND-MAP THRU 3000-SEND-MAP-EXITCOTRTUPC.cbl:540–541
  1. WS-INVALID-KEY-PRESSED
 GO TO COMMON-RETURNCOTRTUPC.cbl:542
  1. TRUE is none of [CCARD-AID-PFK03; NOT CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-ADMINPGM; NOT CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-LISTTPGM; CDEMO-PGM-ENTER AND TTUP-DETAILS-NOT-FETCHED; CCARD-AID-PFK04 AND TTUP-CONFIRM-DELETE; CCARD-AID-PFK04 AND TTUP-SHOW-DETAILS; CCARD-AID-PFK05 AND TTUP-DETAILS-NOT-FOUND; CCARD-AID-PFK05 AND TTUP-CHANGES-OK-NOT-CONFIRMED; CCARD-AID-PFK12 AND (TTUP-CHANGES-OK-NOT-CONFIRMED OR TTUP-CONFIRM-DELETE OR TTUP-SHOW-DETAILS); WS-INVALID-KEY-PRESSED]
 PERFORM 1000-PROCESS-INPUTS THRU 1000-PROCESS-INPUTS-EXITCOTRTUPC.cbl:549–550
  1. TRUE is none of [CCARD-AID-PFK03; NOT CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-ADMINPGM; NOT CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-LISTTPGM; CDEMO-PGM-ENTER AND TTUP-DETAILS-NOT-FETCHED; CCARD-AID-PFK04 AND TTUP-CONFIRM-DELETE; CCARD-AID-PFK04 AND TTUP-SHOW-DETAILS; CCARD-AID-PFK05 AND TTUP-DETAILS-NOT-FOUND; CCARD-AID-PFK05 AND TTUP-CHANGES-OK-NOT-CONFIRMED; CCARD-AID-PFK12 AND (TTUP-CHANGES-OK-NOT-CONFIRMED OR TTUP-CONFIRM-DELETE OR TTUP-SHOW-DETAILS); WS-INVALID-KEY-PRESSED]
 PERFORM 2000-DECIDE-ACTION THRU 2000-DECIDE-ACTION-EXITCOTRTUPC.cbl:551–552
  1. TRUE is none of [CCARD-AID-PFK03; NOT CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-ADMINPGM; NOT CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-LISTTPGM; CDEMO-PGM-ENTER AND TTUP-DETAILS-NOT-FETCHED; CCARD-AID-PFK04 AND TTUP-CONFIRM-DELETE; CCARD-AID-PFK04 AND TTUP-SHOW-DETAILS; CCARD-AID-PFK05 AND TTUP-DETAILS-NOT-FOUND; CCARD-AID-PFK05 AND TTUP-CHANGES-OK-NOT-CONFIRMED; CCARD-AID-PFK12 AND (TTUP-CHANGES-OK-NOT-CONFIRMED OR TTUP-CONFIRM-DELETE OR TTUP-SHOW-DETAILS); WS-INVALID-KEY-PRESSED]
 PERFORM 3000-SEND-MAP THRU 3000-SEND-MAP-EXITCOTRTUPC.cbl:553–554
  1. TRUE is none of [CCARD-AID-PFK03; NOT CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-ADMINPGM; NOT CDEMO-PGM-REENTER AND CDEMO-FROM-PROGRAM EQUAL LIT-LISTTPGM; CDEMO-PGM-ENTER AND TTUP-DETAILS-NOT-FETCHED; CCARD-AID-PFK04 AND TTUP-CONFIRM-DELETE; CCARD-AID-PFK04 AND TTUP-SHOW-DETAILS; CCARD-AID-PFK05 AND TTUP-DETAILS-NOT-FOUND; CCARD-AID-PFK05 AND TTUP-CHANGES-OK-NOT-CONFIRMED; CCARD-AID-PFK12 AND (TTUP-CHANGES-OK-NOT-CONFIRMED OR TTUP-CONFIRM-DELETE OR TTUP-SHOW-DETAILS); WS-INVALID-KEY-PRESSED]
 GO TO COMMON-RETURNCOTRTUPC.cbl:555
3 rules

0001-CHECK-PFKEYS

WhenThenAt
  1. (CCARD-AID-PFK03) OR (CCARD-AID-ENTER AND NOT TTUP-CONFIRM-DELETE) OR (CCARD-AID-PFK04 AND (TTUP-SHOW-DETAILS OR TTUP-CONFIRM-DELETE ) ) OR (CCARD-AID-PFK05 AND ( TTUP-CHANGES-OK-NOT-CONFIRMED OR TTUP-DETAILS-NOT-FOUND OR TTUP-DELETE-IN-PROGRESS ) ) OR (CCARD-AID-PFK12 AND ( TTUP-CHANGES-OK-NOT-CONFIRMED OR TTUP-SHOW-DETAILS OR TTUP-DETAILS-NOT-FOUND OR TTUP-CONFIRM-DELETE OR TTUP-CREATE-NEW-RECORD ) )
 SET PFK-VALID TO TRUECOTRTUPC.cbl:602
  1. NOT ((CCARD-AID-PFK03) OR (CCARD-AID-ENTER AND NOT TTUP-CONFIRM-DELETE) OR (CCARD-AID-PFK04 AND (TTUP-SHOW-DETAILS OR TTUP-CONFIRM-DELETE ) ) OR (CCARD-AID-PFK05 AND ( TTUP-CHANGES-OK-NOT-CONFIRMED OR TTUP-DETAILS-NOT-FOUND OR TTUP-DELETE-IN-PROGRESS ) ) OR (CCARD-AID-PFK12 AND ( TTUP-CHANGES-OK-NOT-CONFIRMED OR TTUP-SHOW-DETAILS OR TTUP-DETAILS-NOT-FOUND OR TTUP-CONFIRM-DELETE OR TTUP-CREATE-NEW-RECORD ) ))
 SET PFK-INVALID TO TRUECOTRTUPC.cbl:604
  1. NOT ((CCARD-AID-PFK03) OR (CCARD-AID-ENTER AND NOT TTUP-CONFIRM-DELETE) OR (CCARD-AID-PFK04 AND (TTUP-SHOW-DETAILS OR TTUP-CONFIRM-DELETE ) ) OR (CCARD-AID-PFK05 AND ( TTUP-CHANGES-OK-NOT-CONFIRMED OR TTUP-DETAILS-NOT-FOUND OR TTUP-DELETE-IN-PROGRESS ) ) OR (CCARD-AID-PFK12 AND ( TTUP-CHANGES-OK-NOT-CONFIRMED OR TTUP-SHOW-DETAILS OR TTUP-DETAILS-NOT-FOUND OR TTUP-CONFIRM-DELETE OR TTUP-CREATE-NEW-RECORD ) ))
  2. WS-RETURN-MSG-OFF
 SET WS-INVALID-KEY-PRESSED TO TRUECOTRTUPC.cbl:606
5 rules

1150-STORE-MAP-IN-NEW

WhenThenAt
  1. TTUP-DETAILS-NOT-FOUND AND NOT CCARD-AID-PFK05 AND FUNCTION TRIM(TRTYPCDI OF CTRTUPAI) = TTUP-NEW-TTYP-TYPE
 GO TO 1150-STORE-MAP-IN-NEW-EXITCOTRTUPC.cbl:658
  1. TRTYPCDI OF CTRTUPAI = '*' OR TRTYPCDI OF CTRTUPAI = SPACES
 MOVE LOW-VALUES TO TTUP-NEW-TTYP-TYPECOTRTUPC.cbl:669
  1. NOT (TRTYPCDI OF CTRTUPAI = '*' OR TRTYPCDI OF CTRTUPAI = SPACES)
 MOVE FUNCTION TRIM(TRTYPCDI OF CTRTUPAI) TO TTUP-NEW-TTYP-TYPECOTRTUPC.cbl:671–672
  1. TRTYDSCI OF CTRTUPAI = '*' OR TRTYDSCI OF CTRTUPAI = SPACES
 MOVE LOW-VALUES TO TTUP-NEW-TTYP-TYPE-DESCCOTRTUPC.cbl:680
  1. NOT (TRTYDSCI OF CTRTUPAI = '*' OR TRTYDSCI OF CTRTUPAI = SPACES)
 MOVE FUNCTION TRIM(TRTYDSCI OF CTRTUPAI) TO TTUP-NEW-TTYP-TYPE-DESCCOTRTUPC.cbl:682–683
15 rules

1200-EDIT-MAP-INPUTS

WhenThenAt
  1. TTUP-DETAILS-NOT-FOUND AND FUNCTION TRIM(TRTYPCDI OF CTRTUPAI) = TTUP-NEW-TTYP-TYPE
  2. NOT (CCARD-AID-PFK05)
 SET TTUP-DETAILS-NOT-FETCHED TO TRUECOTRTUPC.cbl:704
  1. TTUP-DETAILS-NOT-FOUND AND FUNCTION TRIM(TRTYPCDI OF CTRTUPAI) = TTUP-NEW-TTYP-TYPE
 SET FLG-TRANFILTER-ISVALID TO TRUECOTRTUPC.cbl:706
  1. TTUP-DETAILS-NOT-FOUND AND FUNCTION TRIM(TRTYPCDI OF CTRTUPAI) = TTUP-NEW-TTYP-TYPE
 GO TO 1200-EDIT-MAP-INPUTS-EXITCOTRTUPC.cbl:707
  1. NOT (TTUP-CREATE-NEW-RECORD OR TTUP-CHANGES-OK-NOT-CONFIRMED)
 PERFORM 1210-EDIT-TRANTYPE THRU 1210-EDIT-TRANTYPE-EXITCOTRTUPC.cbl:716–717
  1. NOT (TTUP-CREATE-NEW-RECORD OR TTUP-CHANGES-OK-NOT-CONFIRMED)
  2. FLG-TRANFILTER-BLANK
  3. WS-RETURN-MSG-OFF
 SET NO-SEARCH-CRITERIA-RECEIVED TO TRUECOTRTUPC.cbl:722
  1. NOT (TTUP-CREATE-NEW-RECORD OR TTUP-CHANGES-OK-NOT-CONFIRMED)
  2. FLG-TRANFILTER-BLANK
 SET TTUP-DETAILS-NOT-FETCHED TO TRUECOTRTUPC.cbl:724
  1. NOT (TTUP-CREATE-NEW-RECORD OR TTUP-CHANGES-OK-NOT-CONFIRMED)
  2. FLG-TRANFILTER-BLANK
 GO TO 1200-EDIT-MAP-INPUTS-EXITCOTRTUPC.cbl:725
  1. NOT (TTUP-CREATE-NEW-RECORD OR TTUP-CHANGES-OK-NOT-CONFIRMED)
  2. FLG-TRANFILTER-NOT-OK
 SET TTUP-INVALID-SEARCH-KEYS TO TRUECOTRTUPC.cbl:729
  1. NOT (TTUP-CREATE-NEW-RECORD OR TTUP-CHANGES-OK-NOT-CONFIRMED)
  2. FLG-TRANFILTER-NOT-OK
 SET TTUP-DETAILS-NOT-FETCHED TO TRUECOTRTUPC.cbl:730
  1. NOT (TTUP-CREATE-NEW-RECORD OR TTUP-CHANGES-OK-NOT-CONFIRMED)
  2. FLG-TRANFILTER-NOT-OK
 GO TO 1200-EDIT-MAP-INPUTS-EXITCOTRTUPC.cbl:731
  1. NOT (TTUP-CREATE-NEW-RECORD OR TTUP-CHANGES-OK-NOT-CONFIRMED)
  2. TTUP-DETAILS-NOT-FETCHED
 GO TO 1200-EDIT-MAP-INPUTS-EXITCOTRTUPC.cbl:735
  1. NO-CHANGES-FOUND OR TTUP-CHANGES-OK-NOT-CONFIRMED OR TTUP-CHANGES-OKAYED-AND-DONE
 MOVE LOW-VALUES TO WS-NON-KEY-FLAGSCOTRTUPC.cbl:749
  1. NO-CHANGES-FOUND OR TTUP-CHANGES-OK-NOT-CONFIRMED OR TTUP-CHANGES-OKAYED-AND-DONE
 GO TO 1200-EDIT-MAP-INPUTS-EXITCOTRTUPC.cbl:750
always MOVE 'Transaction Desc' TO WS-EDIT-VARIABLE-NAMECOTRTUPC.cbl:758
  1. NOT (INPUT-ERROR)
 SET TTUP-CHANGES-OK-NOT-CONFIRMED TO TRUECOTRTUPC.cbl:775
3 rules

1205-COMPARE-OLD-NEW

WhenThenAt
  1. FUNCTION UPPER-CASE ( TTUP-NEW-TTYP-TYPE) = FUNCTION UPPER-CASE ( TTUP-OLD-TTYP-TYPE) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (TTUP-NEW-TTYP-TYPE-DESC))= FUNCTION UPPER-CASE ( FUNCTION TRIM (TTUP-OLD-TTYP-TYPE-DESC)) AND FUNCTION LENGTH ( FUNCTION TRIM (TTUP-NEW-TTYP-TYPE-DESC))= FUNCTION LENGTH ( FUNCTION TRIM (TTUP-OLD-TTYP-TYPE-DESC))
  2. WS-RETURN-MSG-OFF
 SET NO-CHANGES-DETECTED TO TRUECOTRTUPC.cbl:800
  1. NOT (FUNCTION UPPER-CASE ( TTUP-NEW-TTYP-TYPE) = FUNCTION UPPER-CASE ( TTUP-OLD-TTYP-TYPE) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (TTUP-NEW-TTYP-TYPE-DESC))= FUNCTION UPPER-CASE ( FUNCTION TRIM (TTUP-OLD-TTYP-TYPE-DESC)) AND FUNCTION LENGTH ( FUNCTION TRIM (TTUP-NEW-TTYP-TYPE-DESC))= FUNCTION LENGTH ( FUNCTION TRIM (TTUP-OLD-TTYP-TYPE-DESC)))
  2. WS-RETURN-MSG-OFF
 SET CHANGE-HAS-OCCURRED TO TRUECOTRTUPC.cbl:806
  1. NOT (FUNCTION UPPER-CASE ( TTUP-NEW-TTYP-TYPE) = FUNCTION UPPER-CASE ( TTUP-OLD-TTYP-TYPE) AND FUNCTION UPPER-CASE ( FUNCTION TRIM (TTUP-NEW-TTYP-TYPE-DESC))= FUNCTION UPPER-CASE ( FUNCTION TRIM (TTUP-OLD-TTYP-TYPE-DESC)) AND FUNCTION LENGTH ( FUNCTION TRIM (TTUP-NEW-TTYP-TYPE-DESC))= FUNCTION LENGTH ( FUNCTION TRIM (TTUP-OLD-TTYP-TYPE-DESC)))
 GO TO 1205-COMPARE-OLD-NEW-EXITCOTRTUPC.cbl:810
4 rules

1210-EDIT-TRANTYPE

WhenThenAt
always MOVE 'Tran Type code' TO WS-EDIT-VARIABLE-NAMECOTRTUPC.cbl:826
  1. FLG-TRANFILTER-ISVALID
calc COMPUTE WS-EDIT-NUMERIC-2 = FUNCTION NUMVAL(TTUP-NEW-TTYP-TYPE)COTRTUPC.cbl:835–836
  1. FLG-TRANFILTER-ISVALID
 MOVE WS-EDIT-NUMERIC-2 TO WS-EDIT-ALPHANUMERIC-2COTRTUPC.cbl:838
  1. FLG-TRANFILTER-ISVALID
 MOVE WS-EDIT-ALPHANUMERIC-2 TO TTUP-NEW-TTYP-TYPECOTRTUPC.cbl:841
8 rules

1230-EDIT-ALPHANUM-REQD

WhenThenAt
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
 SET INPUT-ERROR TO TRUECOTRTUPC.cbl:861
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
 SET FLG-ALPHNANUM-BLANK TO TRUECOTRTUPC.cbl:862
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ' must be supplied.' DELIMITED BY SIZE INTO WS-RETURN-MSGCOTRTUPC.cbl:864–868
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
 GO TO 1230-EDIT-ALPHANUM-REQD-EXITCOTRTUPC.cbl:872
  1. NOT (FUNCTION LENGTH( FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) )) = 0)
 SET INPUT-ERROR TO TRUECOTRTUPC.cbl:888
  1. NOT (FUNCTION LENGTH( FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) )) = 0)
 SET FLG-ALPHNANUM-NOT-OK TO TRUECOTRTUPC.cbl:889
  1. NOT (FUNCTION LENGTH( FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) )) = 0)
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ' can have numbers or alphabets only.' DELIMITED BY SIZE INTO WS-RETURN-MSGCOTRTUPC.cbl:891–895
  1. NOT (FUNCTION LENGTH( FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) )) = 0)
 GO TO 1230-EDIT-ALPHANUM-REQD-EXITCOTRTUPC.cbl:898
12 rules

1245-EDIT-NUM-REQD

WhenThenAt
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
 SET INPUT-ERROR TO TRUECOTRTUPC.cbl:919
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
 SET FLG-ALPHNANUM-BLANK TO TRUECOTRTUPC.cbl:920
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ' must be supplied.' DELIMITED BY SIZE INTO WS-RETURN-MSGCOTRTUPC.cbl:922–926
  1. WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL LOW-VALUES OR WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH) EQUAL SPACES OR FUNCTION LENGTH(FUNCTION TRIM( WS-EDIT-ALPHANUM-ONLY(1:WS-EDIT-ALPHANUM-LENGTH))) = 0
 GO TO 1245-EDIT-NUM-REQD-EXITCOTRTUPC.cbl:929
  1. NOT (FUNCTION TEST-NUMVAL(WS-EDIT-ALPHANUM-ONLY(1: WS-EDIT-ALPHANUM-LENGTH)) = 0)
 SET INPUT-ERROR TO TRUECOTRTUPC.cbl:938
  1. NOT (FUNCTION TEST-NUMVAL(WS-EDIT-ALPHANUM-ONLY(1: WS-EDIT-ALPHANUM-LENGTH)) = 0)
 SET FLG-ALPHNANUM-NOT-OK TO TRUECOTRTUPC.cbl:939
  1. NOT (FUNCTION TEST-NUMVAL(WS-EDIT-ALPHANUM-ONLY(1: WS-EDIT-ALPHANUM-LENGTH)) = 0)
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ' must be numeric.' DELIMITED BY SIZE INTO WS-RETURN-MSGCOTRTUPC.cbl:941–945
  1. NOT (FUNCTION TEST-NUMVAL(WS-EDIT-ALPHANUM-ONLY(1: WS-EDIT-ALPHANUM-LENGTH)) = 0)
 GO TO 1245-EDIT-NUM-REQD-EXITCOTRTUPC.cbl:948
  1. FUNCTION NUMVAL(WS-EDIT-ALPHANUM-ONLY(1: WS-EDIT-ALPHANUM-LENGTH)) = 0
 SET INPUT-ERROR TO TRUECOTRTUPC.cbl:956
  1. FUNCTION NUMVAL(WS-EDIT-ALPHANUM-ONLY(1: WS-EDIT-ALPHANUM-LENGTH)) = 0
 SET FLG-ALPHNANUM-NOT-OK TO TRUECOTRTUPC.cbl:957
  1. FUNCTION NUMVAL(WS-EDIT-ALPHANUM-ONLY(1: WS-EDIT-ALPHANUM-LENGTH)) = 0
  2. WS-RETURN-MSG-OFF
 STRING FUNCTION TRIM(WS-EDIT-VARIABLE-NAME) ' must not be zero.' DELIMITED BY SIZE INTO WS-RETURN-MSGCOTRTUPC.cbl:959–963
  1. FUNCTION NUMVAL(WS-EDIT-ALPHANUM-ONLY(1: WS-EDIT-ALPHANUM-LENGTH)) = 0
 GO TO 1245-EDIT-NUM-REQD-EXITCOTRTUPC.cbl:966
21 rules

2000-DECIDE-ACTION

WhenThenAt
  1. TTUP-DETAILS-NOT-FETCHED | CCARD-AID-PFK12
  2. FLG-TRANFILTER-ISVALID
 SET WS-RETURN-MSG-OFF TO TRUECOTRTUPC.cbl:990
  1. TTUP-DETAILS-NOT-FETCHED | CCARD-AID-PFK12
  2. FLG-TRANFILTER-ISVALID
 PERFORM 9000-READ-TRANTYPE THRU 9000-READ-TRANTYPE-EXITCOTRTUPC.cbl:991–992
  1. TTUP-DETAILS-NOT-FETCHED | CCARD-AID-PFK12
  2. FLG-TRANFILTER-ISVALID
  3. FOUND-TRANTYPE-IN-TABLE
 SET TTUP-SHOW-DETAILS TO TRUECOTRTUPC.cbl:994
  1. TTUP-DETAILS-NOT-FETCHED | CCARD-AID-PFK12
  2. FLG-TRANFILTER-ISVALID
  3. NOT (FOUND-TRANTYPE-IN-TABLE)
 SET TTUP-DETAILS-NOT-FOUND TO TRUECOTRTUPC.cbl:996
  1. TTUP-DETAILS-NOT-FETCHED | CCARD-AID-PFK12
  2. NOT (FLG-TRANFILTER-ISVALID)
  3. TTUP-CONFIRM-DELETE
 SET WS-DELETE-WAS-CANCELLED TO TRUECOTRTUPC.cbl:1001
  1. TTUP-DETAILS-NOT-FETCHED | CCARD-AID-PFK12
  2. NOT (FLG-TRANFILTER-ISVALID)
  3. TTUP-CONFIRM-DELETE
 SET TTUP-DETAILS-NOT-FETCHED TO TRUECOTRTUPC.cbl:1002
  1. TTUP-DETAILS-NOT-FETCHED | CCARD-AID-PFK12
  2. NOT (FLG-TRANFILTER-ISVALID)
  3. TTUP-CHANGES-OK-NOT-CONFIRMED
 SET WS-UPDATE-WAS-CANCELLED TO TRUECOTRTUPC.cbl:1004
  1. TTUP-DETAILS-NOT-FETCHED | CCARD-AID-PFK12
  2. NOT (FLG-TRANFILTER-ISVALID)
  3. TTUP-CHANGES-OK-NOT-CONFIRMED
 SET TTUP-CHANGES-BACKED-OUT TO TRUECOTRTUPC.cbl:1005
  1. TTUP-DETAILS-NOT-FETCHED | CCARD-AID-PFK12
  2. NOT (FLG-TRANFILTER-ISVALID)
  3. TRUE is none of [TTUP-CONFIRM-DELETE; TTUP-CHANGES-OK-NOT-CONFIRMED]
 SET TTUP-DETAILS-NOT-FETCHED TO TRUECOTRTUPC.cbl:1007
  1. TTUP-CONFIRM-DELETE AND CCARD-AID-PFK12
 SET TTUP-CONFIRM-DELETE TO TRUECOTRTUPC.cbl:1018
  1. TTUP-SHOW-DETAILS
  2. NOT (INPUT-ERROR OR NO-CHANGES-DETECTED OR WS-INVALID-KEY)
 SET TTUP-CHANGES-OK-NOT-CONFIRMED TO TRUECOTRTUPC.cbl:1029
  1. TTUP-CHANGES-BACKED-OUT
 SET TTUP-CHANGES-NOT-OK TO TRUECOTRTUPC.cbl:1042
  1. CCARD-AID-PFK05 AND TTUP-DETAILS-NOT-FOUND
 SET TTUP-CREATE-NEW-RECORD TO TRUECOTRTUPC.cbl:1055
  1. TTUP-CHANGES-OKAYED-AND-DONE
 SET TTUP-SHOW-DETAILS TO TRUECOTRTUPC.cbl:1066
  1. TTUP-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-NUMCOTRTUPC.cbl:1069–1070
  1. TTUP-CHANGES-OKAYED-AND-DONE
  2. CDEMO-FROM-TRANID EQUAL LOW-VALUES OR CDEMO-FROM-TRANID EQUAL SPACES
 MOVE LOW-VALUES TO CDEMO-ACCT-STATUSCOTRTUPC.cbl:1071
  1. TRUE is none of [TTUP-DETAILS-NOT-FETCHED; CCARD-AID-PFK12; TTUP-CONFIRM-DELETE AND CCARD-AID-PFK12; TTUP-SHOW-DETAILS; TTUP-CHANGES-NOT-OK; TTUP-CHANGES-BACKED-OUT; TTUP-INVALID-SEARCH-KEYS; CCARD-AID-PFK05 AND TTUP-DETAILS-NOT-FOUND; TTUP-CHANGES-OK-NOT-CONFIRMED; TTUP-CHANGES-OKAYED-AND-DONE]
 MOVE LIT-THISPGM TO ABEND-CULPRITCOTRTUPC.cbl:1074
  1. TRUE is none of [TTUP-DETAILS-NOT-FETCHED; CCARD-AID-PFK12; TTUP-CONFIRM-DELETE AND CCARD-AID-PFK12; TTUP-SHOW-DETAILS; TTUP-CHANGES-NOT-OK; TTUP-CHANGES-BACKED-OUT; TTUP-INVALID-SEARCH-KEYS; CCARD-AID-PFK05 AND TTUP-DETAILS-NOT-FOUND; TTUP-CHANGES-OK-NOT-CONFIRMED; TTUP-CHANGES-OKAYED-AND-DONE]
 MOVE '0001' TO ABEND-CODECOTRTUPC.cbl:1075
  1. TRUE is none of [TTUP-DETAILS-NOT-FETCHED; CCARD-AID-PFK12; TTUP-CONFIRM-DELETE AND CCARD-AID-PFK12; TTUP-SHOW-DETAILS; TTUP-CHANGES-NOT-OK; TTUP-CHANGES-BACKED-OUT; TTUP-INVALID-SEARCH-KEYS; CCARD-AID-PFK05 AND TTUP-DETAILS-NOT-FOUND; TTUP-CHANGES-OK-NOT-CONFIRMED; TTUP-CHANGES-OKAYED-AND-DONE]
 MOVE SPACES TO ABEND-REASONCOTRTUPC.cbl:1076
  1. TRUE is none of [TTUP-DETAILS-NOT-FETCHED; CCARD-AID-PFK12; TTUP-CONFIRM-DELETE AND CCARD-AID-PFK12; TTUP-SHOW-DETAILS; TTUP-CHANGES-NOT-OK; TTUP-CHANGES-BACKED-OUT; TTUP-INVALID-SEARCH-KEYS; CCARD-AID-PFK05 AND TTUP-DETAILS-NOT-FOUND; TTUP-CHANGES-OK-NOT-CONFIRMED; TTUP-CHANGES-OKAYED-AND-DONE]
 MOVE 'UNEXPECTED DATA SCENARIO' TO ABEND-MSGCOTRTUPC.cbl:1077–1078
  1. TRUE is none of [TTUP-DETAILS-NOT-FETCHED; CCARD-AID-PFK12; TTUP-CONFIRM-DELETE AND CCARD-AID-PFK12; TTUP-SHOW-DETAILS; TTUP-CHANGES-NOT-OK; TTUP-CHANGES-BACKED-OUT; TTUP-INVALID-SEARCH-KEYS; CCARD-AID-PFK05 AND TTUP-DETAILS-NOT-FOUND; TTUP-CHANGES-OK-NOT-CONFIRMED; TTUP-CHANGES-OKAYED-AND-DONE]
 PERFORM ABEND-ROUTINE THRU ABEND-ROUTINE-EXITCOTRTUPC.cbl:1079–1080
6 rules

3200-SETUP-SCREEN-VARS

WhenThenAt
  1. NOT (CDEMO-PGM-ENTER)
  2. TTUP-DETAILS-NOT-FETCHED
 PERFORM 3201-SHOW-INITIAL-VALUES THRU 3201-SHOW-INITIAL-VALUES-EXITCOTRTUPC.cbl:1147–1148
  1. NOT (CDEMO-PGM-ENTER)
  2. TTUP-SHOW-DETAILS | TTUP-CONFIRM-DELETE | TTUP-DELETE-FAILED | TTUP-DELETE-DONE | TTUP-CHANGES-BACKED-OUT
 INITIALIZE TTUP-NEW-DETAILSCOTRTUPC.cbl:1154
  1. NOT (CDEMO-PGM-ENTER)
  2. TTUP-SHOW-DETAILS | TTUP-CONFIRM-DELETE | TTUP-DELETE-FAILED | TTUP-DELETE-DONE | TTUP-CHANGES-BACKED-OUT
 PERFORM 3202-SHOW-ORIGINAL-VALUES THRU 3202-SHOW-ORIGINAL-VALUES-EXITCOTRTUPC.cbl:1155–1156
  1. NOT (CDEMO-PGM-ENTER)
  2. TTUP-CHANGES-MADE | TTUP-CHANGES-NOT-OK | TTUP-DETAILS-NOT-FOUND | TTUP-INVALID-SEARCH-KEYS | TTUP-CREATE-NEW-RECORD | TTUP-CHANGES-OKAYED-AND-DONE
 PERFORM 3203-SHOW-UPDATED-VALUES THRU 3203-SHOW-UPDATED-VALUES-EXITCOTRTUPC.cbl:1163–1164
  1. NOT (CDEMO-PGM-ENTER)
  2. TRUE is none of [TTUP-DETAILS-NOT-FETCHED; TTUP-SHOW-DETAILS; TTUP-CONFIRM-DELETE; TTUP-DELETE-FAILED; TTUP-DELETE-DONE; TTUP-CHANGES-BACKED-OUT; TTUP-CHANGES-MADE; TTUP-CHANGES-NOT-OK; TTUP-DETAILS-NOT-FOUND; TTUP-INVALID-SEARCH-KEYS; TTUP-CREATE-NEW-RECORD; TTUP-CHANGES-OKAYED-AND-DONE]
 INITIALIZE TTUP-NEW-DETAILSCOTRTUPC.cbl:1166
  1. NOT (CDEMO-PGM-ENTER)
  2. TRUE is none of [TTUP-DETAILS-NOT-FETCHED; TTUP-SHOW-DETAILS; TTUP-CONFIRM-DELETE; TTUP-DELETE-FAILED; TTUP-DELETE-DONE; TTUP-CHANGES-BACKED-OUT; TTUP-CHANGES-MADE; TTUP-CHANGES-NOT-OK; TTUP-DETAILS-NOT-FOUND; TTUP-INVALID-SEARCH-KEYS; TTUP-CREATE-NEW-RECORD; TTUP-CHANGES-OKAYED-AND-DONE]
 PERFORM 3202-SHOW-ORIGINAL-VALUES THRU 3202-SHOW-ORIGINAL-VALUES-EXITCOTRTUPC.cbl:1167–1168
16 rules

3250-SETUP-INFOMSG

WhenThenAt
  1. CDEMO-PGM-ENTER
 SET PROMPT-FOR-SEARCH-KEYS TO TRUECOTRTUPC.cbl:1215
  1. TTUP-DETAILS-NOT-FETCHED | TTUP-INVALID-SEARCH-KEYS
 SET PROMPT-FOR-SEARCH-KEYS TO TRUECOTRTUPC.cbl:1218
  1. TTUP-DETAILS-NOT-FOUND
 SET PROMPT-CREATE-NEW-RECORD TO TRUECOTRTUPC.cbl:1220
  1. TTUP-SHOW-DETAILS | TTUP-CHANGES-BACKED-OUT AND (TTUP-OLD-TTYP-TYPE = LOW-VALUES OR TTUP-OLD-TTYP-TYPE = SPACES)
 SET PROMPT-FOR-SEARCH-KEYS TO TRUECOTRTUPC.cbl:1225
  1. TTUP-CHANGES-BACKED-OUT | TTUP-CHANGES-NOT-OK
 SET PROMPT-FOR-CHANGES TO TRUECOTRTUPC.cbl:1228
  1. TTUP-CONFIRM-DELETE
 SET PROMPT-DELETE-CONFIRM TO TRUECOTRTUPC.cbl:1230
  1. TTUP-DELETE-FAILED
 SET INFORM-FAILURE TO TRUECOTRTUPC.cbl:1232
  1. TTUP-DELETE-DONE
 SET CONFIRM-DELETE-SUCCESS TO TRUECOTRTUPC.cbl:1234
  1. TTUP-CREATE-NEW-RECORD
 SET PROMPT-FOR-NEWDATA TO TRUECOTRTUPC.cbl:1236
  1. TTUP-CHANGES-OK-NOT-CONFIRMED
 SET PROMPT-FOR-CONFIRMATION TO TRUECOTRTUPC.cbl:1238
  1. TTUP-CHANGES-OKAYED-AND-DONE
 SET CONFIRM-UPDATE-SUCCESS TO TRUECOTRTUPC.cbl:1240
  1. TTUP-CHANGES-OKAYED-LOCK-ERROR
 SET INFORM-FAILURE TO TRUECOTRTUPC.cbl:1242
  1. TTUP-CHANGES-OKAYED-BUT-FAILED
 SET INFORM-FAILURE TO TRUECOTRTUPC.cbl:1244
  1. WS-NO-INFO-MESSAGE
 SET PROMPT-FOR-SEARCH-KEYS TO TRUECOTRTUPC.cbl:1246
alwayscalc COMPUTE WS-STRING-LEN = FUNCTION LENGTH( FUNCTION TRIM(WS-INFO-MSG) )COTRTUPC.cbl:1251–1254
alwayscalc COMPUTE WS-STRING-MID = (FUNCTION LENGTH(WS-INFO-MSG) - WS-STRING-LEN) / 2 + 1COTRTUPC.cbl:1255–1257
12 rules

3300-SETUP-SCREEN-ATTRS

WhenThenAt
  1. TTUP-DETAILS-NOT-FETCHED | TTUP-INVALID-SEARCH-KEYS | TTUP-DETAILS-NOT-FOUND | TTUP-CHANGES-BACKED-OUT AND (TTUP-OLD-TTYP-TYPE = LOW-VALUES OR TTUP-OLD-TTYP-TYPE = SPACES)
 MOVE DFHBMFSE TO TRTYPCDA OF CTRTUPAICOTRTUPC.cbl:1284
  1. TTUP-SHOW-DETAILS | TTUP-CHANGES-NOT-OK | TTUP-CREATE-NEW-RECORD | TTUP-CHANGES-BACKED-OUT
 PERFORM 3320-UNPROTECT-FEW-ATTRS THRU 3320-UNPROTECT-FEW-ATTRS-EXITCOTRTUPC.cbl:1289–1290
  1. TRUE is none of [TTUP-DETAILS-NOT-FETCHED; TTUP-INVALID-SEARCH-KEYS; TTUP-DETAILS-NOT-FOUND; TTUP-CHANGES-BACKED-OUT AND (TTUP-OLD-TTYP-TYPE = LOW-VALUES OR TTUP-OLD-TTYP-TYPE = SPACES); TTUP-SHOW-DETAILS; TTUP-CHANGES-NOT-OK; TTUP-CREATE-NEW-RECORD; TTUP-CHANGES-BACKED-OUT; TTUP-CHANGES-OK-NOT-CONFIRMED; TTUP-CHANGES-OKAYED-AND-DONE; TTUP-DELETE-IN-PROGRESS]
 MOVE DFHBMFSE TO TRTYPCDA OF CTRTUPAICOTRTUPC.cbl:1297
  1. TTUP-DETAILS-NOT-FETCHED | TTUP-DETAILS-NOT-FOUND | TTUP-INVALID-SEARCH-KEYS | FLG-TRANFILTER-NOT-OK | FLG-TRANFILTER-BLANK | TTUP-CHANGES-OKAYED-AND-DONE | TTUP-CHANGES-BACKED-OUT AND (TTUP-OLD-TTYP-TYPE = LOW-VALUES OR TTUP-OLD-TTYP-TYPE = SPACES)
 MOVE -1 TO TRTYPCDL OF CTRTUPAICOTRTUPC.cbl:1313
  1. TTUP-CREATE-NEW-RECORD | NO-CHANGES-DETECTED | FLG-DESCRIPTION-NOT-OK | FLG-DESCRIPTION-BLANK | TTUP-CHANGES-MADE | TTUP-CHANGES-BACKED-OUT | TTUP-SHOW-DETAILS
 MOVE -1 TO TRTYDSCL OF CTRTUPAICOTRTUPC.cbl:1322
  1. TRUE is none of [TTUP-DETAILS-NOT-FETCHED; TTUP-DETAILS-NOT-FOUND; TTUP-INVALID-SEARCH-KEYS; FLG-TRANFILTER-NOT-OK; FLG-TRANFILTER-BLANK; TTUP-CHANGES-OKAYED-AND-DONE; TTUP-CHANGES-BACKED-OUT AND (TTUP-OLD-TTYP-TYPE = LOW-VALUES OR TTUP-OLD-TTYP-TYPE = SPACES); TTUP-CREATE-NEW-RECORD; NO-CHANGES-DETECTED; FLG-DESCRIPTION-NOT-OK; FLG-DESCRIPTION-BLANK; TTUP-CHANGES-MADE; TTUP-CHANGES-BACKED-OUT; TTUP-SHOW-DETAILS]
 MOVE -1 TO TRTYPCDL OF CTRTUPAICOTRTUPC.cbl:1324
  1. FLG-TRANFILTER-NOT-OK OR TTUP-DELETE-FAILED
 MOVE DFHRED TO TRTYPCDC OF CTRTUPAOCOTRTUPC.cbl:1333
  1. FLG-TRANFILTER-BLANK AND CDEMO-PGM-REENTER
 MOVE '*' TO TRTYPCDO OF CTRTUPAOCOTRTUPC.cbl:1338
  1. FLG-TRANFILTER-BLANK AND CDEMO-PGM-REENTER
 MOVE DFHRED TO TRTYPCDC OF CTRTUPAOCOTRTUPC.cbl:1339
  1. TTUP-DETAILS-NOT-FETCHED OR TTUP-DETAILS-NOT-FOUND OR TTUP-INVALID-SEARCH-KEYS OR FLG-TRANFILTER-BLANK OR FLG-TRANFILTER-NOT-OK
 GO TO 3300-SETUP-SCREEN-ATTRS-EXITCOTRTUPC.cbl:1347
  1. (FLG-DESCRIPTION-NOT-OK OR FLG-DESCRIPTION-BLANK) AND CDEMO-PGM-REENTER
 MOVE DFHRED TO TRTYDSCC OF CTRTUPAOCSSETATY.cpy:21–22 via COTRTUPC.cbl:1358
  1. (FLG-DESCRIPTION-NOT-OK OR FLG-DESCRIPTION-BLANK) AND CDEMO-PGM-REENTER
  2. FLG-DESCRIPTION-BLANK
 MOVE '*' TO TRTYDSCO OF CTRTUPAOCSSETATY.cpy:24–25 via COTRTUPC.cbl:1358
2 rules

3390-SETUP-INFOMSG-ATTRS

WhenThenAt
  1. WS-NO-INFO-MESSAGE
 MOVE DFHBMDAR TO INFOMSGA OF CTRTUPAICOTRTUPC.cbl:1388
  1. NOT (WS-NO-INFO-MESSAGE)
 MOVE DFHBMASB TO INFOMSGA OF CTRTUPAICOTRTUPC.cbl:1390
5 rules

3391-SETUP-PFKEY-ATTRS

WhenThenAt
  1. TTUP-CONFIRM-DELETE
 MOVE DFHBMDAR TO FKEYSA OF CTRTUPAICOTRTUPC.cbl:1401
  1. NOT (TTUP-CONFIRM-DELETE)
 MOVE DFHBMASB TO FKEYSA OF CTRTUPAICOTRTUPC.cbl:1403
  1. TTUP-SHOW-DETAILS OR TTUP-CONFIRM-DELETE
 MOVE DFHBMASB TO FKEY04A OF CTRTUPAICOTRTUPC.cbl:1408
  1. TTUP-CHANGES-OK-NOT-CONFIRMED OR TTUP-DETAILS-NOT-FOUND
 MOVE DFHBMASB TO FKEY05A OF CTRTUPAICOTRTUPC.cbl:1413
  1. TTUP-CHANGES-OK-NOT-CONFIRMED OR TTUP-SHOW-DETAILS OR TTUP-DETAILS-NOT-FOUND OR TTUP-CONFIRM-DELETE OR TTUP-CREATE-NEW-RECORD
 MOVE DFHBMASB TO FKEY12A OF CTRTUPAICOTRTUPC.cbl:1421
1 rules

9000-READ-TRANTYPE

WhenThenAt
  1. FLG-TRANFILTER-NOT-OK
 GO TO 9000-READ-TRANTYPE-EXITCOTRTUPC.cbl:1457
7 rules

9100-GET-TRANSACTION-TYPE

WhenThenAt
  1. SQLCODE = ZERO
 SET FOUND-TRANTYPE-IN-TABLE TO TRUECOTRTUPC.cbl:1488
  1. SQLCODE = +100
 SET INPUT-ERROR TO TRUECOTRTUPC.cbl:1490
  1. SQLCODE = +100
 SET FLG-TRANFILTER-NOT-OK TO TRUECOTRTUPC.cbl:1491
  1. SQLCODE = +100
  2. WS-RETURN-MSG-OFF
 SET WS-RECORD-NOT-FOUND TO TRUECOTRTUPC.cbl:1493
  1. SQLCODE < 0
 SET INPUT-ERROR TO TRUECOTRTUPC.cbl:1496
  1. SQLCODE < 0
 SET FLG-TRANFILTER-NOT-OK TO TRUECOTRTUPC.cbl:1497
  1. SQLCODE < 0
  2. WS-RETURN-MSG-OFF
 STRING 'Error accessing:' ' TRANSACTION_TYPE table. SQLCODE:' WS-DISP-SQLCODE ':' SQLERRM OF SQLCA DELIMITED BY SIZE INTO WS-RETURN-MSGCOTRTUPC.cbl:1499–1506
11 rules

9600-WRITE-PROCESSING

WhenThenAt
alwayscalc COMPUTE DCL-TR-DESCRIPTION-LEN = FUNCTION LENGTH(TTUP-NEW-TTYP-TYPE-DESC)COTRTUPC.cbl:1541–1542
  1. SQLCODE = ZERO
 EXEC CICS SYNCPOINT END-EXECCOTRTUPC.cbl:1557
  1. SQLCODE = +100
 PERFORM 9700-INSERT-RECORD THRU 9700-INSERT-RECORD-EXITCOTRTUPC.cbl:1559–1560
  1. SQLCODE = -911
 SET INPUT-ERROR TO TRUECOTRTUPC.cbl:1562
  1. SQLCODE = -911
  2. WS-RETURN-MSG-OFF
 SET COULD-NOT-LOCK-REC-FOR-UPDATE TO TRUECOTRTUPC.cbl:1564–1565
  1. SQLCODE < 0
 SET TABLE-UPDATE-FAILED TO TRUECOTRTUPC.cbl:1568
  1. SQLCODE < 0
 STRING 'Error updating:' ' TRANSACTION_TYPE Table. SQLCODE:' WS-DISP-SQLCODE ':' SQLERRM OF SQLCA DELIMITED BY SIZE INTO WS-RETURN-MSGCOTRTUPC.cbl:1569–1576
  1. COULD-NOT-LOCK-REC-FOR-UPDATE
 SET TTUP-CHANGES-OKAYED-LOCK-ERROR TO TRUECOTRTUPC.cbl:1582
  1. TABLE-UPDATE-FAILED
 SET TTUP-CHANGES-OKAYED-BUT-FAILED TO TRUECOTRTUPC.cbl:1584
  1. DATA-WAS-CHANGED-BEFORE-UPDATE
 SET TTUP-SHOW-DETAILS TO TRUECOTRTUPC.cbl:1586
  1. TRUE is none of [COULD-NOT-LOCK-REC-FOR-UPDATE; TABLE-UPDATE-FAILED; DATA-WAS-CHANGED-BEFORE-UPDATE]
 SET TTUP-CHANGES-OKAYED-AND-DONE TO TRUECOTRTUPC.cbl:1588
4 rules

9700-INSERT-RECORD

WhenThenAt
  1. SQLCODE = ZERO
 EXEC CICS SYNCPOINT END-EXECCOTRTUPC.cbl:1606
  1. TRUE is none of [SQLCODE = ZERO]
 SET TABLE-UPDATE-FAILED TO TRUECOTRTUPC.cbl:1608
  1. TRUE is none of [SQLCODE = ZERO]
 STRING 'Error inserting record into:' ' TRANSACTION_TYPE Table. SQLCODE:' WS-DISP-SQLCODE ':' SQLERRM OF SQLCA DELIMITED BY SIZE INTO WS-RETURN-MSGCOTRTUPC.cbl:1609–1616
  1. TRUE is none of [SQLCODE = ZERO]
 GO TO 9700-INSERT-RECORD-EXITCOTRTUPC.cbl:1618
7 rules

9800-DELETE-PROCESSING

WhenThenAt
  1. SQLCODE = ZERO
 SET TTUP-DELETE-DONE TO TRUECOTRTUPC.cbl:1636
  1. SQLCODE = ZERO
 EXEC CICS SYNCPOINT END-EXECCOTRTUPC.cbl:1637
  1. SQLCODE = -532
 SET RECORD-DELETE-FAILED TO TRUECOTRTUPC.cbl:1639
  1. SQLCODE = -532
 STRING 'Please delete associated child records first:' 'SQLCODE :' WS-DISP-SQLCODE ':' SQLERRM OF SQLCA SQLERRM OF SQLCA DELIMITED BY SIZE INTO WS-RETURN-MSGCOTRTUPC.cbl:1640–1648
  1. TRUE is none of [SQLCODE = ZERO; SQLCODE = -532]
 SET RECORD-DELETE-FAILED TO TRUECOTRTUPC.cbl:1651
  1. TRUE is none of [SQLCODE = ZERO; SQLCODE = -532]
 SET TTUP-DELETE-FAILED TO TRUECOTRTUPC.cbl:1652
  1. TRUE is none of [SQLCODE = ZERO; SQLCODE = -532]
 STRING 'Delete failed with message:' 'SQLCODE :' WS-DISP-SQLCODE ':' SQLERRM OF SQLCA DELIMITED BY SIZE INTO WS-RETURN-MSGCOTRTUPC.cbl:1653–1660
28 rules

YYYY-STORE-PFKEY

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

ABEND-ROUTINE

WhenThenAt
  1. ABEND-MSG EQUAL LOW-VALUES
 MOVE 'UNEXPECTED ABEND OCCURRED.' TO ABEND-MSGCOTRTUPC.cbl:1678
always MOVE '9999' TO ABEND-CODECOTRTUPC.cbl:1682