Data field · 2 statements in 1 program · all programsRISYEARI

0W · 1R · 1?

COACTUPC

condition	IF RISYEARI OF CACTUPAI = '*' OR RISYEARI OF CACTUPAI = SPACES	1100-RECEIVE-MAP COACTUPC.cbl:1190–1191
read	MOVE RISYEARI OF CACTUPAI TO ACUP-NEW-REISSUE-YEAR NOT (RISYEARI OF CACTUPAI = '*' OR RISYEARI OF CACTUPAI = SPACES)	1100-RECEIVE-MAP COACTUPC.cbl:1194

Defined: 02 RISYEARI PIC X(4)
WORKING-STORAGE · in CACTUPAI · offset 297, 4 bytes
COACTUP.CPY:120 via COACTUPC.cbl:623
Program: COACTUPC