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
 
Retrieving Date,time details from a completed JOB&Manipu

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
sathyajes

New User


Joined: 02 Mar 2006
Posts: 24
Location: Chennai

PostPosted: Tue Apr 04, 2006 8:52 am    Post subject: Retrieving Date,time details from a completed JOB&Manipu
Reply with quote

Hi Guys,

Could anybody assist me in the following requirement :

Date & time deails from a JOB.

1.How to get a Date and time details from latest run of a Job.

2.And, after getting them is there a possibility to subtract or add a few seconds to the Start-time and End-time time and give it as an Input to a downstream 2nd Job.

To give you more clarity...let me explain it with an example

Latest run of 1st Job : VKODSD1

JOBNAME JOB # CCODE START DATE TIME END DATE TIME
VKODSD1 0006765 RC=0004 FRI 31 MAR 2006.090 00:05 FRI 31 MAR 2006.090 01:00

Now, after it had finished we manually correct the JOBSYSIN as below

FROM DATE(2006-03-31) TIME(00.03.00.000001)
TO DATE(2006-03-31) TIME(01.02.00.000000)

i.e., we subtract 2 secs from the start-time and add 2 secs to the End-time and submit the second Job VKODSD2, which reads in the above updated JOBSYSIN and runs.

The Business is to collect the logs of various Databases.


Today, we do the above process Manually and requirement now is to Automate the above process.


Do kindly pour in your valuable thought to accomplish the above.

Thanks,

With Regds,

Sathya
Back to top
View user's profile Send private message

DavidatK

Active Member


Joined: 22 Nov 2005
Posts: 700
Location: Troy, Michigan USA

PostPosted: Thu Apr 06, 2006 2:05 am    Post subject: Re: Retrieving Date,time details from a completed JOB&Ma
Reply with quote

Sathya,

I?m sure there are exit points in MVS that can be tied into at job start and end times, but I would not want to be doing this.

How many JOBS are you considering doing this for? If you are doing this by hand, I guess there are not very many of them.

Could you add a step at the beginning of the job and one at the end of the job that would write the job start and end times to a log that you could use? It could use the PARM to determine the record format and if it should add/subtract 2 seconds.

i.e.

Code:


//VKODSD1  JOB ...
//* LOG THE JOB START TIME ? 2 SEC
//LOGSTIME EXEC PGM=LOGTIME,PARM=?FROM?
//LOGFILE  DD  DSN=YOUR.LOG.FILE.VKODSD1,DISP=SHR
:
EXISTING JCL
:
//* LOG THE JOB END TIME + 2 SEC
//LOGETIME EXEC PGM=LOGTIME,PARM=?TO?
//LOGFILE  DD  DSN=YOUR.LOG.FILE.VKODSD1,DISP=SHR
//



Dave
Back to top
View user's profile Send private message
sathyajes

New User


Joined: 02 Mar 2006
Posts: 24
Location: Chennai

PostPosted: Fri Apr 07, 2006 9:06 am    Post subject: Re: Retrieving Date,time details from a completed JOB&Ma
Reply with quote

Hi Dave,

Thanks for your time in replying to my Query.

Yes, as you guessed I do have only view jobsin my hand and it was not a problem in adding the steps. But, when I did so and scanned with a "JJ", it gave me the error:

MEMBER 'LOGTIME' WAS NOT FOUND.
'VKODSD1 LOGSTIME': STEP WOULD ABEND,
CODE 'S806'.

Where does this "LOGTIME" PGM reside, should I need to add the relevent PDS dataset in my JCLLIB step.
(or)
Is this PGM part of any special software like "BMC"or something else

Please Advise !

To give an overall idea abt our system, we use CA-7 for Scheduling, $AVRS (similar to JHS) for Spool Display, other that we have File-Aid, BMC tools.

Would Appreciate if you could have some thought on this.

Thanking you in adavance,

With Regds,

Sathya
Back to top
View user's profile Send private message
DavidatK

Active Member


Joined: 22 Nov 2005
Posts: 700
Location: Troy, Michigan USA

PostPosted: Fri Apr 07, 2006 11:49 pm    Post subject: Re: Retrieving Date,time details from a completed JOB&Ma
Reply with quote

Sathya,

My appologies for not being more clear. It was intended the 'LOGTIME' would be something you would write for this purpose.

I spent a short time and came up with the following code that I believe will suit your purpose. JCL to run tests follows. Note that this was not designed to add/subtract large time periods, as it does not take into consideration multiple leap years. Please test this to make sure it performs as expected. I have tested some critical date/times, and they function as I expect, but you must do additional testing.

Code:


