// VTSID=CL0 USE CL0, CL1, CL2, ETC TO BE PART OF DSN //* //TOOLSTEP EXEC PGM=BVIRPRPT //STEPLIB DD DISP=SHR,DSN=&TOOLHLQ..IBMTOOLS.LOAD //SYSUDUMP DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSLIST DD SYSOUT=* //SYSOUT DD SYSOUT=* //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,25)) //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,25)) //SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,25)) //SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,25)) //SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(25,25)) //SORTIN DD UNIT=SYSDA,SPACE=(CYL,(20,50),RLSE), // DCB=(RECFM=FB,BLKSIZE=0) //SORTOUT DD UNIT=SYSDA,SPACE=(CYL,(20,50),RLSE), // DCB=(RECFM=FB,BLKSIZE=0) //POOLRPT DD SYSOUT=* LRECL=170 // PEND //RUNJOB EXEC BVIRPRPT //* //TOOLSTEP.SYSCNTL DD DISP=SHR,DSN=&TOOLHLQ..IBMTOOLS.JCL(EXPIRE) // DD * CUSTOMER= FOR TITLE LINE BVIRPRPT; <= 1-50 CHAR *DETAIL= N; N MEANS DO NOT SHOW SECOND DETAIL LINE WITH TIMES *LINES= 65535; * * IF RECLAIMGB IS USED FOR COPY-EXPORT VOLUMES, * MODULE BVIRPRPT MUST BE IN APF LIBRARY * LIBNAME IS THE DISTRIBUTED LIBRARY NAME THAT THE CUSTOMER ASSIGNED * THROUGH THE DFSMS LIBRARY DEFINE window. *LIBNAME= ABCDE; *LRDELAY= 7; SECONDS DELAY BETWEEN LIBRARY REQUEST COMMANDS *RECLAIMGB= 140; RECLAIM IF LESS ACTIVE GIGABYTES THAN NNN VALUE * ABOVE COMMENTED MEANS 0 GB SO NOTHING GETS RECLAIMED, JUST REPORTED * IF USED A LIBRARY REQUEST,LIBNM,COPYEXP,RECLAIM COMMAND IS ISSUED  MAXGB= 200; IF RECLAIMING, LIMIT THE AMOUNT BROUGHT BACK TO CACHE  DAYSAGO = 3; PVOL MUST HAVE BEEN WRITTEN >N DAYS AGO FOR RECLAIM *CONSOLENAME= XXXXXXXX; OBTAINED FROM D C OPERATOR COMMAND * USE 00000000; WHEN NO CONSOLE DEFINED FOR LPAR *INCVOL= L0*; INCLUDE ONLY THESE VOLSERS *INCVOL= 010000 010999; INCLUDE THIS RANGE *EXCVOL= 475000 475999; EXCLUDE THIS RANGE //* //* PICK YOUR BVIRIN FILE //*BVIRIN DD DISP=SHR,DSN=&USERHLQ..&SITE..&VTSID..PHYFILE //* YOU CAN CONCATINATE MULTIPLE POOL FILES FROM BVIRPLNN JOB //BVIRIN DD DISP=SHR,DSN=&USERHLQ..&SITE..&VTSID..POOL00 // DD DISP=SHR,DSN=&USERHLQ..&SITE..&VTSID..POOL01 // DD DISP=SHR,DSN=&USERHLQ..&SITE..&VTSID..POOL02 //* DD DISP=SHR,DSN=&USERHLQ..&SITE..&VTSID..POOL03 . . Same for Pools 4 - 29 . //* DD DISP=SHR,DSN=&USERHLQ..&SITE..&VTSID..POOL30 //* DD DISP=SHR,DSN=&USERHLQ..&SITE..&VTSID..POOL31 //* DD DISP=SHR,DSN=&USERHLQ..&SITE..&VTSID..POOL32 

