//SYSUT2 DD DSN=&USERHLQ..&SITE..&VTSID..BVIRPHY,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..BVIRPHY,DISP=(OLD,DELETE),  // DCB=(DSORG=PS,RECFM=U,BLKSIZE=320) //SYSUT2 DD DSN=&USERHLQ..&SITE..&VTSID..PHYFILE, // UNIT=SYSDA,SPACE=(320,(500000,200000),RLSE), // DISP=(,CATLG),DCB=(DSORG=PS,RECFM=U,BLKSIZE=320) //SYSIN DD DUMMY // PEND //* //GETVOLS EXEC BVIRPHY,VTSID=CL0,MC= //*  Physical Volume Pool Status report For a formatted report of the physical volume pool status, use  BVIRPLNN  (see Example E-10).  The output of  BVIRPLNN  can then be processed by using  BVIRPRPT  (see “Physical Volume and  Pool Status Report Writer” on page 866) to produce a fully formatted report. Example E-10 Sample JCL for BVIRPLNN //ITSO1 JOB CONSOLE, // MSGCLASS=H,MSGLEVEL=(1,1),CLASS=B, // TIME=1440,REGION=2M //* //* //* THIS JOB ISSUES THE BULK VOLUME INFORMATION (BVIR) REQUEST FOR //* MEDIA POOLING STATISTICS FROM THE VE ASSOCIATED WITH THE VIRTUAL //* DRIVE ADDRESS USED. //* //* TO ENSURE THAT BVIR REQUESTS ARE SATISFIED FROM THE PROPER //* CLUSTER, YOU SHOULD HAVE MANAGEMENT CLASSES FOR RNN(CL0), NRN(CL1)  //* AND NNR(CL2) SO THAT ONLY THE TARGET CLUSTER WILL HAVE A COPY OF //* THE BVIR VOLUME. YOU CAN'T CONTROL WHERE THE INITIAL SCRATCH //* MOUNT IS SATISFIED, BUT YOU CAN CONTROL WHICH TVC THE VOLUME WILL //* BE IN WHEN THE SUBSEQUENT SPECIFIC MOUNT IS DONE. THE SPECIFIC //* MOUNT COLLECTS THE BVIR INFORMATION, NOT THE INTIIAL SCRATCH MOUNT. //*  //* IF YOU HAVE MULTIPLE TS7740 GRIDS, YOU MUST HAVE A SEPARATE //* STORAGE GROUP DEFINED FOR EACH GRID to ALLOCATE ON THE  //* DESIRED GRID. USE AN ACS ROUTINE TO SELECT THE TARGET GRID. //* //* IF YOU ARE RUNNING JES3, YOU MUST RUN STEP3 AS A SEPARATE JOB //* to FORCE THE DISMOUNT OF THE TAPE IN STEP2. BVIR DATA  //* WILL ONLY BE WRITTEN TO A TAPE AFTER THE INITIAL DISMOUNT AND //* RE-MOUNT FOR READ. //* //BVIRPOOL PROC USERHLQ=USERID, HI-LEVEL FOR USER DATA FILES // TOOLHLQ=TOOLID, HLQ FOR LOAD AND CNTL // SITE=SITENAME, 2ND LEVEL QUALIFIER // VTSID=CL0, USE CL0, CL1, CL2, ETC TO BE PART OF DSN // POOL=, TWO DIGIT POOL NUMBER REQUESTED // MC=, DIRECT TO SPECIFIC CLUSTER IN GRID  // UNIT=VTAPE UNITNAME ON THIS VE Appendix E. Sample job control language  865