Ron,
There is no easier option to exclude members from the SRCHFOR list. If you
are interested, here is a Batch version which will give you the desired
results
// EXPORT SYMLIST=(MEM1,MEM2,SRCHSTR)
// SET MEM1=exclpgm1 /* EXCLUDE MEMBER1 */
// SET MEM2=exclpgm2 /* EXCLUDE MEMBER2 */
// SET SRCHSTR=mccabe /* SEARCH STRING */
// SET INPDS=Ron.cobol.pgm.src.pds /* SEARCH PDS */
//*
//****************************************************************
//* RUN SRCHFOR IN BATCH SEARCHING FOR THE STRING AS A WORD *
//****************************************************************
//SEARCH EXEC PGM=ISRSUPC,PARM=(SRCHCMP,'')
//NEWDD DD DISP=SHR,DSN=&INPDS
//OUTDD DD DSN=&&OUT,DISP=(,PASS),SPACE=(CYL,(X,Y),RLSE)
//SYSIN DD *,SYMBOLS=JCLONLY
SRCHFOR '&SRCHSTR',W
/*
//****************************************************************
//* REMOVE THE UNWANTED MEMBER RESULTS FROM THE SEARCH OUTPUT *
//****************************************************************
//STRIP EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=(OLD,PASS),DSN=&&OUT
//SORTOUT DD SYSOUT=*
//SYSIN DD *,SYMBOLS=JCLONLY
OPTION COPY
INREC IFTHEN=(WHEN=GROUP,BEGIN=(3,1,CH,GT,C' '),
PUSH=(134:3,8))
OUTFIL BUILD=(1,133),
OMIT=(134,8,CH,EQ,C'&MEM1',OR,
134,8,CH,EQ,C'&MEM2')
//*
Further if you have any questions please let me know
Thanks,
Kolusu
DFSORT Development
IBM Corporation
IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on
09/12/2018 11:52:30 AM:
> From: "McCabe, Ron" <rmcc...@mutualofenumclaw.com>
> To: IBM-MAIN@LISTSERV.UA.EDU
> Date: 09/12/2018 11:53 AM
> Subject: Search for utility
> Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU>
>
> Hello,
>
> Question from our developers...is there an easy way to search for a
> string in all COBOL programs except for 1 or 2? So what they would
> like to do is search for a string in all but 1 or 2 of the COBOL
> programs in a PDS and they don't want to have to "select" the
> programs from the list since there are over 400 programs in the PDS.
>
> Thanks,
> Ron McCabe
> Mutual of Enumclaw
>
>
> Confidentiality Notice: This e- mail and all attachments may contain
> CONFIDENTIAL information and are meant solely for the intended
> recipient. It may contain controlled, privileged, or proprietary
> information that is protected under applicable law and shall not be
> disclosed to any unauthorized third party. If you are not the
> intended recipient, you are hereby notified that any unauthorized
> review, action, disclosure, distribution, or reproduction of any
> information contained in this e- mail and any attachments is
> strictly PROHIBITED. If you received this e- mail in error, please
> reply to the sender immediately stating that this transmission was
> misdirected, and delete or destroy all electronic and paper copies
> of this e-mail and attachments without disclosing the contents. This
> e- mail does not grant or assign rights of ownership in the
> proprietary subject matter herein, nor shall it be construed as a
> joint venture, partnership, teaming agreement, or any other formal
> business relationship.
>
> ----------------------------------------------------------------------
> 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
