VTOCLIST

VTOCLIST produces a more user-friendly listing of a disk volume's Table of Contents information. 

It is located in File #343 of the CBT tape and, according to the $$DOC, originated from the European G.U.I.D.E. tapes.  The author of the original program is Peter Havercan.

A sample of the output can be seen in VTOCLIST.

 

Installation

I have extracted the Assembler source from the CBT tape and added JCL to assemble it with IFOX00.  I made a minor modification to the source to correctly identify VSAM datasets and commented out tests for PDSE and HFS datasets so that it would assemble under IFOX00.  The resulting jobstream - vtoclist.jcl - is contained in the archive vtoclist.tgz [MD5: FAA11606F0B78D8AF2416CE9DB04C957].  Download the archive and extract the jobstream (WinZip on Windows/?? or tar on Linux).  Submit the jobstream to assemble and link the single load module for LISTPDS 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 VTOCLIST

The JCL to execute VTOCLIST is simple:

//VTOCLIST JOB 'JAY MOSELEY',CLASS=A,MSGLEVEL=(1,1)
//LIST     EXEC PGM=VTOCLIST
//SYSPRINT DD  SYSOUT=A,DCB=(RECFM=VBA,LRECL=125,BLKSIZE=1254)
//SYSUT1   DD  UNIT=SYSALLDA,DISP=OLD,VOL=SER=MVTRES
//

The SYSUT1 DD points to the volume for which the VTOC report is to be produced.

By creating a member of SYS2.PROCLIB (or SYS1.PROCLIB if you have not allocated a user proclib) named VTOCLIST and containing the statements:

//VTOCLIST PROC V='MVSRES',C='*' 
//IEFPROC EXEC PGM=VTOCLIST 
//SYSPRINT DD SYSOUT=&C 
//SYSUT1 DD DISP=OLD,UNIT=SYSALLDA,VOL=SER=&V 

the program may be easily executed from the system console with a START command:

s vtoclist,v=pub001

supplying the volume serial number of the volume for which the listing is to be produced with the variable v.  The output class may also be modified by use of the c variable.


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 January 17, 2015 .