//VTOCLIST JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1),NOTIFY=&SYSUID        
//* BORRAR FICHERO SALIDA                                              
//DELREP    EXEC  PGM=IDCAMS                                           
//SYSPRINT  DD  SYSOUT=*                                               
//SYSIN     DD  *                                                      
 DELETE IBMUSER.VTOCLIST.REPORT                                        
 SET MAXCC=0                                                           
/*                                                                     
//* EXTRAER INFORMACION VTOC DISCO. MODIFICAR DD2 Y SYSIN CON EL DISCO 
//STEP2    EXEC PGM=IEHLIST                                            
//SYSPRINT DD DISP=(NEW,PASS),DSORG=PS,                                
//            SPACE=(CYL,(1,1),RLSE),                                  
//            DCB=(RECFM=FBA,LRECL=121,BLKSIZE=0),                     
//            DSN=&&IEHREPOR                                           
//DD2      DD  UNIT=3390,VOLUME=SER=PRD000,DISP=OLD                    
//SYSIN    DD  *                                                       
     LISTVTOC   FORMAT,VOL=3390=PRD000                                 
/*                                                                     
//* FORMATEAMOS EL REPORT ANTERIOR PARA OBTENER LOS DATOS NECESARIOS   
//FORMAREP EXEC PGM=IKJEFT01                                      
//SYSPROC  DD DISP=SHR,DSN=IBMUSER.REXX                           
//FICH     DD DISP=OLD,DSN=&&IEHREPOR                             
//OUTPUT   DD DISP=(NEW,PASS),SPACE=(CYL,(1,1),RLSE),             
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=0),                  
//            DSN=&&FORMAREP                                      
//SYSTSPRT DD SYSOUT=*                                            
//SYSTSIN  DD *                                                   
%VTOCFORM                                                         
//* ORDENAMOS EL REPORT ANTERIOR Y AÑADIMOS LA CABECERA           
//SORTREP  EXEC PGM=SORT                                          
//SORTIN   DD DISP=OLD,DSN=&&FORMAREP                             
//SORTOUT  DD DSN=IBMUSER.VTOCLIST.REPORT,                        
//            SPACE=(CYL,(1,1),RLSE),DCB=*.SORTIN,                
//            DISP=(,CATLG)                                       
//SYSOUT   DD SYSOUT=*                                            
//SYSIN    DD *                                                   
 SORT FIELDS=(55,7,ZD,A,65,7,ZD,A)                                
 OUTFIL REMOVECC,                                                 
 HEADER1=(1:'DATA SET NAME',48:'EXTN',55:'STR CYL',65:'END CYL',/,
          1:80C'-')     
/*