PRINT VTOC BY ARCS (FJ)

//******  VTOC LIST PRINT BY ARCS
//JCL0001A JOB  CLASS=A,MSGCLASS=H
//PRINT    EXEC PGM=KBKARCS,REGION=4096K
//SYSPRINT DD SYSOUT=*
//LSTD   DD VOL=SER=LSTD00,DISP=SHR,UNIT=SYSDA
//SYSIN    DD *
LIST VTOC,FROM(DD(LSTD)),FORMAT