Data field · 2 statements in 1 program · all programsAADDGRPI
COACTUPC
| condition | IF AADDGRPI OF CACTUPAI = '*' OR AADDGRPI OF CACTUPAI = SPACES | 1100-RECEIVE-MAP COACTUPC.cbl:1213–1214 |
| read | MOVE AADDGRPI OF CACTUPAI TO ACUP-NEW-GROUP-ID
| 1100-RECEIVE-MAP COACTUPC.cbl:1217 |
- Defined
- 02 AADDGRPI PIC X(10) WORKING-STORAGE · in CACTUPAI · offset 370, 10 bytesCOACTUP.CPY:150 via COACTUPC.cbl:623
- Program
- COACTUPC