MFmainframe-rea
WS carddemo · 26f629ef

Data field · 2 statements in 1 program · all programsACSLNAMI

0W · 1R · 1?

COACTUPC

conditionIF ACSLNAMI OF CACTUPAI = '*' OR ACSLNAMI OF CACTUPAI = SPACES
1100-RECEIVE-MAP
COACTUPC.cbl:1306–1307
readMOVE ACSLNAMI OF CACTUPAI TO ACUP-NEW-CUST-LAST-NAME
  1. NOT (ACSLNAMI OF CACTUPAI = '*' OR ACSLNAMI OF CACTUPAI = SPACES)
1100-RECEIVE-MAP
COACTUPC.cbl:1310
Defined
02 ACSLNAMI PIC X(25)
WORKING-STORAGE · in CACTUPAI · offset 558, 25 bytes
COACTUP.CPY:222 via COACTUPC.cbl:623
Program
COACTUPC