|
View previous topic :: View next topic
|
| Author |
Message |
bala kalluri
Warnings : 1
New User
Joined: 08 Jan 2009
Posts: 21
Location: INDIA
|
|
|
|
| I have a pds containing some jobs to be submitted with TYPRUN=scan. My requirement is to copy the jesjcl part of each jobs into separate members of newly created PDS. |
|
| Back to top |
|
 |
rajulan
New User
Joined: 11 Jan 2008
Posts: 66
Location: India
|
|
|
|
Unicenter CA-JMR (JOBLOG Management & Retrieval) is a z/OS and OS/390 application that lets you efficiently store and retrieve job information including job-related messages, data set allocation and disposition, ending conditions of all job steps, JCL listings, system messages and job output. Unicenter CA-JMR collects, reviews, retrieves, archives and stores jobs from a specified class or classes on the JES spool in a single daily data set.
Thanks,
Rajulan. |
|
| Back to top |
|
|
bala kalluri
Warnings : 1
New User
Joined: 08 Jan 2009
Posts: 21
Location: INDIA
|
|
|
|
| Is there any other way of capturing the jesjcl output to a dataset through jcl or using rexx language. |
|
| Back to top |
|
|
rajulan
New User
Joined: 11 Jan 2008
Posts: 66
Location: India
|
|
|
|
Not that i know of. In our shop we use this JMR. There may be some thing. If i know, surely i will let u know.
Thanks,
Rajulan. |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
| Quote: |
| Unicenter CA-JMR (JOBLOG Management & Retrieval) is a z/OS and OS/390 application that lets you efficiently store and retrieve job information including job-related messages, data set allocation and disposition, ending conditions of all job steps, JCL listings, system messages and job output. Unicenter CA-JMR collects, reviews, retrieves, archives and stores jobs from a specified class or classes on the JES spool in a single daily data set. |
nice marketingspeak, but what if the TS does not have the product 
most of the time such request are from a vanilla environment
vanilla ==> standard base IBM zOS JES2/SDSF/ISPF
for suggestions and samples about rexx and sdsf take a look at
www.redbooks.ibm.com/abstracts/sg247419.html |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
Or you could be really adventurous and search the forum for SDSF ...
Maybe this has been asked just once or twice before  |
|
| Back to top |
|
|
bala kalluri
Warnings : 1
New User
Joined: 08 Jan 2009
Posts: 21
Location: INDIA
|
|
|
|
hi,
I went through various topics in the forum related to my topic, but i dint get any idea which ll satisy my requirement. If u have a sample code snippet.. pls share it wd me. |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
Well, the answer is most definitely on the forum. All you have to do is search and find it.
Unless you would like to pay someone else to search for you ?
Try this LINK to try and find out all about finding IBM manuals that are not in the forum selection. |
|
| Back to top |
|
|
rajulan
New User
Joined: 11 Jan 2008
Posts: 66
Location: India
|
|
|
|
| Quote: |
| nice marketingspeak, but what if the TS does not have the product |
It is not like that. In my shop it is pre installed. I just told one utility is available to capture job-related messages, data set allocation and disposition, ending conditions of all job steps, JCL listings, system messages and job output. That is all. Not in a marketing motto.
Thanks,
Rajulan. |
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
|
|
Hello,
Can XDC be of use here? |
|
| Back to top |
|
|
bala kalluri
Warnings : 1
New User
Joined: 08 Jan 2009
Posts: 21
Location: INDIA
|
|
|
|
| No..i dont want through XDC . I just want a jcl which will do my job . If not jcl then any REXX program |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
You know what you want and we know what you want. But it appears that you want it done for you.
So let's start at the begining .....
What manuals have you read, what have you tried and what were the results. Show us what you have tried for yourself.
I am more than willing to provide you with the code, tested and documented, but would you be willing to provide me my daily rate in return ?
Please do not request code without offering any evidence of attempting a resolution yourself. This is a HELP forum, not a "DO IT FOR ME" forum. |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
| Quote: |
| I went through various topics in the forum related to my topic, but i dint get any idea which ll satisy my requirement. |
This would be a good time to become more familiar and comfortable with the forum SEARCH tool.
Multiple very similar topics have been discussed. If you do not find topics that help, you need to modify how you search. If you tell us how you searched, we can probably offer alternate ways for you to search that will find more useful topics.
The most valuable contribution we can make to you and your organization is to help you become self-reliant. This includes both finding info and developing whatever code/control statements are needed for your requirement. |
|
| Back to top |
|
|
bala kalluri
Warnings : 1
New User
Joined: 08 Jan 2009
Posts: 21
Location: INDIA
|
|
|
|
| I would like to thank the forum , which solved my problem. I got what I wanted. Thanks a lot for helping me out. |
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
|
|
Hi,
For the benefit of other, please share the solution used.. |
|
| Back to top |
|
|
bala kalluri
Warnings : 1
New User
Joined: 08 Jan 2009
Posts: 21
Location: INDIA
|
|
|
|
ADDRESS TSO
DO I=0 TO 4
"ALLOC F(ISFIN) TRACKS SPACE(1) REU"
"ALLOC F(ISFOUT) NEW DELETE REU ",
"TRACKS SPACE(100,100) LRECL(133) RECFM(F,B) DSORG(PS)"
"ALLOC F(TEMPPRT) DA('v12396.NEW.PS1') MOD REUSE"
QUEUE "PRE v123296A"
QUEUE "ST"
QUEUE "DOWN" I
QUEUE "FIND 'JESJCL'"
QUEUE "++S"
QUEUE "PRINT FILE TEMPPRT"
QUEUE "PRINT"
QUEUE "PRINT CLOSE"
QUEUE "END"
QUEUE "EXIT"
"EXECIO" QUEUED()" DISKW ISFIN (FINIS"
ADDRESS ISPEXEC "SELECT PGM(ISFAFD) PARM('++32,255)"
END
EXIT
This program is working and i m able to copy the job logs into a separate dataset. But here i need to specify before hand the 'I' value i.e from which job to which job i need to copy the jcl logs.
This will capture the first 5 jobs in sdsf region(depending upon I value). |
|
| Back to top |
|
|
|
|
