Data field · 2 statements in 1 programACTSSN1I

0W · 1R · 1?

COACTUPC

condition	IF ACTSSN1I OF CACTUPAI = '*' OR ACTSSN1I OF CACTUPAI = SPACES	1100-RECEIVE-MAP COACTUPC.cbl:1233–1234
read	MOVE ACTSSN1I OF CACTUPAI TO ACUP-NEW-CUST-SSN-1 NOT (ACTSSN1I OF CACTUPAI = '*' OR ACTSSN1I OF CACTUPAI = SPACES)	1100-RECEIVE-MAP COACTUPC.cbl:1237

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