IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search Log in to check your private messages Log in
 

Fetch execution time of a job using REXX.


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
ashirwad

New User


Joined: 03 Apr 2012
Posts: 5
Location: chennai

PostPosted: Wed Apr 08, 2015 6:32 pm
Reply with quote

Hi,

I am creating a Rexx tool that will submit some jobs and give a report with output datasets, total execution time taken and other details. I am using ISFCALLS to read the spool and get MAX RC detail of a job using RETCODE. I am refering IBM Redbook - Implementing REXX
Support in SDSF that says that we can get

1. Time that execution began using TIMEE.
2. Time that execution end using TIMEN.

However using these keywords I am not able to get the times.
Please find below code snippet:
Code:

  RC_ISF = ISFCALLS("ON")                       
  IF RC_ISF = 00 THEN                           
     DO                                         
       ISFPREFIX = "'"MEMBER"'"                 
       ADDRESS SDSF "ISFEXEC ST"                 
       DO IJ = 1 TO JNAME.0                     
          IF JOBID.IJ = JID  THEN               
          DO                                     
             IF RETCODE.IJ <> '' THEN           
             DO                                 
                RTCODE = RETCODE.IJ             
                RCODE = SUBSTR(RETCODE.IJ,4,4)   
                SAY 'START TIME ' TIMEE.IJ       
                SAY 'END TIME ' TIMEN.IJ     


Any help is really appreciated.


Thanks in advance,
Ashirwad Kumar

Code'd
Back to top
View user's profile Send private message
enrico-sorichetti

Senior Member


Joined: 14 Mar 2007
Posts: 10697
Location: italy

PostPosted: Wed Apr 08, 2015 7:26 pm
Reply with quote

wouldn' t it be simpler to use the SMF data ???
Back to top
View user's profile Send private message
don.leahy

Active Member


Joined: 06 Jul 2010
Posts: 692
Location: Whitby, ON, Canada

PostPosted: Wed Apr 08, 2015 7:45 pm
Reply with quote

Have you tried:
Code:
address SDSF "isfexec st (ALTERNATE DELAYED)"
Back to top
View user's profile Send private message
ashirwad

New User


Joined: 03 Apr 2012
Posts: 5
Location: chennai

PostPosted: Thu Apr 09, 2015 10:44 am
Reply with quote

Thanks don,

It worked icon_smile.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 

Search our Forum:

Similar Topics
Topic Forum Replies
No new posts Calling Assembler from REXX PL/I & Assembler 5
No new posts REXX/CLIST tool for BCSR and EDSR CLIST & REXX 2
No new posts Calling Rexx program from Cobol CLIST & REXX 12
No new posts REXX script to beautify XML CLIST & REXX 1
No new posts TWS PIF (EQQYCOM) Rexx - Occurrence S... IBM Tools 0

Back to Top