Re: searching all members of a pds using wildcards

[Roger Bolan]

I'm sorry I'm late to this discussion, but I read the whole thread and was 
surprised that nobody suggested this.
In DSLIST in ISPF level 5.8 I can use the line command SFE to invoke 
SUPERC extended search-for.

Here are the screens: 
First enter the SFE line command next to the PDS: 
 .Menu  Options  View  Utilities  Compilers  Help 
 .  
 .  DSLIST - Data Sets Matched in list JCL 
 .  Command ===> 
 . 
 .  Command - Enter "/" to select action 
 .  
 .  sfe  BOLAN.MY.JCL 

Then give it the search string and options: 
.Menu  Functions  Confirm  Utilities  Help 
  . 
.  E MEMBER LIST Srchfor 
Options N . 
.  e   e .  
.  e Command ===>   e 
. 
.  e   e .  
.  e You are about to search the members of the 
data set(s) specified.   e . 
.  e Specify search string(s) and options and 
press ENTER to run the search. e . 
.  e Enter the END or the CANCEL command to cancel 
the search.   e . 
.  e  More: +  e .  
.  e   ==> aopprint  e . 
.  e   ==>   e . 
.  e   ==>   e . 
.  e   ==>   e . 
.  e   ==>   e . 
.  e   ==>   e . 
.  e   e .  
.  e Listing DSN: 'BOLAN.SRCHML.LIST'e .   
 
.  e   e .  
.  e Select Process Options with / Select Output 
Options with /e . 
.  eMixed Mode   / 
View output  e . 
.  e /  Any case Save output e .  
.  e /  Set EDIT FIND string / 
Filter list  e . 
.  e  F1=HelpF2=start   F3=Exit 
F7=BackwardF8=Forward e . 
.  e  F9=swapnext   F10=ActionsF12=Cancel  
   e . 
. 
DsM 
. 
.   F1=Help  F2=start F3=Exit F4=ASCII 
F5=Rfind F6=REFRESH. 
.   F7=UpF8=Down  F9=next F10=Left 
F11=RightF12=Cancel . 

Then you can see the listing for results: 
 
 VIEW   BOLAN.SRCHML.LIST  
 Command ===>  
 ** *** Top of 
Data 
 ==MSG> -Warning- The UNDO command is not available until you change  
 ==MSG>   your edit profile using the command RECOVERY ON.  
 01   ISRSUPC   -   MVS/PDF FILE/LINE/WORD/BYTE/SFOR COMPARE UTILITY- 
IS
 02MEMBER TOTALS SECTION   SRCH DSN: BOLAN.MY.JCL  

 03  
 04 MEMBER-SEARCHED LINES-FOUND   LINES-PROC  
 05  
 06 P65507C 16  
 07 P13862I219 

and, if you selected "filter list" as I did, when you back out of the 
listing, you
see just the members with hits: 
 
  .Menu  Functions  Confirm  Utilities  Help   . 
  . 
ss 
 . 
  .  DSLISTBOLAN.MY.JCL String(s) found  . 
  .  Command ===>  Scroll 
===> CSR   . 
  . Name Prompt   Size   Created  Changed  ID  
 . 
  .  _ P65507C  *Found   8  2008/12/16  2008/12/17 
18:04:28  BOLAN   . 
  .  _ P13862I2 *Found  14  2008/10/09  2008/10/14 
11:32:23  BOLAN   . 
  .**End**   . 
  .   . 


And if you want to search multiple PDS's, again start from DSLIST and 
enter the SRCHFOR command
on the command line: 
 .Menu  Options  View  Utilities  Compilers  Help  . 
 . 
ss 
 . 
 .  DSLIST - Data Sets Matched in list JCL 0 Members 
processed  . 
 .  Command ===> srchfor  Scroll 
===> CSR   . 
 .  . 
 .  Command - Enter "/" to select action  Message  Volume 
. 
 . 
--

Re: searching all members of a pds using wildcards

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>, on
11/30/2008
   at 07:07 PM, John McKown <[EMAIL PROTECTED]> said:

>>From my testing, the port of GNU grep will work on a PDS, but the standard
>IBM supplied grep will not.

"Standards are wonderful thing; everyone should have one of his very own."
(GM)

>Do you know if IBM grep
>will work with a PDS on later releases of z/OS? And, will IBM awk work,
>or will I need a port of GNU awk?

Don't know.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[John McKown]

On Sun, 30 Nov 2008, Shmuel Metz (Seymour J.) wrote:

> In <[EMAIL PROTECTED]>, on
> 11/18/2008
>at 03:42 PM, Jim McAlpine <[EMAIL PROTECTED]> said:
> 
> >Is there any way to achieve the above ie to search for 'abc*xyx' where *
> >can be any length in all members of a pds.
> 
> Any of awk, grep, PDS, StarTools.

>From my testing, the port of GNU grep will work on a PDS, but the standard
IBM supplied grep will not. This is with z/OS 1.8. Do you know if IBM grep
will work with a PDS on later releases of z/OS? And, will IBM awk work, or
will I need a port of GNU awk?