ID DIVISION.                                     
 PROGRAM-ID.   LOGTIME.                           
 AUTHOR.       DAVIDATK.                         
 DATE-WRITTEN. APRIL 2006.                       
 DATE-COMPILED.                                   
 ENVIRONMENT DIVISION.                           
 INPUT-OUTPUT SECTION.                           
 FILE-CONTROL.                                   
     SELECT LOG-FILE ASSIGN TO LOGFILE.           
 DATA DIVISION.                                   
 FILE SECTION.                                   
 FD  LOG-FILE                                     
     LABEL RECORDS ARE STANDARD                   
     BLOCK CONTAINS 0 RECORDS.                   
 01  LOG-REC PIC X(80).                           
                                                       
 WORKING-STORAGE SECTION.                               
                                                       
 01  LOG-RECORD                  PIC X(80).             
 01  LY                          PIC S9(9)  COMP-3.     
 01  LY-R                        PIC S9(9)  COMP-3.     
 01  SUB                         PIC S9(3)  COMP-3.     
 01  WS-DATE-TIME                PIC 9(9)   COMP.       
 01  WS-DATE.                                           
     05 YY                       PIC 99.               
     05 MM                       PIC 99.               
     05 DD                       PIC 99.               
 01  WS-DATE-ORIG.                                     
     05 YY                       PIC 99.               
     05 MM                       PIC 99.               
     05 DD                       PIC 99.               
 01  WS-TIME.                                           
     05 HH                       PIC 99.               
     05 MM                       PIC 99.               
     05 SS                       PIC 99.                       
 01  WS-TIME-ORIG.                                             
     05 HH                       PIC 99.                       
     05 MM                       PIC 99.                       
     05 SS                       PIC 99.                       
 01  MM-DD-TBL.                                                 
     05  MM-01                   PIC 9(3)   COMP-3 VALUE 0.     
     05  MM-02                   PIC 9(3)   COMP-3 VALUE 31.   
     05  MM-03                   PIC 9(3)   COMP-3 VALUE 59.   
     05  MM-04                   PIC 9(3)   COMP-3 VALUE 90.   
     05  MM-05                   PIC 9(3)   COMP-3 VALUE 120.   
     05  MM-06                   PIC 9(3)   COMP-3 VALUE 151.   
     05  MM-07                   PIC 9(3)   COMP-3 VALUE 181.   
     05  MM-08                   PIC 9(3)   COMP-3 VALUE 212.   
     05  MM-09                   PIC 9(3)   COMP-3 VALUE 243.   
     05  MM-10                   PIC 9(3)   COMP-3 VALUE 273.   
     05  MM-11                   PIC 9(3)   COMP-3 VALUE 304.   
     05  MM-12                   PIC 9(3)   COMP-3 VALUE 334.   
01  MM-DD-TBL-R REDEFINES MM-DD-TBL.                     
     05  MM-DAYS                 OCCURS 12 TIMES           
                                 PIC 9(3)   COMP-3.       
 01  LOG-DETAIL                  PIC X(80)  VALUE         
     'DATE(20YY-MM-DD) TIME(HH.MM.SS.000000)'.             
*     12345678901234567890123456789012345678               
*     0        1         2         3                       
                                                           
 LINKAGE SECTION.                                         
                                                           
 01  JCL-PARM.                                             
     03  PARM-LEN                PIC S9(04) COMP SYNC.     
     03  PARM-TYPE               PIC X(8).                 
     03  PARM-DATE               PIC 9(6).                 
     03  PARM-TIME               PIC 9(6).                 
                                                           
