|
|
| Author |
Message |
dick scherrer
Global Moderator
Joined: 23 Nov 2006
Posts: 7505
Location: 221 B Baker St
|
|
|
|
Hello,
| Quote: |
| I guess it's working. my problem not solved 100% |
If you take some time and show good examples of what you "have" and what you "want" your success rate will get closer to 100%.
You have provided very little to work with. |
|
| Back to top |
|
 |
References
|
 Posted: Thu Feb 28, 2008 8:26 pm Post subject: Re: |
|
|
|
|
cappucino
New User
Joined: 26 Nov 2007
Posts: 3
Location: chennai
|
|
|
|
Dear friends, I have a requirement in Rexx. I need to read all members in a PDS which is starting with R and the member should be of 4 characters only.(e.g., RAAB, RAAC, etc.,) And, in each of those members, there will be one string say, DEST=(RMT09001). I need to copy the 8 characters RMT09001 and write in to a PS file the member name and the value in it(e.g., RAAB RMT09001
RAAC RMT09002 etc.,)?
. Could any one please help me out. |
|
| Back to top |
|
|
enrico-sorichetti
Global Moderator
Joined: 14 Mar 2007
Posts: 2560
Location: italy
|
|
|
|
the fastest thing would be to run a search for saving the result to a dataset
and then write a small rexx to cleanup things |
|
| Back to top |
|
|
cappucino
New User
Joined: 26 Nov 2007
Posts: 3
Location: chennai
|
|
|
|
| But that file needs to be given as input to another program. In a single jcl, that has to be executed sequentially. I need that REXX to be executed at each and every time of the job execution. Could u plz provide the REXX code for the same? |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 2953
Location: Brussels once more ...
|
|
|
|
| Quote: |
| Could u plz provide the REXX code for the same? |
My current rate for REXX code, test and documentation is 600 euro per day, but I am sure that you will get lower quotes for your requirement if you shop around. |
|
| Back to top |
|
|
dbzTHEdinosauer
Senior Member
Joined: 20 Oct 2006
Posts: 1388
Location: germany
|
|
|
|
| Quote: |
But that file needs to be given as input to another program.
|
one of the reasons I like reading these forums is that so often someone displays the same behaviour as my stubborn, know-it-all, scared-of-anything-new, 3rd ex-mother-in-law.
cappucino,
if you do a background search (3.12)(a search step in your job) with IDPFX as a parm,
any hits from your search criteria will have the program name on the same line (as apposed to normal which would have the program name on a separate line preceding the 'hit' line. complicates parseing)
now, since you are begging for rexx code, it is assumed you are new, and trying to teach you how to use the LMM... api's, would be a PITB. Let the background search (3.12 in batch mode) find your hits. Then you only need to parse the output. disregard any program names not meeting your criteria and parse the line looking for the search-key and write it to a ps.
that would be two steps in a job.
1). the jcl for the search you can generate from the 3.12 screen and save to include in your job.
2).The jcl to run your rexx step in batch you can obtain from your systems people.
I can only assume you have the jcl for the subsequent steps. |
|
| Back to top |
|
|
enrico-sorichetti
Global Moderator
Joined: 14 Mar 2007
Posts: 2560
Location: italy
|
|
|
|
PITB ...
is it a newer/stronger/more_annoying release/version of PITA  |
|
| Back to top |
|
|
Pedro
Senior Member
Joined: 01 Sep 2006
Posts: 313
Location: work
|
|
|
|
Anything you can do in batch, you can do with rexx. Use ALLOCATE instructions instead of JCL dd statements. Use CALL command instead of EXEC PGM= statement. Specify the same parms. The result should be the same.
Your rexx should:
1. use LISTDS 'my.pds' MEMBERS command, trap the output, save any member names that match your naming convention.
2. call Search For utility. See ISPF option 3.14 and select 'batch execution mode', and on the second panelo select 'Edit JCL before submit' for format of the SYSIN statements. You should have SRCHFOR statement and perhaps a few SELECT statements.
3. read the OUTDD file created by Search For and build the output in the format that you want. |
|
| Back to top |
|
|
|
|