Oh, how I wish that IBM would standardize on the GNU versions of the UNIX 
utilities instead of their own (which come from ???).

-- 
Q: What do theoretical physicists drink beer from?
A: Ein Stein.

Maranatha!
John McKown

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[Shmuel Metz (Seymour J.)]

In <[EMAIL PROTECTED]>, on
11/18/2008
   at 03:42 PM, Jim McAlpine <[EMAIL PROTECTED]> said:

>Is there any way to achieve the above ie to search for 'abc*xyx' where *
>can be any length in all members of a pds.

Any of awk, grep, PDS, StarTools.
 
-- 
 Shmuel (Seymour J.) Metz, SysProg and JOAT
 ISO position; see  
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[Galambos, Robert]

Gee there goes another vendor. OPPS that me


File-AID MVS Search/update(3.6) can do this, with or without adding Boolean 
logic to the find (the standard find command) over multiple members of a PDS. 
No REXX coding needed.




 
Robert Galambos CIPP/C CIPP/IT  

Compuware Senior Technical Specialist 
IBM Certified Database Associate 
IBM Certified DB2 9 for z/OS Database Administration
Certified Information Privacy Professional/Canada
Certified Information Privacy Professional/Information Technology
   
[EMAIL PROTECTED]
 
Tel: +1 905 886 7000 
Toll Free: +1 800 263 7189
Fax: +1 905 886 7023
Quebec: +1 877-281-1888 
  

The contents of this e-mail are intended for the named addressee only. It 
contains information that may be confidential. Unless you are the named 
addressee or an authorized designee, you may not copy or use it, or disclose it 
to anyone else. If you received it in error please notify us immediately and 
then destroy it.



 

 

 

 We make IT rock around the world



 "Service in every product..."

 Les renseignements contenus dans le présent message électronique sont 
confidentiels et concernent exclusivement le(s) destinataire(s) désigné(s). Il 
est strictement interdit de distribuer ou de copier ce message. Si vous avez 
reçu ce message par erreur, veuillez répondre par courriel à l'expéditeur et 
effacer ou détruire toutes les copies du présent message.

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Jim 
McAlpine
Sent: Tuesday, November 18, 2008 10:42 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: searching all members of a pds using wildcards

Is there any way to achieve the above ie to search for 'abc*xyx' where * can be 
any length in all members of a pds.

Jim McAlpine

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
[EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at 
http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[Mark Zelden]

On Wed, 19 Nov 2008 09:07:57 +, Jim McAlpine <[EMAIL PROTECTED]> wrote:

>On Tue, Nov 18, 2008 at 3:42 PM, Jim McAlpine <[EMAIL PROTECTED]>wrote:
>
>> Is there any way to achieve the above ie to search for 'abc*xyx' where *
>> can be any length in all members of a pds.
>>
>> Jim McAlpine
>>
>
>I do have an edit macro that allows me to search for a string including
>wildcards.  Is there an easy way to apply this to ALL members of a pds.
>

Yes.  See EDMACALL on my web site (URL below) or CBT file 434.

Mark
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:[EMAIL PROTECTED]
z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[Elardus Engelbrecht]

Tom Marchant wrote:

>and it will not find
>SO HKJHKJ EK

True. In that case, do this:

Use =3.15 (Extended Search Function)

Fill in 'Search DS Name'.
Leave Search strings blank in ASIS and CAPS fields.
Specify in 'Statements Dsn' where your search argument is.

SRCHFOR  'SO' 
SRCHFORC 'EK',+ 

This will find this in member 'TOM':

TOM
  
 1  SOEK  
 2   SO1XXEK   
 3  SOAY YYEK 
 4   XXXSO HKJHKJ EK  
 5  SOBZ Z A A A A AEK
 6  SO   Z A A A A  EK

Batch version (also from =3.15):

//SEARCH  EXEC PGM=ISRSUPC,   
//PARM=(SRCHCMP,  
//'') 
//NEWDD  DD DISP=SHR,DSN=,  
//OUTDD  DD SYSOUT=?
//SYSIN  DD * 
 SRCHFOR 'SO'  
 SRCHFORC 'EK',+   

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[Tom Marchant]

On Wed, 19 Nov 2008 03:22:40 -0600, Elardus Engelbrecht wrote:

>Jim McAlpine  wrote:
>>> Is there any way to achieve the above ie to search for 'abc*xyx' where *
>>> can be any length in all members of a pds.
>
>Yes!
>
>Try SRCHFOR on =3.4 and use this:
>
> PREFIX
> SUFFIX C
>
>My example:
> ==> SO PREFIX
> ==> EK SUFFIX C
>
>Example Search result:
>
>YXABC
>
> 1  SOEK
> 2  SO1EK
> 3  SOAEK
> 4  SOBBEK
> 5  SOCCEK
> 6  SOEEK

But that will also find:
FFEKSOXX   
FF1XXEK SO1
FFAYYYEK SOAYYYXX  
FFBZZZEK SOBZZZXX  
FFC$$$EK   SOC$$$XX

and it will not find 
SO HKJHKJ EK

-- 
Tom Marchant

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[Don Leahy]

SimpList also has a facility to launch an edit macro across a PDS.

I am a customer, not a vendor, so I am allowed to say that.  :-)

