View previous topic :: View next topic
|
Author |
Message |
arvindkumarbhardwaj
New User
Joined: 12 Jan 2007 Posts: 4 Location: bangalore
|
|
|
|
I have i have a requirement. I have a member name which i have to search in many pds say like 25 pds. How i can find in which pds the member is.I know how to to search string in pds but i have to search the member only not straing and print the PDS name.
plz help me with code.
plz seggest me any REXX tool or JCL for the same |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
The cynic in me sort of says HOMEWORK.
Here's a quick way of listing out the members of a PDS, so having this to work with you can wrap the rest of the code around it and get it to do what you want. It's based on a single PDS name, but I'm sure you'll be able to get around that.
Code: |
/* REXX */
PDS = "'your pds name'"
X=OUTTRAP(LIST.)
"LISTDS " PDS " MEM "
X=OUTTRAP(OFF)
SAY LIST.0 - 6
X = MSG('OFF')
DO A = 7 TO LIST.0
SAY LIST.A
END
|
|
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
I'm just sitting here thinking that the easiest way is to use ISPF option 3.4 to list all of the PDS's, then type "M member" on the COMMAND line. ISPF will then indicate the PDS or PDS's where "member" resides. |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
As I said, the cynic in me .....................
Why the need to print the dataset name I'm still working on.
Quote: |
plz seggest me any REXX tool or JCL for the same |
That's why I went for the REXX hint. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
STFM ( search the friendly web ) for ISRDDN
read the IBM web doc or if You are at 2.10 level of os/390 You should find
it in the ISPF manuals |
|
Back to top |
|
|
srebba Warnings : 1 New User
Joined: 26 Apr 2007 Posts: 37 Location: USA
|
|
|
|
Hi,
My mainframe support the below command
Go to 3.4
Please search(put the PDS name) with starting common name.
Eg. WOT.NIKE.* and press enter
U will be able to see all data set with the above stating names.
Now in the Commond line write MEMEBER PROG1 and enter.
This is will take you to the PDS wchich containt the above program PROG1
Please let me know once get it
Thank you
Sree |
|
Back to top |
|
|
mmwife
Super Moderator
Joined: 30 May 2003 Posts: 1592
|
|
|
|
Hi Arvind,
You can try this:
Code: |
//SEARCH EXEC PGM=ISRSUPC,
// PARM=(SRCHCMP,'ANYC')
//NEWDD DD DSN=PA.PROD.SRCLIB,DISP=SHR
// DD DSN=PA.TEST.SRCLIB1,DISP=SHR
// DD DSN=PA.TEST.SRCLIB2,DISP=SHR
// .
// .
// .
// DD DSN=PA.TEST.SRCLIBn,DISP=SHR
//OUTDD DD SYSOUT=*
//SYSIN DD *
SRCHFOR 'my-string'
SELECT mymod
// |
You may need quotes around mymod (I don't remember). |
|
Back to top |
|
|
kranthikumarb
Active User
Joined: 02 Jan 2009 Posts: 115 Location: Hyderabad
|
|
|
|
I really dont understand why do we need to explicitly write a JCL for this. (No offence meant).
One can search using 3.14 option using batch by selecting the execution mode as batch (option 2 ). However this will automatically create a JCL for you.
Please correct me if I am wrong |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Please note that this topic has been inactive for a year and a half. . .
It is best to reply to current, active topics |
|
Back to top |
|
|
Terry Heinze
JCL Moderator
Joined: 14 Jul 2008 Posts: 1249 Location: Richfield, MN, USA
|
|
|
|
Arvind is now 2 years older, may have had several employers since Jan, 2007, and might not even be reading this bulletin board anymore. |
|
Back to top |
|
|
|