Data field · 2 statements in 1 program · all programsACURBALI
COACTUPC
| condition | IF ACURBALI OF CACTUPAI = '*' OR ACURBALI OF CACTUPAI = SPACES | 1100-RECEIVE-MAP COACTUPC.cbl:1101–1102 |
| read | MOVE ACURBALI OF CACTUPAI TO ACUP-NEW-CURR-BAL-X
| 1100-RECEIVE-MAP COACTUPC.cbl:1105 |
- Defined
- 02 ACURBALI PIC X(15) WORKING-STORAGE · in CACTUPAI · offset 326, 15 bytesCOACTUP.CPY:138 via COACTUPC.cbl:623
- Program
- COACTUPC