by mongan » Fri Feb 25, 2011 12:29 pm
Why use rexx when there is a utility to do this:
//PROG EXEC PGM=IEHLIST,REGION=4M
//SYSPRINT DD SYSOUT=*
//DD1 DD UNIT=3390,VOLUME=SER=MVS319,DISP=SHR
//SYSIN DD *
LISTVTOC FORMAT,VOL=3390=MVS319,DSNAME=(PAGE.VMVS319.LOCAL1.DATA)
/*
You can drop the DSNAME to get a list of the entire VTOC.