On Wed, Nov 19, 2008 at 7:19 AM, John P Kalinich <[EMAIL PROTECTED]> wrote:
> Jim McAlpine of the IBM Mainframe Discussion List 
> wrote on 11/19/2008 03:07:57 AM:
>
>> On Tue, Nov 18, 2008 at 3:42 PM, Jim McAlpine
> <[EMAIL PROTECTED]>wrote:
>>
>> > Is there any way to achieve the above ie to search for 'abc*xyx' where
> *
>> > can be any length in all members of a pds.
>> >
>>
>> I do have an edit macro that allows me to search for a string including
>> wildcards.  Is there an easy way to apply this to ALL members of a pds.
>
> Lionel D. has an EDITALL macro on the CBT tape.  And I think Mark Z. has
> one on his web site.
>
> Regards,.
> John K
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
>
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[Elardus Engelbrecht]

Walt Farrell wrote:
>It's fairly simple to write a REXX exec that will use LMMLIST to get the list 
>of 
PDS members, at which point the exec can loop through the list and invoke 
ISPF Edit on each member, passing a macro name as the imacro. The macro 
can either display the hit if it finds one, or cancel out of the member if it 
doesn't find it, and the outer exec will then proceed to the next member in the 
list.

You can also use PARSE or just use EDIT macros (prefixes and suffixes are 
also supported.) Look in ISPF Edit and Edit Macros for more fun editing.

Jim McAlpine wrote:

>Thanks but I managed to get SRCHFOR to do what I want thanks to tips from
Elardus.  I hadn't realised how powerful a utility it was.  Just goes to show 
what RTFM can do.

It is a big lion pleasure! ;-D

Could you use Don Leahy's suggestion? Just curious...

I see also OMVS solutions, REXX solutions and CBT and Vendor solutions in 
this thread. So little time to research all of them and educate my 
colleagues... 


>Thanks to all for their suggestions.

IBM-MAIN is great indeed... :)

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[John P Kalinich]

Jim McAlpine of the IBM Mainframe Discussion List 
wrote on 11/19/2008 03:07:57 AM:

> On Tue, Nov 18, 2008 at 3:42 PM, Jim McAlpine
<[EMAIL PROTECTED]>wrote:
>
> > Is there any way to achieve the above ie to search for 'abc*xyx' where
*
> > can be any length in all members of a pds.
> >
>
> I do have an edit macro that allows me to search for a string including
> wildcards.  Is there an easy way to apply this to ALL members of a pds.

Lionel D. has an EDITALL macro on the CBT tape.  And I think Mark Z. has
one on his web site.

Regards,.
John K

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[Jim McAlpine]

On Wed, Nov 19, 2008 at 11:10 AM, Walt Farrell <[EMAIL PROTECTED]> wrote:

>
> It's fairly simple to write a REXX exec that will use LMMLIST to get the
> list of PDS members, at which point the exec can loop through the list and
> invoke ISPF Edit on each member, passing a macro name as the imacro.  The
> macro can either display the hit if it finds one, or cancel out of the
> member if it doesn't find it, and the outer exec will then proceed to the
> next member in the list.
>
> --
>  Walt
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
>
>

Thanks but I managed to get SRCHFOR to do what I want thanks to tips from
Elardus.  I hadn't realised how powerful a utility it was.  Just goes to
show what RTFM can do.

Thanks to all for their suggestions.

Jim McAlpine

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[Walt Farrell]

On Wed, 19 Nov 2008 09:07:57 +, Jim McAlpine <[EMAIL PROTECTED]> wrote:

>On Tue, Nov 18, 2008 at 3:42 PM, Jim McAlpine <[EMAIL PROTECTED]>wrote:
>
>> Is there any way to achieve the above ie to search for 'abc*xyx' where *
>> can be any length in all members of a pds.
>>
>> Jim McAlpine
>>
>
>I do have an edit macro that allows me to search for a string including
>wildcards.  Is there an easy way to apply this to ALL members of a pds.

It's fairly simple to write a REXX exec that will use LMMLIST to get the
list of PDS members, at which point the exec can loop through the list and
invoke ISPF Edit on each member, passing a macro name as the imacro.  The
macro can either display the hit if it finds one, or cancel out of the
member if it doesn't find it, and the outer exec will then proceed to the
next member in the list.

-- 
  Walt

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[Elardus Engelbrecht]

Jim McAlpine wrote:

>> Elardus,  I'm missing something here.  What is YXABC and YXXABC above.

Dang!  ;-D >

That is two example member names... 

I intended to have them renamed YXABC to MEMBER1 and YXXABC to 
MEMBER2 for example before I post my previous answer.

Jammer! / Sorry!

Now, I have a headache... :-D

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[Jim McAlpine]

