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 <[email protected]> > 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 [email protected] with the message: INFO IBM-MAIN >>> . >>> >> >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to [email protected] with the message: INFO IBM-MAIN >> > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
