|
View previous topic :: View next topic
|
| Author |
Message |
Ramanan-R
New User
Joined: 21 Mar 2007
Posts: 66
Location: Chennai, Tamilnadu, India
|
|
|
|
Hi All,
Can anyone tell me how to retrieve all job logs of a specific owner in SDSF to a PDS?
So, if i have 20 jobs for a particular owner say "TESTER", I want to retrieve all 20 jobs log as members in a PDS.
Thanks!
Regards,
Ramanan R |
|
| Back to top |
|
 |
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
What does "all job logs" mean in this request? Everything currently in spooled output for the owner? The first file in the sysout for each currently spooled job for this owner?
I use the word current because this data is highly transient and what you retrieve one run may be quite different from a run only a little while later - especially if TESTER is logged on and sumbmitting and deleting jobs.
If this is something you want to do online, you might try xdc (or print odsn). There are exampoles in the forum.
To do what you want in a job, you can use sdsf in batch (if you have permission via your security setup). There are examples in the forum.
If you find something in a topic that is not clear, post what you found and your question about it. Someone should be able to clarify. |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
| Back to top |
|
|
vasanthz
Global Moderator
Joined: 28 Aug 2007
Posts: 1742
Location: Tirupur, India
|
|
|
|
I think I stole this code from Enrico  not sure. But works anyway
Use the SDSF commands in the QUEUE statements below.. Wahlah... we have wat we need
| Code: |
/*REXX*/
ADDRESS TSO
"ALLOC F(ISFIN) TRACKS SPACE(1) REU" /* USED BY SDSF */
"ALLOC F(ISFOUT) NEW DELETE REU " , /* USED BY SDSF */
"TRACKS SPACE(100,100) LRECL(133) RECFM(F,B,A) DSORG(PS)"
"ALLOC F(TEMPPRT) DA('XK89.SDSF') SHR"
QUEUE "PRE UA35KMA9" /* SDSF COMMANDS IN BATCH*/
QUEUE "DA"
QUEUE "FILTER JOBID EQ "JOB02140
QUEUE "++?" /* OPEN OUTPUT OF JOB */
QUEUE "FIND 'JESJCL'"
QUEUE "++S" /* BROWSE MSGUSR DATASET */
QUEUE "PRINT FILE TEMPPRT " /* PRINT TO TEMP DATASET */
QUEUE "PRINT 1 999999"
QUEUE "PRINT CLOSE"
QUEUE "END"
QUEUE "EXIT"
"EXECIO" QUEUED()" DISKW ISFIN (FINIS" /* INPUT TO SDSF BATCH */
ADDRESS ISPEXEC "SELECT PGM(ISFAFD) PARM('++32,255)" /* INVOKE SDSF */
EXIT |
|
|
| Back to top |
|
|
|
|
