Data field · 2 statements in 1 program · all programsACSTNUMI
COACTUPC
| condition | IF ACSTNUMI OF CACTUPAI = '*' OR ACSTNUMI OF CACTUPAI = SPACES | 1100-RECEIVE-MAP COACTUPC.cbl:1224–1225 |
| read | MOVE ACSTNUMI OF CACTUPAI TO ACUP-NEW-CUST-ID-X
| 1100-RECEIVE-MAP COACTUPC.cbl:1228 |
- Defined
- 02 ACSTNUMI PIC X(9) WORKING-STORAGE · in CACTUPAI · offset 409, 9 bytesCOACTUP.CPY:162 via COACTUPC.cbl:623
- Program
- COACTUPC