Business rules · 146 guarded actionsCBACT04C

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

APPL-AOK	means APPL-RESULT = 0	CBACT04C.cbl:134
APPL-EOF	means APPL-RESULT = 16	CBACT04C.cbl:135

18 rules

(PROCEDURE DIVISION)

When	Then	At
PERFORM UNTIL END-OF-FILE = 'Y' END-OF-FILE = 'N'	PERFORM 1000-TCATBALF-GET-NEXT	CBACT04C.cbl:190
PERFORM UNTIL END-OF-FILE = 'Y' END-OF-FILE = 'N' END-OF-FILE = 'N'	calc ADD 1 TO WS-RECORD-COUNT	CBACT04C.cbl:192
PERFORM UNTIL END-OF-FILE = 'Y' END-OF-FILE = 'N' END-OF-FILE = 'N'	DISPLAY TRAN-CAT-BAL-RECORD	CBACT04C.cbl:193
PERFORM UNTIL END-OF-FILE = 'Y' END-OF-FILE = 'N' END-OF-FILE = 'N' TRANCAT-ACCT-ID NOT= WS-LAST-ACCT-NUM WS-FIRST-TIME NOT = 'Y'	PERFORM 1050-UPDATE-ACCOUNT	CBACT04C.cbl:196
PERFORM UNTIL END-OF-FILE = 'Y' END-OF-FILE = 'N' END-OF-FILE = 'N' TRANCAT-ACCT-ID NOT= WS-LAST-ACCT-NUM NOT (WS-FIRST-TIME NOT = 'Y')	MOVE 'N' TO WS-FIRST-TIME	CBACT04C.cbl:198
PERFORM UNTIL END-OF-FILE = 'Y' END-OF-FILE = 'N' END-OF-FILE = 'N' TRANCAT-ACCT-ID NOT= WS-LAST-ACCT-NUM	MOVE 0 TO WS-TOTAL-INT	CBACT04C.cbl:200
PERFORM UNTIL END-OF-FILE = 'Y' END-OF-FILE = 'N' END-OF-FILE = 'N' TRANCAT-ACCT-ID NOT= WS-LAST-ACCT-NUM	MOVE TRANCAT-ACCT-ID TO WS-LAST-ACCT-NUM	CBACT04C.cbl:201
PERFORM UNTIL END-OF-FILE = 'Y' END-OF-FILE = 'N' END-OF-FILE = 'N' TRANCAT-ACCT-ID NOT= WS-LAST-ACCT-NUM	MOVE TRANCAT-ACCT-ID TO FD-ACCT-ID	CBACT04C.cbl:202
PERFORM UNTIL END-OF-FILE = 'Y' END-OF-FILE = 'N' END-OF-FILE = 'N' TRANCAT-ACCT-ID NOT= WS-LAST-ACCT-NUM	PERFORM 1100-GET-ACCT-DATA	CBACT04C.cbl:203
PERFORM UNTIL END-OF-FILE = 'Y' END-OF-FILE = 'N' END-OF-FILE = 'N' TRANCAT-ACCT-ID NOT= WS-LAST-ACCT-NUM	MOVE TRANCAT-ACCT-ID TO FD-XREF-ACCT-ID	CBACT04C.cbl:204
PERFORM UNTIL END-OF-FILE = 'Y' END-OF-FILE = 'N' END-OF-FILE = 'N' TRANCAT-ACCT-ID NOT= WS-LAST-ACCT-NUM	PERFORM 1110-GET-XREF-DATA	CBACT04C.cbl:205
PERFORM UNTIL END-OF-FILE = 'Y' END-OF-FILE = 'N' END-OF-FILE = 'N'	MOVE ACCT-GROUP-ID TO FD-DIS-ACCT-GROUP-ID	CBACT04C.cbl:210
PERFORM UNTIL END-OF-FILE = 'Y' END-OF-FILE = 'N' END-OF-FILE = 'N'	MOVE TRANCAT-CD TO FD-DIS-TRAN-CAT-CD	CBACT04C.cbl:211
PERFORM UNTIL END-OF-FILE = 'Y' END-OF-FILE = 'N' END-OF-FILE = 'N'	MOVE TRANCAT-TYPE-CD TO FD-DIS-TRAN-TYPE-CD	CBACT04C.cbl:212
PERFORM UNTIL END-OF-FILE = 'Y' END-OF-FILE = 'N' END-OF-FILE = 'N'	PERFORM 1200-GET-INTEREST-RATE	CBACT04C.cbl:213
PERFORM UNTIL END-OF-FILE = 'Y' END-OF-FILE = 'N' END-OF-FILE = 'N' DIS-INT-RATE NOT = 0	PERFORM 1300-COMPUTE-INTEREST	CBACT04C.cbl:215
PERFORM UNTIL END-OF-FILE = 'Y' END-OF-FILE = 'N' END-OF-FILE = 'N' DIS-INT-RATE NOT = 0	PERFORM 1400-COMPUTE-FEES	CBACT04C.cbl:216
PERFORM UNTIL END-OF-FILE = 'Y' NOT (END-OF-FILE = 'N')	PERFORM 1050-UPDATE-ACCOUNT	CBACT04C.cbl:220

