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.
A sample of the output can be seen in IBHLSPAC Output.
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: c81fc667eec5023ef8bc0b342a943642]. 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.
The JCL to execute IBHLSPAC is simple:
//IBHLSPAC JOB (SYS),'IBHLSPAC',CLASS=A,MSGCLASS=X //IBHLSPAC EXEC PGM=IBHLSPAC //VATLST DD DISP=SHR,DSN=SYS1.PARMLIB(VATLST00) //SYSPRINT DD SYSOUT=* //
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 May 09, 2020 .