IBHLSPAC

 

IBHLSPAC produces a list of free DASD space by using the SMF LSPACE routine (SVC 78).  Information is provided for all online DASD volumes by scanning the UCB and additional information is included by matching the online volumes with the comment information contained in the VATLST00 member of SYS1.PARMLIB.

It is located in File #21 of the CBT tape and originated from G M Schlesak at Bell & Howell, Evanston, IL.

Update 06/01/2024: The original program contained hard coded 'masks' for a segment in the report to summarize free space by Volume Serial, such as PUB***, TSO***, etc.  The five masks were very specific to the original system where the program was written, and to tailor them for another system, or even to add or remove masks as the system environment changes over time, would not be trivial.  I updated the code to allow for inclusion of a SYSIN DD, by which up to 20 masks can be supplied.  If the SYSIN DD is omitted, or no records are read from the SYSIN DD at execution time, that section of the report will not be produced.  For any masks supplied at execution time, all DASD with Volume Serial numbers matching a mask will have the free space summarized and reported.  At the same time I made some cosmetic changes: increased the comment printed (from the VATLST member of SYS1.PARMLIB by five characters) and sourced the date/time for the heading from my date routines.  If you have SYSCPK installed, the updated version has already been installed in SYSC.LINKLIB, with an execution jobstream in SYSC.JCLLIB and updated installation jobstream in SYSC.CBT.SOURCE.

A sample of the output can be seen in IBHLSPAC Output.

 

Installation

I have extracted the Assembler source from the CBT tape and added JCL to assemble it with IFOX00.  I added three DASD type codes into the table defined at DEVTBL:  2311, 3375, and 3390, as they may be in use under some MVS 3.8j installations running under Hercules.  The resulting jobstream - ibhlspac.install.jcl - along with a jobstream to execute the program - ibhlspac.execute.jcl - are both contained in the archive ../downloads/archives/ibhlspac.tar.gz [10 kB MD5: aa5130e83a19a494cf3db7a815d6515f].  Download the archive and extract the jobstreams.  Submit the jobstream to assemble and link the single load module for IBHLSPAC into SYS2.LINKLIB.  If you don't have SYS2.LINKLIB defined, you will need to modify the jobstream to specify a target load library.

 

Executing IBHLSPAC

The JCL to execute IBHLSPAC is simple:

//IBHLSPAC JOB (1),'LIST FREE SPACE',CLASS=A,MSGCLASS=X                 
//IBHLSPAC EXEC PGM=IBHLSPAC                                            
//STEPLIB  DD DISP=SHR,DSN=SYSC.LINKLIB                                 
//VATLST   DD DISP=SHR,DSN=SYS1.PARMLIB(VATLST00)                       
//SYSPRINT DD SYSOUT=*                                                  
//* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
//* SYSIN is optional, but if included can supply a set of 'masks'    * 
//* which will be used to summarize free space on DASD volumes by     * 
//* using the supplied masks. Up to 20 masks may be supplied.         * 
//* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
//SYSIN    DD *                                                         
WORK**                                                                  
PUB***                                                                  
/*                                                                      
//

I hope that you have found my instructions useful.  If you have questions that I can answer to help expand upon my explanations and examples shown here, please don't hesitate to send them to me:

Return to Site Home Page 

This page was last updated on June 01, 2024 .