MFmainframe-rea
WS carddemo · 26f629ef

Business rules · 122 guarded actionsCOBIL00C

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 COBIL00C.cbl:63
ERR-FLG-ONmeans WS-ERR-FLG = 'Y'COBIL00C.cbl:44
CONF-PAY-YESmeans WS-CONF-PAY-FLG = 'Y'COBIL00C.cbl:52
18 rules

MAIN-PARA

WhenThenAt
  1. EIBCALEN = 0
 MOVE 'COSGN00C' TO CDEMO-TO-PROGRAMCOBIL00C.cbl:108
  1. EIBCALEN = 0
 PERFORM RETURN-TO-PREV-SCREENCOBIL00C.cbl:109
  1. NOT (EIBCALEN = 0)
 MOVE DFHCOMMAREA(1:EIBCALEN) TO CARDDEMO-COMMAREACOBIL00C.cbl:111
  1. NOT (EIBCALEN = 0)
  2. NOT CDEMO-PGM-REENTER
 SET CDEMO-PGM-REENTER TO TRUECOBIL00C.cbl:113
  1. NOT (EIBCALEN = 0)
  2. NOT CDEMO-PGM-REENTER
 MOVE LOW-VALUES TO COBIL0AOCOBIL00C.cbl:114
  1. NOT (EIBCALEN = 0)
  2. NOT CDEMO-PGM-REENTER
 MOVE -1 TO ACTIDINL OF COBIL0AICOBIL00C.cbl:115
  1. NOT (EIBCALEN = 0)
  2. NOT CDEMO-PGM-REENTER
  3. CDEMO-CB00-TRN-SELECTED NOT = SPACES AND LOW-VALUES
 MOVE CDEMO-CB00-TRN-SELECTED TO ACTIDINI OF COBIL0AICOBIL00C.cbl:118–119
  1. NOT (EIBCALEN = 0)
  2. NOT CDEMO-PGM-REENTER
  3. CDEMO-CB00-TRN-SELECTED NOT = SPACES AND LOW-VALUES
 PERFORM PROCESS-ENTER-KEYCOBIL00C.cbl:120
  1. NOT (EIBCALEN = 0)
  2. NOT CDEMO-PGM-REENTER
 PERFORM SEND-BILLPAY-SCREENCOBIL00C.cbl:122
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
 PERFORM RECEIVE-BILLPAY-SCREENCOBIL00C.cbl:124
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID = DFHENTER
 PERFORM PROCESS-ENTER-KEYCOBIL00C.cbl:127
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID = DFHPF3
  4. CDEMO-FROM-PROGRAM = SPACES OR LOW-VALUES
 MOVE 'COMEN01C' TO CDEMO-TO-PROGRAMCOBIL00C.cbl:130
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID = DFHPF3
  4. NOT (CDEMO-FROM-PROGRAM = SPACES OR LOW-VALUES)
 MOVE CDEMO-FROM-PROGRAM TO CDEMO-TO-PROGRAMCOBIL00C.cbl:132–133
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID = DFHPF3
 PERFORM RETURN-TO-PREV-SCREENCOBIL00C.cbl:135
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID = DFHPF4
 PERFORM CLEAR-CURRENT-SCREENCOBIL00C.cbl:137
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID is none of [DFHENTER; DFHPF3; DFHPF4]
 MOVE 'Y' TO WS-ERR-FLGCOBIL00C.cbl:139
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID is none of [DFHENTER; DFHPF3; DFHPF4]
 MOVE CCDA-MSG-INVALID-KEY TO WS-MESSAGECOBIL00C.cbl:140
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID is none of [DFHENTER; DFHPF3; DFHPF4]
 PERFORM SEND-BILLPAY-SCREENCOBIL00C.cbl:141
47 rules

PROCESS-ENTER-KEY

