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 <[email protected]> on behalf of Lizette Koehler <[email protected]> Sent: 06 June 2018 22:17 To: [email protected] 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----- > From: IBM Mainframe Discussion List <[email protected]> On Behalf Of > Sean Gleann > Sent: Wednesday, June 06, 2018 7:27 AM > To: [email protected] > 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. > My statement is: > //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 > > When I submit the job to the system, I get: > > 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 > [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
