Bob,
You can run IEHLIST against the volume you are interested and then extract
the dataset names from that output using DFSORT.
//**********************************************************
//* RUN IEHLIST AGAINST THE VOLUME *
//**********************************************************
//STEP0100 EXEC PGM=IEHLIST
//SYSPRINT DD DSN=&&LVT,DISP=(,PASS),SPACE=(CYL,(25,10),RLSE)
//DD1 DD DISP=OLD,VOLUME=SER=your.volume.name
//SYSIN DD *
LISTVTOC FORMAT,VOL=SER=your.volume.name
/*
//**********************************************************
//* EXTRACT THE DATASET NAMES FROM IEHLIST OUTPUT *
//**********************************************************
//STEP0200 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=(OLD,PASS),DSN=&&LVT
//SORTOUT DD SYSOUT=*,RECFM=FB
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=GROUP,
BEGIN=(16,15,CH,EQ,C'-DATA SET NAME-'),
PUSH=(125:ID=8,SEQ=1),RECORDS=2)
OUTFIL BUILD=(2,120),
INCLUDE=(125,8,ZD,EQ,1,OR,133,1,ZD,EQ,2)
/*
This will generate an output like this
---------------DATA SET NAME---------------- SER NO SEQNO DATE.CRE
DATE.EXP DATE.REF EXT DSORG RECFM OPTCD BLKSIZE
USERID.BRODCAST.LIST XXXVOL 1 2017.300
00.000 2017.300 1 PS FB 00 1500
USERID.CBRTRFMT.SLDLOGIC XXXVOL 1 2016.194
00.000 2017.116 1 UN VB 27998
USERID.ABCD.QEV.G0290V00 XXXVOL 1 2021.099
00.000 2021.099 1 PS FB 00 5100
USERID.LIST.G0376V00 XXXVOL 1 2021.078
00.000 2021.078 1 PS VB 00 27998
....
Thanks,
Kolusu
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
