Data field · 2 statements in 1 program · all programsACSPFLGI
COACTUPC
| condition | IF ACSPFLGI OF CACTUPAI = '*' OR ACSPFLGI OF CACTUPAI = SPACES | 1100-RECEIVE-MAP COACTUPC.cbl:1419–1420 |
| read | MOVE ACSPFLGI OF CACTUPAI TO ACUP-NEW-CUST-PRI-HOLDER-IND
| 1100-RECEIVE-MAP COACTUPC.cbl:1423 |
- Defined
- 02 ACSPFLGI PIC X(1) WORKING-STORAGE · in CACTUPAI · offset 898, 1 bytesCOACTUP.CPY:312 via COACTUPC.cbl:623
- Program
- COACTUPC