Data field · 2 statements in 1 programOPNDAYI

0W · 1R · 1?

COACTUPC

condition	IF OPNDAYI OF CACTUPAI = '*' OR OPNDAYI OF CACTUPAI = SPACES	1100-RECEIVE-MAP COACTUPC.cbl:1158–1159
read	MOVE OPNDAYI OF CACTUPAI TO ACUP-NEW-OPEN-DAY NOT (OPNDAYI OF CACTUPAI = '*' OR OPNDAYI OF CACTUPAI = SPACES)	1100-RECEIVE-MAP COACTUPC.cbl:1162

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