MFmainframe-rea
WS carddemo · 26f629ef

Data field · 4 statements in 2 programsSEL0010I

0W · 1R · 1?

COTRN00C

conditionWHEN SEL0010I OF COTRN0AI NOT = SPACES AND LOW-VALUES
  1. EVALUATE TRUE
PROCESS-ENTER-KEY
COTRN00C.cbl:176
readMOVE SEL0010I OF COTRN0AI TO CDEMO-CT00-TRN-SEL-FLG
  1. SEL0010I OF COTRN0AI NOT = SPACES AND LOW-VALUES
PROCESS-ENTER-KEY
COTRN00C.cbl:177
Defined
02 SEL0010I PIC X(1)
WORKING-STORAGE · in COTRN0AI · offset 1089, 1 bytes
COTRN00.CPY:342 via COTRN00C.cbl:72
Program
COTRN00C
0W · 1R · 1?

COUSR00C

conditionWHEN SEL0010I OF COUSR0AI NOT = SPACES AND LOW-VALUES
  1. EVALUATE TRUE
PROCESS-ENTER-KEY
COUSR00C.cbl:179
readMOVE SEL0010I OF COUSR0AI TO CDEMO-CU00-USR-SEL-FLG
  1. SEL0010I OF COUSR0AI NOT = SPACES AND LOW-VALUES
PROCESS-ENTER-KEY
COUSR00C.cbl:180
Defined
02 SEL0010I PIC X(1)
WORKING-STORAGE · in COUSR0AI · offset 964, 1 bytes
COUSR00.CPY:342 via COUSR00C.cbl:76
Program
COUSR00C