Data field · 2 statements in 1 programACTSSN3I

0W · 1R · 1?

COACTUPC

condition	IF ACTSSN3I OF CACTUPAI = '*' OR ACTSSN3I OF CACTUPAI = SPACES	1100-RECEIVE-MAP COACTUPC.cbl:1247–1248
read	MOVE ACTSSN3I OF CACTUPAI TO ACUP-NEW-CUST-SSN-3 NOT (ACTSSN3I OF CACTUPAI = '*' OR ACTSSN3I OF CACTUPAI = SPACES)	1100-RECEIVE-MAP COACTUPC.cbl:1251

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