MFmainframe-rea
WS carddemo · 26f629ef

Data field · 2 statements in 1 program · all programsACSADL2I

0W · 1R · 1?

COACTUPC

conditionIF ACSADL2I OF CACTUPAI = '*' OR ACSADL2I OF CACTUPAI = SPACES
1100-RECEIVE-MAP
COACTUPC.cbl:1322–1323
readMOVE ACSADL2I OF CACTUPAI TO ACUP-NEW-CUST-ADDR-LINE-2
  1. NOT (ACSADL2I OF CACTUPAI = '*' OR ACSADL2I OF CACTUPAI = SPACES)
1100-RECEIVE-MAP
COACTUPC.cbl:1326
Defined
02 ACSADL2I PIC X(50)
WORKING-STORAGE · in CACTUPAI · offset 656, 50 bytes
COACTUP.CPY:240 via COACTUPC.cbl:623
Program
COACTUPC