Data field · 3 statements in 1 program · all 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