Data field · 2 statements in 1 program · all programsSEL0005I

0W · 1R · 1?

COPAUS0C

condition	WHEN SEL0005I 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:302
read	MOVE SEL0005I OF COPAU0AI TO CDEMO-CPVS-PAU-SEL-FLG NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES) NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC) SEL0005I OF COPAU0AI NOT = SPACES AND LOW-VALUES	PROCESS-ENTER-KEY COPAUS0C.cbl:303

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