VTOC LIST BY JSGLIST (FJ)

 //**** VTOC LIST PRINT BY SYSTEM UTILITY
//VTOC000A   EXEC PGM=JSGLIST,REGION=4096K
//SYSPRINT DD SYSOUT=*
//DISK   DD  UNIT=SYSDA,DISP=OLD,VOL=SER=VOL001
//SYSIN    DD *
LISTVTOC VOL=SYSDA=VOL001,FORMAT,SORT
//