This advice applies to StarTool. I'm not sure it works for the shareware version on CBT, but I believe it will.
The product is designed to work on member lists. There are many ways to create a member list by pattern, but a simple method is to start with all members and then X(clude) those you don't want to search. Once the member list is built to your liking, issue the FIND command, which will display a panel with lots of options. If you put '*' in the Member field, just the displayed (unexcluded) members will be searched. Member or member group ==> * Find string ==> aaabbbccc Search columns ==> 1:256 AND Find string ==> AND Search columns ==> 1:256 OR Find string ==> OR Search columns ==> 1:256 Format for listing ==> NUM Find conditions ==> Display then take action => NO Maximum members to find ==> Maximum records input ==> Maximum records output ==> Maximum strings to find ==> Records to skip ==> String matches to skip ==> Action if found ==> MEMLIST Action if not found ==> EXCLUDE . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 323-715-0595 Mobile 626-543-6132 Office ⇐=== NEW robin...@sce.com -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of McCabe, Ron Sent: Wednesday, September 12, 2018 2:20 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: (External):Re: Search for utility 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
