MFmainframe-rea
WS carddemo · 26f629ef

Business rules · 29 guarded actionsPAUDBLOD

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.

4 rules

1000-INITIALIZE

WhenThenAt
  1. NOT (WS-INFIL1-STATUS = SPACES OR '00')
 DISPLAY 'ERROR IN OPENING INFILE1:' WS-INFIL1-STATUSPAUDBLOD.CBL:205
  1. NOT (WS-INFIL1-STATUS = SPACES OR '00')
 PERFORM 9999-ABENDPAUDBLOD.CBL:206
  1. NOT (WS-INFIL2-STATUS = SPACES OR '00')
 DISPLAY 'ERROR IN OPENING INFILE2:' WS-INFIL2-STATUSPAUDBLOD.CBL:213
  1. NOT (WS-INFIL2-STATUS = SPACES OR '00')
 PERFORM 9999-ABENDPAUDBLOD.CBL:214
4 rules

2000-READ-ROOT-SEG-FILE

WhenThenAt
  1. WS-INFIL1-STATUS = SPACES OR '00'
 MOVE INFIL1-REC TO PENDING-AUTH-SUMMARYPAUDBLOD.CBL:229
  1. WS-INFIL1-STATUS = SPACES OR '00'
 PERFORM 2100-INSERT-ROOT-SEG THRU 2100-EXITPAUDBLOD.CBL:230
  1. NOT (WS-INFIL1-STATUS = SPACES OR '00')
  2. WS-INFIL1-STATUS = '10'
 MOVE 'Y' TO END-ROOT-SEG-FILEPAUDBLOD.CBL:233
  1. NOT (WS-INFIL1-STATUS = SPACES OR '00')
  2. NOT (WS-INFIL1-STATUS = '10')
 DISPLAY 'ERROR READING ROOT SEG INFILE'PAUDBLOD.CBL:235
4 rules

2100-INSERT-ROOT-SEG

WhenThenAt
  1. PAUT-PCB-STATUS = SPACES
 DISPLAY 'ROOT INSERT SUCCESS 'PAUDBLOD.CBL:254
  1. PAUT-PCB-STATUS = 'II'
 DISPLAY 'ROOT SEGMENT ALREADY IN DB'PAUDBLOD.CBL:257
  1. PAUT-PCB-STATUS NOT EQUAL TO SPACES AND 'II'
 DISPLAY 'ROOT INSERT FAILED :' PAUT-PCB-STATUSPAUDBLOD.CBL:260
  1. PAUT-PCB-STATUS NOT EQUAL TO SPACES AND 'II'
 PERFORM 9999-ABENDPAUDBLOD.CBL:261
5 rules

3000-READ-CHILD-SEG-FILE

WhenThenAt
  1. WS-INFIL2-STATUS = SPACES OR '00'
  2. ROOT-SEG-KEY IS NUMERIC
 MOVE ROOT-SEG-KEY TO QUAL-SSA-KEY-VALUEPAUDBLOD.CBL:277
  1. WS-INFIL2-STATUS = SPACES OR '00'
  2. ROOT-SEG-KEY IS NUMERIC
 MOVE CHILD-SEG-REC TO PENDING-AUTH-DETAILSPAUDBLOD.CBL:280
  1. WS-INFIL2-STATUS = SPACES OR '00'
  2. ROOT-SEG-KEY IS NUMERIC
 PERFORM 3100-INSERT-CHILD-SEG THRU 3100-EXITPAUDBLOD.CBL:281
  1. NOT (WS-INFIL2-STATUS = SPACES OR '00')
  2. WS-INFIL2-STATUS = '10'
 MOVE 'Y' TO END-CHILD-SEG-FILEPAUDBLOD.CBL:285
  1. NOT (WS-INFIL2-STATUS = SPACES OR '00')
  2. NOT (WS-INFIL2-STATUS = '10')
 DISPLAY 'ERROR READING CHILD SEG INFILE'PAUDBLOD.CBL:287
5 rules

3100-INSERT-CHILD-SEG

WhenThenAt
  1. PAUT-PCB-STATUS = SPACES
 DISPLAY 'GU CALL TO ROOT SEG SUCCESS'PAUDBLOD.CBL:306
  1. PAUT-PCB-STATUS = SPACES
 PERFORM 3200-INSERT-IMS-CALL THRU 3200-EXITPAUDBLOD.CBL:309
  1. PAUT-PCB-STATUS = SPACES
  2. PAUT-PCB-STATUS NOT EQUAL TO SPACES AND 'II'
 DISPLAY 'ROOT GU CALL FAIL:' PAUT-PCB-STATUSPAUDBLOD.CBL:311
  1. PAUT-PCB-STATUS = SPACES
  2. PAUT-PCB-STATUS NOT EQUAL TO SPACES AND 'II'
 DISPLAY 'KFB AREA IN CHILD:' PAUT-KEYFBPAUDBLOD.CBL:312
  1. PAUT-PCB-STATUS = SPACES
  2. PAUT-PCB-STATUS NOT EQUAL TO SPACES AND 'II'
 PERFORM 9999-ABENDPAUDBLOD.CBL:313
5 rules

3200-INSERT-IMS-CALL

WhenThenAt
  1. PAUT-PCB-STATUS = SPACES
 DISPLAY 'CHILD SEGMENT INSERTED SUCCESS'PAUDBLOD.CBL:327
  1. PAUT-PCB-STATUS = 'II'
 DISPLAY 'CHILD SEGMENT ALREADY IN DB'PAUDBLOD.CBL:330
  1. PAUT-PCB-STATUS NOT EQUAL TO SPACES AND 'II'
 DISPLAY 'INSERT CALL FAIL FOR CHILD:' PAUT-PCB-STATUSPAUDBLOD.CBL:333
  1. PAUT-PCB-STATUS NOT EQUAL TO SPACES AND 'II'
 DISPLAY 'KFB AREA IN CHILD:' PAUT-KEYFBPAUDBLOD.CBL:334
  1. PAUT-PCB-STATUS NOT EQUAL TO SPACES AND 'II'
 PERFORM 9999-ABENDPAUDBLOD.CBL:335
2 rules

4000-FILE-CLOSE

WhenThenAt
  1. NOT (WS-INFIL1-STATUS = SPACES OR '00')
 DISPLAY 'ERROR IN CLOSING 1ST FILE:'WS-INFIL1-STATUSPAUDBLOD.CBL:348
  1. NOT (WS-INFIL2-STATUS = SPACES OR '00')
 DISPLAY 'ERROR IN CLOSING 2ND FILE:'WS-INFIL2-STATUSPAUDBLOD.CBL:355