MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Referenced Time of dataset.

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL)
View previous topic :: View next topic  
Author Message
Chiru
Beginner


Joined: 26 Dec 2005
Posts: 15
Topics: 7
PostPosted: Tue Aug 15, 2006 11:11 pm    Post subject: Referenced Time of dataset. Reply with quote
Hi All,
I have a small request at my end, If a dataset is updated using one jcl , i need to check at what time that was updated, i.e the time stamp of the referenced time.If possible let me know the time stamp of the creation time also.

Your help is appreciated.

Thanks a lot in advance
=============
chiru
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose
PostPosted: Wed Aug 16, 2006 4:27 am    Post subject: Reply with quote
Chiru,

The last referenced/modified time cannot be easily found. If your shop has SMF logging, then you can search SMF records.SMF records are written continously so you'll need to find the records for the day in question.

Search this board for "smf" and you will find examples.

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Steve Coalbran
Beginner


Joined: 09 Mar 2005
Posts: 22
Topics: 0
Location: Stockholm, Sweden
PostPosted: Wed Aug 16, 2006 4:37 am    Post subject: Reply with quote
Well the create date you can list by LISTDS... but you don't get the last referenced date.
Code:

//         SET OD='(OLD,DELETE)'                                       
//         SET VS='(,PASS),UNIT=VIO,SPACE=(TRK,3)'                     
//LISTDS   EXEC PGM=IKJEFT1A,                                         
//         PARM='LISTDS LTEST.LOAD ST HI'                             
//SYSTSPRT DD DISP=&VS,RECFM=VBM,LRECL=255,BLKSIZE=32760               
//SYSTSIN  DD DUMMY                                                   
//PRINT    EXEC PGM=ICEGENER                                           
//SYSPRINT DD SYSOUT=*                                                 
//SYSUT1   DD DISP=&OD,DSN=*.LISTDS.SYSTSPRT                           
//SYSUT2   DD SYSOUT=*                                                 
//SYSIN    DD DUMMY                                                   
//SYSOUT   DD *                                                       

gives
Code:

SE16661.LTEST.LOAD                                                     
--RECFM-LRECL-BLKSIZE-DSORG-CREATED---EXPIRES---SECURITY--DDNAME---DISP
  U     6144  32760   PO    2006.227   00.000   RACF      SYS00058 KEEP
--VOLUMES--                                                           
  PRI205                                                               

To extract it you'd need to use a program, Rexx would be my choice, so you may as well just use a REXX EXEC to do the lot...
Code:

/*REXX*/                                                               
ARG ds .                                                               
RC = LISTDSI(ds)                                                       
/* Do something with them? Sample notify to me on LotusNotes         */
dt = "on" DATE("N") "at" TIME("C")                                     
fromadr = SYSVAR(SYSNODE)"."SYSVAR(SYSUID)                             
toadr = "IBMSE.COALBRS"                                               
QUEUE "FROM:     "fromadr dt                                           
QUEUE "TO:       "toadr                                               
QUEUE "SUBJECT:  Arrival of" ds                                       
QUEUE CENTRE(" message content ",80,"*")                               
QUEUE "Datasetname........." ds                                       
QUEUE "Created on.........." syscreate  /* eg. 2006/036              */
QUEUE "Last referenced....." sysrefdate /* eg. 2006/228              */
QUEUE CENTRE(" end of message ",80,"*")                               
QUEUE "//"                                                             
CALL MSG "OFF"                                                         
"XMIT" toadr "LINE(//) NOCOPYLIST NOEPILOG NOLOG NONOTIFY"             



Wink /Steve Cool
Back to top
View user's profile Send private message Send e-mail MSN Messenger
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL) All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group