We create thousands of datasets with a date stamp as a qualifier. See example:

//BJKBR14  JOB 1,'BRYAN K.',CLASS=Z,MSGCLASS=X,MSGLEVEL=(1,1) 
//INCL     INCLUDE MEMBER=MCDATE                                  
//STEP005  EXEC PGM=IEFBR14                                       
//DD1      DD   DSN=SHRT.DUMMY.D&MCDATE,UNIT=VIO,SPACE=(TRK,(1,1))

The expanded JCL after execution looks like this:

1 //BJKBR14  JOB 1,'BRYAN K.',CLASS=Z,MSGCLASS=X,MSGLEVEL=(1,1)           
JOB54091 
2 //INCL     INCLUDE MEMBER=MCDATE                                              
   
  XX*   SET A VARIABLE FOR THE CURRENT DATA                                     
   
3 XXDTSTAMP  SET MCDATE=2011194                                                 
   
4 //STEP005  EXEC PGM=IEFBR14                                                   
   
5 //DD1      DD   DSN=SHRT.DUMMY.D&MCDATE,UNIT=VIO,SPACE=(TRK,(1,1))            
   
  IEFC653I SUBSTITUTION JCL - 
DSN=SHRT.DUMMY.D2011194,UNIT=VIO,SPACE=(TRK,(1,1))   

The trick is to run a process at 23:59:59 everyday to update the MCDATE member 
in a proclib that is in your JES2 proclib concatenation. We've done this for 
years and it works well. 

I guess the only downside is if the automation task somehow fails to update the 
MCDATE member at midnight.

Bryan Klimek
Mayo Clinic

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to