Data field · 2 statements in 1 programDOBYEARI
COACTUPC
| condition | IF DOBYEARI OF CACTUPAI = '*' OR DOBYEARI OF CACTUPAI = SPACES | 1100-RECEIVE-MAP COACTUPC.cbl:1256–1257 |
| read | MOVE DOBYEARI OF CACTUPAI TO ACUP-NEW-CUST-DOB-YEAR
| 1100-RECEIVE-MAP COACTUPC.cbl:1260 |
- Defined
- 02 DOBYEARI PIC X(4) WORKING-STORAGE · in CACTUPAI · offset 455, 4 bytesCOACTUP.CPY:186 via COACTUPC.cbl:623
- Program
- COACTUPC