MFmainframe-rea
WS carddemo · 26f629ef

Data field · 2 statements in 1 programOPNYEARI

0W · 1R · 1?

COACTUPC

conditionIF OPNYEARI OF CACTUPAI = '*' OR OPNYEARI OF CACTUPAI = SPACES
1100-RECEIVE-MAP
COACTUPC.cbl:1144–1145
readMOVE OPNYEARI OF CACTUPAI TO ACUP-NEW-OPEN-YEAR
  1. NOT (OPNYEARI OF CACTUPAI = '*' OR OPNYEARI OF CACTUPAI = SPACES)
1100-RECEIVE-MAP
COACTUPC.cbl:1148
Defined
02 OPNYEARI PIC X(4)
WORKING-STORAGE · in CACTUPAI · offset 195, 4 bytes
COACTUP.CPY:72 via COACTUPC.cbl:623
Program
COACTUPC