Data field · 4 statements in 2 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
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