MFmainframe-rea
WS carddemo · 26f629ef

Business rules · 159 guarded actionsCORPT00C

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

CDEMO-PGM-REENTERmeans CDEMO-PGM-CONTEXT = 1COCOM01Y.cpy:31 via CORPT00C.cbl:138
ERR-FLG-ONmeans WS-ERR-FLG = 'Y'CORPT00C.cbl:42
END-LOOP-YESmeans WS-END-LOOP = 'Y'CORPT00C.cbl:51
SEND-ERASE-YESmeans WS-SEND-ERASE-FLG = 'Y'CORPT00C.cbl:48
15 rules

MAIN-PARA

WhenThenAt
  1. EIBCALEN = 0
 MOVE 'COSGN00C' TO CDEMO-TO-PROGRAMCORPT00C.cbl:173
  1. EIBCALEN = 0
 PERFORM RETURN-TO-PREV-SCREENCORPT00C.cbl:174
  1. NOT (EIBCALEN = 0)
 MOVE DFHCOMMAREA(1:EIBCALEN) TO CARDDEMO-COMMAREACORPT00C.cbl:176
  1. NOT (EIBCALEN = 0)
  2. NOT CDEMO-PGM-REENTER
 SET CDEMO-PGM-REENTER TO TRUECORPT00C.cbl:178
  1. NOT (EIBCALEN = 0)
  2. NOT CDEMO-PGM-REENTER
 MOVE LOW-VALUES TO CORPT0AOCORPT00C.cbl:179
  1. NOT (EIBCALEN = 0)
  2. NOT CDEMO-PGM-REENTER
 MOVE -1 TO MONTHLYL OF CORPT0AICORPT00C.cbl:180
  1. NOT (EIBCALEN = 0)
  2. NOT CDEMO-PGM-REENTER
 PERFORM SEND-TRNRPT-SCREENCORPT00C.cbl:181
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
 PERFORM RECEIVE-TRNRPT-SCREENCORPT00C.cbl:183
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID = DFHENTER
 PERFORM PROCESS-ENTER-KEYCORPT00C.cbl:186
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID = DFHPF3
 MOVE 'COMEN01C' TO CDEMO-TO-PROGRAMCORPT00C.cbl:188
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID = DFHPF3
 PERFORM RETURN-TO-PREV-SCREENCORPT00C.cbl:189
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID is none of [DFHENTER; DFHPF3]
 MOVE 'Y' TO WS-ERR-FLGCORPT00C.cbl:191
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID is none of [DFHENTER; DFHPF3]
 MOVE -1 TO MONTHLYL OF CORPT0AICORPT00C.cbl:192
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID is none of [DFHENTER; DFHPF3]
 MOVE CCDA-MSG-INVALID-KEY TO WS-MESSAGECORPT00C.cbl:193
  1. NOT (EIBCALEN = 0)
  2. CDEMO-PGM-REENTER
  3. EIBAID is none of [DFHENTER; DFHPF3]
 PERFORM SEND-TRNRPT-SCREENCORPT00C.cbl:194
120 rules

PROCESS-ENTER-KEY

WhenThenAt
  1. MONTHLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE 'Monthly' TO WS-REPORT-NAMECORPT00C.cbl:214
  1. MONTHLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE FUNCTION CURRENT-DATE TO WS-CURDATE-DATACORPT00C.cbl:215
  1. MONTHLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE WS-CURDATE-YEAR TO WS-START-DATE-YYYYCORPT00C.cbl:217
  1. MONTHLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE WS-CURDATE-MONTH TO WS-START-DATE-MMCORPT00C.cbl:218
  1. MONTHLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE '01' TO WS-START-DATE-DDCORPT00C.cbl:219
  1. MONTHLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE WS-START-DATE TO PARM-START-DATE-1 PARM-START-DATE-2CORPT00C.cbl:220–221
  1. MONTHLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE 1 TO WS-CURDATE-DAYCORPT00C.cbl:223
  1. MONTHLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES
calc ADD 1 TO WS-CURDATE-MONTHCORPT00C.cbl:224
  1. MONTHLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. WS-CURDATE-MONTH > 12
