MFmainframe-rea
WS carddemo · 26f629ef

Data field · 2 statements in 1 program · all programsACSFNAMI

0W · 1R · 1?

COACTUPC

conditionIF ACSFNAMI OF CACTUPAI = '*' OR ACSFNAMI OF CACTUPAI = SPACES
1100-RECEIVE-MAP
COACTUPC.cbl:1288–1289
readMOVE ACSFNAMI OF CACTUPAI TO ACUP-NEW-CUST-FIRST-NAME
  1. NOT (ACSFNAMI OF CACTUPAI = '*' OR ACSFNAMI OF CACTUPAI = SPACES)
1100-RECEIVE-MAP
COACTUPC.cbl:1292
Defined
02 ACSFNAMI PIC X(25)
WORKING-STORAGE · in CACTUPAI · offset 494, 25 bytes
COACTUP.CPY:210 via COACTUPC.cbl:623
Program
COACTUPC