Data field · 2 statements in 1 program · all programsEXPDAYI

0W · 1R · 1?

COACTUPC

condition	IF EXPDAYI OF CACTUPAI = '*' OR EXPDAYI OF CACTUPAI = SPACES	1100-RECEIVE-MAP COACTUPC.cbl:1181–1182
read	MOVE EXPDAYI OF CACTUPAI TO ACUP-NEW-EXP-DAY NOT (EXPDAYI OF CACTUPAI = '*' OR EXPDAYI OF CACTUPAI = SPACES)	1100-RECEIVE-MAP COACTUPC.cbl:1185

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