Using SYMLIST in a PROC
Posted: Wed Oct 01, 2014 4:30 pmTrying to use a string in a SET statement, but I can't make it work, suggestions...
3 different SET commands
// EXPORT SYMLIST=(THEUSER)
1. SET THEUSER=&USER
result:
6 ++ SET THEUSER=&USER
IEFC653I SUBSTITUTION JCL - THEUSER=C.D@X.Y
6 IEFC620I UNIDENTIFIABLE CHARACTER @ ON THE SET STATEMENT
2. SET THEUSER='&USER'
result:
6 ++ SET THEUSER='&USER'
7 ++THEUSER EXPORT EXPSET=&USER GENERATED STATEME...
3. SET THEUSER=''&USER''
result:
6 ++ SET THEUSER=''&USER''
IEFC653I SUBSTITUTION JCL - THEUSER=''C.D@X.Y''
6 IEFC629I INCORRECT USE OF APOSTROPHE ON THE SET STATEMENT
6 IEFC629I INCORRECT USE OF APOSTROPHE ON THE SET STATEMENT
6 IEFC621I EXPECTED CONTINUATION NOT RECEIVED
//Lasse
3 different SET commands
// EXPORT SYMLIST=(THEUSER)
1. SET THEUSER=&USER
result:
6 ++ SET THEUSER=&USER
IEFC653I SUBSTITUTION JCL - THEUSER=C.D@X.Y
6 IEFC620I UNIDENTIFIABLE CHARACTER @ ON THE SET STATEMENT
2. SET THEUSER='&USER'
result:
6 ++ SET THEUSER='&USER'
7 ++THEUSER EXPORT EXPSET=&USER GENERATED STATEME...
3. SET THEUSER=''&USER''
result:
6 ++ SET THEUSER=''&USER''
IEFC653I SUBSTITUTION JCL - THEUSER=''C.D@X.Y''
6 IEFC629I INCORRECT USE OF APOSTROPHE ON THE SET STATEMENT
6 IEFC629I INCORRECT USE OF APOSTROPHE ON THE SET STATEMENT
6 IEFC621I EXPECTED CONTINUATION NOT RECEIVED
//*------------
//* INLINE PROC
//*------------
//PROC1 PROC USER='A.B@X.Y'
// EXPORT SYMLIST=(THEUSER)
// SET THEUSER=&USER
//MAILERR EXEC REXXBAT,REXXNAME='%XMAIL'
//CONV DD SYSOUT=*
//* JCLONLY/EXECSYS/CNVTSYS
//INPUT DD *,SYMBOLS=(JCLONLY,CONV)
&THEUSER
//*
// PEND
//*
//PHASEIN EXEC PROC1,
// USER='C.D@X.Y'
//*
//* INLINE PROC
//*------------
//PROC1 PROC USER='A.B@X.Y'
// EXPORT SYMLIST=(THEUSER)
// SET THEUSER=&USER
//MAILERR EXEC REXXBAT,REXXNAME='%XMAIL'
//CONV DD SYSOUT=*
//* JCLONLY/EXECSYS/CNVTSYS
//INPUT DD *,SYMBOLS=(JCLONLY,CONV)
&THEUSER
//*
// PEND
//*
//PHASEIN EXEC PROC1,
// USER='C.D@X.Y'
//*
//Lasse