6 rules

0000-TCATBALF-OPEN

When	Then	At
TCATBALF-STATUS = '00'	MOVE 0 TO APPL-RESULT	CBACT04C.cbl:238
NOT (TCATBALF-STATUS = '00')	MOVE 12 TO APPL-RESULT	CBACT04C.cbl:240
NOT (APPL-AOK)	DISPLAY 'ERROR OPENING TRANSACTION CATEGORY BALANCE'	CBACT04C.cbl:245
NOT (APPL-AOK)	MOVE TCATBALF-STATUS TO IO-STATUS	CBACT04C.cbl:246
NOT (APPL-AOK)	PERFORM 9910-DISPLAY-IO-STATUS	CBACT04C.cbl:247
NOT (APPL-AOK)	PERFORM 9999-ABEND-PROGRAM	CBACT04C.cbl:248

6 rules

0100-XREFFILE-OPEN

When	Then	At
XREFFILE-STATUS = '00'	MOVE 0 TO APPL-RESULT	CBACT04C.cbl:256
NOT (XREFFILE-STATUS = '00')	MOVE 12 TO APPL-RESULT	CBACT04C.cbl:258
NOT (APPL-AOK)	DISPLAY 'ERROR OPENING CROSS REF FILE' XREFFILE-STATUS	CBACT04C.cbl:263
NOT (APPL-AOK)	MOVE XREFFILE-STATUS TO IO-STATUS	CBACT04C.cbl:264
NOT (APPL-AOK)	PERFORM 9910-DISPLAY-IO-STATUS	CBACT04C.cbl:265
NOT (APPL-AOK)	PERFORM 9999-ABEND-PROGRAM	CBACT04C.cbl:266

6 rules

0200-DISCGRP-OPEN

When	Then	At
DISCGRP-STATUS = '00'	MOVE 0 TO APPL-RESULT	CBACT04C.cbl:274
NOT (DISCGRP-STATUS = '00')	MOVE 12 TO APPL-RESULT	CBACT04C.cbl:276
NOT (APPL-AOK)	DISPLAY 'ERROR OPENING DALY REJECTS FILE'	CBACT04C.cbl:281
NOT (APPL-AOK)	MOVE DISCGRP-STATUS TO IO-STATUS	CBACT04C.cbl:282
NOT (APPL-AOK)	PERFORM 9910-DISPLAY-IO-STATUS	CBACT04C.cbl:283
NOT (APPL-AOK)	PERFORM 9999-ABEND-PROGRAM	CBACT04C.cbl:284

6 rules

0300-ACCTFILE-OPEN

