MFmainframe-rea
WS carddemo · 26f629ef

Data field · 2 statements in 1 program · all programsSEL0001I

0W · 1R · 1?

COUSR00C

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