Business rules · 72 guarded actionsCBEXPORT

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

WS-CUSTOMER-OK	means WS-CUSTOMER-STATUS = '00'	CBEXPORT.cbl:102
WS-ACCOUNT-OK	means WS-ACCOUNT-STATUS = '00'	CBEXPORT.cbl:105
WS-XREF-OK	means WS-XREF-STATUS = '00'	CBEXPORT.cbl:108
WS-TRANSACTION-OK	means WS-TRANSACTION-STATUS = '00'	CBEXPORT.cbl:111
WS-CARD-OK	means WS-CARD-STATUS = '00'	CBEXPORT.cbl:114
WS-EXPORT-OK	means WS-EXPORT-STATUS = '00'	CBEXPORT.cbl:116
WS-CUSTOMER-EOF	means WS-CUSTOMER-STATUS = '10'	CBEXPORT.cbl:101
WS-ACCOUNT-EOF	means WS-ACCOUNT-STATUS = '10'	CBEXPORT.cbl:104
WS-XREF-EOF	means WS-XREF-STATUS = '10'	CBEXPORT.cbl:107
WS-TRANSACTION-EOF	means WS-TRANSACTION-STATUS = '10'	CBEXPORT.cbl:110
WS-CARD-EOF	means WS-CARD-STATUS = '10'	CBEXPORT.cbl:113

12 rules

1100-OPEN-FILES

When	Then	At
NOT WS-CUSTOMER-OK	DISPLAY 'ERROR: Cannot open CUSTOMER-INPUT, Status: ' WS-CUSTOMER-STATUS	CBEXPORT.cbl:202–203
NOT WS-CUSTOMER-OK	PERFORM 9999-ABEND-PROGRAM	CBEXPORT.cbl:204
NOT WS-ACCOUNT-OK	DISPLAY 'ERROR: Cannot open ACCOUNT-INPUT, Status: ' WS-ACCOUNT-STATUS	CBEXPORT.cbl:209–210
NOT WS-ACCOUNT-OK	PERFORM 9999-ABEND-PROGRAM	CBEXPORT.cbl:211
NOT WS-XREF-OK	DISPLAY 'ERROR: Cannot open XREF-INPUT, Status: ' WS-XREF-STATUS	CBEXPORT.cbl:216–217
NOT WS-XREF-OK	PERFORM 9999-ABEND-PROGRAM	CBEXPORT.cbl:218
NOT WS-TRANSACTION-OK	DISPLAY 'ERROR: Cannot open TRANSACTION-INPUT, Status: ' WS-TRANSACTION-STATUS	CBEXPORT.cbl:223–224
NOT WS-TRANSACTION-OK	PERFORM 9999-ABEND-PROGRAM	CBEXPORT.cbl:225
NOT WS-CARD-OK	DISPLAY 'ERROR: Cannot open CARD-INPUT, Status: ' WS-CARD-STATUS	CBEXPORT.cbl:230–231
NOT WS-CARD-OK	PERFORM 9999-ABEND-PROGRAM	CBEXPORT.cbl:232
NOT WS-EXPORT-OK	DISPLAY 'ERROR: Cannot open EXPORT-OUTPUT, Status: ' WS-EXPORT-STATUS	CBEXPORT.cbl:237–238
NOT WS-EXPORT-OK	PERFORM 9999-ABEND-PROGRAM	CBEXPORT.cbl:239

2 rules

2000-EXPORT-CUSTOMERS

When	Then	At
PERFORM UNTIL WS-CUSTOMER-EOF	PERFORM 2200-CREATE-CUSTOMER-EXP-REC	CBEXPORT.cbl:250
PERFORM UNTIL WS-CUSTOMER-EOF	PERFORM 2100-READ-CUSTOMER-RECORD	CBEXPORT.cbl:251

2 rules

2100-READ-CUSTOMER-RECORD

When	Then	At
NOT WS-CUSTOMER-OK AND NOT WS-CUSTOMER-EOF	DISPLAY 'ERROR: Reading CUSTOMER-INPUT, Status: ' WS-CUSTOMER-STATUS	CBEXPORT.cbl:263–264
NOT WS-CUSTOMER-OK AND NOT WS-CUSTOMER-EOF	PERFORM 9999-ABEND-PROGRAM	CBEXPORT.cbl:265

8 rules

