Data field · 2 statements in 1 program · all programsACSPH2BI
COACTUPC
| condition | IF ACSPH2BI OF CACTUPAI = '*' OR ACSPH2BI OF CACTUPAI = SPACES | 1100-RECEIVE-MAP COACTUPC.cbl:1385–1386 |
| read | MOVE ACSPH2BI OF CACTUPAI TO ACUP-NEW-CUST-PHONE-NUM-2B
| 1100-RECEIVE-MAP COACTUPC.cbl:1389 |
- Defined
- 02 ACSPH2BI PIC X(3) WORKING-STORAGE · in CACTUPAI · offset 860, 3 bytesCOACTUP.CPY:294 via COACTUPC.cbl:623
- Program
- COACTUPC