Thanks Kolusu...I will pass this on to my developers and let them try it out.
Thanks,
Ron McCabe
Mutual of Enumclaw
-----Original Message-----
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Sri
h Kolusu
Sent: Wednesday, September 12, 2018 1:58 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Search for utility
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
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