2200-CREATE-CUSTOMER-EXP-REC

When	Then	At
always	MOVE 'C' TO EXPORT-REC-TYPE	CBEXPORT.cbl:274
always	calc ADD 1 TO WS-SEQUENCE-COUNTER	CBEXPORT.cbl:276
always	MOVE '0001' TO EXPORT-BRANCH-ID	CBEXPORT.cbl:278
always	MOVE 'NORTH' TO EXPORT-REGION-CODE	CBEXPORT.cbl:279
NOT WS-EXPORT-OK	DISPLAY 'ERROR: Writing export record, Status: ' WS-EXPORT-STATUS	CBEXPORT.cbl:304–305
NOT WS-EXPORT-OK	PERFORM 9999-ABEND-PROGRAM	CBEXPORT.cbl:306
always	calc ADD 1 TO WS-CUSTOMER-RECORDS-EXPORTED	CBEXPORT.cbl:309
always	calc ADD 1 TO WS-TOTAL-RECORDS-EXPORTED	CBEXPORT.cbl:310

2 rules

3000-EXPORT-ACCOUNTS

When	Then	At
PERFORM UNTIL WS-ACCOUNT-EOF	PERFORM 3200-CREATE-ACCOUNT-EXP-REC	CBEXPORT.cbl:319
PERFORM UNTIL WS-ACCOUNT-EOF	PERFORM 3100-READ-ACCOUNT-RECORD	CBEXPORT.cbl:320

2 rules

3100-READ-ACCOUNT-RECORD

When	Then	At
NOT WS-ACCOUNT-OK AND NOT WS-ACCOUNT-EOF	DISPLAY 'ERROR: Reading ACCOUNT-INPUT, Status: ' WS-ACCOUNT-STATUS	CBEXPORT.cbl:332–333
NOT WS-ACCOUNT-OK AND NOT WS-ACCOUNT-EOF	PERFORM 9999-ABEND-PROGRAM	CBEXPORT.cbl:334

8 rules

3200-CREATE-ACCOUNT-EXP-REC

When	Then	At
always	MOVE 'A' TO EXPORT-REC-TYPE	CBEXPORT.cbl:343
always	calc ADD 1 TO WS-SEQUENCE-COUNTER	CBEXPORT.cbl:345
always	MOVE '0001' TO EXPORT-BRANCH-ID	CBEXPORT.cbl:347
always	MOVE 'NORTH' TO EXPORT-REGION-CODE	CBEXPORT.cbl:348
NOT WS-EXPORT-OK	DISPLAY 'ERROR: Writing export record, Status: ' WS-EXPORT-STATUS	CBEXPORT.cbl:367–368
NOT WS-EXPORT-OK	PERFORM 9999-ABEND-PROGRAM	CBEXPORT.cbl:369
always	calc ADD 1 TO WS-ACCOUNT-RECORDS-EXPORTED	CBEXPORT.cbl:372
always	calc ADD 1 TO WS-TOTAL-RECORDS-EXPORTED	CBEXPORT.cbl:373

2 rules

4000-EXPORT-XREFS

When	Then	At
PERFORM UNTIL WS-XREF-EOF	PERFORM 4200-CREATE-XREF-EXPORT-RECORD	CBEXPORT.cbl:383
PERFORM UNTIL WS-XREF-EOF	PERFORM 4100-READ-XREF-RECORD	CBEXPORT.cbl:384

2 rules

4100-READ-XREF-RECORD

When	Then	At
NOT WS-XREF-OK AND NOT WS-XREF-EOF	DISPLAY 'ERROR: Reading XREF-INPUT, Status: ' WS-XREF-STATUS	CBEXPORT.cbl:396–397
NOT WS-XREF-OK AND NOT WS-XREF-EOF	PERFORM 9999-ABEND-PROGRAM	CBEXPORT.cbl:398

8 rules

4200-CREATE-XREF-EXPORT-RECORD

