Data field · 2 statements in 1 program · all programsDOBMONI

0W · 1R · 1?

COACTUPC

condition	IF DOBMONI OF CACTUPAI = '*' OR DOBMONI OF CACTUPAI = SPACES	1100-RECEIVE-MAP COACTUPC.cbl:1263–1264
read	MOVE DOBMONI OF CACTUPAI TO ACUP-NEW-CUST-DOB-MON NOT (DOBMONI OF CACTUPAI = '*' OR DOBMONI OF CACTUPAI = SPACES)	1100-RECEIVE-MAP COACTUPC.cbl:1267

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