Hi Sri, I saw the SKIPREC, but, at the bottom of the output, there is this: ---+----1----+----2----+----3----+----4----+----5----+----6----+----7- NONVSAM TTSDS.Z23A.SYSLOG A3SYS1 CATALOG CATALOG.Z23A.MASTER
ALIAS TTSDS READY END The Mask I used is TTSDS.** One more thing ... The second "EXEC" (first line of //SYSTSIN) is unnecessary. Regards, David On 2019-07-02 12:44, Sri h Kolusu wrote: >>> 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 <IBM-MAIN@LISTSERV.UA.EDU> wrote on > 07/02/2019 09:17:50 AM: > >> From: David Spiegel <dspiegel...@hotmail.com> >> To: IBM-MAIN@LISTSERV.UA.EDU >> Date: 07/02/2019 09:18 AM >> Subject: [EXTERNAL] Re: listcat with only dsn >> Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> >> >> 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 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