On Wed, Nov 19, 2008 at 9:22 AM, Elardus Engelbrecht <
[EMAIL PROTECTED]> wrote:

>
> Try SRCHFOR on =3.4 and use this:
>
>  PREFIX
>  SUFFIX C
>
> My example:
>  ==> SO PREFIX
>  ==> EK SUFFIX C
>
> Example Search result:
>
> YXABC
>
> 1  SOEK
> 2  SO1EK
> 3  SOAEK
> 4  SOBBEK
> 5  SOCCEK
> 6  SOEEK
>
> YXXABC
>
> 1  SOEK
> 2  SO1XXEK
> 3  SOAYYYEK
> 4  SOBZZZEK
> 5  SOC$$$EK
> 6  SOE#EK
>
> HTH!
>
> Groete / Greetings
> Elardus Engelbrecht
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
>
> Elardus,  I'm missing something here.  What is YXABC and YXXABC above.

Jim McAlpine

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[Elardus Engelbrecht]

Jim McAlpine  wrote:
>> Is there any way to achieve the above ie to search for 'abc*xyx' where *
>> can be any length in all members of a pds.

Yes!

Try SRCHFOR on =3.4 and use this:

 PREFIX  
 SUFFIX C

My example:
 ==> SO PREFIX  
 ==> EK SUFFIX C
   
Example Search result:

YXABC 
  
 1  SOEK  
 2  SO1EK 
 3  SOAEK 
 4  SOBBEK
 5  SOCCEK
 6  SOEEK 
  
YXXABC
  
 1  SOEK  
 2  SO1XXEK   
 3  SOAYYYEK  
 4  SOBZZZEK  
 5  SOC$$$EK  
 6  SOE#EK

HTH!

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[Jim McAlpine]

On Tue, Nov 18, 2008 at 3:42 PM, Jim McAlpine <[EMAIL PROTECTED]>wrote:

> Is there any way to achieve the above ie to search for 'abc*xyx' where *
> can be any length in all members of a pds.
>
> Jim McAlpine
>

I do have an edit macro that allows me to search for a string including
wildcards.  Is there an easy way to apply this to ALL members of a pds.

Jim McAlpine

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[Jim McAlpine]

On Tue, Nov 18, 2008 at 4:53 PM, Don Leahy <[EMAIL PROTECTED]> wrote:

