Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
to copy the joblogs of recently submitted jobs in a PDS

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
bala kalluri
Warnings : 1

New User


Joined: 08 Jan 2009
Posts: 21
Location: INDIA

PostPosted: Mon Feb 02, 2009 5:23 pm    Post subject: to copy the joblogs of recently submitted jobs in a PDS
Reply with quote

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.

My requirement is to submit a pds containing jcls. So dynamically i need to fetch the joblogs of these recently submitted jcls through rexx. So could anyone provide be a better solution so that i dont need to specify 'I' value everytime, when i submit jobs.
Back to top
View user's profile Send private message

Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2081
Location: Silicon Valley

PostPosted: Mon Feb 02, 2009 10:19 pm    Post subject: Reply to: to copy the joblogs of recently submitted jobs in
Reply with quote

I think you need to different calls to SDSF:

1. Issue H to list all held jobs. Then print that a file. It will have all jobs and job numbers.

2. Write second routine that will read the file from previous step and then call SDSF for each job. Use something like:
Code:
FILTER JOBID = j00001

so that you only see the one job. That way, your code is always the same.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts ejck thru rexx to multiple jobs insid... Susanta All Other Mainframe Topics 5 Tue Sep 19, 2017 1:39 pm
No new posts XMITIP sends it out. Can it copy on l... Rommel Dayon Rustia IBM Tools 0 Tue Sep 05, 2017 10:16 am
No new posts self-restarting jobs in OPC jzhardy IBM Tools 1 Mon Aug 21, 2017 10:15 am
No new posts Unable to copy data from spool in a d... srikant314 JCL & VSAM 8 Fri Jul 28, 2017 9:10 pm
No new posts copy SEQ to PDS and create stats steve-myers JCL & VSAM 7 Thu Apr 27, 2017 1:15 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us