Data field · 3 statements in 2 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

0W · 1R · 0?

read

MOVE EXPDAYI OF CCRDUPAI TO CCUP-NEW-EXPDAY

1100-RECEIVE-MAP

Defined: 02 EXPDAYI PIC X(2)
WORKING-STORAGE · in CCRDUPAI · offset 295, 2 bytes
COCRDUP.CPY:96 via COCRDUPC.cbl:334
Program: COCRDUPC