Business rules · 48 guarded actionsCBIMPORT

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-EXPORT-OK	means WS-EXPORT-STATUS = '00'	CBIMPORT.cbl:119
WS-CUSTOMER-OK	means WS-CUSTOMER-STATUS = '00'	CBIMPORT.cbl:121
WS-ACCOUNT-OK	means WS-ACCOUNT-STATUS = '00'	CBIMPORT.cbl:123
WS-XREF-OK	means WS-XREF-STATUS = '00'	CBIMPORT.cbl:125
WS-TRANSACTION-OK	means WS-TRANSACTION-STATUS = '00'	CBIMPORT.cbl:127
WS-CARD-OK	means WS-CARD-STATUS = '00'	CBIMPORT.cbl:129
WS-ERROR-OK	means WS-ERROR-STATUS = '00'	CBIMPORT.cbl:131
WS-EXPORT-EOF	means WS-EXPORT-STATUS = '10'	CBIMPORT.cbl:118

4 rules

1000-INITIALIZE

When	Then	At
always	MOVE '-' TO WS-IMPORT-DATE(5:1)	CBIMPORT.cbl:179
always	MOVE '-' TO WS-IMPORT-DATE(8:1)	CBIMPORT.cbl:181
always	MOVE ':' TO WS-IMPORT-TIME(3:1)	CBIMPORT.cbl:185
always	MOVE ':' TO WS-IMPORT-TIME(6:1)	CBIMPORT.cbl:187

14 rules

1100-OPEN-FILES

When	Then	At
NOT WS-EXPORT-OK	DISPLAY 'ERROR: Cannot open EXPORT-INPUT, Status: ' WS-EXPORT-STATUS	CBIMPORT.cbl:200–201
NOT WS-EXPORT-OK	PERFORM 9999-ABEND-PROGRAM	CBIMPORT.cbl:202
NOT WS-CUSTOMER-OK	DISPLAY 'ERROR: Cannot open CUSTOMER-OUTPUT, Status: ' WS-CUSTOMER-STATUS	CBIMPORT.cbl:207–208
NOT WS-CUSTOMER-OK	PERFORM 9999-ABEND-PROGRAM	CBIMPORT.cbl:209
NOT WS-ACCOUNT-OK	DISPLAY 'ERROR: Cannot open ACCOUNT-OUTPUT, Status: ' WS-ACCOUNT-STATUS	CBIMPORT.cbl:214–215
NOT WS-ACCOUNT-OK	PERFORM 9999-ABEND-PROGRAM	CBIMPORT.cbl:216
NOT WS-XREF-OK	DISPLAY 'ERROR: Cannot open XREF-OUTPUT, Status: ' WS-XREF-STATUS	CBIMPORT.cbl:221–222
NOT WS-XREF-OK	PERFORM 9999-ABEND-PROGRAM	CBIMPORT.cbl:223
NOT WS-TRANSACTION-OK	DISPLAY 'ERROR: Cannot open TRANSACTION-OUTPUT, Status: ' WS-TRANSACTION-STATUS	CBIMPORT.cbl:228–229
NOT WS-TRANSACTION-OK	PERFORM 9999-ABEND-PROGRAM	CBIMPORT.cbl:230
NOT WS-CARD-OK	DISPLAY 'ERROR: Cannot open CARD-OUTPUT, Status: ' WS-CARD-STATUS	CBIMPORT.cbl:235–236
NOT WS-CARD-OK	PERFORM 9999-ABEND-PROGRAM	CBIMPORT.cbl:237
NOT WS-ERROR-OK	DISPLAY 'ERROR: Cannot open ERROR-OUTPUT, Status: ' WS-ERROR-STATUS	CBIMPORT.cbl:242–243
NOT WS-ERROR-OK	PERFORM 9999-ABEND-PROGRAM	CBIMPORT.cbl:244

3 rules

2000-PROCESS-EXPORT-FILE

When	Then	At
PERFORM UNTIL WS-EXPORT-EOF	calc ADD 1 TO WS-TOTAL-RECORDS-READ	CBIMPORT.cbl:253
PERFORM UNTIL WS-EXPORT-EOF	PERFORM 2200-PROCESS-RECORD-BY-TYPE	CBIMPORT.cbl:254
PERFORM UNTIL WS-EXPORT-EOF	PERFORM 2100-READ-EXPORT-RECORD	CBIMPORT.cbl:255