When	Then	At
always	MOVE 'X' TO EXPORT-REC-TYPE	CBEXPORT.cbl:407
always	calc ADD 1 TO WS-SEQUENCE-COUNTER	CBEXPORT.cbl:409
always	MOVE '0001' TO EXPORT-BRANCH-ID	CBEXPORT.cbl:411
always	MOVE 'NORTH' TO EXPORT-REGION-CODE	CBEXPORT.cbl:412
NOT WS-EXPORT-OK	DISPLAY 'ERROR: Writing export record, Status: ' WS-EXPORT-STATUS	CBEXPORT.cbl:422–423
NOT WS-EXPORT-OK	PERFORM 9999-ABEND-PROGRAM	CBEXPORT.cbl:424
always	calc ADD 1 TO WS-XREF-RECORDS-EXPORTED	CBEXPORT.cbl:427
always	calc ADD 1 TO WS-TOTAL-RECORDS-EXPORTED	CBEXPORT.cbl:428

2 rules

5000-EXPORT-TRANSACTIONS

When	Then	At
PERFORM UNTIL WS-TRANSACTION-EOF	PERFORM 5200-CREATE-TRAN-EXP-REC	CBEXPORT.cbl:438
PERFORM UNTIL WS-TRANSACTION-EOF	PERFORM 5100-READ-TRANSACTION-RECORD	CBEXPORT.cbl:439

2 rules

5100-READ-TRANSACTION-RECORD

When	Then	At
NOT WS-TRANSACTION-OK AND NOT WS-TRANSACTION-EOF	DISPLAY 'ERROR: Reading TRANSACTION-INPUT, Status: ' WS-TRANSACTION-STATUS	CBEXPORT.cbl:451–452
NOT WS-TRANSACTION-OK AND NOT WS-TRANSACTION-EOF	PERFORM 9999-ABEND-PROGRAM	CBEXPORT.cbl:453

8 rules

5200-CREATE-TRAN-EXP-REC

When	Then	At
always	MOVE 'T' TO EXPORT-REC-TYPE	CBEXPORT.cbl:462
always	calc ADD 1 TO WS-SEQUENCE-COUNTER	CBEXPORT.cbl:464
always	MOVE '0001' TO EXPORT-BRANCH-ID	CBEXPORT.cbl:466
always	MOVE 'NORTH' TO EXPORT-REGION-CODE	CBEXPORT.cbl:467
NOT WS-EXPORT-OK	DISPLAY 'ERROR: Writing export record, Status: ' WS-EXPORT-STATUS	CBEXPORT.cbl:487–488
NOT WS-EXPORT-OK	PERFORM 9999-ABEND-PROGRAM	CBEXPORT.cbl:489
always	calc ADD 1 TO WS-TRAN-RECORDS-EXPORTED	CBEXPORT.cbl:492
always	calc ADD 1 TO WS-TOTAL-RECORDS-EXPORTED	CBEXPORT.cbl:493

2 rules

5500-EXPORT-CARDS

When	Then	At
PERFORM UNTIL WS-CARD-EOF	PERFORM 5700-CREATE-CARD-EXPORT-RECORD	CBEXPORT.cbl:503
PERFORM UNTIL WS-CARD-EOF	PERFORM 5600-READ-CARD-RECORD	CBEXPORT.cbl:504

2 rules

5600-READ-CARD-RECORD

When	Then	At
NOT WS-CARD-OK AND NOT WS-CARD-EOF	DISPLAY 'ERROR: Reading CARD-INPUT, Status: ' WS-CARD-STATUS	CBEXPORT.cbl:516–517
NOT WS-CARD-OK AND NOT WS-CARD-EOF	PERFORM 9999-ABEND-PROGRAM	CBEXPORT.cbl:518

8 rules

5700-CREATE-CARD-EXPORT-RECORD

When	Then	At
always	MOVE 'D' TO EXPORT-REC-TYPE	CBEXPORT.cbl:527
always	calc ADD 1 TO WS-SEQUENCE-COUNTER	CBEXPORT.cbl:529
always	MOVE '0001' TO EXPORT-BRANCH-ID	CBEXPORT.cbl:531
always	MOVE 'NORTH' TO EXPORT-REGION-CODE	CBEXPORT.cbl:532
NOT WS-EXPORT-OK	DISPLAY 'ERROR: Writing export record, Status: ' WS-EXPORT-STATUS	CBEXPORT.cbl:545–546
NOT WS-EXPORT-OK	PERFORM 9999-ABEND-PROGRAM	CBEXPORT.cbl:547
always	calc ADD 1 TO WS-CARD-RECORDS-EXPORTED	CBEXPORT.cbl:550
always	calc ADD 1 TO WS-TOTAL-RECORDS-EXPORTED	CBEXPORT.cbl:551