Data field · 2 statements in 2 programsACSZIPCI

0W · 1R · 1?

COACTUPC

condition	IF ACSZIPCI OF CACTUPAI = '*' OR ACSZIPCI OF CACTUPAI = SPACES	1100-RECEIVE-MAP COACTUPC.cbl:1350–1351
read	MOVE ACSZIPCI OF CACTUPAI TO ACUP-NEW-CUST-ADDR-ZIP NOT (ACSZIPCI OF CACTUPAI = '*' OR ACSZIPCI OF CACTUPAI = SPACES)	1100-RECEIVE-MAP COACTUPC.cbl:1354

Defined: 02 ACSZIPCI PIC X(5)
WORKING-STORAGE · in CACTUPAI · offset 713, 5 bytes
COACTUP.CPY:246 via COACTUPC.cbl:623
Program: COACTUPC

0W · 0R · 0?

Declared but never referenced.

Defined: 02 ACSZIPCI PIC X(5)
WORKING-STORAGE · in CACTVWAI · offset 654, 5 bytes
COACTVW.CPY:186 via COACTVWC.cbl:229
Program: COACTVWC