WhenThenAt
  1. ACTIDINI OF COBIL0AI = SPACES OR LOW-VALUES
 MOVE 'Y' TO WS-ERR-FLGCOBIL00C.cbl:160
  1. ACTIDINI OF COBIL0AI = SPACES OR LOW-VALUES
 MOVE 'Acct ID can NOT be empty...' TO WS-MESSAGECOBIL00C.cbl:161–162
  1. ACTIDINI OF COBIL0AI = SPACES OR LOW-VALUES
 MOVE -1 TO ACTIDINL OF COBIL0AICOBIL00C.cbl:163
  1. ACTIDINI OF COBIL0AI = SPACES OR LOW-VALUES
 PERFORM SEND-BILLPAY-SCREENCOBIL00C.cbl:164
  1. NOT ERR-FLG-ON
 MOVE ACTIDINI OF COBIL0AI TO ACCT-ID XREF-ACCT-IDCOBIL00C.cbl:170–171
  1. NOT ERR-FLG-ON
  2. CONFIRMI OF COBIL0AI = 'Y' OR CONFIRMI OF COBIL0AI = 'y'
 SET CONF-PAY-YES TO TRUECOBIL00C.cbl:176
  1. NOT ERR-FLG-ON
  2. CONFIRMI OF COBIL0AI = 'Y' OR CONFIRMI OF COBIL0AI = 'y'
 PERFORM READ-ACCTDAT-FILECOBIL00C.cbl:177
  1. NOT ERR-FLG-ON
  2. CONFIRMI OF COBIL0AI = 'N' OR CONFIRMI OF COBIL0AI = 'n'
 PERFORM CLEAR-CURRENT-SCREENCOBIL00C.cbl:180
  1. NOT ERR-FLG-ON
  2. CONFIRMI OF COBIL0AI = 'N' OR CONFIRMI OF COBIL0AI = 'n'
 MOVE 'Y' TO WS-ERR-FLGCOBIL00C.cbl:181
  1. NOT ERR-FLG-ON
  2. CONFIRMI OF COBIL0AI = SPACES OR CONFIRMI OF COBIL0AI = LOW-VALUES
 PERFORM READ-ACCTDAT-FILECOBIL00C.cbl:184
  1. NOT ERR-FLG-ON
  2. CONFIRMI OF COBIL0AI is none of ['Y'; 'y'; 'N'; 'n'; SPACES; LOW-VALUES]
 MOVE 'Y' TO WS-ERR-FLGCOBIL00C.cbl:186
  1. NOT ERR-FLG-ON
  2. CONFIRMI OF COBIL0AI is none of ['Y'; 'y'; 'N'; 'n'; SPACES; LOW-VALUES]
 MOVE 'Invalid value. Valid values are (Y/N)...' TO WS-MESSAGECOBIL00C.cbl:187–188
  1. NOT ERR-FLG-ON
  2. CONFIRMI OF COBIL0AI is none of ['Y'; 'y'; 'N'; 'n'; SPACES; LOW-VALUES]
 MOVE -1 TO CONFIRML OF COBIL0AICOBIL00C.cbl:189
  1. NOT ERR-FLG-ON
  2. CONFIRMI OF COBIL0AI is none of ['Y'; 'y'; 'N'; 'n'; SPACES; LOW-VALUES]
 PERFORM SEND-BILLPAY-SCREENCOBIL00C.cbl:190
  1. NOT ERR-FLG-ON
 MOVE ACCT-CURR-BAL TO WS-CURR-BALCOBIL00C.cbl:193
  1. NOT ERR-FLG-ON
 MOVE WS-CURR-BAL TO CURBALI OF COBIL0AICOBIL00C.cbl:194
  1. NOT ERR-FLG-ON
  2. ACCT-CURR-BAL <= ZEROS AND ACTIDINI OF COBIL0AI NOT = SPACES AND LOW-VALUES
 MOVE 'Y' TO WS-ERR-FLGCOBIL00C.cbl:200
  1. NOT ERR-FLG-ON
  2. ACCT-CURR-BAL <= ZEROS AND ACTIDINI OF COBIL0AI NOT = SPACES AND LOW-VALUES
 MOVE 'You have nothing to pay...' TO WS-MESSAGECOBIL00C.cbl:201–202
  1. NOT ERR-FLG-ON
  2. ACCT-CURR-BAL <= ZEROS AND ACTIDINI OF COBIL0AI NOT = SPACES AND LOW-VALUES
 MOVE -1 TO ACTIDINL OF COBIL0AICOBIL00C.cbl:203
  1. NOT ERR-FLG-ON
  2. ACCT-CURR-BAL <= ZEROS AND ACTIDINI OF COBIL0AI NOT = SPACES AND LOW-VALUES
 PERFORM SEND-BILLPAY-SCREENCOBIL00C.cbl:204
  1. NOT ERR-FLG-ON
  2. CONF-PAY-YES
 PERFORM READ-CXACAIX-FILECOBIL00C.cbl:211
  1. NOT ERR-FLG-ON
  2. CONF-PAY-YES
 MOVE HIGH-VALUES TO TRAN-IDCOBIL00C.cbl:212
  1. NOT ERR-FLG-ON
  2. CONF-PAY-YES
 PERFORM STARTBR-TRANSACT-FILECOBIL00C.cbl:213
  1. NOT ERR-FLG-ON
  2. CONF-PAY-YES
 PERFORM READPREV-TRANSACT-FILECOBIL00C.cbl:214
  1. NOT ERR-FLG-ON
  2. CONF-PAY-YES
 PERFORM ENDBR-TRANSACT-FILECOBIL00C.cbl:215
  1. NOT ERR-FLG-ON
  2. CONF-PAY-YES
 MOVE TRAN-ID TO WS-TRAN-ID-NUMCOBIL00C.cbl:216
  1. NOT ERR-FLG-ON
  2. CONF-PAY-YES
