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