Data field · 6 statements in 1 programEDTDDI

2W · 2R · 2?

CORPT00C

condition	WHEN EDTDDI OF CORPT0AI = SPACES OR LOW-VALUES CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES EVALUATE TRUE	PROCESS-ENTER-KEY CORPT00C.cbl:287–288
read	COMPUTE WS-NUM-99 = FUNCTION NUMVAL-C (EDTDDI OF CORPT0AI) CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES	PROCESS-ENTER-KEY CORPT00C.cbl:321–322
write	MOVE WS-NUM-99 TO EDTDDI OF CORPT0AI CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES	PROCESS-ENTER-KEY CORPT00C.cbl:323
condition	IF EDTDDI OF CORPT0AI IS NOT NUMERIC OR EDTDDI OF CORPT0AI > '31' CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES	PROCESS-ENTER-KEY CORPT00C.cbl:364–365
read	MOVE EDTDDI OF CORPT0AI TO WS-END-DATE-DD CUSTOMI OF CORPT0AI NOT = SPACES AND LOW-VALUES	PROCESS-ENTER-KEY CORPT00C.cbl:386
write	INITIALIZE 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 EDTDDI PIC X(2)
WORKING-STORAGE · in CORPT0AI · offset 231, 2 bytes
CORPT00.CPY:102 via CORPT00C.cbl:140
Program: CORPT00C