calc ADD 1 TO WS-TRAN-ID-NUMCOBIL00C.cbl:217
  1. NOT ERR-FLG-ON
  2. CONF-PAY-YES
 INITIALIZE TRAN-RECORDCOBIL00C.cbl:218
  1. NOT ERR-FLG-ON
  2. CONF-PAY-YES
 MOVE WS-TRAN-ID-NUM TO TRAN-IDCOBIL00C.cbl:219
  1. NOT ERR-FLG-ON
  2. CONF-PAY-YES
 MOVE '02' TO TRAN-TYPE-CDCOBIL00C.cbl:220
  1. NOT ERR-FLG-ON
  2. CONF-PAY-YES
 MOVE 2 TO TRAN-CAT-CDCOBIL00C.cbl:221
  1. NOT ERR-FLG-ON
  2. CONF-PAY-YES
 MOVE 'POS TERM' TO TRAN-SOURCECOBIL00C.cbl:222
  1. NOT ERR-FLG-ON
  2. CONF-PAY-YES
 MOVE 'BILL PAYMENT - ONLINE' TO TRAN-DESCCOBIL00C.cbl:223
  1. NOT ERR-FLG-ON
  2. CONF-PAY-YES
 MOVE ACCT-CURR-BAL TO TRAN-AMTCOBIL00C.cbl:224
  1. NOT ERR-FLG-ON
  2. CONF-PAY-YES
 MOVE XREF-CARD-NUM TO TRAN-CARD-NUMCOBIL00C.cbl:225
  1. NOT ERR-FLG-ON
  2. CONF-PAY-YES
 MOVE 999999999 TO TRAN-MERCHANT-IDCOBIL00C.cbl:226
  1. NOT ERR-FLG-ON
  2. CONF-PAY-YES
 MOVE 'BILL PAYMENT' TO TRAN-MERCHANT-NAMECOBIL00C.cbl:227
  1. NOT ERR-FLG-ON
  2. CONF-PAY-YES
 MOVE 'N/A' TO TRAN-MERCHANT-CITYCOBIL00C.cbl:228
  1. NOT ERR-FLG-ON
  2. CONF-PAY-YES
 MOVE 'N/A' TO TRAN-MERCHANT-ZIPCOBIL00C.cbl:229
  1. NOT ERR-FLG-ON
  2. CONF-PAY-YES
 PERFORM GET-CURRENT-TIMESTAMPCOBIL00C.cbl:230
  1. NOT ERR-FLG-ON
  2. CONF-PAY-YES
 MOVE WS-TIMESTAMP TO TRAN-ORIG-TS TRAN-PROC-TSCOBIL00C.cbl:231–232
  1. NOT ERR-FLG-ON
  2. CONF-PAY-YES
 PERFORM WRITE-TRANSACT-FILECOBIL00C.cbl:233
  1. NOT ERR-FLG-ON
  2. CONF-PAY-YES
calc COMPUTE ACCT-CURR-BAL = ACCT-CURR-BAL - TRAN-AMTCOBIL00C.cbl:234
  1. NOT ERR-FLG-ON
  2. CONF-PAY-YES
 PERFORM UPDATE-ACCTDAT-FILECOBIL00C.cbl:235
  1. NOT ERR-FLG-ON
  2. NOT (CONF-PAY-YES)
 MOVE 'Confirm to make a bill payment...' TO WS-MESSAGECOBIL00C.cbl:237–238
  1. NOT ERR-FLG-ON
  2. NOT (CONF-PAY-YES)
 MOVE -1 TO CONFIRML OF COBIL0AICOBIL00C.cbl:239
  1. NOT ERR-FLG-ON
 PERFORM SEND-BILLPAY-SCREENCOBIL00C.cbl:242
1 rules

RETURN-TO-PREV-SCREEN

