Data field · 4 statements in 3 programsEXPYEARI

0W · 1R · 1?

COACTUPC

condition	IF EXPYEARI OF CACTUPAI = '*' OR EXPYEARI OF CACTUPAI = SPACES	1100-RECEIVE-MAP COACTUPC.cbl:1167–1168
read	MOVE EXPYEARI OF CACTUPAI TO ACUP-NEW-EXP-YEAR NOT (EXPYEARI OF CACTUPAI = '*' OR EXPYEARI OF CACTUPAI = SPACES)	1100-RECEIVE-MAP COACTUPC.cbl:1171

Defined: 02 EXPYEARI PIC X(4)
WORKING-STORAGE · in CACTUPAI · offset 246, 4 bytes
COACTUP.CPY:96 via COACTUPC.cbl:623
Program: COACTUPC

0W · 0R · 0?

COCRDSLC

Declared but never referenced.

Defined: 02 EXPYEARI PIC X(4)
WORKING-STORAGE · in CCRDSLAI · offset 284, 4 bytes
COCRDSL.CPY:90 via COCRDSLC.cbl:215
Program: COCRDSLC

0W · 1R · 1?

COCRDUPC

condition	IF EXPYEARI OF CCRDUPAI = '*' OR EXPYEARI OF CCRDUPAI = SPACES	1100-RECEIVE-MAP COCRDUPC.cbl:630–631
read	MOVE EXPYEARI OF CCRDUPAI TO CCUP-NEW-EXPYEAR NOT (EXPYEARI OF CCRDUPAI = '*' OR EXPYEARI OF CCRDUPAI = SPACES)	1100-RECEIVE-MAP COCRDUPC.cbl:634

Defined: 02 EXPYEARI PIC X(4)
WORKING-STORAGE · in CCRDUPAI · offset 284, 4 bytes
COCRDUP.CPY:90 via COCRDUPC.cbl:334
Program: COCRDUPC