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