WhenThenAt
  1. CDEMO-TO-PROGRAM = LOW-VALUES OR SPACES
 MOVE 'COSGN00C' TO CDEMO-TO-PROGRAMCOBIL00C.cbl:276
9 rules

READ-ACCTDAT-FILE

WhenThenAt
  1. WS-RESP-CD = DFHRESP(NOTFND)
 MOVE 'Y' TO WS-ERR-FLGCOBIL00C.cbl:360
  1. WS-RESP-CD = DFHRESP(NOTFND)
 MOVE 'Account ID NOT found...' TO WS-MESSAGECOBIL00C.cbl:361–362
  1. WS-RESP-CD = DFHRESP(NOTFND)
 MOVE -1 TO ACTIDINL OF COBIL0AICOBIL00C.cbl:363
  1. WS-RESP-CD = DFHRESP(NOTFND)
 PERFORM SEND-BILLPAY-SCREENCOBIL00C.cbl:364
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 DISPLAY 'RESP:' WS-RESP-CD 'REAS:' WS-REAS-CDCOBIL00C.cbl:366
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE 'Y' TO WS-ERR-FLGCOBIL00C.cbl:367
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE 'Unable to lookup Account...' TO WS-MESSAGECOBIL00C.cbl:368–369
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE -1 TO ACTIDINL OF COBIL0AICOBIL00C.cbl:370
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 PERFORM SEND-BILLPAY-SCREENCOBIL00C.cbl:371
9 rules

UPDATE-ACCTDAT-FILE

WhenThenAt
  1. WS-RESP-CD = DFHRESP(NOTFND)
 MOVE 'Y' TO WS-ERR-FLGCOBIL00C.cbl:391
  1. WS-RESP-CD = DFHRESP(NOTFND)
 MOVE 'Account ID NOT found...' TO WS-MESSAGECOBIL00C.cbl:392–393
  1. WS-RESP-CD = DFHRESP(NOTFND)
 MOVE -1 TO ACTIDINL OF COBIL0AICOBIL00C.cbl:394
  1. WS-RESP-CD = DFHRESP(NOTFND)
 PERFORM SEND-BILLPAY-SCREENCOBIL00C.cbl:395
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 DISPLAY 'RESP:' WS-RESP-CD 'REAS:' WS-REAS-CDCOBIL00C.cbl:397
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE 'Y' TO WS-ERR-FLGCOBIL00C.cbl:398
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE 'Unable to Update Account...' TO WS-MESSAGECOBIL00C.cbl:399–400
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE -1 TO ACTIDINL OF COBIL0AICOBIL00C.cbl:401
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 PERFORM SEND-BILLPAY-SCREENCOBIL00C.cbl:402
9 rules

READ-CXACAIX-FILE

WhenThenAt
  1. WS-RESP-CD = DFHRESP(NOTFND)
 MOVE 'Y' TO WS-ERR-FLGCOBIL00C.cbl:424
  1. WS-RESP-CD = DFHRESP(NOTFND)
 MOVE 'Account ID NOT found...' TO WS-MESSAGECOBIL00C.cbl:425–426
  1. WS-RESP-CD = DFHRESP(NOTFND)
 MOVE -1 TO ACTIDINL OF COBIL0AICOBIL00C.cbl:427
  1. WS-RESP-CD = DFHRESP(NOTFND)
 PERFORM SEND-BILLPAY-SCREENCOBIL00C.cbl:428
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 DISPLAY 'RESP:' WS-RESP-CD 'REAS:' WS-REAS-CDCOBIL00C.cbl:430
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE 'Y' TO WS-ERR-FLGCOBIL00C.cbl:431
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE 'Unable to lookup XREF AIX file...' TO WS-MESSAGECOBIL00C.cbl:432–433
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE -1 TO ACTIDINL OF COBIL0AICOBIL00C.cbl:434
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 PERFORM SEND-BILLPAY-SCREENCOBIL00C.cbl:435
9 rules

STARTBR-TRANSACT-FILE