calc ADD 1 TO WS-CURDATE-YEARCORPT00C.cbl:226
  1. MONTHLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. WS-CURDATE-MONTH > 12
 MOVE 1 TO WS-CURDATE-MONTHCORPT00C.cbl:227
  1. MONTHLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES
calc COMPUTE WS-CURDATE-N = FUNCTION DATE-OF-INTEGER( FUNCTION INTEGER-OF-DATE(WS-CURDATE-N) - 1)CORPT00C.cbl:229–230
  1. MONTHLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE WS-CURDATE-YEAR TO WS-END-DATE-YYYYCORPT00C.cbl:232
  1. MONTHLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE WS-CURDATE-MONTH TO WS-END-DATE-MMCORPT00C.cbl:233
  1. MONTHLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE WS-CURDATE-DAY TO WS-END-DATE-DDCORPT00C.cbl:234
  1. MONTHLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE WS-END-DATE TO PARM-END-DATE-1 PARM-END-DATE-2CORPT00C.cbl:235–236
  1. MONTHLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 PERFORM SUBMIT-JOB-TO-INTRDRCORPT00C.cbl:238
  1. YEARLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE 'Yearly' TO WS-REPORT-NAMECORPT00C.cbl:240
  1. YEARLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE FUNCTION CURRENT-DATE TO WS-CURDATE-DATACORPT00C.cbl:241
  1. YEARLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE WS-CURDATE-YEAR TO WS-START-DATE-YYYY WS-END-DATE-YYYYCORPT00C.cbl:243–244
  1. YEARLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE '01' TO WS-START-DATE-MM WS-START-DATE-DDCORPT00C.cbl:245–246
  1. YEARLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE WS-START-DATE TO PARM-START-DATE-1 PARM-START-DATE-2CORPT00C.cbl:247–248
  1. YEARLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE '12' TO WS-END-DATE-MMCORPT00C.cbl:250
  1. YEARLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE '31' TO WS-END-DATE-DDCORPT00C.cbl:251
  1. YEARLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE WS-END-DATE TO PARM-END-DATE-1 PARM-END-DATE-2CORPT00C.cbl:252–253
  1. YEARLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 PERFORM SUBMIT-JOB-TO-INTRDRCORPT00C.cbl:255
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. SDTMMI OF CORPT0AI = SPACES OR LOW-VALUES
 MOVE 'Start Date - Month can NOT be empty...' TO WS-MESSAGECORPT00C.cbl:261–262
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. SDTMMI OF CORPT0AI = SPACES OR LOW-VALUES
 MOVE 'Y' TO WS-ERR-FLGCORPT00C.cbl:263
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. SDTMMI OF CORPT0AI = SPACES OR LOW-VALUES
 MOVE -1 TO SDTMML OF CORPT0AICORPT00C.cbl:264
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. SDTMMI OF CORPT0AI = SPACES OR LOW-VALUES
 PERFORM SEND-TRNRPT-SCREENCORPT00C.cbl:265
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. SDTDDI OF CORPT0AI = SPACES OR LOW-VALUES
 MOVE 'Start Date - Day can NOT be empty...' TO WS-MESSAGECORPT00C.cbl:268–269
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. SDTDDI OF CORPT0AI = SPACES OR LOW-VALUES
 MOVE 'Y' TO WS-ERR-FLGCORPT00C.cbl:270
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. SDTDDI OF CORPT0AI = SPACES OR LOW-VALUES
 MOVE -1 TO SDTDDL OF CORPT0AICORPT00C.cbl:271
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. SDTDDI OF CORPT0AI = SPACES OR LOW-VALUES
 PERFORM SEND-TRNRPT-SCREENCORPT00C.cbl:272
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. SDTYYYYI OF CORPT0AI = SPACES OR LOW-VALUES
 MOVE 'Start Date - Year can NOT be empty...' TO WS-MESSAGECORPT00C.cbl:275–276
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. SDTYYYYI OF CORPT0AI = SPACES OR LOW-VALUES
 MOVE 'Y' TO WS-ERR-FLGCORPT00C.cbl:277
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. SDTYYYYI OF CORPT0AI = SPACES OR LOW-VALUES
 MOVE -1 TO SDTYYYYL OF CORPT0AICORPT00C.cbl:278
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. SDTYYYYI OF CORPT0AI = SPACES OR LOW-VALUES
 PERFORM SEND-TRNRPT-SCREENCORPT00C.cbl:279
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. EDTMMI OF CORPT0AI = SPACES OR LOW-VALUES
 MOVE 'End Date - Month can NOT be empty...' TO WS-MESSAGECORPT00C.cbl:282–283
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. EDTMMI OF CORPT0AI = SPACES OR LOW-VALUES
 MOVE 'Y' TO WS-ERR-FLGCORPT00C.cbl:284
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. EDTMMI OF CORPT0AI = SPACES OR LOW-VALUES
 MOVE -1 TO EDTMML OF CORPT0AICORPT00C.cbl:285
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. EDTMMI OF CORPT0AI = SPACES OR LOW-VALUES
 PERFORM SEND-TRNRPT-SCREENCORPT00C.cbl:286
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. EDTDDI OF CORPT0AI = SPACES OR LOW-VALUES
 MOVE 'End Date - Day can NOT be empty...' TO WS-MESSAGECORPT00C.cbl:289–290
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. EDTDDI OF CORPT0AI = SPACES OR LOW-VALUES
 MOVE 'Y' TO WS-ERR-FLGCORPT00C.cbl:291
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. EDTDDI OF CORPT0AI = SPACES OR LOW-VALUES
 MOVE -1 TO EDTDDL OF CORPT0AICORPT00C.cbl:292
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. EDTDDI OF CORPT0AI = SPACES OR LOW-VALUES
 PERFORM SEND-TRNRPT-SCREENCORPT00C.cbl:293
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. EDTYYYYI OF CORPT0AI = SPACES OR LOW-VALUES
 MOVE 'End Date - Year can NOT be empty...' TO WS-MESSAGECORPT00C.cbl:296–297
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. EDTYYYYI OF CORPT0AI = SPACES OR LOW-VALUES
 MOVE 'Y' TO WS-ERR-FLGCORPT00C.cbl:298
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. EDTYYYYI OF CORPT0AI = SPACES OR LOW-VALUES
 MOVE -1 TO EDTYYYYL OF CORPT0AICORPT00C.cbl:299
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. EDTYYYYI OF CORPT0AI = SPACES OR LOW-VALUES
 PERFORM SEND-TRNRPT-SCREENCORPT00C.cbl:300
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
calc COMPUTE WS-NUM-99 = FUNCTION NUMVAL-C (SDTMMI OF CORPT0AI)CORPT00C.cbl:305–306
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE WS-NUM-99 TO SDTMMI OF CORPT0AICORPT00C.cbl:307
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
calc COMPUTE WS-NUM-99 = FUNCTION NUMVAL-C (SDTDDI OF CORPT0AI)CORPT00C.cbl:309–310
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE WS-NUM-99 TO SDTDDI OF CORPT0AICORPT00C.cbl:311
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
calc COMPUTE WS-NUM-9999 = FUNCTION NUMVAL-C (SDTYYYYI OF CORPT0AI)CORPT00C.cbl:313–314
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE WS-NUM-9999 TO SDTYYYYI OF CORPT0AICORPT00C.cbl:315
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
calc COMPUTE WS-NUM-99 = FUNCTION NUMVAL-C (EDTMMI OF CORPT0AI)CORPT00C.cbl:317–318
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE WS-NUM-99 TO EDTMMI OF CORPT0AICORPT00C.cbl:319
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
calc COMPUTE WS-NUM-99 = FUNCTION NUMVAL-C (EDTDDI OF CORPT0AI)CORPT00C.cbl:321–322
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE WS-NUM-99 TO EDTDDI OF CORPT0AICORPT00C.cbl:323
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
calc COMPUTE WS-NUM-9999 = FUNCTION NUMVAL-C (EDTYYYYI OF CORPT0AI)CORPT00C.cbl:325–326
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE WS-NUM-9999 TO EDTYYYYI OF CORPT0AICORPT00C.cbl:327
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. SDTMMI OF CORPT0AI IS NOT NUMERIC OR SDTMMI OF CORPT0AI > '12'
 MOVE 'Start Date - Not a valid Month...' TO WS-MESSAGECORPT00C.cbl:331–332
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. SDTMMI OF CORPT0AI IS NOT NUMERIC OR SDTMMI OF CORPT0AI > '12'
 MOVE 'Y' TO WS-ERR-FLGCORPT00C.cbl:333
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. SDTMMI OF CORPT0AI IS NOT NUMERIC OR SDTMMI OF CORPT0AI > '12'
 MOVE -1 TO SDTMML OF CORPT0AICORPT00C.cbl:334
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. SDTMMI OF CORPT0AI IS NOT NUMERIC OR SDTMMI OF CORPT0AI > '12'
 PERFORM SEND-TRNRPT-SCREENCORPT00C.cbl:335
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. SDTDDI OF CORPT0AI IS NOT NUMERIC OR SDTDDI OF CORPT0AI > '31'
 MOVE 'Start Date - Not a valid Day...' TO WS-MESSAGECORPT00C.cbl:340–341
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. SDTDDI OF CORPT0AI IS NOT NUMERIC OR SDTDDI OF CORPT0AI > '31'
 MOVE 'Y' TO WS-ERR-FLGCORPT00C.cbl:342
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. SDTDDI OF CORPT0AI IS NOT NUMERIC OR SDTDDI OF CORPT0AI > '31'
 MOVE -1 TO SDTDDL OF CORPT0AICORPT00C.cbl:343
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. SDTDDI OF CORPT0AI IS NOT NUMERIC OR SDTDDI OF CORPT0AI > '31'
 PERFORM SEND-TRNRPT-SCREENCORPT00C.cbl:344
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. SDTYYYYI OF CORPT0AI IS NOT NUMERIC
 MOVE 'Start Date - Not a valid Year...' TO WS-MESSAGECORPT00C.cbl:348–349
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. SDTYYYYI OF CORPT0AI IS NOT NUMERIC
 MOVE 'Y' TO WS-ERR-FLGCORPT00C.cbl:350
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. SDTYYYYI OF CORPT0AI IS NOT NUMERIC
 MOVE -1 TO SDTYYYYL OF CORPT0AICORPT00C.cbl:351
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. SDTYYYYI OF CORPT0AI IS NOT NUMERIC
 PERFORM SEND-TRNRPT-SCREENCORPT00C.cbl:352
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. EDTMMI OF CORPT0AI IS NOT NUMERIC OR EDTMMI OF CORPT0AI > '12'
 MOVE 'End Date - Not a valid Month...' TO WS-MESSAGECORPT00C.cbl:357–358
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. EDTMMI OF CORPT0AI IS NOT NUMERIC OR EDTMMI OF CORPT0AI > '12'
 MOVE 'Y' TO WS-ERR-FLGCORPT00C.cbl:359
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. EDTMMI OF CORPT0AI IS NOT NUMERIC OR EDTMMI OF CORPT0AI > '12'
 MOVE -1 TO EDTMML OF CORPT0AICORPT00C.cbl:360
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. EDTMMI OF CORPT0AI IS NOT NUMERIC OR EDTMMI OF CORPT0AI > '12'
 PERFORM SEND-TRNRPT-SCREENCORPT00C.cbl:361
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. EDTDDI OF CORPT0AI IS NOT NUMERIC OR EDTDDI OF CORPT0AI > '31'
 MOVE 'End Date - Not a valid Day...' TO WS-MESSAGECORPT00C.cbl:366–367
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. EDTDDI OF CORPT0AI IS NOT NUMERIC OR EDTDDI OF CORPT0AI > '31'
 MOVE 'Y' TO WS-ERR-FLGCORPT00C.cbl:368
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. EDTDDI OF CORPT0AI IS NOT NUMERIC OR EDTDDI OF CORPT0AI > '31'
 MOVE -1 TO EDTDDL OF CORPT0AICORPT00C.cbl:369
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. EDTDDI OF CORPT0AI IS NOT NUMERIC OR EDTDDI OF CORPT0AI > '31'
 PERFORM SEND-TRNRPT-SCREENCORPT00C.cbl:370
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. EDTYYYYI OF CORPT0AI IS NOT NUMERIC
 MOVE 'End Date - Not a valid Year...' TO WS-MESSAGECORPT00C.cbl:374–375
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. EDTYYYYI OF CORPT0AI IS NOT NUMERIC
 MOVE 'Y' TO WS-ERR-FLGCORPT00C.cbl:376
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. EDTYYYYI OF CORPT0AI IS NOT NUMERIC
 MOVE -1 TO EDTYYYYL OF CORPT0AICORPT00C.cbl:377
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. EDTYYYYI OF CORPT0AI IS NOT NUMERIC
 PERFORM SEND-TRNRPT-SCREENCORPT00C.cbl:378
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE SDTYYYYI OF CORPT0AI TO WS-START-DATE-YYYYCORPT00C.cbl:381
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE SDTMMI OF CORPT0AI TO WS-START-DATE-MMCORPT00C.cbl:382
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE SDTDDI OF CORPT0AI TO WS-START-DATE-DDCORPT00C.cbl:383
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE EDTYYYYI OF CORPT0AI TO WS-END-DATE-YYYYCORPT00C.cbl:384
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE EDTMMI OF CORPT0AI TO WS-END-DATE-MMCORPT00C.cbl:385
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE EDTDDI OF CORPT0AI TO WS-END-DATE-DDCORPT00C.cbl:386
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE WS-START-DATE TO CSUTLDTC-DATECORPT00C.cbl:388
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE WS-DATE-FORMAT TO CSUTLDTC-DATE-FORMATCORPT00C.cbl:389
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE SPACES TO CSUTLDTC-RESULTCORPT00C.cbl:390
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 CALL 'CSUTLDTC' USING CSUTLDTC-DATE CSUTLDTC-DATE-FORMAT CSUTLDTC-RESULTCORPT00C.cbl:392–394
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. NOT (CSUTLDTC-RESULT-SEV-CD = '0000')
  3. CSUTLDTC-RESULT-MSG-NUM NOT = '2513'
 MOVE 'Start Date - Not a valid date...' TO WS-MESSAGECORPT00C.cbl:400–401
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. NOT (CSUTLDTC-RESULT-SEV-CD = '0000')
  3. CSUTLDTC-RESULT-MSG-NUM NOT = '2513'
 MOVE 'Y' TO WS-ERR-FLGCORPT00C.cbl:402
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. NOT (CSUTLDTC-RESULT-SEV-CD = '0000')
  3. CSUTLDTC-RESULT-MSG-NUM NOT = '2513'
 MOVE -1 TO SDTMML OF CORPT0AICORPT00C.cbl:403
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. NOT (CSUTLDTC-RESULT-SEV-CD = '0000')
  3. CSUTLDTC-RESULT-MSG-NUM NOT = '2513'
 PERFORM SEND-TRNRPT-SCREENCORPT00C.cbl:404
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE WS-END-DATE TO CSUTLDTC-DATECORPT00C.cbl:408
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE WS-DATE-FORMAT TO CSUTLDTC-DATE-FORMATCORPT00C.cbl:409
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE SPACES TO CSUTLDTC-RESULTCORPT00C.cbl:410
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 CALL 'CSUTLDTC' USING CSUTLDTC-DATE CSUTLDTC-DATE-FORMAT CSUTLDTC-RESULTCORPT00C.cbl:412–414
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. NOT (CSUTLDTC-RESULT-SEV-CD = '0000')
  3. CSUTLDTC-RESULT-MSG-NUM NOT = '2513'
 MOVE 'End Date - Not a valid date...' TO WS-MESSAGECORPT00C.cbl:420–421
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. NOT (CSUTLDTC-RESULT-SEV-CD = '0000')
  3. CSUTLDTC-RESULT-MSG-NUM NOT = '2513'
 MOVE 'Y' TO WS-ERR-FLGCORPT00C.cbl:422
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. NOT (CSUTLDTC-RESULT-SEV-CD = '0000')
  3. CSUTLDTC-RESULT-MSG-NUM NOT = '2513'
 MOVE -1 TO EDTMML OF CORPT0AICORPT00C.cbl:423
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. NOT (CSUTLDTC-RESULT-SEV-CD = '0000')
  3. CSUTLDTC-RESULT-MSG-NUM NOT = '2513'
 PERFORM SEND-TRNRPT-SCREENCORPT00C.cbl:424
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE WS-START-DATE TO PARM-START-DATE-1 PARM-START-DATE-2CORPT00C.cbl:429–430
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE WS-END-DATE TO PARM-END-DATE-1 PARM-END-DATE-2CORPT00C.cbl:431–432
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
 MOVE 'Custom' TO WS-REPORT-NAMECORPT00C.cbl:433
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. NOT ERR-FLG-ON
 PERFORM SUBMIT-JOB-TO-INTRDRCORPT00C.cbl:435
  1. TRUE is none of [MONTHLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES; YEARLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES; CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES]
 MOVE 'Select a report type to print report...' TO WS-MESSAGECORPT00C.cbl:438–439
  1. TRUE is none of [MONTHLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES; YEARLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES; CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES]
 MOVE 'Y' TO WS-ERR-FLGCORPT00C.cbl:440
  1. TRUE is none of [MONTHLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES; YEARLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES; CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES]
 MOVE -1 TO MONTHLYL OF CORPT0AICORPT00C.cbl:441
  1. TRUE is none of [MONTHLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES; YEARLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES; CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES]
 PERFORM SEND-TRNRPT-SCREENCORPT00C.cbl:442
  1. NOT ERR-FLG-ON
 PERFORM INITIALIZE-ALL-FIELDSCORPT00C.cbl:447
  1. NOT ERR-FLG-ON
 MOVE DFHGREEN TO ERRMSGC OF CORPT0AOCORPT00C.cbl:448
  1. NOT ERR-FLG-ON
 STRING WS-REPORT-NAME DELIMITED BY SPACE ' report submitted for printing ...' DELIMITED BY SIZE INTO WS-MESSAGECORPT00C.cbl:449–452
  1. NOT ERR-FLG-ON
 MOVE -1 TO MONTHLYL OF CORPT0AICORPT00C.cbl:453
  1. NOT ERR-FLG-ON
 PERFORM SEND-TRNRPT-SCREENCORPT00C.cbl:454
