MFmainframe-rea
WS carddemo · 26f629ef

Business rules · 30 guarded actionsDBUNLDGS

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.

14 rules

2000-FIND-NEXT-AUTH-SUMMARY

WhenThenAt
  1. PAUT-PCB-STATUS = SPACES
calc ADD 1 TO WS-NO-SUMRY-READDBUNLDGS.CBL:234
  1. PAUT-PCB-STATUS = SPACES
calc ADD 1 TO WS-AUTH-SMRY-PROC-CNTDBUNLDGS.CBL:235
  1. PAUT-PCB-STATUS = SPACES
 MOVE PENDING-AUTH-SUMMARY TO OPFIL1-RECDBUNLDGS.CBL:236
  1. PAUT-PCB-STATUS = SPACES
 INITIALIZE ROOT-SEG-KEYDBUNLDGS.CBL:237
  1. PAUT-PCB-STATUS = SPACES
 INITIALIZE CHILD-SEG-RECDBUNLDGS.CBL:238
  1. PAUT-PCB-STATUS = SPACES
 MOVE PA-ACCT-ID TO ROOT-SEG-KEYDBUNLDGS.CBL:239
  1. PAUT-PCB-STATUS = SPACES
  2. PA-ACCT-ID IS NUMERIC
 PERFORM 3100-INSERT-PARENT-SEG-GSAM THRU 3100-EXITDBUNLDGS.CBL:243
  1. PAUT-PCB-STATUS = SPACES
  2. PA-ACCT-ID IS NUMERIC
 INITIALIZE WS-END-OF-CHILD-SEGDBUNLDGS.CBL:244
  1. PAUT-PCB-STATUS = SPACES
  2. PA-ACCT-ID IS NUMERIC
 PERFORM 3000-FIND-NEXT-AUTH-DTL THRU 3000-EXIT UNTIL WS-END-OF-CHILD-SEG='Y'DBUNLDGS.CBL:245–246
  1. PAUT-PCB-STATUS = 'GB'
 SET END-OF-AUTHDB TO TRUEDBUNLDGS.CBL:250
  1. PAUT-PCB-STATUS = 'GB'
 MOVE 'Y' TO WS-END-OF-ROOT-SEGDBUNLDGS.CBL:251
  1. PAUT-PCB-STATUS NOT EQUAL TO SPACES AND 'GB'
 DISPLAY 'AUTH SUM GN FAILED :' PAUT-PCB-STATUSDBUNLDGS.CBL:254
  1. PAUT-PCB-STATUS NOT EQUAL TO SPACES AND 'GB'
 DISPLAY 'KEY FEEDBACK AREA :' PAUT-KEYFBDBUNLDGS.CBL:255
  1. PAUT-PCB-STATUS NOT EQUAL TO SPACES AND 'GB'
 PERFORM 9999-ABENDDBUNLDGS.CBL:256
10 rules

3000-FIND-NEXT-AUTH-DTL

WhenThenAt
  1. PAUT-PCB-STATUS = SPACES
 SET MORE-AUTHS TO TRUEDBUNLDGS.CBL:277
  1. PAUT-PCB-STATUS = SPACES
calc ADD 1 TO WS-NO-SUMRY-READDBUNLDGS.CBL:278
  1. PAUT-PCB-STATUS = SPACES
calc ADD 1 TO WS-AUTH-SMRY-PROC-CNTDBUNLDGS.CBL:279
  1. PAUT-PCB-STATUS = SPACES
 MOVE PENDING-AUTH-DETAILS TO CHILD-SEG-RECDBUNLDGS.CBL:280
  1. PAUT-PCB-STATUS = SPACES
 PERFORM 3200-INSERT-CHILD-SEG-GSAM THRU 3200-EXITDBUNLDGS.CBL:282
  1. PAUT-PCB-STATUS = 'GE'
 MOVE 'Y' TO WS-END-OF-CHILD-SEGDBUNLDGS.CBL:286
  1. PAUT-PCB-STATUS = 'GE'
 DISPLAY 'CHILD SEG FLAG GE : ' WS-END-OF-CHILD-SEGDBUNLDGS.CBL:287–288
  1. PAUT-PCB-STATUS NOT EQUAL TO SPACES AND 'GE'
 DISPLAY 'GNP CALL FAILED :' PAUT-PCB-STATUSDBUNLDGS.CBL:291
  1. PAUT-PCB-STATUS NOT EQUAL TO SPACES AND 'GE'
 DISPLAY 'KFB AREA IN CHILD:' PAUT-KEYFBDBUNLDGS.CBL:292
  1. PAUT-PCB-STATUS NOT EQUAL TO SPACES AND 'GE'
 PERFORM 9999-ABENDDBUNLDGS.CBL:293
3 rules

3100-INSERT-PARENT-SEG-GSAM

WhenThenAt
  1. PASFL-PCB-STATUS NOT EQUAL TO SPACES
 DISPLAY 'GSAM PARENT FAIL :' PASFL-PCB-STATUSDBUNLDGS.CBL:312
  1. PASFL-PCB-STATUS NOT EQUAL TO SPACES
 DISPLAY 'KFB AREA IN GSAM:' PASFL-KEYFBDBUNLDGS.CBL:313
  1. PASFL-PCB-STATUS NOT EQUAL TO SPACES
 PERFORM 9999-ABENDDBUNLDGS.CBL:314
3 rules

3200-INSERT-CHILD-SEG-GSAM

WhenThenAt
  1. PADFL-PCB-STATUS NOT EQUAL TO SPACES
 DISPLAY 'GSAM PARENT FAIL :' PADFL-PCB-STATUSDBUNLDGS.CBL:331
  1. PADFL-PCB-STATUS NOT EQUAL TO SPACES
 DISPLAY 'KFB AREA IN GSAM:' PADFL-KEYFBDBUNLDGS.CBL:332
  1. PADFL-PCB-STATUS NOT EQUAL TO SPACES
 PERFORM 9999-ABENDDBUNLDGS.CBL:333