IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Code for REXX tool to search list of components in a PDS


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
RAMANUJ KUMAR

New User


Joined: 09 Feb 2013
Posts: 2
Location: INDIA

PostPosted: Sun Jun 23, 2013 12:46 am
Reply with quote

Hi all,

I have an urgent requirement for my project. I need to prepare a REXX tool for the below requirement.
However, I don't have much knowledge about REXX. It'll be truly helpful if some one could provide the code
for this requirement.
----------------------------------------------------------
1.I've a PDS dataset having 20000 JCL members.
2.There is a list of around 500 jobs is present in a PS file.
3.A REXX tool is required which would search the PDS for each job name present in the PS file.
4.If the job is found in the PDS, it'll write the job name into one file (file1), if it's not found then it'll be written into a different file(file2).

Any reply, suggestions in this regard will be truly helpful

Thanks,
Ramanuj
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Sun Jun 23, 2013 4:01 am
Reply with quote

Your first problem is that this is a voluntary forum. People answer when, and if, they have the time and knowledge to do so. Stating that your need is "urgent" is not going to get you faster responses, and some people who otherwise would respond will not do so thinking the urgency means that when they can respond the need is over.

Your second problem is asking for code. If you ask for code on this forum, you should be prepared to pay the going rate (typically about 1000 US dollars or euros per day) for the professional work product of the professionals who respond on this forum. If you are not willing to pay that rate for code, then do not ask on this forum for code.

Your third problem is that similar issues to yours have been discussed a number of times on this forum -- have you searched it, or the Internet, or done anything else AT ALL to help yourself?
Back to top
View user's profile Send private message
mistah kurtz

Active User


Joined: 28 Jan 2012
Posts: 316
Location: Room: TREE(3). Hilbert's Hotel

PostPosted: Sun Jun 23, 2013 12:49 pm
Reply with quote

Why dont you use ISPF option 3.15, search- extended. It can produce a job with multiple search arguments, like this:
Code:
//SEARCH  EXEC PGM=ISRSUPC,           
//            PARM=(SRCHCMP,         
//            'FINDALL')             
//NEWDD  DD DSN=YOUR.PDS.JCL,   
//          DISP=SHR                 
//OUTDD  DD SYSOUT=*               
//SYSIN  DD *                         
SRCHFOR  'JCLMEM1'                   
SRCHFOR  'JCLMEM2'
..................
..................


You can do it in REXX by creating the SYSIN file and calling program ISRSUPC.

You can do it in the following steps:

1. Allocate all the input/output files
2. Read your input file - List of jobs present in your PS File.
3. Build the SYSIN card to search
4. Call the program ISRSUPC to invoke the search
5. Modify the output file to get the output in desired format.

Hope this helps.
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK

PostPosted: Sun Jun 23, 2013 6:36 pm
Reply with quote

Or you could get a listing of the members of each PDS into sequential dataset - one for each PDS - and use your sort product to JOIN the two files and create output files as required.

But if it is an urgent requirement to be done in rexx then give it to someone who knows rexx/ispf well. If it was given to you because your CV says ypou are proficient in rexx and ISPF then either your CV is wrong or your post is wrong.
Back to top
View user's profile Send private message
RAMANUJ KUMAR

New User


Joined: 09 Feb 2013
Posts: 2
Location: INDIA

PostPosted: Mon Jun 24, 2013 2:51 pm
Reply with quote

Hi,

Thanks for your replies.
Yes it's not necessary that this has to be prepared via REXX,but some automated tools are meant for.

The actual requirement is for a checkout after project implementation.

Just clarifying the whole requirement once again.
As part of the project-

1.I'll be deleting some 600 odd components from a PDS
2.After the deletion is complete,I wanted to do a checkout whether all the components are deleted successfully or not.
3.During the short checkout time after implementation,it'll be difficult to check individually for each component,whether it's present in the PDS or not.

So I wanted to come up with some sort of automated tool to check for all this 600+ components deletion from the PDS is successful or not.

One considerable solution has been correctly provided by Nic to have the listing of the PDS in a sequential dataset and then use Sort.

Any other efficient solution in this regard will be highly appreciated on my part.

Thanks
Back to top
View user's profile Send private message
Pandora-Box

Global Moderator


Joined: 07 Sep 2006
Posts: 1592
Location: Andromeda Galaxy

PostPosted: Mon Jun 24, 2013 3:08 pm
Reply with quote

Just to add on to what NIC said also set a return code if there are no matched members from what is there in PDS and what is being deleted
Back to top
View user's profile Send private message
Andy Robinson

New User


Joined: 04 Apr 2013
Posts: 5
Location: US

PostPosted: Tue Jun 25, 2013 9:48 pm
Reply with quote

As has been pointed out, ISRSUPC is probably the easiest way to do this. I've developed programs that specifically do almost exactly what you're trying to do, but since I'm not supposed to post code, or links, or my contact information, I guess you'll have to go looking for me on some site like, say, "some forum".
Actual forum name removed
Also...

Robert Sample wrote:
Your first problem [...]

Your second problem is asking for code. [...]

Your third problem [...]


None of these things are this person's problems. His first is that he needs to accomplish a task, doesn't know how, and is asking people who do know. The second problem is people who understand what he is trying to do but tell him what his problems are without helping in any way. For all the bandwidth wasted in telling him what his problems are, you can actually answer the question.
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1788
Location: Bloomington, IL

PostPosted: Tue Jun 25, 2013 10:15 pm
Reply with quote

You need only PM him anything you desire, Andy icon_razz.gif
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Tue Jun 25, 2013 10:18 pm
Reply with quote

Andy,

Quote:
but since I'm not supposed to post code, or links, or my contact information
If you took some time to actually look around, you would find there is a LOT of code posted (REXX, COBOL, Sort, Assembler, SAS, etc). Also many, many links. We remove contact information so there won't be so many spammers using the forum to propogate junk. If someone wants to ask you something personal, there is a PM (Private Message) feature for offline communication. If you want to give someone your contact info, we won't care (or even know about it).

If you want to complain about us and this forum, you should show enough courtesy to do it here - not elsewhere. And the name of that forum has been removed from your diatribe.

It appears hat you still do not understand what most of us "helpers" are trying to do. We do not want to just toss solutions at anyone who wants their work done for them. We want to help them learn and become independent and be more valuable to their employers/clients and have more confidence in themself. When one shows they have done work and are having problems, we make sure they have a working solution.

If you want to make positive contributions here, we'd surely welcome them. If all you want to do is be negative because this forum is not to your satisfaction, we will NOT force you to be here. . .

d
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
No new posts Search two or more word with FILEAID Compuware & Other Tools 15
No new posts run rexx code with jcl CLIST & REXX 15
Search our Forums:

Back to Top