Data field · 2 statements in 1 program · all programsRISDAYI

0W · 1R · 1?

COACTUPC

condition	IF RISDAYI OF CACTUPAI = '*' OR RISDAYI OF CACTUPAI = SPACES	1100-RECEIVE-MAP COACTUPC.cbl:1204–1205
read	MOVE RISDAYI OF CACTUPAI TO ACUP-NEW-REISSUE-DAY NOT (RISDAYI OF CACTUPAI = '*' OR RISDAYI OF CACTUPAI = SPACES)	1100-RECEIVE-MAP COACTUPC.cbl:1208

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