>>because there are lines other than these > that are unwanted (e.g. CATALOG in 1 and ALIAS in 10).
David, Did you miss the SKIPREC ? The CATALOG info was on the 4th line and I was using SKIPREC to eliminate the first 5 records. >>> I tried the JCL (and changed &&C to &&L). Sorry about that. Forgot to change the tempfile in step0200. Thanks, Kolusu IBM Mainframe Discussion List <[email protected]> wrote on 07/02/2019 09:17:50 AM: > From: David Spiegel <[email protected]> > To: [email protected] > Date: 07/02/2019 09:18 AM > Subject: [EXTERNAL] Re: listcat with only dsn > Sent by: IBM Mainframe Discussion List <[email protected]> > > Hi Sri, > I tried the JCL (and changed &&C to &&L). > I've written code like this before (using Rexx exclusively), and > "INCLUDEd" only lines containing NONVSAM/CLUSTER/INDEX in Column 10 > (rather than OMIT READY/END, because there are lines other than these > that are unwanted (e.g. CATALOG in 1 and ALIAS in 10). > > Regards, > David > > On 2019-07-02 11:50, Sri h Kolusu wrote: > >> OK, but, what if you want to use masking characters in the DSNAME (a la > >> 3.4)? > > David, > > > > If Listcat on LEVEL does not meet your needs then you can run the catalog > > search interface (CSI) from TSO and strip off the unwanted content. > > > > Something like this > > > > //************************************************************* > > //* NOTE : THE FILTERING DATASET MUST START IN POSITION 1 * > > //************************************************************* > > //STEP0100 EXEC PGM=IKJEFT01 > > //SYSTSPRT DD DSN=&&L,DISP=(,PASS),SPACE=(CYL,(1,1),RLSE), > > // DCB=(LRECL=133,RECFM=FB,BLKSIZE=0) > > //SYSTSIN DD * > > EXEC 'SYS1.SAMPLIB(IGGCSIRX)' EXEC > > DAVID.SPEIGEL*.* > > //* > > //************************************************************* > > //* STRIP OFF THE HEADERS AND CATALOG INFO FROM THE CATALOG * > > //* SEARCH AND CREATE LIST OF THE DATASETS FOR THE USER * > > //************************************************************* > > //STEP0300 EXEC PGM=SORT > > //SYSOUT DD SYSOUT=* > > //SORTIN DD DISP=(OLD,PASS),DSN=&&C > > //SORTOUT DD SYSOUT=* > > //SYSIN DD * > > OPTION COPY,SKIPREC=5 > > OMIT COND=(01,05,CH,EQ,C'READY',OR, > > 01,03,CH,EQ,C'END') > > > > INREC BUILD=(19,44) > > //* > > > > > > Further if you have any questions please let me know > > > > 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