> Have you tried SRCHFOR?
>
> //SEARCH  EXEC PGM=ISRSUPC,
> //PARM=(SRCHCMP,
> //'ANYC')
> //NEWDD  DD DSN=DG53.LIBROPRD.EXPRTPDS,
> //  DISP=SHR
> //OUTDD  DD SYSOUT=(*)
> //SYSIN  DD *
> SRCHFOR  'ABC',P
> SRCHFORC 'XYX',S
> /*
>
> This will return records where it finds a Prefix = ABC and a Suffix =
> XYX.  This may not be exactly what you want.
>
>
>
Don, thanks for that, it may well be enough.  I'll give it a try.

Jim McAlpine

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[Jim McAlpine]

On Tue, Nov 18, 2008 at 6:56 PM, Diehl, Gary <[EMAIL PROTECTED]>wrote:

> Jim,
>
> I'm trying to understand what you want.  I took some existing code I
> wrote ages ago in REXX and modified it to do this function:
>
> "Search all members of a PDS for a string of text where the member name
> matches both a PRE and SUF"
>
> Gary, thanks for that but what I want is to search ALL memebers of a pds
for a string containing a wildcard eg 'abc*xyz'  where the * can be any
character or characters.

Jim McAlpine

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[Jim McAlpine]

On Tue, Nov 18, 2008 at 5:53 PM, Dave Salt <[EMAIL PROTECTED]> wrote:

> >> On Tue, 18 Nov 2008 15:42:07 +, Jim McAlpine
> >> wrote:
> >>
> >>>Is there any way to achieve the above ie to search for 'abc*xyx' where *
> >> can be any length in all members of a pds.
>
>
> If you have SimpList installed there are several ways to do what you want.
> The first is to use the SEEK command to search all of the members displayed
> in a list; e.g. 'SEEK ABC PREFIX ALL' would give you a list of all the
> members that contain ABC as a prefix. You could then enter 'SEEK XYZ SUFFIX
> ALL' to further subset the member list. The resulting list would only
> display those members that contain both strings. From there you could run
> more SEEK (or HIDE) commands to further limit which members appear in the
> list.
>
> No Simplist I'm afraid.

Jim McAlpine

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[Tony Harminc]

2008/11/18 Mark Zelden <[EMAIL PROTECTED]>:

> Since you are the Simplist vendor I assume you must know that the
> people you are responding to have Simplist.  If you know they don't,
> then prefacing all your responses with "if you have simplist" is nothing
> more than advertising.I'd really hate it if all the vendors took your
> lead and responded this way to questions.  The archives would be
> full of advise that most people couldn't use.

There's another aspect to vendor posting that in the past has tempered
my comments. For a variety of reasons, some of our customers have
explicit contracts with us to the effect that we may not use their
name in connection with our product(s), either in any case at all, or
more often, without advance permission (which is not always given). I
obviously don't keep all such customer agreements in my head, nor are
current versions casually available to me. So if I see a post from
someone who I happen to know works for one of our customers, it may
not be appropriate for me to say on a forum like this "since you have
our product X, you could do so and so". So I can either send private
mail to the person, or I can post publicly in a way that doesn't
announce to the world that they have our product X, which is what Dave
did. The latter at least has the advantage of telling other customers
who have our product X how to do the same thing, rather then
encouraging many private emails each seen by just one person. And if
the customer wants to say on the list that they do have product X,
then the conversation can continue in public, if there's more to say.

Sure, there's also the possibility of getting our product name out
there in public, but in my experience it's rare to get a product
inquiry, let alone sale, from such a post, and it certainly isn't a
big part of product marketing.

Tony H.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[Dave Salt]

Mark,
 
I appreciate your input. The truth is I try to respond to questions whenever 
I'm able to, regardless of whether it has anything to do with SimpList or not. 
For example, I answered another question today about how to scroll an ISPF 
table to display the next 'section' of information, and my answer had nothing 
to do with SimpList.
 
If I can answer a question, then I'll try to answer it. If the answer happens 
to involve SimpList, I will say that SimpList can do it. Quite often I have no 
idea who the person works for or whether they have access to SimpList or not. 
For example, I have no idea if Mark Pace  works for a company that has SimpList 
or not. But even if he doesn't, it may still be valuable to him to know that 
there's a product that can do what he wants.
 
BTW, I'm not the only person who has mentioned products they're associated 
with. Just today, on this same thread about searching a PDS, there has been at 
least one other plug for a product the person is associated with. I don't 
believe anyone said anything negative about it, and frankly I don't believe 
they should. As long as the person is trying to be helpful and offer a 
solution, then in my personal opinion there's nothing wrong with it.
 
I know it's a fine line and I try to walk it carefully. Sometime I respond to 
people off-list if I think my advise might be crossing that line. 
 
Dave Salt

SimpList(tm) - try it; you'll get it!   
http://www.mackinney.com/products/SIM/simplist.htm   




> Date: Tue, 18 Nov 2008 14:59:56 -0600
> From: [EMAIL PROTECTED]
> Subject: Re: searching all members of a pds using wildcards
> To: IBM-MAIN@BAMA.UA.EDU
> 
> On Tue, 18 Nov 2008 12:53:49 -0500, Dave Salt  wrote:
> 
>>>> On Tue, 18 Nov 2008 15:42:07 +, Jim McAlpine
>>>> wrote:
>>>>
>>>>>Is there any way to achieve the above ie to search for 'abc*xyx' where *
>>>> can be any length in all members of a pds.
>>
>>
>>If you have SimpList installed there are several ways to do what you want. 
> 
> 
> 
> Does the OP have simplist? 
> 
> On Tue, 18 Nov 2008 10:54:42 -0500, Mark Pace  wrote:
> 
>>> Any ideas on how or why an initial command would be on the command line?
>>>
> 
> 
>>If you have SimpList ...
> 
> Does the OP have simplist? 
> 
> Dave,
> 
> Since you are the Simplist vendor I assume you must know that the
> people you are responding to have Simplist. If you know they don't,
> then prefacing all your responses with "if you have simplist" is nothing
> more than advertising. I'd really hate it if all the vendors took your
> lead and responded this way to questions. The archives would be
> full of advise that most people couldn't use. 
> 
> Sorry if this offends you. And PLEASE - let's not start a "let's bash Dave"
> thread. 
> 
> Mark
> --
> Mark Zelden
> Sr. Software and Systems Architect - z/OS Team Lead
> Zurich North America / Farmers Insurance Group - ZFUS G-ITO
> mailto:[EMAIL PROTECTED]
> z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/
> Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
> 
_

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[Mark Zelden]

On Tue, 18 Nov 2008 12:53:49 -0500, Dave Salt <[EMAIL PROTECTED]> wrote:

>>> On Tue, 18 Nov 2008 15:42:07 +, Jim McAlpine
>>> wrote:
>>>
Is there any way to achieve the above ie to search for 'abc*xyx' where *
>>> can be any length in all members of a pds.
>
>
>If you have SimpList installed there are several ways to do what you want. 



Does the OP have simplist? 

On Tue, 18 Nov 2008 10:54:42 -0500, Mark Pace <[EMAIL PROTECTED]> wrote:

>> Any ideas on how or why an initial command would be on the command line?
>>


>If you have SimpList ...

Does the OP have simplist? 

Dave,

Since you are the Simplist vendor I assume you must know that the
people you are responding to have Simplist.  If you know they don't,
then prefacing all your responses with "if you have simplist" is nothing
more than advertising.I'd really hate it if all the vendors took your
lead and responded this way to questions.  The archives would be
full of advise that most people couldn't use.   

Sorry if this offends you.  And PLEASE - let's not start a "let's bash Dave"
thread.  

Mark
--
Mark Zelden
Sr. Software and Systems Architect - z/OS Team Lead
Zurich North America / Farmers Insurance Group - ZFUS G-ITO
mailto:[EMAIL PROTECTED]
z/OS Systems Programming expert at http://expertanswercenter.techtarget.com/
Mark's MVS Utilities: http://home.flash.net/~mzelden/mvsutil.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[King, Jeffrey E]

Jim - 

The CA-PDSMAN String Scan and Replace facility (PDSM18) allows you to do
what you've described. You can specify wildcard character or pattern
characters in both your target and replacement (if desired) string
specifications.

The facility executes online via the EZYEDIT ISPF Productivity Platform,
using ISPF panels, or in batch mode. You can also scan for strings
across all members of multiple data sets.

Regards,


Jeffrey King
CA
PDSMAN Principle Software Engineer
Columbus, Ohio USA
tel: +1 614 785 2743 or x62743
[EMAIL PROTECTED]
 

-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Jim McAlpine
Sent: Tuesday, November 18, 2008 10:42 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: searching all members of a pds using wildcards

Is there any way to achieve the above ie to search for 'abc*xyx' where *
can be any length in all members of a pds.

Jim McAlpine

--
For IBM-MAIN subscribe / signoff / archive access instructions, send
email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search
the archives at http://bama.ua.edu/archives/ibm-main.html

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[Diehl, Gary]

Looks like it didn't come through quite right.  The first few lines of
REXX got concatenated somehow after I hit SEND.  They should be:

/* SEARCH A PDS WITH MEMBER NAME WITH PDSPRE PREFIX, PDSSUF SUFFIX, FOR
FINDSTR*/

