home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / os / vms / 15006 < prev    next >
Encoding:
Text File  |  1992-09-14  |  2.3 KB  |  66 lines
  1. Newsgroups: comp.os.vms
  2. Path: sparky!uunet!gatech!concert!epa-rtp!ralph.rtpnc.epa.gov!rbn
  3. From: rbn@ralph.rtpnc.epa.gov (Bob Boyd)
  4. Subject: Re: Time Subtraction in DCL
  5. Message-ID: <1992Sep14.155206.15251@rtpnc.epa.gov>
  6. Sender: usenet@rtpnc.epa.gov
  7. Nntp-Posting-Host: ralph.rtpnc.epa.gov
  8. Organization: UNISYS/Environmental Protection Agency
  9. References: <14070256@zl2tnm.gen.nz>
  10. Date: Mon, 14 Sep 1992 15:52:06 GMT
  11. Lines: 53
  12.  
  13. don@zl2tnm.gen.nz (Don Stokes) writes:
  14. > 348588060@WILD.VILL.EDU (Dave Lennon) writes:
  15. > > Hi,
  16. > >     And if we haven't had enough of finding the last day of a month in 
  17. > > DCL...I seem to recall a while back someone had posted a DCL trivia question 
  18. > > on how to do date subtraction in DCL. I seem to remember it was using f$fao
  19. > > to peek at some memory locations...
  20. > 
  21. > I've already posted a yucky way to do this, which I recommend against
  22. > using....
  23. > 
  24. > >     The application I need this for is a backup procedure written entirely 
  25. > > in DCL (so why change now) where I would like to automatically figure out the 
  26. > > cycle letter based on how many weeks have past since the starting date...
  27. > 
  28. > Rather than attempting date subtraction, how about just testing if the 
  29. > date has reached a milestone -- for example, if you want to do a full 
  30. > backup every fourth week, use:
  31. > 
  32. >     $ today = f$cvtime(,"ABSOLUTE", "DATE")
  33. >     $ open/read/write datefile LASTFULL.DAT/error=oops
  34.  
  35. Another way to get the date is if you keep online journal files, you can
  36. find the journal file and get the timestamp from it by doing:
  37.     $ lastfull = f$file_attribute(journal_file,"CDT")
  38.  
  39. >     $ read datefile lastfull
  40.  
  41. I recommend a minor modification here -- 
  42.  
  43. For a lot of reasons I prefer to store dates in absolute format and do
  44. the conversion just before the comparison.
  45.  
  46. So I would add:
  47.         $ lastfull = f$cvtime(lastfull)
  48.  
  49. Since sometimes things go BUMP in the night and over the weekend,
  50. I like to frame comparisons in terms of "have I passed the time when?".
  51. So I would change the next line to use a .ges. comparison.
  52.  
  53. >     $ if f$cvtime(today + "-28-", "ABSOLUTE", "DATE") .eqs. lastfull
  54. >     $ then    write/update datefile today
  55. >     $     [do full backup]
  56. >     $ else    [do something else]
  57. >     $ endif
  58. >     $ close datefile
  59. > 
  60.  
  61. --
  62. Bob Boyd                 
  63. rbn@ralph.rtpnc.epa.gov 
  64. Unisys/EPA               
  65.  
  66.