How about a combination of ISPF Edit macro programs.
Start with EDMACALL from Mark's MVS Utilities: http://mzelden.com/mvsutil.html
EDMACALL: This is a REXX exec that can be used to run an edit macro against all 
members of a PDS.
You would need to modify this exec to exclude the members that you don't want 
or have them passed as part of the arguments to the routine

Then write a simple edit macro to issue the find command.

I would also recommend checking out the CBT Tape (www.cbttape.org) for 
variations of the above. 

Al Nims
Systems Admin/Programmer III
UF Information Technology
East Campus 
P.O. Box 112050
Gainesville, FL. 32611
(e) [email protected] 
(p) (352) 273-1298

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf 
Of McCabe, Ron
Sent: Wednesday, September 12, 2018 2:53 PM
To: [email protected]
Subject: Search for utility

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 
[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

Reply via email to