Data field · 2 statements in 1 program · all programsACCTSIDI

0W · 1R · 1?

COACTUPC

condition	IF ACCTSIDI OF CACTUPAI = '*' OR ACCTSIDI OF CACTUPAI = SPACES	1100-RECEIVE-MAP COACTUPC.cbl:1051–1052
read	MOVE ACCTSIDI OF CACTUPAI TO CC-ACCT-ID ACUP-NEW-ACCT-ID-X NOT (ACCTSIDI OF CACTUPAI = '*' OR ACCTSIDI OF CACTUPAI = SPACES)	1100-RECEIVE-MAP COACTUPC.cbl:1056–1057

Defined: 02 ACCTSIDI PIC X(11)
WORKING-STORAGE · in CACTUPAI · offset 169, 11 bytes
COACTUP.CPY:60 via COACTUPC.cbl:623
Program: COACTUPC