MFmainframe-rea
WS carddemo · 26f629ef

Business rules · 10 guarded actionsCSUTLDTC

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

FC-INVALID-DATEmeans FEEDBACK-TOKEN-VALUE = X'0000000000000000'CSUTLDTC.cbl:62
FC-INSUFFICIENT-DATAmeans FEEDBACK-TOKEN-VALUE = X'000309CB59C3C5C5'CSUTLDTC.cbl:63
FC-BAD-DATE-VALUEmeans FEEDBACK-TOKEN-VALUE = X'000309CC59C3C5C5'CSUTLDTC.cbl:64
FC-INVALID-ERAmeans FEEDBACK-TOKEN-VALUE = X'000309CD59C3C5C5'CSUTLDTC.cbl:65
FC-UNSUPP-RANGEmeans FEEDBACK-TOKEN-VALUE = X'000309D159C3C5C5'CSUTLDTC.cbl:66
FC-INVALID-MONTHmeans FEEDBACK-TOKEN-VALUE = X'000309D559C3C5C5'CSUTLDTC.cbl:67
FC-BAD-PIC-STRINGmeans FEEDBACK-TOKEN-VALUE = X'000309D659C3C5C5'CSUTLDTC.cbl:68
FC-NON-NUMERIC-DATAmeans FEEDBACK-TOKEN-VALUE = X'000309D859C3C5C5'CSUTLDTC.cbl:69
FC-YEAR-IN-ERA-ZEROmeans FEEDBACK-TOKEN-VALUE = X'000309D959C3C5C5'CSUTLDTC.cbl:70
10 rules

A000-MAIN

WhenThenAt
  1. FC-INVALID-DATE
 MOVE 'Date is valid' TO WS-RESULTCSUTLDTC.cbl:130
  1. FC-INSUFFICIENT-DATA
 MOVE 'Insufficient' TO WS-RESULTCSUTLDTC.cbl:132
  1. FC-BAD-DATE-VALUE
 MOVE 'Datevalue error' TO WS-RESULTCSUTLDTC.cbl:134
  1. FC-INVALID-ERA
 MOVE 'Invalid Era ' TO WS-RESULTCSUTLDTC.cbl:136
  1. FC-UNSUPP-RANGE
 MOVE 'Unsupp. Range ' TO WS-RESULTCSUTLDTC.cbl:138
  1. FC-INVALID-MONTH
 MOVE 'Invalid month ' TO WS-RESULTCSUTLDTC.cbl:140
  1. FC-BAD-PIC-STRING
 MOVE 'Bad Pic String ' TO WS-RESULTCSUTLDTC.cbl:142
  1. FC-NON-NUMERIC-DATA
 MOVE 'Nonnumeric data' TO WS-RESULTCSUTLDTC.cbl:144
  1. FC-YEAR-IN-ERA-ZERO
 MOVE 'YearInEra is 0 ' TO WS-RESULTCSUTLDTC.cbl:146
  1. TRUE is none of [FC-INVALID-DATE; FC-INSUFFICIENT-DATA; FC-BAD-DATE-VALUE; FC-INVALID-ERA; FC-UNSUPP-RANGE; FC-INVALID-MONTH; FC-BAD-PIC-STRING; FC-NON-NUMERIC-DATA; FC-YEAR-IN-ERA-ZERO]
 MOVE 'Date is invalid' TO WS-RESULTCSUTLDTC.cbl:148