Data field · 3 statements in 1 program · all programsACCTIDI

0W · 1R · 2?

COPAUS0C

condition	IF ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES	PROCESS-ENTER-KEY COPAUS0C.cbl:264
condition	IF ACCTIDI OF COPAU0AI IS NOT NUMERIC NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES)	PROCESS-ENTER-KEY COPAUS0C.cbl:273
read	MOVE ACCTIDI OF COPAU0AI TO WS-ACCT-ID CDEMO-ACCT-ID NOT (ACCTIDI OF COPAU0AI = SPACES OR LOW-VALUES) 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