MFmainframe-rea
WS carddemo · 26f629ef

Data field · 6 statements in 1 programSDTDDI

2W · 2R · 2?

CORPT00C

conditionWHEN SDTDDI OF CORPT0AI = SPACES OR LOW-VALUES
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
  2. EVALUATE TRUE
PROCESS-ENTER-KEY
CORPT00C.cbl:266–267
readCOMPUTE WS-NUM-99 = FUNCTION NUMVAL-C (SDTDDI OF CORPT0AI)
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
PROCESS-ENTER-KEY
CORPT00C.cbl:309–310
writeMOVE WS-NUM-99 TO SDTDDI OF CORPT0AI
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
PROCESS-ENTER-KEY
CORPT00C.cbl:311
conditionIF SDTDDI OF CORPT0AI IS NOT NUMERIC OR SDTDDI OF CORPT0AI > '31'
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
PROCESS-ENTER-KEY
CORPT00C.cbl:338–339
readMOVE SDTDDI OF CORPT0AI TO WS-START-DATE-DD
  1. CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES
PROCESS-ENTER-KEY
CORPT00C.cbl:383
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 SDTDDI PIC X(2)
WORKING-STORAGE · in CORPT0AI · offset 202, 2 bytes
CORPT00.CPY:84 via CORPT00C.cbl:140
Program
CORPT00C