// DSN=&USERHLQ..&SITE..#&GRIDID..BVIRTAPE //* //STEP2 EXEC PGM=GETHIST ISSUE HISTORICAL STATS REQUEST //STEPLIB DD DISP=SHR,DSN=&TOOLHLQ..IBMTOOLS.LOAD //SYSLIST DD SYSOUT=*  //SYSUDUMP DD SYSOUT=* //BVIRREQ DD DSN=&USERHLQ..&SITE..#&GRIDID..BVIRTAPE, // UNIT=&UNIT,LABEL=(,SL),DISP=(NEW,CATLG), // DCB=(RECFM=F,LRECL=80,BLKSIZE=80,TRTCH=NOCOMP) // PEND //* //RUNPROC EXEC PUTBVIR //STEP2.SYSCNTL DD DISP=SHR,DSN=&TOOLHLQ..IBMTOOLS.JCL(EXPIRE) // DD * * * SEE MEMBER, VEHDATES, FOR MORE DETAIL ON DATES *  SDATE= 01SEP2010; USE HERE AS DDMONYEAR  EDATE= 30SEP2010; USE HERE AS DDMONYEAR *SDATE= TODAY- 1; THIS FORMAT PULLS STATS FROM PREVIOUS DAY *EDATE= TODAY; *SDATE= LASTWEEK; OR LASTMONTH WITH + OR - OPTIONS ALSO *  * SEE MEMBER, VEHDATES, FOR MORE DETAIL ON DATES * //* //ITSO1  JOB CONSOLE, // MSGCLASS=H,MSGLEVEL=(1,1),CLASS=B, // TIME=1440,REGION=2M //* /*JOBPARM SYSAFF=* //* //COPYBVIR PROC USERHLQ=USERID, HI-LEVEL FOR USER DATA FILES // TOOLHLQ=TOOLID, HLQ FOR LOAD AND CNTL // SITE=SITENAME, 2ND LEVEL QUALIFIER // GRIDID=GRID# GRID SERIAL NUMBER TO BE PART OF DSN //* //STEP3 EXEC PGM=CPYHIST APF LIBRARY NEEDED IF WRITING TO SMF  //STEPLIB DD DISP=SHR,DSN=USER.AUTH.LIB //SYSLIST DD SYSOUT=* //SYSPRINT DD SYSOUT=*  //RECLIST DD SYSOUT=* //SYSUT1 DD DSN=&USERHLQ..&SITE..#&GRIDID..BVIRTAPE, // DCB=(RECFM=U,BLKSIZE=22000), // DISP=(OLD,DELETE) //SYSUT2 DD DSN=NULLFILE,DCB=(RECFM=U,BLKSIZE=22000), // DISP=(NEW,CATLG),SPACE=(CYL,(40,25),RLSE),UNIT=SYSDA // PEND //* //RUNPROC EXEC COPYBVIR //STEP3.SYSCNTL DD DISP=SHR,DSN=&TOOLHLQ..IBMTOOLS.JCL(EXPIRE) // DD *  SMFNUM = 194; USER SELECTABLE SMF # FOR QUARTER HOUR STATISTICS * THE SMF TIME STAMP WILL BE THE QUARTER HOUR DATE/TIME ORIGINALLY  * WRITTEN EVEN IF PULLED SEVERAL DAYS LATER. //*  Appendix E. Sample job control language  855