Data field · 3 statements in 1 program · all programsACRDLIMI

0W · 2R · 1?

COACTUPC

condition	IF ACRDLIMI OF CACTUPAI = '*' OR ACRDLIMI OF CACTUPAI = SPACES	1100-RECEIVE-MAP COACTUPC.cbl:1073–1074
read	MOVE ACRDLIMI OF CACTUPAI TO ACUP-NEW-CREDIT-LIMIT-X NOT (ACRDLIMI OF CACTUPAI = '*' OR ACRDLIMI OF CACTUPAI = SPACES)	1100-RECEIVE-MAP COACTUPC.cbl:1077
read	COMPUTE ACUP-NEW-CREDIT-LIMIT-N = FUNCTION NUMVAL-C(ACRDLIMI OF CACTUPAI) NOT (ACRDLIMI OF CACTUPAI = '*' OR ACRDLIMI OF CACTUPAI = SPACES) FUNCTION TEST-NUMVAL-C(ACUP-NEW-CREDIT-LIMIT-X) = 0	1100-RECEIVE-MAP COACTUPC.cbl:1079–1080

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