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
