Data field · 2 statements in 1 programACSPH2CI

0W · 1R · 1?

COACTUPC

condition	IF ACSPH2CI OF CACTUPAI = '*' OR ACSPH2CI OF CACTUPAI = SPACES	1100-RECEIVE-MAP COACTUPC.cbl:1392–1393
read	MOVE ACSPH2CI OF CACTUPAI TO ACUP-NEW-CUST-PHONE-NUM-2C NOT (ACSPH2CI OF CACTUPAI = '*' OR ACSPH2CI OF CACTUPAI = SPACES)	1100-RECEIVE-MAP COACTUPC.cbl:1396

Defined: 02 ACSPH2CI PIC X(4)
WORKING-STORAGE · in CACTUPAI · offset 870, 4 bytes
COACTUP.CPY:300 via COACTUPC.cbl:623
Program: COACTUPC