Data field · 4 statements in 2 programsSEL0009I
COTRN00C
| condition | WHEN SEL0009I OF COTRN0AI NOT = SPACES AND LOW-VALUES
| PROCESS-ENTER-KEY COTRN00C.cbl:173 |
| read | MOVE SEL0009I OF COTRN0AI TO CDEMO-CT00-TRN-SEL-FLG
| PROCESS-ENTER-KEY COTRN00C.cbl:174 |
- Defined
- 02 SEL0009I PIC X(1) WORKING-STORAGE · in COTRN0AI · offset 991, 1 bytesCOTRN00.CPY:312 via COTRN00C.cbl:72
- Program
- COTRN00C
COUSR00C
| condition | WHEN SEL0009I OF COUSR0AI NOT = SPACES AND LOW-VALUES
| PROCESS-ENTER-KEY COUSR00C.cbl:176 |
| read | MOVE SEL0009I OF COUSR0AI TO CDEMO-CU00-USR-SEL-FLG
| PROCESS-ENTER-KEY COUSR00C.cbl:177 |
- Defined
- 02 SEL0009I PIC X(1) WORKING-STORAGE · in COUSR0AI · offset 879, 1 bytesCOUSR00.CPY:312 via COUSR00C.cbl:76
- Program
- COUSR00C