Hi Lizette,
I have a UDLC (User Defined Line Command) for our group.
DJ - Displays Job status info.
It creates a list of assignment SET statements in JCL for each of: SYSVAR, MVSVAR, MVSVAR SYMDEF, and then does the same for System Symbols (trapped from SDSF command -D SYMBOLS).
Then I extract only the ones which get SUBSTITUTION values in the Job.
I place a dummy TYPRUN=SCAN jobcard ahead.
Then it proceeds to SCAN the actual JOB JCL (omitted)...
(use a non-proportional font to read the output...)
VIEW N472730.USER.JCL(UDLCTEST) - 01.62 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 //UDLCTEST JOB (SJ,T),'UDLC TEST CASES',
000002 // MSGCLASS=X,
000003 // CLASS=A,
000004 // SCHENV=UMVS0,
000005 //* SCHENV=UMVS0NO, NOTFOUND
dj // NOTIFY=&SYSUID, SYMBOLS
000007 // TYPRUN=COPY
Here it may be issued on any Job line except those with: CLASS, MSGCLASS, or SCHENV.
These jump to trap SDSF an ÅD JOBCLASS(*),MSGCLASS,SCHENV command (Å is the JES prefix here, Å≡$)
I have a string of other UDLCs performing different functions.
gives...
VIEW SDSF SUBSTITUTION FOR SYMBOLS SYMBOL SUBSTITUTION
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000013 //*------- SYSVARS -------------------------------------------
000017 IEFC653I SUBSTITUTION JCL - SYSUID=N472730
000047 //*------- MVSVARS -------------------------------------------
000052 IEFC653I SUBSTITUTION JCL - SYSNAME=MVS0
000058 IEFC653I SUBSTITUTION JCL - SYSCLONE=M0
000060 //*------- SYMDEFS -------------------------------------------
000061 IEFC653I SUBSTITUTION JCL - SYSPLEX=UPLEX
000063 IEFC653I SUBSTITUTION JCL - SYSALVL=2
000065 IEFC653I SUBSTITUTION JCL - SYSCLONE=M0
000067 IEFC653I SUBSTITUTION JCL - SYSNAME=MVS0
000069 IEFC653I SUBSTITUTION JCL - SYSOSLVL=Z1020200
000071 IEFC653I SUBSTITUTION JCL - SYSPLEX=UPLEX
000073 IEFC653I SUBSTITUTION JCL - SYSR1=Z51YP1
000075 IEFC653I SUBSTITUTION JCL - CCC=Z
000077 IEFC653I SUBSTITUTION JCL - CEC=32
000079 IEFC653I SUBSTITUTION JCL - CNMVER=Y
000081 IEFC653I SUBSTITUTION JCL - CNMVOL=Z51YP1
000083 IEFC653I SUBSTITUTION JCL - COMCEC=C
000085 IEFC653I SUBSTITUTION JCL - COMMSUF=00
000087 IEFC653I SUBSTITUTION JCL - COUNTRY=SE
000089 IEFC653I SUBSTITUTION JCL - DB2VER=d
000091 IEFC653I SUBSTITUTION JCL - HRDWNAME=CE32CB
000093 IEFC653I SUBSTITUTION JCL - ICSFPROG=CSFINIT
000095 IEFC653I SUBSTITUTION JCL - JESSVOL=SPL06
000097 IEFC653I SUBSTITUTION JCL - JES2APPL=SENBNJE0
000099 IEFC653I SUBSTITUTION JCL - JES2NODE=SENBSU0
000101 IEFC653I SUBSTITUTION JCL - LOC=V
000103 IEFC653I SUBSTITUTION JCL - LPARNAME=LP3206
000105 IEFC653I SUBSTITUTION JCL - MASMEM=2
000107 IEFC653I SUBSTITUTION JCL - MQEXIT=01
000109 IEFC653I SUBSTITUTION JCL - MQLVL=800C
000111 IEFC653I SUBSTITUTION JCL - MST1=0020
000113 IEFC653I SUBSTITUTION JCL - OM=22
000115 IEFC653I SUBSTITUTION JCL - OSLEVEL=020200
000117 IEFC653I SUBSTITUTION JCL - PLEXID=UP
000119 IEFC653I SUBSTITUTION JCL - PLPASUF=00
000121 IEFC653I SUBSTITUTION JCL - PLX=51
000123 IEFC653I SUBSTITUTION JCL - RMFOPT1=
000125 IEFC653I SUBSTITUTION JCL - SMFID=MVS0
000127 IEFC653I SUBSTITUTION JCL - SYSCAT=UCATUP
000129 IEFC653I SUBSTITUTION JCL - SYSNBR=0
000131 IEFC653I SUBSTITUTION JCL - SYSR2=Z51YP1
000133 IEFC653I SUBSTITUTION JCL - USRPLEX=PLEX51
000135 IEFC653I SUBSTITUTION JCL - USSROOT=Z51YP1
000137 IEFC653I SUBSTITUTION JCL - VMUSERID=+++++
000139 IEFC653I SUBSTITUTION JCL - ZVER=Y
000141 //*------- SYMBOLS -------------------------------------------
000142 IEFC653I SUBSTITUTION JCL - JOBNAME=JES2
000144 IEFC653I SUBSTITUTION JCL - SYSALVL=2
000146 IEFC653I SUBSTITUTION JCL - SYSCLONE=M0
000148 IEFC653I SUBSTITUTION JCL - SYSNAME=MVS0
000148 IEFC653I SUBSTITUTION JCL - SYSNAME=MVS0
000150 IEFC653I SUBSTITUTION JCL - SYSOSLVL=Z1020200
000152 IEFC653I SUBSTITUTION JCL - SYSPLEX=UPLEX
000154 IEFC653I SUBSTITUTION JCL - SYSR1=Z51YP1
000156 IEFC653I SUBSTITUTION JCL - ASNVER=a
000158 IEFC653I SUBSTITUTION JCL - CCC=Z
000160 IEFC653I SUBSTITUTION JCL - CEC=32
000162 IEFC653I SUBSTITUTION JCL - CNMVER=Y
000164 IEFC653I SUBSTITUTION JCL - CNMVOL=Z51YP1
000166 IEFC653I SUBSTITUTION JCL - COMCEC=C
000168 IEFC653I SUBSTITUTION JCL - COMMSUF=00
000170 IEFC653I SUBSTITUTION JCL - COMODE=R
000172 IEFC653I SUBSTITUTION JCL - COUNTRY=SE
000174 IEFC653I SUBSTITUTION JCL - DB2VER=d
000176 IEFC653I SUBSTITUTION JCL - HRDWNAME=CE32CB
000178 IEFC653I SUBSTITUTION JCL - ICSFPROG=CSFINIT
000180 IEFC653I SUBSTITUTION JCL - IMSLVL=RSU1703
000182 IEFC653I SUBSTITUTION JCL - IMTOOLVL=V002
000184 IEFC653I SUBSTITUTION JCL - JESSVOL=SPL06
000186 IEFC653I SUBSTITUTION JCL - JES2APPL=SENBNJE0
000188 IEFC653I SUBSTITUTION JCL - JES2NODE=SENBSU0
000190 IEFC653I SUBSTITUTION JCL - LFM1MB=0000
000192 IEFC653I SUBSTITUTION JCL - LFT1MB=2000
000194 IEFC653I SUBSTITUTION JCL - LOC=V
000196 IEFC653I SUBSTITUTION JCL - LPARNAME=LP3206
000198 IEFC653I SUBSTITUTION JCL - MASMEM=2
000198 IEFC653I SUBSTITUTION JCL - MASMEM=2
000200 IEFC653I SUBSTITUTION JCL - MQEXIT=01
000202 IEFC653I SUBSTITUTION JCL - MQLVL=800C
000204 IEFC653I SUBSTITUTION JCL - MST1=0020
000206 IEFC653I SUBSTITUTION JCL - OM=22
000208 IEFC653I SUBSTITUTION JCL - OSLEVEL=020200
000210 IEFC653I SUBSTITUTION JCL - PLEXID=UP
000212 IEFC653I SUBSTITUTION JCL - PLPASUF=00
000214 IEFC653I SUBSTITUTION JCL - PLX=51
000216 IEFC653I SUBSTITUTION JCL - RMFOPT1=
000218 IEFC653I SUBSTITUTION JCL - SMFID=MVS0
000220 IEFC653I SUBSTITUTION JCL - SYSCAT=UCATUP
000222 IEFC653I SUBSTITUTION JCL - SYSNBR=0
000224 IEFC653I SUBSTITUTION JCL - SYSR2=Z51YP1
000226 IEFC653I SUBSTITUTION JCL - USRPLEX=PLEX51
000228 IEFC653I SUBSTITUTION JCL - USRTADZ=ENSH
000230 IEFC653I SUBSTITUTION JCL - USSROOT=Z51YP1
000232 IEFC653I SUBSTITUTION JCL - VMUSERID=+++++
000234 IEFC653I SUBSTITUTION JCL - ZVER=Y
000236 //*------- END SYM -------------------------------------------
000237 //*
000238 //*------- JOB JCL -------------------------------------------
...JCL resolved from job...
Un-shown lines are there but eXcluded with a HIDE X.
All of these symbols one can see are available to JCL interpretation?
________________________________
From: IBM Mainframe Discussion List <IBM-***@LISTSERV.UA.EDU> on behalf of Lizette Koehler <***@MINDSPRING.COM>
Sent: 06 June 2018 22:17
To: IBM-***@LISTSERV.UA.EDU
Subject: Re: Use of dynamic system symbols in JCL
Just in case it was not mentioned,
If you have scheduling software, you might be able to get what you want.
Or you can write a rexx to create the JCL with what you want.
Lizette
-----Original Message-----
Sean Gleann
Sent: Wednesday, June 06, 2018 7:27 AM
Subject: Use of dynamic system symbols in JCL
Can anyone point out what I'm doing wrong here, please?
I'm trying to create a file with a name that features today's date.
//OUTFILE DD DSN=BACKUP.USERDALY.D&LYYMMDD.TER,
// DISP=(NEW,CATLG,DELETE),SPACE=(TRK,(600,600),RLSE),
// DSORG=PS,RECFM=FB,BLKSIZE=27648,LRECL=1024
IEFC627I INCORRECT USE OF AMPERSAND IN THE DSN FIELD
I've tried numerous variants of this statement, but I always get the same
failure.
I'm almost certainly doing something stupid, but right now I can't see the
wood for the trees...
Help... Please...
Sean Gleann
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN