//* THIS JOB ISSUES THE BULK VOLUME INFORMATION REQUEST (BVIR) FOR //* ALL VIRTUAL VOLUMES BELONGING TO THE VTS ASSOCIATED WITH THE //* VIRTUAL DRIVE ADDRESS USED. THE BVIR FEATURE MUST BE ACTIVATED //* ON THE VTS RECEIVING THE REQUEST. VTS CODE 7.4 OR GREATER NEEDED  //* to PROVIDE THE VIRTUAL VOLUME SIZE. //* IF YOU ARE RUNNING AGAINST A PTP AND GETTING DATA FOR THE BVIRRPT //* JOB, YOU NEED TO RUN THIS JOB TWICE, ONCE FOR EACH VTS. //* //* NEXT, RUN BVIRRPT TO GET REPORTS OR BVIRMCH TO SEE HOW MANY //* PHYSICALS WERE USED TO CONTAIN A LIST OF LOGICAL VOLSERS. //* OR, RUN THE PRESTAGE JOB TO CAUSE A LIST OF VOLSERS TO BE STAGED.  //*  //BVIRVTS PROC USERHLQ=USERID, HI-LEVEL FOR USER DATA FILES // TOOLHLQ=TOOLID, HLQ FOR LOAD AND CNTL // SITE=SITENAME, 2ND LEVEL QUALIFIER // TYPE=, JCL WILL REQUEST TYPE LATER // MC=, DIRECT TO SPECIFIC VTS IN PTP // VTSID=CL0, USE CL0, CL1, CL2, ETC TO BE PART OF DSN // UNIT=VTAPE UNITNAME ON THIS VTS //* //STEP1 EXEC PGM=IEFBR14 //DEL1 DD UNIT=(&UNIT,,DEFER),DISP=(MOD,DELETE), // DSN=&USERHLQ..&SITE..&VTSID..BVIR&TYPE //DEL2 DD UNIT=SYSDA,DISP=(MOD,DELETE),SPACE=(TRK,1), // DSN=&USERHLQ..&SITE..&VTSID..&TYPE.FILE //* //STEP2 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=&TOOLHLQ..IBMTOOLS.CNTL(BVIR&TYPE) //SYSUT2 DD DSN=&USERHLQ..&SITE..&VTSID..BVIR&TYPE,MGMTCLAS=&MC,  // UNIT=&UNIT,LABEL=(,SL),DISP=(NEW,CATLG), // DCB=(RECFM=FB,BLKSIZE=80,LRECL=80,TRTCH=NOCOMP) //SYSIN DD DUMMY //* //STEP3 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN=&USERHLQ..&SITE..&VTSID..BVIR&TYPE, // DISP=OLD //SYSUT2 DD DSN=&USERHLQ..&SITE..&VTSID..&TYPE.FILE, // DISP=(NEW,CATLG),SPACE=(CYL,(1,3)),UNIT=SYSDA, // DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0) //SYSIN DD DUMMY // PEND //* //GETVOLS EXEC BVIRVTS,TYPE=VOL,VTSID=CL0,MC=MCVTS0  //* // 860  IBM TS7700 Release 5.0 Guide