Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

ISPF Searching a member of a PDS

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
Pradeebha

New User


Joined: 06 Jan 2006
Posts: 7

PostPosted: Fri Dec 15, 2006 10:55 am    Post subject: ISPF Searching a member of a PDS
Reply with quote

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
View user's profile Send private message

priyesh.agrawal

Senior Member


Joined: 28 Mar 2005
Posts: 1452
Location: Chicago, IL

PostPosted: Fri Dec 15, 2006 11:18 am    Post subject: Re: ISPF Search
Reply with quote

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
View user's profile Send private message
Pradeebha

New User


Joined: 06 Jan 2006
Posts: 7

PostPosted: Fri Dec 15, 2006 12:04 pm    Post subject:
Reply with quote

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
View user's profile Send private message
priyesh.agrawal

Senior Member


Joined: 28 Mar 2005
Posts: 1452
Location: Chicago, IL

PostPosted: Fri Dec 15, 2006 12:14 pm    Post subject: Re: ISPF Search
Reply with quote

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
View user's profile Send private message
mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1592

PostPosted: Tue Dec 26, 2006 1:28 am    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts saving your settings in ISPF. VintageReceiver TSO/ISPF 9 Wed Jul 26, 2017 6:42 pm
No new posts member list compare jzhardy TSO/ISPF 6 Fri May 12, 2017 3:18 pm
No new posts Browsing member from any PDS shiitiizz CLIST & REXX 7 Wed Mar 08, 2017 1:17 am
No new posts Customizing the ISPF HILITE Command Pedro TSO/ISPF 3 Fri Mar 03, 2017 11:49 pm
No new posts ISPF - How to come out of ISPF Panel parasmalik20 TSO/ISPF 5 Tue Feb 21, 2017 7:44 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us