Data field · 2 statements in 1 programACSPH1AI
COACTUPC
| condition | IF ACSPH1AI OF CACTUPAI = '*' OR ACSPH1AI OF CACTUPAI = SPACES | 1100-RECEIVE-MAP COACTUPC.cbl:1357–1358 |
| read | MOVE ACSPH1AI OF CACTUPAI TO ACUP-NEW-CUST-PHONE-NUM-1A
| 1100-RECEIVE-MAP COACTUPC.cbl:1361 |
- Defined
- 02 ACSPH1AI PIC X(3) WORKING-STORAGE · in CACTUPAI · offset 792, 3 bytesCOACTUP.CPY:264 via COACTUPC.cbl:623
- Program
- COACTUPC