Data field · 2 statements in 1 program · all programsYEARLYI
CORPT00C
| condition | WHEN YEARLYI OF CORPT0AI NOT = SPACES AND LOW-VALUES
| PROCESS-ENTER-KEY CORPT00C.cbl:239 |
| 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 YEARLYI PIC X(1) WORKING-STORAGE · in CORPT0AI · offset 177, 1 bytesCORPT00.CPY:66 via CORPT00C.cbl:140
- Program
- CORPT00C