Data field · 2 statements in 1 program · all programsACSCTRYI

0W · 1R · 1?

COACTUPC

condition	IF ACSCTRYI OF CACTUPAI = '*' OR ACSCTRYI OF CACTUPAI = SPACES	1100-RECEIVE-MAP COACTUPC.cbl:1343–1344
read	MOVE ACSCTRYI OF CACTUPAI TO ACUP-NEW-CUST-ADDR-COUNTRY-CD NOT (ACSCTRYI OF CACTUPAI = '*' OR ACSCTRYI OF CACTUPAI = SPACES)	1100-RECEIVE-MAP COACTUPC.cbl:1347

Defined: 02 ACSCTRYI PIC X(3)
WORKING-STORAGE · in CACTUPAI · offset 782, 3 bytes
COACTUP.CPY:258 via COACTUPC.cbl:623
Program: COACTUPC