* 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  // SDATE=YYMMDD, YYMMDD BEGINNING DATE // EDATE=YYMMDD YYMMDD ENDING DATE //* //STEP1 EXEC PGM=IEFBR14 //DEL2 DD UNIT=SYSDA,DISP=(MOD,DELETE),SPACE=(TRK,1), // DSN=&USERHLQ..&SITE..#&GRIDID..HSTU.D&SDATE..D&EDATE  //* //STEP3 EXEC PGM=CPYHIST //STEPLIB DD DISP=SHR,DSN=&TOOLHLQ..IBMTOOLS.LOAD //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=&USERHLQ..&SITE..#&GRIDID..HSTU.D&SDATE..D&EDATE.,  // DCB=(RECFM=U,BLKSIZE=22000),UNIT=SYSDA, // DISP=(NEW,CATLG),SPACE=(CYL,(40,25),RLSE) // PEND //* //RUNPROC EXEC COPYBVIR,SDATE=YYMMDD,EDATE=YYMMDD HERE AS YYMMDD //STEP3.SYSCNTL DD DISP=SHR,DSN=&TOOLHLQ..IBMTOOLS.JCL(EXPIRE) //*  //ITSO1  JOB CONSOLE, // MSGCLASS=H,MSGLEVEL=(1,1),CLASS=B, // TIME=1440,REGION=2M //* /*JOBPARM SYSAFF=* //* //* THIS IS A TWO JOB MEMBER TO ACCOMODATE EITHER JES2 OR JES3. //* BVIR DATA WILL ONLY BE WRITTEN TO A TAPE AFTER THE INITIAL //* DISMOUNT AND RE-MOUNT FOR READ. //* //* IF YOU HAVE MULTIPLE TS7740 GRIDS, YOU MUST HAVE A SEPARATE //* STORAGE GROUP DEFINED FOR EACH GRID to REQUEST STATISTICS  //* FROM EACH ONE. USE AN ACS ROUTINE TO SELECT THE TARGET GRID. //* //* THIS JOB ISSUES THE BULK VOLUME INFORMATION (BVIR) REQUEST FOR //* HISTORICAL STATISTICS FROM THE VTS ASSOCIATED WITH THE VIRTUAL //* DRIVE ADDRESS USED. THE BVIR FEATURE MUST BE ACTIVATED ON THE  //* VTS RECEIVING THE REQUEST. THE FINAL OUTPUT IS WRITTEN TO A Example E-3 BVIRHSTV JCL to obtain BVIR historical data Example E-3 shows the JCL in userid .IBMTOOLS.JCL  member  BVIRHSTV . BVIRHSTV  Appendix E. Sample job control language  857