Bill Ashton,
Just in case if your shop has SYSSYM=DISALLOW for the jobclass you
running, here is an alternative of getting the desired results.
//STEP0100 EXEC PGM=EZACFSM1
//SYSOUT DD DSN=&&ALCCARD,DISP=(,PASS),SPACE=(TRK,(1,1),RLSE)
//SYSIN DD DATA,DLM=@@
ALLOC DSNAME('ASHTON.D&LYYMMDD..T&LHHMMSS') -
NEW CATALOG -
DSORG(PS) -
LRECL(80) -
RECFM(F B) -
BLKSIZE(27920) -
SPACE(5,5) -
CYLINDERS
@@
//*
//STEP0200 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD DISP=SHR,DSN=&&ALCCARD
//*
>>On a related note, is there a way to find out all the system symbols, so
I
don't have to keep asking one-off questions here?
The dynamic system symbols are explained here
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.ieae200/dynpsm.htm
And you can run the following job to display them all (Anything that is
not converted is a symbol that is not configured)
//STEP0100 EXEC PGM=EZACFSM1
//SYSOUT DD SYSOUT=*
//SYSIN DD *
CURRENT LOCAL YYMMDD IS : &LYYMMDD
CURRENT LOCAL DAY IS : &LDAY
CURRENT DUMP DSN IS : &DS
CURRENT LOCAL TIME IS : &LHHMMSS
CURRENT LOCAL HOUR IS : &LHR
CURRENT LOCALJULIAN DAY OF YEAR IS : &LJDAY
CURRENT LOCAL JOBNAME IS : &JOBNAME
CURRENT LOCAL MINUTE IS : &LMIN
CURRENT LOCAL MONTH IS : &LMON
CURRENT LOCAL SECONDS IS : &LSEC
CURRENT SEQUENCE NUMBER IS : &SEQ
CURRENT LOCAL DAY OF THE WEEK IS : &LWDAY
CURRENT LOCAL 4 DIGIT YEAR IS : &LYR4
CURRENT LOCAL 2 DIGIT YEAR IS : &LYR2
//*
Thanks,
Kolusu
From: Bill Ashton <[email protected]>
To: [email protected]
Date: 05/05/2017 06:50 AM
Subject: Re: JCL System symbols
Sent by: IBM Mainframe Discussion List <[email protected]>
Carmen, that's just what I need - thanks so much!
On a related note, is there a way to find out all the system symbols, so I
don't have to keep asking one-off questions here?
Thanks!
B
On Fri, May 5, 2017 at 9:43 AM, Carmen Vitullo <[email protected]>
wrote:
> Bill I have a proc that starts @ IPL time to copy parmlib datasets to a
> backup using date time
>
>
> i use this
>
>
>
> //CLEAN EXEC PGM=IDCAMS,
> //SYSPRINT DD SYSOUT=*
> //SYSIN DD *,SYMBOLS=EXECSYS <--------
> DEL 'ATTS.PROD.&SYSNAME..IPLINFO'
> /*
> //IPLINFO EXEC PGM=IKJEFT01,REGION=0M,PARM='IPLINFO',
> // DYNAMNBR=99,ACCT=(S,0602,0599)
> //SYSEXEC DD DSN=TS.USER.REXX,DISP=SHR
> //SYSTSPRT DD DSN=ATTS.PROD.&SYSNAME..IPLINFO,DISP=(,CATLG),
> // UNIT=SYSDA,SPACE=(TRK,(25,5),RLSE),
> // RECFM=FBA,LRECL=134,BLKSIZE=0
> //SYSTSIN DD DUMMY
> //*
> //IEBCOPY1 EXEC PGM=IEBCOPY,REGION=2M,TIME=10
> //SYSUT1 DD DISP=SHR,DSN=SYS1.SYSC.PARMLIB
> //SYSUT2 DD DISP=(,CATLG),
> // DSN=ATTS.PROD.SYSC.D&LYYMMDD..T&LHHMMSS..PARMLIB,
> // UNIT=SYSALLDA,SPACE=(CYL,(10,1,75),RLSE)
> //SYSIN DD DUMMY
> ----- Original Message -----
>
> From: "Bill Ashton" <[email protected]>
> To: [email protected]
> Sent: Friday, May 5, 2017 8:38:50 AM
> Subject: JCL System symbols
>
> Hi again...I have searched, and must be looking for the wrong thing, so
I
> hope you can help me.
>
> Is there a system symbol I can use in my DSN that has the current date
in
> it? I understand the implications of cross-date boundaries, etc., and am
> looking to try something using the date in my dataset name.
>
> Also, do I need to export the symbol if it is a system symbol, or can I
use
> it in JCL and control cards without the export?
>
> Thanks again, and have a great, sunny weekend!
>
> --
> Thank you and best regards,
> *Billy Ashton*
>
> ----------------------------------------------------------------------
> 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
>
--
Thank you and best regards,
*Billy Ashton*
----------------------------------------------------------------------
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
