Data field · 2 statements in 1 programMONTHLYI
CORPT00C
| condition | WHEN MONTHLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES
| PROCESS-ENTER-KEY CORPT00C.cbl:213 |
| 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 MONTHLYI PIC X(1) WORKING-STORAGE · in CORPT0AI · offset 169, 1 bytesCORPT00.CPY:60 via CORPT00C.cbl:140
- Program
- CORPT00C