Data field · 2 statements in 1 programACTSSN2I

0W · 1R · 1?

COACTUPC

condition	IF ACTSSN2I OF CACTUPAI = '*' OR ACTSSN2I OF CACTUPAI = SPACES	1100-RECEIVE-MAP COACTUPC.cbl:1240–1241
read	MOVE ACTSSN2I OF CACTUPAI TO ACUP-NEW-CUST-SSN-2 NOT (ACTSSN2I OF CACTUPAI = '*' OR ACTSSN2I OF CACTUPAI = SPACES)	1100-RECEIVE-MAP COACTUPC.cbl:1244

Defined: 02 ACTSSN2I PIC X(2)
WORKING-STORAGE · in CACTUPAI · offset 435, 2 bytes
COACTUP.CPY:174 via COACTUPC.cbl:623
Program: COACTUPC