MFmainframe-rea
WS carddemo · 26f629ef

Data field · 2 statements in 1 program · all programsSEL0007I

0W · 1R · 1?

COTRN00C

conditionWHEN SEL0007I OF COTRN0AI NOT = SPACES AND LOW-VALUES
  1. EVALUATE TRUE
PROCESS-ENTER-KEY
COTRN00C.cbl:167
readMOVE SEL0007I OF COTRN0AI TO CDEMO-CT00-TRN-SEL-FLG
  1. SEL0007I OF COTRN0AI NOT = SPACES AND LOW-VALUES
PROCESS-ENTER-KEY
COTRN00C.cbl:168
Defined
02 SEL0007I PIC X(1)
WORKING-STORAGE · in COTRN0AI · offset 795, 1 bytes
COTRN00.CPY:252 via COTRN00C.cbl:72
Program
COTRN00C