View previous topic :: View next topic
|
Author |
Message |
Pradeebha
New User
Joined: 06 Jan 2006 Posts: 7
|
|
|
|
Hai,
For ex i have a list of 100 PS. I want to search it in a particular PDS .Is there any way to do it in single shot.
Regards,
Pradeebha |
|
Back to top |
|
|
priyesh.agrawal
Senior Member
Joined: 28 Mar 2005 Posts: 1448 Location: Chicago, IL
|
|
|
|
This ques comes in mind very first when we look at the job/proc library and want to find out something at a shot ... Anyway, one of the most popular post ...
Run 3.14 SUPERC option in Background Mode and you should be able to figure out answer yourself. Should be somethign like this.
Code: |
//SEARCH EXEC PGM=ISRSUPC,
// PARM=(SRCHCMP,'ANYC')
//NEWDD DD DSN=YOUR.INPUT.PDS,
// DISP=SHR
//OUTDD DD DSN=YOUR.OUTPUT.SEARCH.RESULT,
// DISP=(,CATLG,DELETE)
//SYSIN DD *
SRCHFOR 'STRING1',
SRCHFOR 'STRING2',
::
::
::
SRCHFOR 'STRING100'
// |
|
|
Back to top |
|
|
Pradeebha
New User
Joined: 06 Jan 2006 Posts: 7
|
|
|
|
Hai
I tried the JCL which you have given. I have a list of PS with me. I want to find how many PS are present in a particular PDS (in 1 PDS).
For Ex:
Let the PDS be userid.Work.JCL which contains around 200 PS.
I have the following list of PS:
COMPAREY
CMPARE
COMPAREX
I want to find whether the above 3 PS is present in userid.Work.JCL.If not the list of PS which is matching with the PDS.
Can you please tell a solution for the above problem.
Regards,
Pradeebha |
|
Back to top |
|
|
priyesh.agrawal
Senior Member
Joined: 28 Mar 2005 Posts: 1448 Location: Chicago, IL
|
|
|
|
Now you explain the problem much better.
Following TSO command would enlist all the member names for a given PDS. You can format a batch job to compare with your selective ones.
Code: |
TSO LISTDS 'PDSNAME.TOBE.SEARCHED' MEMBERS |
|
|
Back to top |
|
|
mmwife
Super Moderator
Joined: 30 May 2003 Posts: 1592
|
|
|
|
Here's a variation on Priyesh's 1st solution:
Create the JCJ as Priyesh showed, but with these changes:
//sysin dd *
srchfor '~'
select compare
select comparex
select comparey
/*
I used "~" because its rare and shouldn't be found. If any member can't be found you'll get a msg telling you so.
Since you have 100 members you won't want to type them into sysin, so try this:
In your jcl arrange the member names as below
Code: |
m..... select
oo.... compare
...... comparey
. .
. .
. .
oo.... comparez |
The select will get copied to all lines.
Code: |
m..... select
oo.... select compare
...... select comparey
. select .
. select .
. select .
oo.... select comparez |
|
|
Back to top |
|
|
|