2 rules

2100-READ-EXPORT-RECORD

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

6 rules

2200-PROCESS-RECORD-BY-TYPE

When	Then	At
EXPORT-REC-TYPE = 'C'	PERFORM 2300-PROCESS-CUSTOMER-RECORD	CBIMPORT.cbl:274
EXPORT-REC-TYPE = 'A'	PERFORM 2400-PROCESS-ACCOUNT-RECORD	CBIMPORT.cbl:276
EXPORT-REC-TYPE = 'X'	PERFORM 2500-PROCESS-XREF-RECORD	CBIMPORT.cbl:278
EXPORT-REC-TYPE = 'T'	PERFORM 2600-PROCESS-TRAN-RECORD	CBIMPORT.cbl:280
EXPORT-REC-TYPE = 'D'	PERFORM 2650-PROCESS-CARD-RECORD	CBIMPORT.cbl:282
EXPORT-REC-TYPE is none of ['C'; 'A'; 'X'; 'T'; 'D']	PERFORM 2700-PROCESS-UNKNOWN-RECORD	CBIMPORT.cbl:284

3 rules

2300-PROCESS-CUSTOMER-RECORD

When	Then	At
NOT WS-CUSTOMER-OK	DISPLAY 'ERROR: Writing customer record, Status: ' WS-CUSTOMER-STATUS	CBIMPORT.cbl:315–316
NOT WS-CUSTOMER-OK	PERFORM 9999-ABEND-PROGRAM	CBIMPORT.cbl:317
always	calc ADD 1 TO WS-CUSTOMER-RECORDS-IMPORTED	CBIMPORT.cbl:320

3 rules

2400-PROCESS-ACCOUNT-RECORD

When	Then	At
NOT WS-ACCOUNT-OK	DISPLAY 'ERROR: Writing account record, Status: ' WS-ACCOUNT-STATUS	CBIMPORT.cbl:344–345
NOT WS-ACCOUNT-OK	PERFORM 9999-ABEND-PROGRAM	CBIMPORT.cbl:346
always	calc ADD 1 TO WS-ACCOUNT-RECORDS-IMPORTED	CBIMPORT.cbl:349

3 rules

2500-PROCESS-XREF-RECORD

When	Then	At
NOT WS-XREF-OK	DISPLAY 'ERROR: Writing xref record, Status: ' WS-XREF-STATUS	CBIMPORT.cbl:364–365
NOT WS-XREF-OK	PERFORM 9999-ABEND-PROGRAM	CBIMPORT.cbl:366
always	calc ADD 1 TO WS-XREF-RECORDS-IMPORTED	CBIMPORT.cbl:369

3 rules

2600-PROCESS-TRAN-RECORD

When	Then	At
NOT WS-TRANSACTION-OK	DISPLAY 'ERROR: Writing transaction record, Status: ' WS-TRANSACTION-STATUS	CBIMPORT.cbl:394–395
NOT WS-TRANSACTION-OK	PERFORM 9999-ABEND-PROGRAM	CBIMPORT.cbl:396
always	calc ADD 1 TO WS-TRAN-RECORDS-IMPORTED	CBIMPORT.cbl:399

3 rules

2650-PROCESS-CARD-RECORD

When	Then	At
NOT WS-CARD-OK	DISPLAY 'ERROR: Writing card record, Status: ' WS-CARD-STATUS	CBIMPORT.cbl:417–418
NOT WS-CARD-OK	PERFORM 9999-ABEND-PROGRAM	CBIMPORT.cbl:419
always	calc ADD 1 TO WS-CARD-RECORDS-IMPORTED	CBIMPORT.cbl:422

2 rules

2700-PROCESS-UNKNOWN-RECORD

When	Then	At
always	calc ADD 1 TO WS-UNKNOWN-RECORD-TYPE-COUNT	CBIMPORT.cbl:427
always	MOVE 'Unknown record type encountered' TO ERR-MESSAGE	CBIMPORT.cbl:432

2 rules

2750-WRITE-ERROR

When	Then	At
NOT WS-ERROR-OK	DISPLAY 'ERROR: Writing error record, Status: ' WS-ERROR-STATUS	CBIMPORT.cbl:442–443
always	calc ADD 1 TO WS-ERROR-RECORDS-WRITTEN	CBIMPORT.cbl:446