Data field · 2 statements in 1 program · all programsACSPH1CI
COACTUPC
| condition | IF ACSPH1CI OF CACTUPAI = '*' OR ACSPH1CI OF CACTUPAI = SPACES | 1100-RECEIVE-MAP COACTUPC.cbl:1371–1372 |
| read | MOVE ACSPH1CI OF CACTUPAI TO ACUP-NEW-CUST-PHONE-NUM-1C
| 1100-RECEIVE-MAP COACTUPC.cbl:1375 |
- Defined
- 02 ACSPH1CI PIC X(4) WORKING-STORAGE · in CACTUPAI · offset 812, 4 bytesCOACTUP.CPY:276 via COACTUPC.cbl:623
- Program
- COACTUPC