When	Then	At
ACCTFILE-STATUS = '00'	MOVE 0 TO APPL-RESULT	CBACT04C.cbl:293
NOT (ACCTFILE-STATUS = '00')	MOVE 12 TO APPL-RESULT	CBACT04C.cbl:295
NOT (APPL-AOK)	DISPLAY 'ERROR OPENING ACCOUNT MASTER FILE'	CBACT04C.cbl:300
NOT (APPL-AOK)	MOVE ACCTFILE-STATUS TO IO-STATUS	CBACT04C.cbl:301
NOT (APPL-AOK)	PERFORM 9910-DISPLAY-IO-STATUS	CBACT04C.cbl:302
NOT (APPL-AOK)	PERFORM 9999-ABEND-PROGRAM	CBACT04C.cbl:303

6 rules

0400-TRANFILE-OPEN

When	Then	At
TRANFILE-STATUS = '00'	MOVE 0 TO APPL-RESULT	CBACT04C.cbl:311
NOT (TRANFILE-STATUS = '00')	MOVE 12 TO APPL-RESULT	CBACT04C.cbl:313
NOT (APPL-AOK)	DISPLAY 'ERROR OPENING TRANSACTION FILE'	CBACT04C.cbl:318
NOT (APPL-AOK)	MOVE TRANFILE-STATUS TO IO-STATUS	CBACT04C.cbl:319
NOT (APPL-AOK)	PERFORM 9910-DISPLAY-IO-STATUS	CBACT04C.cbl:320
NOT (APPL-AOK)	PERFORM 9999-ABEND-PROGRAM	CBACT04C.cbl:321

8 rules

1000-TCATBALF-GET-NEXT

When	Then	At
TCATBALF-STATUS = '00'	MOVE 0 TO APPL-RESULT	CBACT04C.cbl:328
NOT (TCATBALF-STATUS = '00') TCATBALF-STATUS = '10'	MOVE 16 TO APPL-RESULT	CBACT04C.cbl:331
NOT (TCATBALF-STATUS = '00') NOT (TCATBALF-STATUS = '10')	MOVE 12 TO APPL-RESULT	CBACT04C.cbl:333
NOT (APPL-AOK) APPL-EOF	MOVE 'Y' TO END-OF-FILE	CBACT04C.cbl:340
NOT (APPL-AOK) NOT (APPL-EOF)	DISPLAY 'ERROR READING TRANSACTION CATEGORY FILE'	CBACT04C.cbl:342
NOT (APPL-AOK) NOT (APPL-EOF)	MOVE TCATBALF-STATUS TO IO-STATUS	CBACT04C.cbl:343
NOT (APPL-AOK) NOT (APPL-EOF)	PERFORM 9910-DISPLAY-IO-STATUS	CBACT04C.cbl:344
NOT (APPL-AOK) NOT (APPL-EOF)	PERFORM 9999-ABEND-PROGRAM	CBACT04C.cbl:345

7 rules

1050-UPDATE-ACCOUNT

When	Then	At
always	calc ADD WS-TOTAL-INT TO ACCT-CURR-BAL	CBACT04C.cbl:352
ACCTFILE-STATUS = '00'	MOVE 0 TO APPL-RESULT	CBACT04C.cbl:358
NOT (ACCTFILE-STATUS = '00')	MOVE 12 TO APPL-RESULT	CBACT04C.cbl:360
NOT (APPL-AOK)	DISPLAY 'ERROR RE-WRITING ACCOUNT FILE'	CBACT04C.cbl:365
NOT (APPL-AOK)	MOVE ACCTFILE-STATUS TO IO-STATUS	CBACT04C.cbl:366
NOT (APPL-AOK)	PERFORM 9910-DISPLAY-IO-STATUS	CBACT04C.cbl:367
NOT (APPL-AOK)	PERFORM 9999-ABEND-PROGRAM	CBACT04C.cbl:368

7 rules

1100-GET-ACCT-DATA