PROCEDURE DIVISION USING JCL-PARM.                         
                                                             
     IF PARM-LEN = 20                                       
     THEN                                                   
         MOVE PARM-DATE          TO WS-DATE                           
         MOVE PARM-TIME          TO WS-TIME                           
     ELSE                                                   
         ACCEPT WS-DATE        FROM DATE                           
         ACCEPT WS-TIME        FROM TIME                           
     END-IF.                                                 
                                                             
     MOVE WS-DATE                TO WS-DATE-ORIG.           
     MOVE WS-TIME                TO WS-TIME-ORIG.           
                                                             
     DIVIDE YY OF WS-DATE BY 4 GIVING LY REMAINDER LY-R.     
                                                             
     IF LY-R = 0                                             
     THEN                                                   
         ADD +1                  TO MM-03               
                                    MM-04               
                                    MM-05               
                                    MM-06               
                                    MM-07               
                                    MM-08               
                                    MM-09               
                                    MM-10               
                                    MM-11               
                                    MM-12               
     END-IF.                                           
                                                       
     COMPUTE WS-DATE-TIME = YY OF WS-DATE * 365         
                          + MM-DAYS(MM OF WS-DATE)     
                          + DD OF WS-DATE.             
     COMPUTE WS-DATE-TIME = (WS-DATE-TIME * (24 * 60 * 60))     
                          + (HH OF WS-TIME * (60 * 60))         
                          + (MM OF WS-TIME * 60)                 
                          + SS OF WS-TIME.                       
                                                                 
     IF PARM-TYPE(1:4) = 'FROM'                                 
     THEN                                                       
         SUBTRACT 2            FROM WS-DATE-TIME                           
     ELSE                                                       
         ADD 2                   TO WS-DATE-TIME                                   
     END-IF.                                                     
                                                                 
     DIVIDE WS-DATE-TIME BY 60   GIVING WS-DATE-TIME             
                                 REMAINDER SS OF WS-TIME.       
     DIVIDE WS-DATE-TIME BY 60   GIVING WS-DATE-TIME             
                                 REMAINDER MM OF WS-TIME.       
     DIVIDE WS-DATE-TIME BY 24   GIVING WS-DATE-TIME             
                                 REMAINDER HH OF WS-TIME.       
                                                                 
     DIVIDE WS-DATE-TIME BY 365  GIVING YY OF WS-DATE           
                                 REMAINDER WS-DATE-TIME.         
                                                                 
     IF WS-DATE-TIME = 0                                         
     THEN                                                       
         SUBTRACT 1            FROM YY OF WS-DATE               
         ADD 365                 TO WS-DATE-TIME                 
     END-IF.                                                     
                                                                 
     PERFORM                                                     
       VARYING SUB FROM 12 BY -1                                 
       UNTIL MM-DAYS(SUB) < WS-DATE-TIME                         
     END-PERFORM.                                               
                                                                 
     MOVE SUB                    TO MM OF WS-DATE.               
                                                                 
     SUBTRACT MM-DAYS(SUB)     FROM WS-DATE-TIME                 
                                 GIVING DD OF WS-DATE.           
                                                                   
     MOVE YY OF WS-DATE          TO LOG-DETAIL(8:2).               
     MOVE MM OF WS-DATE          TO LOG-DETAIL(11:2).             
     MOVE DD OF WS-DATE          TO LOG-DETAIL(14:2).             
                                                                   
     MOVE HH OF WS-TIME          TO LOG-DETAIL(23:2).             
     MOVE MM OF WS-TIME          TO LOG-DETAIL(26:2).             
     MOVE SS OF WS-TIME          TO LOG-DETAIL(29:2).             
                                                                   
     IF PARM-TYPE(1:4) = 'FROM'                                   
     THEN                                                         
         MOVE 'FROM'             TO LOG-RECORD                     
         MOVE LOG-DETAIL         TO LOG-RECORD(6:74)               
     ELSE                                                         
         MOVE 'TO'               TO LOG-RECORD                     
         MOVE LOG-DETAIL         TO LOG-RECORD(4:76)               
     END-IF.                                                       
                                                                   
     OPEN OUTPUT LOG-FILE.                             
                                                       
     WRITE LOG-REC             FROM LOG-RECORD.                   
                                                       
     CLOSE LOG-FILE.                                   
                                                       
     GOBACK. 
                                         


Please not that the second time you use the file you must reference it as 'DISP=MOD'

Also if you remove the 'SET DATE, and SET TIME' it will take the system data/time. You can use the 'SET DATE/TIME' for testing/validation.

Code:

//YOURID#   JOB (ACCT,ROOM),DAVIDatK,                         
//    MSGCLASS=Y,NOTIFY=YOURID                               
// SET DATE=040101                                         
// SET TIME=000002                                         
//JS00100  EXEC PGM=LOGTIME,PARM='FROM    &DATE&TIME'         
//STEPLIB  DD DSN=YOUR.TEST.LOADLIB,DISP=SHR         
//SYSOUT   DD SYSOUT=*                                     
//SYSPRINT DD SYSOUT=*                                     
//LOGFILE  DD DSN=YOUR.PS.LOGFILE(+1),                     
//            DISP=(,CATLG,DELETE),                         
//            SPACE=(80,(2,1),RLSE),AVGREC=U,               
//            RECFM=FB,LRECL=80                             
//JS00110  EXEC PGM=LOGTIME,PARM='TO      &DATE&TIME'         
//STEPLIB  DD DSN=YOUR.TEST.LOADLIB,DISP=SHR         
//SYSOUT   DD SYSOUT=*                                     
//SYSPRINT DD SYSOUT=*                                     
//LOGFILE  DD DSN=YOUR.PS.LOGFILE(+1),                     
//            DISP=MOD                                     



Good luck,

Dave
Back to top
View user's profile Send private message
sathyajes

New User


Joined: 02 Mar 2006
Posts: 24
Location: Chennai

PostPosted: Tue Apr 11, 2006 7:58 pm    Post subject: Re: Retrieving Date,time details from a completed JOB&Ma
Reply with quote

Hi Dave,

Overwhelmed by your reply and thanks you once again

Will try your suggestion and would reply soon.

Thanks,

With Regds,

Sathya
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. 00D3003B - time outs in DB2 when invo... chavinash2004 DB2 2 Mon Oct 09, 2017 4:39 pm
No new posts VSAM RLS Wait time blayek JCL & VSAM 2 Mon Oct 02, 2017 9:05 pm
No new posts Compare yesterday's date to the one o... migusd SYNCSORT 11 Fri Sep 22, 2017 11:35 pm
No new posts Comparing 2 Files using Current time arunsoods SYNCSORT 9 Fri Sep 22, 2017 6:00 pm
No new posts Validate the Date girishb2 DFSORT/ICETOOL 9 Tue Sep 19, 2017 1:12 am

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