MFmainframe-rea
WS carddemo · 26f629ef

Data field · 2 statements in 1 program · all programsSEL0004I

0W · 1R · 1?

COPAUS0C

conditionWHEN SEL0004I OF COPAU0AI NOT = SPACES AND LOW-VALUES
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC)
  3. EVALUATE TRUE
PROCESS-ENTER-KEY
COPAUS0C.cbl:298
readMOVE SEL0004I OF COPAU0AI TO CDEMO-CPVS-PAU-SEL-FLG
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC)
  3. SEL0004I OF COPAU0AI NOT = SPACES AND LOW-VALUES
PROCESS-ENTER-KEY
COPAUS0C.cbl:299
Defined
02 SEL0004I PIC X(1)
WORKING-STORAGE · in COPAU0AI · offset 772, 1 bytes
COPAU00.cpy:294 via COPAUS0C.cbl:129
Program
COPAUS0C