On Mon, 16 Jul 2018 10:42:04 +0000, Gadi Ben-Avi <[email protected]> wrote:

>Hi,
>A user is trying to use a sysem smbol in a procedure.
>This is what they wrote:
>//TLUSNEW2  PROC  SV=,LIB=,MIS=,COPY=,TEUR=,
>//           US1=,US2=,US3=,US4=,KELET=
>//*
>//*  SET TT=&LYYMMDD
>//  SET TT=&LYYMMDD
>//  EXPORT SYMLIST=*
>//DEL0  EXEC  PGM=IDCAMS
>//SYSPRINT DD SYSOUT=*
>//SYSIN DD *,SYMBOLS=(EXECSYS,X)
>  DELETE   N641.TXXA.TLUSTNU.JCLPARMS.T&TT
>  DELETE   N641.TXXA.TLUSTNU.FOR-RUN.T&TT
>//*
>//TLUSNEW2   EXEC PGM=TLUSPRM2,
>//  PARM='&SV,&LIB,&MIS,&COPY,&TEUR,&US1,&US2,&US3,&US4,&KELET'
>//STEPLIB DD DSN=N641.DCCA.ENDV.LOAD,DISP=SHR
>//RAZ     DD DSN=N641.PDDA.TLUS-RAZ,DISP=OLD
>//TAB     DD DSN=N641.PYMN.DOCHMSRD,DISP=SHR
>//OUT1    DD DSN=N641.TXXA.TLUSTNU.JCLPARMS.T&TT,
>//  DISP=(,CATLG),UNIT=3390,VOL=SER=MKB960,
>//  SPACE=(TRK,(1,1),RLSE),
>//  DCB=(RECFM=FB,BLKSIZE=0)
>
>The job complains about the DD card named OUT1 and says INCORRECT USE OF 
>AMPERSAND IN THE DSN FIELD
>
>What are they doing wrong?
>We are running z/OS v2.1
>
>Thanks
>Gadi
>

Verify the location of the EXPORT statement, relative to adjacent SET 
statement(s).

Scott Barry
SBBWorks, Inc.

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to