When	Then	At
READ INVALID KEY	DISPLAY 'ACCOUNT NOT FOUND: ' FD-ACCT-ID	CBACT04C.cbl:375
ACCTFILE-STATUS = '00'	MOVE 0 TO APPL-RESULT	CBACT04C.cbl:379
NOT (ACCTFILE-STATUS = '00')	MOVE 12 TO APPL-RESULT	CBACT04C.cbl:381
NOT (APPL-AOK)	DISPLAY 'ERROR READING ACCOUNT FILE'	CBACT04C.cbl:386
NOT (APPL-AOK)	MOVE ACCTFILE-STATUS TO IO-STATUS	CBACT04C.cbl:387
NOT (APPL-AOK)	PERFORM 9910-DISPLAY-IO-STATUS	CBACT04C.cbl:388
NOT (APPL-AOK)	PERFORM 9999-ABEND-PROGRAM	CBACT04C.cbl:389

7 rules

1110-GET-XREF-DATA

When	Then	At
READ INVALID KEY	DISPLAY 'ACCOUNT NOT FOUND: ' FD-XREF-ACCT-ID	CBACT04C.cbl:397
XREFFILE-STATUS = '00'	MOVE 0 TO APPL-RESULT	CBACT04C.cbl:401
NOT (XREFFILE-STATUS = '00')	MOVE 12 TO APPL-RESULT	CBACT04C.cbl:403
NOT (APPL-AOK)	DISPLAY 'ERROR READING XREF FILE'	CBACT04C.cbl:408
NOT (APPL-AOK)	MOVE XREFFILE-STATUS TO IO-STATUS	CBACT04C.cbl:409
NOT (APPL-AOK)	PERFORM 9910-DISPLAY-IO-STATUS	CBACT04C.cbl:410
NOT (APPL-AOK)	PERFORM 9999-ABEND-PROGRAM	CBACT04C.cbl:411

10 rules

1200-GET-INTEREST-RATE

When	Then	At
READ INVALID KEY	DISPLAY 'DISCLOSURE GROUP RECORD MISSING'	CBACT04C.cbl:418
READ INVALID KEY	DISPLAY 'TRY WITH DEFAULT GROUP CODE'	CBACT04C.cbl:419
DISCGRP-STATUS = '00' OR '23'	MOVE 0 TO APPL-RESULT	CBACT04C.cbl:423
NOT (DISCGRP-STATUS = '00' OR '23')	MOVE 12 TO APPL-RESULT	CBACT04C.cbl:425
NOT (APPL-AOK)	DISPLAY 'ERROR READING DISCLOSURE GROUP FILE'	CBACT04C.cbl:431
NOT (APPL-AOK)	MOVE DISCGRP-STATUS TO IO-STATUS	CBACT04C.cbl:432
NOT (APPL-AOK)	PERFORM 9910-DISPLAY-IO-STATUS	CBACT04C.cbl:433
NOT (APPL-AOK)	PERFORM 9999-ABEND-PROGRAM	CBACT04C.cbl:434
DISCGRP-STATUS = '23'	MOVE 'DEFAULT' TO FD-DIS-ACCT-GROUP-ID	CBACT04C.cbl:437
DISCGRP-STATUS = '23'	PERFORM 1200-A-GET-DEFAULT-INT-RATE	CBACT04C.cbl:438

6 rules

1200-A-GET-DEFAULT-INT-RATE

When	Then	At
DISCGRP-STATUS = '00'	MOVE 0 TO APPL-RESULT	CBACT04C.cbl:447
NOT (DISCGRP-STATUS = '00')	MOVE 12 TO APPL-RESULT	CBACT04C.cbl:449
NOT (APPL-AOK)	DISPLAY 'ERROR READING DEFAULT DISCLOSURE GROUP'	CBACT04C.cbl:455
NOT (APPL-AOK)	MOVE DISCGRP-STATUS TO IO-STATUS	CBACT04C.cbl:456
NOT (APPL-AOK)	PERFORM 9910-DISPLAY-IO-STATUS	CBACT04C.cbl:457
NOT (APPL-AOK)	PERFORM 9999-ABEND-PROGRAM	CBACT04C.cbl:458

