Data field · 3 statements in 1 program · all programsACRCYDBI

0W · 2R · 1?

COACTUPC

condition	IF ACRCYDBI OF CACTUPAI = '*' OR ACRCYDBI OF CACTUPAI = SPACES	1100-RECEIVE-MAP COACTUPC.cbl:1129–1130
read	MOVE ACRCYDBI OF CACTUPAI TO ACUP-NEW-CURR-CYC-DEBIT-X NOT (ACRCYDBI OF CACTUPAI = '*' OR ACRCYDBI OF CACTUPAI = SPACES)	1100-RECEIVE-MAP COACTUPC.cbl:1133
read	COMPUTE ACUP-NEW-CURR-CYC-DEBIT-N = FUNCTION NUMVAL-C(ACRCYDBI OF CACTUPAI) NOT (ACRCYDBI OF CACTUPAI = '*' OR ACRCYDBI OF CACTUPAI = SPACES) FUNCTION TEST-NUMVAL-C(ACUP-NEW-CURR-CYC-DEBIT-X) = 0	1100-RECEIVE-MAP COACTUPC.cbl:1135–1136

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