Data field · 2 statements in 1 program · all programsACSTFCOI

0W · 1R · 1?

COACTUPC

condition	IF ACSTFCOI OF CACTUPAI = '*' OR ACSTFCOI OF CACTUPAI = SPACES	1100-RECEIVE-MAP COACTUPC.cbl:1279–1280
read	MOVE ACSTFCOI OF CACTUPAI TO ACUP-NEW-CUST-FICO-SCORE-X NOT (ACSTFCOI OF CACTUPAI = '*' OR ACSTFCOI OF CACTUPAI = SPACES)	1100-RECEIVE-MAP COACTUPC.cbl:1283

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