MFmainframe-rea
WS carddemo · 26f629ef

Data field · 2 statements in 1 program · all programsACSMNAMI

0W · 1R · 1?

COACTUPC

conditionIF ACSMNAMI OF CACTUPAI = '*' OR ACSMNAMI OF CACTUPAI = SPACES
1100-RECEIVE-MAP
COACTUPC.cbl:1297–1298
readMOVE ACSMNAMI OF CACTUPAI TO ACUP-NEW-CUST-MIDDLE-NAME
  1. NOT (ACSMNAMI OF CACTUPAI = '*' OR ACSMNAMI OF CACTUPAI = SPACES)
1100-RECEIVE-MAP
COACTUPC.cbl:1301
Defined
02 ACSMNAMI PIC X(25)
WORKING-STORAGE · in CACTUPAI · offset 526, 25 bytes
COACTUP.CPY:216 via COACTUPC.cbl:623
Program
COACTUPC