2 rules

1300-COMPUTE-INTEREST

When	Then	At
always	calc COMPUTE WS-MONTHLY-INT = ( TRAN-CAT-BAL * DIS-INT-RATE) / 1200	CBACT04C.cbl:464–465
always	calc ADD WS-MONTHLY-INT TO WS-TOTAL-INT	CBACT04C.cbl:467

10 rules

1300-B-WRITE-TX

When	Then	At
always	calc ADD 1 TO WS-TRANID-SUFFIX	CBACT04C.cbl:474
always	MOVE '01' TO TRAN-TYPE-CD	CBACT04C.cbl:482
always	MOVE '05' TO TRAN-CAT-CD	CBACT04C.cbl:483
always	MOVE 'System' TO TRAN-SOURCE	CBACT04C.cbl:484
TRANFILE-STATUS = '00'	MOVE 0 TO APPL-RESULT	CBACT04C.cbl:502
NOT (TRANFILE-STATUS = '00')	MOVE 12 TO APPL-RESULT	CBACT04C.cbl:504
NOT (APPL-AOK)	DISPLAY 'ERROR WRITING TRANSACTION RECORD'	CBACT04C.cbl:510
NOT (APPL-AOK)	MOVE TRANFILE-STATUS TO IO-STATUS	CBACT04C.cbl:511
NOT (APPL-AOK)	PERFORM 9910-DISPLAY-IO-STATUS	CBACT04C.cbl:512
NOT (APPL-AOK)	PERFORM 9999-ABEND-PROGRAM	CBACT04C.cbl:513

6 rules

9000-TCATBALF-CLOSE

When	Then	At
TCATBALF-STATUS = '00'	MOVE 0 TO APPL-RESULT	CBACT04C.cbl:526
NOT (TCATBALF-STATUS = '00')	MOVE 12 TO APPL-RESULT	CBACT04C.cbl:528
NOT (APPL-AOK)	DISPLAY 'ERROR CLOSING TRANSACTION BALANCE FILE'	CBACT04C.cbl:533
NOT (APPL-AOK)	MOVE TCATBALF-STATUS TO IO-STATUS	CBACT04C.cbl:534
NOT (APPL-AOK)	PERFORM 9910-DISPLAY-IO-STATUS	CBACT04C.cbl:535
NOT (APPL-AOK)	PERFORM 9999-ABEND-PROGRAM	CBACT04C.cbl:536

6 rules

9100-XREFFILE-CLOSE

When	Then	At
XREFFILE-STATUS = '00'	MOVE 0 TO APPL-RESULT	CBACT04C.cbl:545
NOT (XREFFILE-STATUS = '00')	MOVE 12 TO APPL-RESULT	CBACT04C.cbl:547
NOT (APPL-AOK)	DISPLAY 'ERROR CLOSING CROSS REF FILE'	CBACT04C.cbl:552
NOT (APPL-AOK)	MOVE XREFFILE-STATUS TO IO-STATUS	CBACT04C.cbl:553
NOT (APPL-AOK)	PERFORM 9910-DISPLAY-IO-STATUS	CBACT04C.cbl:554
NOT (APPL-AOK)	PERFORM 9999-ABEND-PROGRAM	CBACT04C.cbl:555

6 rules

9200-DISCGRP-CLOSE

When	Then	At
DISCGRP-STATUS = '00'	MOVE 0 TO APPL-RESULT	CBACT04C.cbl:563
NOT (DISCGRP-STATUS = '00')	MOVE 12 TO APPL-RESULT	CBACT04C.cbl:565
NOT (APPL-AOK)	DISPLAY 'ERROR CLOSING DISCLOSURE GROUP FILE'	CBACT04C.cbl:570
NOT (APPL-AOK)	MOVE DISCGRP-STATUS TO IO-STATUS	CBACT04C.cbl:571
NOT (APPL-AOK)	PERFORM 9910-DISPLAY-IO-STATUS	CBACT04C.cbl:572
NOT (APPL-AOK)	PERFORM 9999-ABEND-PROGRAM	CBACT04C.cbl:573

