MFmainframe-rea
WS carddemo · 26f629ef

Data field · 3 statements in 1 programACCTIDI

0W · 1R · 2?

COPAUS0C

conditionIF ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES
PROCESS-ENTER-KEY
COPAUS0C.cbl:264
conditionIF ACCTIDI OF COPAU0AI IS NOT NUMERIC
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
PROCESS-ENTER-KEY
COPAUS0C.cbl:273
readMOVE ACCTIDI OF COPAU0AI TO WS-ACCT-ID CDEMO-ACCT-ID
  1. NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)
  2. NOT (ACCTIDI OF COPAU0AI IS NOT NUMERIC)
PROCESS-ENTER-KEY
COPAUS0C.cbl:283–284
Defined
02 ACCTIDI PIC X(11)
WORKING-STORAGE · in COPAU0AI · offset 169, 11 bytes
COPAU00.cpy:60 via COPAUS0C.cbl:129
Program
COPAUS0C