Data field · 2 statements in 1 program · all programsRISMONI

0W · 1R · 1?

COACTUPC

condition	IF RISMONI OF CACTUPAI = '*' OR RISMONI OF CACTUPAI = SPACES	1100-RECEIVE-MAP COACTUPC.cbl:1197–1198
read	MOVE RISMONI OF CACTUPAI TO ACUP-NEW-REISSUE-MON NOT (RISMONI OF CACTUPAI = '*' OR RISMONI OF CACTUPAI = SPACES)	1100-RECEIVE-MAP COACTUPC.cbl:1201

Defined: 02 RISMONI PIC X(2)
WORKING-STORAGE · in CACTUPAI · offset 308, 2 bytes
COACTUP.CPY:126 via COACTUPC.cbl:623
Program: COACTUPC