6 rules

9300-ACCTFILE-CLOSE

When	Then	At
ACCTFILE-STATUS = '00'	MOVE 0 TO APPL-RESULT	CBACT04C.cbl:581
NOT (ACCTFILE-STATUS = '00')	MOVE 12 TO APPL-RESULT	CBACT04C.cbl:583
NOT (APPL-AOK)	DISPLAY 'ERROR CLOSING ACCOUNT FILE'	CBACT04C.cbl:588
NOT (APPL-AOK)	MOVE ACCTFILE-STATUS TO IO-STATUS	CBACT04C.cbl:589
NOT (APPL-AOK)	PERFORM 9910-DISPLAY-IO-STATUS	CBACT04C.cbl:590
NOT (APPL-AOK)	PERFORM 9999-ABEND-PROGRAM	CBACT04C.cbl:591

6 rules

9400-TRANFILE-CLOSE

When	Then	At
TRANFILE-STATUS = '00'	MOVE 0 TO APPL-RESULT	CBACT04C.cbl:599
NOT (TRANFILE-STATUS = '00')	MOVE 12 TO APPL-RESULT	CBACT04C.cbl:601
NOT (APPL-AOK)	DISPLAY 'ERROR CLOSING TRANSACTION FILE'	CBACT04C.cbl:606
NOT (APPL-AOK)	MOVE TRANFILE-STATUS TO IO-STATUS	CBACT04C.cbl:607
NOT (APPL-AOK)	PERFORM 9910-DISPLAY-IO-STATUS	CBACT04C.cbl:608
NOT (APPL-AOK)	PERFORM 9999-ABEND-PROGRAM	CBACT04C.cbl:609

3 rules

Z-GET-DB2-FORMAT-TIMESTAMP

When	Then	At
always	MOVE '0000' TO DB2-REST	CBACT04C.cbl:622
always	MOVE '-' TO DB2-STREEP-1 DB2-STREEP-2 DB2-STREEP-3	CBACT04C.cbl:623
always	MOVE '.' TO DB2-DOT-1 DB2-DOT-2 DB2-DOT-3	CBACT04C.cbl:624

8 rules

9910-DISPLAY-IO-STATUS

When	Then	At
IO-STATUS NOT NUMERIC OR IO-STAT1 = '9'	MOVE IO-STAT1 TO IO-STATUS-04(1:1)	CBACT04C.cbl:638
IO-STATUS NOT NUMERIC OR IO-STAT1 = '9'	MOVE 0 TO TWO-BYTES-BINARY	CBACT04C.cbl:639
IO-STATUS NOT NUMERIC OR IO-STAT1 = '9'	MOVE IO-STAT2 TO TWO-BYTES-RIGHT	CBACT04C.cbl:640
IO-STATUS NOT NUMERIC OR IO-STAT1 = '9'	MOVE TWO-BYTES-BINARY TO IO-STATUS-0403	CBACT04C.cbl:641
IO-STATUS NOT NUMERIC OR IO-STAT1 = '9'	DISPLAY 'FILE STATUS IS: NNNN' IO-STATUS-04	CBACT04C.cbl:642
NOT (IO-STATUS NOT NUMERIC OR IO-STAT1 = '9')	MOVE '0000' TO IO-STATUS-04	CBACT04C.cbl:644
NOT (IO-STATUS NOT NUMERIC OR IO-STAT1 = '9')	MOVE IO-STATUS TO IO-STATUS-04(3:2)	CBACT04C.cbl:645
NOT (IO-STATUS NOT NUMERIC OR IO-STAT1 = '9')	DISPLAY 'FILE STATUS IS: NNNN' IO-STATUS-04	CBACT04C.cbl:646