Or just use the edit macro I put in the thread earlier and now on my web site and CBT file which can use ISPF 3.4 masking.
TSO %DSLISTSV L(some.dsn.filter.*) Output is in userid.SAVE.DATASETS and has the DSN and volser only. Because the exec has "STATS(NO)" for LMDLIST it runs very quickly even for thousands of data sets. Regards, Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS ITIL v3 Foundation Certified mailto:m...@mzelden.com Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html Systems Programming expert at http://search390.techtarget.com/ateExperts/ On Tue, 2 Jul 2019 15:33:43 +0000, David Spiegel <dspiegel...@hotmail.com> wrote: >Hi Wayne, >Where does one download REMDUP? > >Thanks and regards, >David > >On 2019-07-02 02:17, Wayne Bickerdike wrote: >> Option 3.4 using save to list gives a dataset that could be used after some >> judicious EDIT macros. >> >> A bit clunky but this works: >> >> SORT (the ISPF EDIT command) >> REMDUP (a great macro somebody wrote) >> X ALL >> F ALL ' ' 3 3 >> DEL ALL NX >> RES >> X ALL >> F ALL '----------------------' 10 20 >> F ALL 'Listing of Data Sets' >> DEL ALL NX >> RES >> >> That leaves just the list of datasets. >> then >> CHANGE ALL P'=' '' 40 137 >> >> Done.. >> Means you can use the fancy masking of 3.4.. >> >> >> On Tue, Jul 2, 2019 at 1:02 PM David Spiegel <dspiegel...@hotmail.com> >> wrote: >> >>> OK, but, what if you want to use masking characters in the DSNAME (a la >>> 3.4)? >>> >>> On 2019-07-01 19:57, Sri h Kolusu wrote: >>>>>>> I need to generate a listcat with only the dsn. like in 3.4 but I >>>>> want it in a dataset with ONLY the dsn. >>>> Elaine, >>>> >>>> If your intention is to just get list of all datasets for a particular >>> HLQ, >>>> then it is quite simple. Run LISTCAT via TSO and then strip off the >>>> unwanted data. >>>> >>>> Something like this >>>> >>>> // EXPORT SYMLIST=* >>>> // SET HLQ='ELAINE' >>>> //* >>>> //************************************************************* >>>> //* ISSUE LISTCAT ON LEVEL FOR THE USERID ** >>>> //************************************************************* >>>> //STEP0100 EXEC PGM=IKJEFT01 >>>> //SYSTSPRT DD DSN=&&L,DISP=(,PASS),SPACE=(CYL,(5,5),RLSE), >>>> // DCB=(LRECL=80,RECFM=FB,BLKSIZE=0) >>>> //SYSTSIN DD *,SYMBOLS=JCLONLY >>>> LISTCAT LEVEL('&HLQ') NAME >>>> //* >>>> //************************************************************* >>>> //* STRIP OFF THE HEADERS AND CATALOG INFO FROM THE LISTCAT ** >>>> //* OUTPUT AND CREATE LIST OF THE DATASETS FOR THE USER ** >>>> //************************************************************* >>>> //STEP0200 EXEC PGM=SORT >>>> //SYSOUT DD SYSOUT=* >>>> //SORTIN DD DISP=(OLD,PASS),DSN=&&L >>>> //SORTOUT DD SYSOUT=* >>>> //SYSIN DD * >>>> OPTION COPY >>>> OMIT COND=(01,05,CH,EQ,C'READY',OR, >>>> 01,03,CH,EQ,C'END',OR, >>>> 06,06,CH,EQ,C'IN-CAT',OR, >>>> 03,08,CH,EQ,C'LISTCAT ') >>>> >>>> INREC BUILD=(17,44) >>>> //* >>>> >>>> >>>> Thanks, >>>> Kolusu >>>> >>>> >>>> ---------------------------------------------------------------------- >>>> For IBM-MAIN subscribe / signoff / archive access instructions, >>>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN >>>> . >>>> >>> >>> ---------------------------------------------------------------------- >>> For IBM-MAIN subscribe / signoff / archive access instructions, >>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN >>> >> > > >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