WhenThenAt
  1. WS-RESP-CD = DFHRESP(NOTFND)
 MOVE 'Y' TO WS-ERR-FLGCOBIL00C.cbl:455
  1. WS-RESP-CD = DFHRESP(NOTFND)
 MOVE 'Transaction ID NOT found...' TO WS-MESSAGECOBIL00C.cbl:456–457
  1. WS-RESP-CD = DFHRESP(NOTFND)
 MOVE -1 TO ACTIDINL OF COBIL0AICOBIL00C.cbl:458
  1. WS-RESP-CD = DFHRESP(NOTFND)
 PERFORM SEND-BILLPAY-SCREENCOBIL00C.cbl:459
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 DISPLAY 'RESP:' WS-RESP-CD 'REAS:' WS-REAS-CDCOBIL00C.cbl:461
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE 'Y' TO WS-ERR-FLGCOBIL00C.cbl:462
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE 'Unable to lookup Transaction...' TO WS-MESSAGECOBIL00C.cbl:463–464
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 MOVE -1 TO ACTIDINL OF COBIL0AICOBIL00C.cbl:465
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(NOTFND)]
 PERFORM SEND-BILLPAY-SCREENCOBIL00C.cbl:466
6 rules

READPREV-TRANSACT-FILE

WhenThenAt
  1. WS-RESP-CD = DFHRESP(ENDFILE)
 MOVE ZEROS TO TRAN-IDCOBIL00C.cbl:488
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(ENDFILE)]
 DISPLAY 'RESP:' WS-RESP-CD 'REAS:' WS-REAS-CDCOBIL00C.cbl:490
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(ENDFILE)]
 MOVE 'Y' TO WS-ERR-FLGCOBIL00C.cbl:491
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(ENDFILE)]
 MOVE 'Unable to lookup Transaction...' TO WS-MESSAGECOBIL00C.cbl:492–493
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(ENDFILE)]
 MOVE -1 TO ACTIDINL OF COBIL0AICOBIL00C.cbl:494
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(ENDFILE)]
 PERFORM SEND-BILLPAY-SCREENCOBIL00C.cbl:495
14 rules

WRITE-TRANSACT-FILE

WhenThenAt
  1. WS-RESP-CD = DFHRESP(NORMAL)
 PERFORM INITIALIZE-ALL-FIELDSCOBIL00C.cbl:524
  1. WS-RESP-CD = DFHRESP(NORMAL)
 MOVE SPACES TO WS-MESSAGECOBIL00C.cbl:525
  1. WS-RESP-CD = DFHRESP(NORMAL)
 MOVE DFHGREEN TO ERRMSGC OF COBIL0AOCOBIL00C.cbl:526
  1. WS-RESP-CD = DFHRESP(NORMAL)
 STRING 'Payment successful. ' DELIMITED BY SIZE ' Your Transaction ID is ' DELIMITED BY SIZE TRAN-ID DELIMITED BY SPACE '.' DELIMITED BY SIZE INTO WS-MESSAGECOBIL00C.cbl:527–531
  1. WS-RESP-CD = DFHRESP(NORMAL)
 PERFORM SEND-BILLPAY-SCREENCOBIL00C.cbl:532
  1. WS-RESP-CD = DFHRESP(DUPKEY) OR WS-RESP-CD = DFHRESP(DUPREC)
 MOVE 'Y' TO WS-ERR-FLGCOBIL00C.cbl:535
  1. WS-RESP-CD = DFHRESP(DUPKEY) OR WS-RESP-CD = DFHRESP(DUPREC)
 MOVE 'Tran ID already exist...' TO WS-MESSAGECOBIL00C.cbl:536–537
  1. WS-RESP-CD = DFHRESP(DUPKEY) OR WS-RESP-CD = DFHRESP(DUPREC)
 MOVE -1 TO ACTIDINL OF COBIL0AICOBIL00C.cbl:538
  1. WS-RESP-CD = DFHRESP(DUPKEY) OR WS-RESP-CD = DFHRESP(DUPREC)
 PERFORM SEND-BILLPAY-SCREENCOBIL00C.cbl:539
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPKEY); DFHRESP(DUPREC)]
 DISPLAY 'RESP:' WS-RESP-CD 'REAS:' WS-REAS-CDCOBIL00C.cbl:541
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPKEY); DFHRESP(DUPREC)]
 MOVE 'Y' TO WS-ERR-FLGCOBIL00C.cbl:542
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPKEY); DFHRESP(DUPREC)]
 MOVE 'Unable to Add Bill pay Transaction...' TO WS-MESSAGECOBIL00C.cbl:543–544
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPKEY); DFHRESP(DUPREC)]
 MOVE -1 TO ACTIDINL OF COBIL0AICOBIL00C.cbl:545
  1. WS-RESP-CD is none of [DFHRESP(NORMAL); DFHRESP(DUPKEY); DFHRESP(DUPREC)]
 PERFORM SEND-BILLPAY-SCREENCOBIL00C.cbl:546