Data field · 3 statements in 1 program · all programsACSHLIMI

0W · 2R · 1?

COACTUPC

condition	IF ACSHLIMI OF CACTUPAI = '*' OR ACSHLIMI OF CACTUPAI = SPACES	1100-RECEIVE-MAP COACTUPC.cbl:1087–1088
read	MOVE ACSHLIMI OF CACTUPAI TO ACUP-NEW-CASH-CREDIT-LIMIT-X NOT (ACSHLIMI OF CACTUPAI = '*' OR ACSHLIMI OF CACTUPAI = SPACES)	1100-RECEIVE-MAP COACTUPC.cbl:1091
read	COMPUTE ACUP-NEW-CASH-CREDIT-LIMIT-N = FUNCTION NUMVAL-C(ACSHLIMI OF CACTUPAI) NOT (ACSHLIMI OF CACTUPAI = '*' OR ACSHLIMI OF CACTUPAI = SPACES) FUNCTION TEST-NUMVAL-C(ACUP-NEW-CASH-CREDIT-LIMIT-X) = 0	1100-RECEIVE-MAP COACTUPC.cbl:1093–1094

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