16 rules

SUBMIT-JOB-TO-INTRDR

WhenThenAt
  1. CONFIRMI OF CORPT0AI = SPACES OR LOW-VALUES
 STRING 'Please confirm to print the ' DELIMITED BY SIZE WS-REPORT-NAME DELIMITED BY SPACE ' report...' DELIMITED BY SIZE INTO WS-MESSAGECORPT00C.cbl:465–470
  1. CONFIRMI OF CORPT0AI = SPACES OR LOW-VALUES
 MOVE 'Y' TO WS-ERR-FLGCORPT00C.cbl:471
  1. CONFIRMI OF CORPT0AI = SPACES OR LOW-VALUES
 MOVE -1 TO CONFIRML OF CORPT0AICORPT00C.cbl:472
  1. CONFIRMI OF CORPT0AI = SPACES OR LOW-VALUES
 PERFORM SEND-TRNRPT-SCREENCORPT00C.cbl:473
  1. NOT ERR-FLG-ON
  2. CONFIRMI OF CORPT0AI = 'N' OR 'n'
 PERFORM INITIALIZE-ALL-FIELDSCORPT00C.cbl:481
  1. NOT ERR-FLG-ON
  2. CONFIRMI OF CORPT0AI = 'N' OR 'n'
 MOVE 'Y' TO WS-ERR-FLGCORPT00C.cbl:482
  1. NOT ERR-FLG-ON
  2. CONFIRMI OF CORPT0AI = 'N' OR 'n'
 PERFORM SEND-TRNRPT-SCREENCORPT00C.cbl:483
  1. NOT ERR-FLG-ON
  2. TRUE is none of [CONFIRMI OF CORPT0AI = 'Y' OR 'y'; CONFIRMI OF CORPT0AI = 'N' OR 'n']
 STRING '"' DELIMITED BY SIZE CONFIRMI OF CORPT0AI DELIMITED BY SPACE '" is not a valid value to confirm...' DELIMITED BY SIZE INTO WS-MESSAGECORPT00C.cbl:485–490
  1. NOT ERR-FLG-ON
  2. TRUE is none of [CONFIRMI OF CORPT0AI = 'Y' OR 'y'; CONFIRMI OF CORPT0AI = 'N' OR 'n']
 MOVE 'Y' TO WS-ERR-FLGCORPT00C.cbl:491
  1. NOT ERR-FLG-ON
  2. TRUE is none of [CONFIRMI OF CORPT0AI = 'Y' OR 'y'; CONFIRMI OF CORPT0AI = 'N' OR 'n']
 MOVE -1 TO CONFIRML OF CORPT0AICORPT00C.cbl:492
  1. NOT ERR-FLG-ON
  2. TRUE is none of [CONFIRMI OF CORPT0AI = 'Y' OR 'y'; CONFIRMI OF CORPT0AI = 'N' OR 'n']
 PERFORM SEND-TRNRPT-SCREENCORPT00C.cbl:493
  1. NOT ERR-FLG-ON
 SET END-LOOP-NO TO TRUECORPT00C.cbl:496
  1. NOT ERR-FLG-ON
 PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 1000 OR END-LOOP-YES OR ERR-FLG-ONCORPT00C.cbl:498–499
  1. NOT ERR-FLG-ON
  2. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 1000 OR END-LOOP-YES OR ERR-FLG-ON
 MOVE JOB-LINES(WS-IDX) TO JCL-RECORDCORPT00C.cbl:501
  1. NOT ERR-FLG-ON
  2. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 1000 OR END-LOOP-YES OR ERR-FLG-ON
  3. JCL-RECORD = '/*EOF' OR JCL-RECORD = SPACES OR LOW-VALUES
 SET END-LOOP-YES TO TRUECORPT00C.cbl:504
  1. NOT ERR-FLG-ON
  2. PERFORM VARYING WS-IDX FROM 1 BY 1 UNTIL WS-IDX > 1000 OR END-LOOP-YES OR ERR-FLG-ON
 PERFORM WIRTE-JOBSUB-TDQCORPT00C.cbl:507
