Data field · 2 statements in 1 program · all programsEXPYEARI
COACTUPC
| condition | IF EXPYEARI OF CACTUPAI = '*' OR EXPYEARI OF CACTUPAI = SPACES | 1100-RECEIVE-MAP COACTUPC.cbl:1167–1168 |
| read | MOVE EXPYEARI OF CACTUPAI TO ACUP-NEW-EXP-YEAR
| 1100-RECEIVE-MAP COACTUPC.cbl:1171 |
- Defined
- 02 EXPYEARI PIC X(4) WORKING-STORAGE · in CACTUPAI · offset 246, 4 bytesCOACTUP.CPY:96 via COACTUPC.cbl:623
- Program
- COACTUPC