TRACE O

ARG PDSDSN "PRE(" PDSPRE ")" "SUF(" PDSSUF ")" "FIND(" FINDSTR ")" .

PDSDSN = STRIP(PDSDSN)

Gary Diehl
Systems Administration
"One machine can do the work of fifty ordinary people. No machine can do
the work of one extraordinary person." -Elbert Hubbard

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[Diehl, Gary]

Jim,

I'm trying to understand what you want.  I took some existing code I
wrote ages ago in REXX and modified it to do this function:

"Search all members of a PDS for a string of text where the member name
matches both a PRE and SUF"

I hope this is what you were looking for, I'm not sure I understood your
intent from your email.  It's in native TSO REXX, called from a JCL step
in batch.  This example looks for all JCL comment lines in
MY.PDS.LIBRARY by calling the SRCHPDS member of REXX library
WHERE.YOU.PUT.YOUR.SRCHPDS.REXX :

//* THIS JOB WILL SEARCH PDS LIBRARIES FOR DATA
//* THIS ONE ALLOWS MEMBER NAME PATTERNS WITH A PREFIX AND SUFFIX
//*
//SRCHPDS  EXECPGM=IKJEFT01
//SYSTSPRT DD SYSOUT=*
//SYSEXEC  DD DSN=WHERE.YOU.PUT.YOUR.SRCHPDS.REXX,DISP=SHR
//SYSTSIN  DD *
 SRCHPDS MY.PDS.LIBRARY PRE(ABC) SUF(XYX) FIND(//*)

/* REXX - SRCHPDS MEMBER */
/* SEARCH A PDS WITH MEMBER NAME WITH PDSPRE PREFIX, PDSSUF SUFFIX, FOR
FINDSTR*/
TRACE O
ARG PDSDSN "PRE(" PDSPRE ")" "SUF(" PDSSUF ")" "FIND(" FINDSTR ")" .
PDSDSN = STRIP(PDSDSN)
PRELEN = LENGTH(PDSPRE)
SUFLEN = LENGTH(PDSSUF)
IF LISTDSI("'"PDSDSN"'") = 0 & SYSDSORG = 'PO' THEN
DO
 CALL OUTTRAP 'LDS.'
 "LISTDS '"PDSDSN"' MEMBERS"
 CALL OUTTRAP 'OFF'
END
ELSE DO
 SAY 'LISTDSI FUNCTION FAILED'
 EXIT
END

DO MBR = 7 TO LDS.0
  LDS.MBR = STRIP(LDS.MBR)
  IF LEFT(LDS.MBR,PRELEN) = PDSPRE & RIGHT(LDS.MBR,SUFLEN) = PDSSUF THEN
  DO /* MEMBER NAME MATCHED PREFIX AND SUFFIX, SEARCH IT */
   "ALLOC F(DD1) DA('"PDSDSN"("LDS.MBR")') SHR REUSE"
   "EXECIO * DISKR DD1 (FINIS STEM LINES."
   SAY 'SEARCHING MEMBER' LDS.MBR /* COMMENT OUT IF YOU DONT NEED THIS
*/
   X = 0 /*ZERO FIND COUNT*/
   DO Z = 1 TO LINES.0
 IF POS(FINDSTR,LINES.Z) > 0 THEN
 DO
  SAY LINES.Z /*REPORT MATCHING LINE*/
  X = X + 1   /*ACCUMULATE FIND COUNT FOR CURRENT MEMBER*/
 END
   END Z
   IF X > 0 THEN SAY X" LINE(S) CONTAINED '"FINDSTR"' IN MEMBER "LDS.MBR
   "FREE F(DD1)"
   DROP LINES.
  END
END
EXIT


Hope this helps.

Best wishes,

Gary Diehl
Systems Administration
"One machine can do the work of fifty ordinary people. No machine can do
the work of one extraordinary person." -Elbert Hubbard

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[Dave Salt]

>> On Tue, 18 Nov 2008 15:42:07 +, Jim McAlpine 
>> wrote:
>>
>>>Is there any way to achieve the above ie to search for 'abc*xyx' where *
>> can be any length in all members of a pds.

 
If you have SimpList installed there are several ways to do what you want. The 
first is to use the SEEK command to search all of the members displayed in a 
list; e.g. 'SEEK ABC PREFIX ALL' would give you a list of all the members that 
contain ABC as a prefix. You could then enter 'SEEK XYZ SUFFIX ALL' to further 
subset the member list. The resulting list would only display those members 
that contain both strings. From there you could run more SEEK (or HIDE) 
commands to further limit which members appear in the list.
 
A second option is to create an edit macro that searches for (or changes) the 
strings you're interested in. You can easily apply a macro to some or all of 
the members in a list by simply selecting member(s) using function 'O' (macrO). 
For example, you could apply a macro to every member that begins with 'PGM' by 
simply entering 'O PGM*' on the member list command line. Note that by using a 
macro you have more control, and could ensure 'ABC' and 'XYZ' are part of the 
same string. 
 
A third option is to write a user-defined function (which is similar to a macro 
except that it doesn't have to open members for edit). For example, your 
function could use EXECIO to read a member (whose name would be passed to it by 
SimpList), and determine if the member contains the string(s) you're looking 
for. If so, it could VPUT a variable that tells SimpList what value you want to 
appear in the user-data area (i.e. the 8 character field that appears just 
after each name in a member list). For example, you could set the value to 
'FOUND' or 'FOUND-3' or 'RC=0' (etc). If the member doesn't contain what you're 
looking for, you could optionally VPUT a value that tells SimpList what line 
command to use to reselect the member; e.g. where line command 'X' would cause 
the member to be eXcluded from the list. To execute your user-defined function 
(e.g. function '1'), you would simply enter '1 pattern' on any member list 
command line; e.g. '1 *' would apply your function to every member in a list. 
What you would then see is a list containing only those members that met your 
selection criteria (with the user-data area set to whatever value you want to 
appear next to each member), and all of the other members would be excluded 
from the list.
 
HTH,   

Dave Salt

SimpList(tm) - try it; you'll get it!   
http://www.mackinney.com/products/SIM/simplist.htm   
_

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[Don Leahy]

Have you tried SRCHFOR?

//SEARCH  EXEC PGM=ISRSUPC,
//PARM=(SRCHCMP,
//'ANYC')
//NEWDD  DD DSN=DG53.LIBROPRD.EXPRTPDS,
//  DISP=SHR
//OUTDD  DD SYSOUT=(*)
//SYSIN  DD *
SRCHFOR  'ABC',P
SRCHFORC 'XYX',S
/*

This will return records where it finds a Prefix = ABC and a Suffix =
XYX.  This may not be exactly what you want.

On Tue, Nov 18, 2008 at 10:42 AM, Jim McAlpine <[EMAIL PROTECTED]> wrote:
> Is there any way to achieve the above ie to search for 'abc*xyx' where * can
> be any length in all members of a pds.
>
> Jim McAlpine
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
>
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[Lionel B Dyck]

Searching all members of a PDS can be done using any of several vendor 
products (startools, fileaid, ...) and then there are free tools - check 
out the PDS command on the CBT Tape.

You could also write a very simple rexx exec to do what you're looking 
for.  The simple logic would be:

get a list of members (listd dsname mem)
then alloc, read (execio)
and then search

hope this helps

Lionel B. Dyck, Consultant/Specialist 
Enterprise Platform Services, Mainframe Engineering 
KP-IT Enterprise Engineering 
925-926-5332 (8-473-5332) | E-Mail: [EMAIL PROTECTED] 
AIM: lbdyck | Yahoo IM: lbdyck 
Kaiser Service Credo: "Our cause is health. Our passion is service. We're 
here to make lives better." 

I never guess. It is a capital mistake to theorize before one has data. 
Insensibly one begins to twist facts to suit theories, instead of theories 
to suit facts. 
- Sir Arthur Conan Doyle 

NOTICE TO RECIPIENT: If you are not the intended recipient of this e-mail, 
you are prohibited from sharing, copying, or otherwise using or disclosing 
its contents. If you have received this e-mail in error, please notify the 
sender immediately by reply e-mail and permanently delete this e-mail and 
any attachments without reading, forwarding or saving them. Thank you. 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[John McKown]

On Tue, 18 Nov 2008 16:36:25 +, Jim McAlpine <[EMAIL PROTECTED]> wrote:

>On Tue, Nov 18, 2008 at 3:52 PM, John McKown <[EMAIL PROTECTED]> wrote:
>

>> I know of a way, but only __IF__ you have installed the GNU "grep" program
>> from the IBM site:
>>
>> http://www-03.ibm.com/servers/eserver/zseries/zos/unix/bpxa1ty1.html
>>
>> I use DTLSPAWN from Dovetailed Technologies, but you could use BPXBATCH to
>> run it as well. I installed GNU grep in /usr/local/bin. The JCL I use is:
>>
>> //EX1 EXEC DTLSPAWN
>> //STDIN DD *
>> set -x
>> /usr/local/bin/egrep -r "abc.*xyz" \
>> "//'DCHPN.ENDEVOR.PROD.SRCLIB'"
>> //
>>
>> The ".*" says to match any number (0+) of arbitrary characters.
>>
>> --
>> John
>>
>>
>Thanks for that but I was hoping for a native MVS solution.  I've decided
>that for the majority of my requirement the wildcard value can be fixed
>length.  Does that make it easier.
>
>Jim McAlpine

Dude!

z/OS UNIX is NATIVE! 


--
John

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[Jim McAlpine]

On Tue, Nov 18, 2008 at 3:52 PM, John McKown <[EMAIL PROTECTED]> wrote:

> On Tue, 18 Nov 2008 15:42:07 +, Jim McAlpine <[EMAIL PROTECTED]>
> wrote:
>
> >Is there any way to achieve the above ie to search for 'abc*xyx' where *
> can
> >be any length in all members of a pds.
> >
> >Jim McAlpine
> >
>
> I know of a way, but only __IF__ you have installed the GNU "grep" program
> from the IBM site:
>
> http://www-03.ibm.com/servers/eserver/zseries/zos/unix/bpxa1ty1.html
>
> I use DTLSPAWN from Dovetailed Technologies, but you could use BPXBATCH to
> run it as well. I installed GNU grep in /usr/local/bin. The JCL I use is:
>
> //EX1 EXEC DTLSPAWN
> //STDIN DD *
> set -x
> /usr/local/bin/egrep -r "abc.*xyz" \
> "//'DCHPN.ENDEVOR.PROD.SRCLIB'"
> //
>
> The ".*" says to match any number (0+) of arbitrary characters.
>
> --
> John
>
>
Thanks for that but I was hoping for a native MVS solution.  I've decided
that for the majority of my requirement the wildcard value can be fixed
length.  Does that make it easier.

Jim McAlpine

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[Paul Gilmartin]

On Tue, 18 Nov 2008 09:52:46 -0600, John McKown wrote:
>
>>Is there any way to achieve the above ie to search for 'abc*xyx' where * can
>>be any length in all members of a pds.
>
>I know of a way, but only __IF__ you have installed the GNU "grep" program
>from the IBM site:
>
>http://www-03.ibm.com/servers/eserver/zseries/zos/unix/bpxa1ty1.html
>
Or, mount the PDS via NFS on any UNIX system and use practically any
grep.  I do this routinely.

It should even be possible to mount the PDS on z/OS Unix itself;
others report success at this.  Our sysprog has never succceded
(in fact, he doesn't understand the rationale for the request),
and I have not pressed it as urgent.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[Ed Finnell]

 
In a message dated 11/18/2008 9:42:16 A.M. Central Standard Time,  
[EMAIL PROTECTED] writes:

Is there any way to achieve the above ie to search for 'abc*xyx' where  * can
be any length in all members of a pds.


>>
Maybe a macro to 1)x all 2)find all '&pre'  prefix 3)find all '&suf' suffix 
nx 





**Get the Moviefone Toolbar. Showtimes, theaters, movie news & 
more!(http://pr.atwola.com/promoclk/10075x1212774565x1200812037/aol?redir=htt
p://toolbar.aol.com/moviefone/download.html?ncid=emlcntusdown0001)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Re: searching all members of a pds using wildcards

[John McKown]

On Tue, 18 Nov 2008 15:42:07 +, Jim McAlpine <[EMAIL PROTECTED]> wrote:

>Is there any way to achieve the above ie to search for 'abc*xyx' where * can
>be any length in all members of a pds.
>
>Jim McAlpine
>

I know of a way, but only __IF__ you have installed the GNU "grep" program
from the IBM site:

http://www-03.ibm.com/servers/eserver/zseries/zos/unix/bpxa1ty1.html

I use DTLSPAWN from Dovetailed Technologies, but you could use BPXBATCH to
run it as well. I installed GNU grep in /usr/local/bin. The JCL I use is:

//EX1 EXEC DTLSPAWN
//STDIN DD *
set -x
/usr/local/bin/egrep -r "abc.*xyz" \
"//'DCHPN.ENDEVOR.PROD.SRCLIB'"
//

The ".*" says to match any number (0+) of arbitrary characters.

--
John

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html