5 rules

WIRTE-JOBSUB-TDQ

WhenThenAt
  1. WS-RESP-CD is none of [DFHRESP(NORMAL)]
 DISPLAY 'RESP:' WS-RESP-CD 'REAS:' WS-REAS-CDCORPT00C.cbl:529
  1. WS-RESP-CD is none of [DFHRESP(NORMAL)]
 MOVE 'Y' TO WS-ERR-FLGCORPT00C.cbl:530
  1. WS-RESP-CD is none of [DFHRESP(NORMAL)]
 MOVE 'Unable to Write TDQ (JOBS)...' TO WS-MESSAGECORPT00C.cbl:531–532
  1. WS-RESP-CD is none of [DFHRESP(NORMAL)]
 MOVE -1 TO MONTHLYL OF CORPT0AICORPT00C.cbl:533
  1. WS-RESP-CD is none of [DFHRESP(NORMAL)]
 PERFORM SEND-TRNRPT-SCREENCORPT00C.cbl:534
1 rules

RETURN-TO-PREV-SCREEN

WhenThenAt
  1. CDEMO-TO-PROGRAM = LOW-VALUES OR SPACES
 MOVE 'COSGN00C' TO CDEMO-TO-PROGRAMCORPT00C.cbl:543
2 rules

SEND-TRNRPT-SCREEN

WhenThenAt
  1. SEND-ERASE-YES
 EXEC CICS SEND MAP('CORPT0A') MAPSET('CORPT00') FROM(CORPT0AO) ERASE CURSOR END-EXECCORPT00C.cbl:563–569
  1. NOT (SEND-ERASE-YES)
 EXEC CICS SEND MAP('CORPT0A') MAPSET('CORPT00') FROM(CORPT0AO) CURSOR END-EXECCORPT00C.cbl:571–577