home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / bit / listserv / notisl / 3967 < prev    next >
Encoding:
Internet Message Format  |  1992-11-09  |  2.2 KB
  1. Path: sparky!uunet!stanford.edu!bcm!convex!news.oc.com!eff!sol.ctr.columbia.edu!spool.mu.edu!hri.com!noc.near.net!mars.caps.maine.edu!maine.maine.edu!cunyvm!psuvm!auvm!VEGA.SELU.EDU!TMIS1692
  2. From: TMIS1692@VEGA.SELU.EDU (Kevin Calmes)
  3. Newsgroups: bit.listserv.notis-l
  4. Subject: Re: IDCAMS LISTCAT SYSTEM-TIMESTAMP Thank you!
  5. Message-ID: <01GQY2W0DCKY8WWF3W@vega.selu.edu>
  6. Date: 9 Nov 92 16:36:25 GMT
  7. Sender: NOTIS discussion group list <NOTIS-L@TCSVM.BITNET>
  8. Organization: Southeastern Louisiana University
  9. Lines: 35
  10. Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
  11. X-Envelope-to: notis-l@TCSVM.BITNET
  12. X-VMS-To: IN"notis-l@tcsvm.bitnet"
  13. MIME-version: 1.0
  14. Content-transfer-encoding: 7BIT
  15.  
  16. Special thanks to Tim Prettyman!
  17.  
  18. The SAS program to convert the TOD time stamp from hex to gregorian date works
  19. just fine.  Here it is again in case you missed it.  The IDCAMS LISTCAT
  20. SYSTEM-TIMESTAMP that I wanted to convert was X'A6894B7C4CA3C000'.
  21. (I ran it under DOS/VSE/SP 3.1.2 and SAS 5.16)
  22.  
  23. 1  DATA _NULL_;
  24. 2
  25. 3  TIME = INPUT('A6894B7C4CA3C000'X,TODSTAMP8.);
  26. 4  PUT TIME DATETIME.;
  27. 5  RETURN;
  28.  
  29. The result:
  30. 03NOV92:00:01:55        (Note that the time is GMT)
  31.  
  32. The original purpose was to find out when a file was last used.  The IDCAMS
  33. LISTCAT SYSTEM-TIMESTAMP shows the time-of-day clock value the data or index
  34. component was last closed after being opened for operations that might have
  35. changed its contents.
  36.  
  37. Thanks again for the help and we will share it with all.
  38.  
  39. Kevin
  40.  
  41. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  42. *  Kevin Calmes                           Internet: TMIS1692@SELU.EDU         *
  43. *  Library Programmer - TECH1             IP#       147.174.1.5               *
  44. *  Computing Services - MIS               Voice:    (504) 549-3645            *
  45. *  Southeastern Louisiana University      Fax:      (504) 549-5092            *
  46. *  Box 409 SLU Station                    IBM 4361-M5  DOS/VSE/SP 3.1.2       *
  47. *  Hammond, LA  70402   USA               VTAM 3.1  CICS 1.7  VSE/POWER 2.3   *
  48. *                                         NOTIS 4.6.1  GTO 3.0                *
  49. *  "Die on your feet or live on your knees" - Yngwie J. Malmsteen             *
  50. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  51.