View previous topic :: View next topic
|
Author |
Message |
RAMANUJ KUMAR
New User
Joined: 09 Feb 2013 Posts: 2 Location: INDIA
|
|
|
|
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 |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
|
|
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 |
|
|
mistah kurtz
Active User
Joined: 28 Jan 2012 Posts: 316 Location: Room: TREE(3). Hilbert's Hotel
|
|
|
|
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 |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007 Posts: 2455 Location: Hampshire, UK
|
|
|
|
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 |
|
|
RAMANUJ KUMAR
New User
Joined: 09 Feb 2013 Posts: 2 Location: INDIA
|
|
|
|
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 |
|
|
Pandora-Box
Global Moderator
Joined: 07 Sep 2006 Posts: 1592 Location: Andromeda Galaxy
|
|
|
|
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 |
|
|
Andy Robinson
New User
Joined: 04 Apr 2013 Posts: 5 Location: US
|
|
|
|
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 |
|
|
Akatsukami
Global Moderator
Joined: 03 Oct 2009 Posts: 1788 Location: Bloomington, IL
|
|
|
|
You need only PM him anything you desire, Andy |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
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 |
|
|
|