Data field · 2 statements in 1 program · all programsSEL0001I

0W · 1R · 1?

COTRN00C

condition	WHEN SEL0001I OF COTRN0AI NOT = SPACES AND LOW-VALUES EVALUATE TRUE	PROCESS-ENTER-KEY COTRN00C.cbl:149
read	MOVE SEL0001I OF COTRN0AI TO CDEMO-CT00-TRN-SEL-FLG SEL0001I OF COTRN0AI NOT = SPACES AND LOW-VALUES	PROCESS-ENTER-KEY COTRN00C.cbl:150

Defined: 02 SEL0001I PIC X(1)
WORKING-STORAGE · in COTRN0AI · offset 207, 1 bytes
COTRN00.CPY:72 via COTRN00C.cbl:72
Program: COTRN00C