Data field · 4 statements in 2 programsSEL0007I
COTRN00C
| condition | WHEN SEL0007I OF COTRN0AI NOT = SPACES AND LOW-VALUES
| PROCESS-ENTER-KEY COTRN00C.cbl:167 |
| read | MOVE SEL0007I OF COTRN0AI TO CDEMO-CT00-TRN-SEL-FLG
| PROCESS-ENTER-KEY COTRN00C.cbl:168 |
- Defined
- 02 SEL0007I PIC X(1) WORKING-STORAGE · in COTRN0AI · offset 795, 1 bytesCOTRN00.CPY:252 via COTRN00C.cbl:72
- Program
- COTRN00C
COUSR00C
| condition | WHEN SEL0007I OF COUSR0AI NOT = SPACES AND LOW-VALUES
| PROCESS-ENTER-KEY COUSR00C.cbl:170 |
| read | MOVE SEL0007I OF COUSR0AI TO CDEMO-CU00-USR-SEL-FLG
| PROCESS-ENTER-KEY COUSR00C.cbl:171 |
- Defined
- 02 SEL0007I PIC X(1) WORKING-STORAGE · in COUSR0AI · offset 709, 1 bytesCOUSR00.CPY:252 via COUSR00C.cbl:76
- Program
- COUSR00C