Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups 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: 2033
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 Determine Region with max bandwidth f... seahawk789 COBOL Programming 3 Mon Feb 27, 2017 8:26 pm
No new posts JCL to get submitted once dataset has... vinu78 JCL & VSAM 17 Thu Feb 16, 2017 7:32 am
No new posts SORTJOIN - Copy Matched and Unmatched... Steve Ironmonger DFSORT/ICETOOL 5 Tue Jan 17, 2017 4:26 pm
No new posts HALDB data refresh/copy from producti... vineetanand2007 IMS DB/DC 1 Mon Jan 02, 2017 11:16 am
No new posts Copy RECFM =VB TO FB file with RECL =... sahil41352 DFSORT/ICETOOL 3 Wed Dec 28, 2016 11:29 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us