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
>
--
Wayne V. Bickerdike
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
