MFmainframe-rea
WS carddemo · 26f629ef

Business rules · 19 guarded actionsCBSTM03B

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

M03B-OPENmeans LK-M03B-OPER = 'O'CBSTM03B.CBL:103
M03B-READmeans LK-M03B-OPER = 'R'CBSTM03B.CBL:105
M03B-CLOSEmeans LK-M03B-OPER = 'C'CBSTM03B.CBL:104
M03B-READ-Kmeans LK-M03B-OPER = 'K'CBSTM03B.CBL:106
5 rules

0000-START

WhenThenAt
  1. LK-M03B-DD = 'TRNXFILE'
 PERFORM 1000-TRNXFILE-PROC THRU 1999-EXITCBSTM03B.CBL:120
  1. LK-M03B-DD = 'XREFFILE'
 PERFORM 2000-XREFFILE-PROC THRU 2999-EXITCBSTM03B.CBL:122
  1. LK-M03B-DD = 'CUSTFILE'
 PERFORM 3000-CUSTFILE-PROC THRU 3999-EXITCBSTM03B.CBL:124
  1. LK-M03B-DD = 'ACCTFILE'
 PERFORM 4000-ACCTFILE-PROC THRU 4999-EXITCBSTM03B.CBL:126
  1. LK-M03B-DD is none of ['TRNXFILE'; 'XREFFILE'; 'CUSTFILE'; 'ACCTFILE']
 GO TO 9999-GOBACKCBSTM03B.CBL:128
3 rules

1000-TRNXFILE-PROC

WhenThenAt
  1. M03B-OPEN
 GO TO 1900-EXITCBSTM03B.CBL:137
  1. M03B-READ
 GO TO 1900-EXITCBSTM03B.CBL:143
  1. M03B-CLOSE
 GO TO 1900-EXITCBSTM03B.CBL:148
3 rules

2000-XREFFILE-PROC

WhenThenAt
  1. M03B-OPEN
 GO TO 2900-EXITCBSTM03B.CBL:161
  1. M03B-READ
 GO TO 2900-EXITCBSTM03B.CBL:167
  1. M03B-CLOSE
 GO TO 2900-EXITCBSTM03B.CBL:172
4 rules

3000-CUSTFILE-PROC

WhenThenAt
  1. M03B-OPEN
 GO TO 3900-EXITCBSTM03B.CBL:185
  1. M03B-READ-K
 MOVE LK-M03B-KEY (1:LK-M03B-KEY-LN) TO FD-CUST-IDCBSTM03B.CBL:189
  1. M03B-READ-K
 GO TO 3900-EXITCBSTM03B.CBL:192
  1. M03B-CLOSE
 GO TO 3900-EXITCBSTM03B.CBL:197
4 rules

4000-ACCTFILE-PROC

WhenThenAt
  1. M03B-OPEN
 GO TO 4900-EXITCBSTM03B.CBL:210
  1. M03B-READ-K
 MOVE LK-M03B-KEY (1:LK-M03B-KEY-LN) TO FD-ACCT-IDCBSTM03B.CBL:214
  1. M03B-READ-K
 GO TO 4900-EXITCBSTM03B.CBL:217
  1. M03B-CLOSE
 GO TO 4900-EXITCBSTM03B.CBL:222