Data field · 2 statements in 1 program · all programsOPTIONI
COADM01C
| condition | PERFORM VARYING WS-IDX FROM LENGTH OF OPTIONI OF COADM1AI BY -1 UNTIL OPTIONI OF COADM1AI(WS-IDX:1) NOT = SPACES OR WS-IDX = 1 | PROCESS-ENTER-KEY COADM01C.cbl:121–124 |
| read | MOVE OPTIONI OF COADM1AI(1:WS-IDX) TO WS-OPTION-X | PROCESS-ENTER-KEY COADM01C.cbl:126 |
- Defined
- 02 OPTIONI PIC X(2) WORKING-STORAGE · in COADM1AI · offset 733, 2 bytesCOADM01.CPY:132 via COADM01C.cbl:53
- Program
- COADM01C