Data field · 4 statements in 3 programsEXPMONI

0W · 1R · 1?

COACTUPC

condition	IF EXPMONI OF CACTUPAI = '*' OR EXPMONI OF CACTUPAI = SPACES	1100-RECEIVE-MAP COACTUPC.cbl:1174–1175
read	MOVE EXPMONI OF CACTUPAI TO ACUP-NEW-EXP-MON NOT (EXPMONI OF CACTUPAI = '*' OR EXPMONI OF CACTUPAI = SPACES)	1100-RECEIVE-MAP COACTUPC.cbl:1178

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

0W · 0R · 0?

COCRDSLC

Declared but never referenced.

Defined: 02 EXPMONI PIC X(2)
WORKING-STORAGE · in CCRDSLAI · offset 275, 2 bytes
COCRDSL.CPY:84 via COCRDSLC.cbl:215
Program: COCRDSLC

0W · 1R · 1?

COCRDUPC

condition	IF EXPMONI OF CCRDUPAI = '*' OR EXPMONI OF CCRDUPAI = SPACES	1100-RECEIVE-MAP COCRDUPC.cbl:623–624
read	MOVE EXPMONI OF CCRDUPAI TO CCUP-NEW-EXPMON NOT (EXPMONI OF CCRDUPAI = '*' OR EXPMONI OF CCRDUPAI = SPACES)	1100-RECEIVE-MAP COCRDUPC.cbl:627

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