Data field · 6 statements in 3 programsSEL0001I

0W · 1R · 1?

COPAUS0C

condition	WHEN SEL0001I OF COPAU0AI NOT = SPACES AND LOW-VALUES NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES) NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC) EVALUATE TRUE	PROCESS-ENTER-KEY COPAUS0C.cbl:286
read	MOVE SEL0001I OF COPAU0AI TO CDEMO-CPVS-PAU-SEL-FLG NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES) NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC) SEL0001I OF COPAU0AI NOT = SPACES AND LOW-VALUES	PROCESS-ENTER-KEY COPAUS0C.cbl:287

Defined: 02 SEL0001I PIC X(1)
WORKING-STORAGE · in COPAU0AI · offset 451, 1 bytes
COPAU00.cpy:150 via COPAUS0C.cbl:129
Program: COPAUS0C

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

0W · 1R · 1?

COUSR00C

condition	WHEN SEL0001I OF COUSR0AI NOT = SPACES AND LOW-VALUES EVALUATE TRUE	PROCESS-ENTER-KEY COUSR00C.cbl:152
read	MOVE SEL0001I OF COUSR0AI TO CDEMO-CU00-USR-SEL-FLG 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