Data field · 2 statements in 1 programDOBDAYI

0W · 1R · 1?

COACTUPC

condition	IF DOBDAYI OF CACTUPAI = '*' OR DOBDAYI OF CACTUPAI = SPACES	1100-RECEIVE-MAP COACTUPC.cbl:1270–1271
read	MOVE DOBDAYI OF CACTUPAI TO ACUP-NEW-CUST-DOB-DAY NOT (DOBDAYI OF CACTUPAI = '*' OR DOBDAYI OF CACTUPAI = SPACES)	1100-RECEIVE-MAP COACTUPC.cbl:1274

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