MFmainframe-rea
WS carddemo · 26f629ef

Data field · 5 statements in 1 program · all programsCONFIRMI

1W · 1R · 3?

CORPT00C

conditionIF CONFIRMI OF CORPT0AI = SPACES OR LOW-VALUES
SUBMIT-JOB-TO-INTRDR
CORPT00C.cbl:464
conditionWHEN CONFIRMI OF CORPT0AI = 'Y' OR 'y'
  1. NOT ERR-FLG-ON
  2. EVALUATE TRUE
SUBMIT-JOB-TO-INTRDR
CORPT00C.cbl:478
conditionWHEN CONFIRMI OF CORPT0AI = 'N' OR 'n'
  1. NOT ERR-FLG-ON
  2. EVALUATE TRUE
SUBMIT-JOB-TO-INTRDR
CORPT00C.cbl:480
readSTRING '"' DELIMITED BY SIZE CONFIRMI OF CORPT0AI DELIMITED BY SPACE '" is not a valid value to confirm...' DELIMITED BY SIZE INTO WS-MESSAGE
  1. NOT ERR-FLG-ON
  2. TRUE is none of [CONFIRMI OF CORPT0AI = 'Y' OR 'y'; CONFIRMI OF CORPT0AI = 'N' OR 'n']
SUBMIT-JOB-TO-INTRDR
CORPT00C.cbl:485–490
writeINITIALIZE MONTHLYI OF CORPT0AI YEARLYI OF CORPT0AI CUSTOMI OF CORPT0AI SDTMMI OF CORPT0AI SDTDDI OF CORPT0AI SDTYYYYI OF CORPT0AI EDTMMI OF CORPT0AI EDTDDI OF CORPT0AI EDTYYYYI OF CORPT0AI CONFIRMI OF CORPT0AI WS-MESSAGE
INITIALIZE-ALL-FIELDS
CORPT00C.cbl:636–646
Defined
02 CONFIRMI PIC X(1)
WORKING-STORAGE · in CORPT0AI · offset 251, 1 bytes
CORPT00.CPY:114 via CORPT00C.cbl:140
Program
CORPT00C