Data field · 3 statements in 2 programsACRCYCRI

0W · 2R · 1?

COACTUPC

condition	IF ACRCYCRI OF CACTUPAI = '*' OR ACRCYCRI OF CACTUPAI = SPACES	1100-RECEIVE-MAP COACTUPC.cbl:1115–1116
read	MOVE ACRCYCRI OF CACTUPAI TO ACUP-NEW-CURR-CYC-CREDIT-X NOT (ACRCYCRI OF CACTUPAI = '*' OR ACRCYCRI OF CACTUPAI = SPACES)	1100-RECEIVE-MAP COACTUPC.cbl:1119
read	COMPUTE ACUP-NEW-CURR-CYC-CREDIT-N = FUNCTION NUMVAL-C(ACRCYCRI OF CACTUPAI) NOT (ACRCYCRI OF CACTUPAI = '*' OR ACRCYCRI OF CACTUPAI = SPACES) FUNCTION TEST-NUMVAL-C(ACUP-NEW-CURR-CYC-CREDIT-X) = 0	1100-RECEIVE-MAP COACTUPC.cbl:1121–1122

Defined: 02 ACRCYCRI PIC X(15)
WORKING-STORAGE · in CACTUPAI · offset 348, 15 bytes
COACTUP.CPY:144 via COACTUPC.cbl:623
Program: COACTUPC

0W · 0R · 0?

COACTVWC

Declared but never referenced.

Defined: 02 ACRCYCRI PIC X(15)
WORKING-STORAGE · in CACTVWAI · offset 312, 15 bytes
COACTVW.CPY:108 via COACTVWC.cbl:229
Program: COACTVWC