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
Joined: 06 Jun 2008 Posts: 8344 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?
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.
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.
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.
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
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.
Joined: 23 Nov 2006 Posts: 19270 Location: Inside the Matrix
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. . .