Data field · 2 statements in 1 program · all programsACSADL1I

0W · 1R · 1?

COACTUPC

condition	IF ACSADL1I OF CACTUPAI = '*' OR ACSADL1I OF CACTUPAI = SPACES	1100-RECEIVE-MAP COACTUPC.cbl:1315–1316
read	MOVE ACSADL1I OF CACTUPAI TO ACUP-NEW-CUST-ADDR-LINE-1 NOT (ACSADL1I OF CACTUPAI = '*' OR ACSADL1I OF CACTUPAI = SPACES)	1100-RECEIVE-MAP COACTUPC.cbl:1319

Defined: 02 ACSADL1I PIC X(50)
WORKING-STORAGE · in CACTUPAI · offset 590, 50 bytes
COACTUP.CPY:228 via COACTUPC.cbl:623
Program: COACTUPC