home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / comp / os / vms / 20765 < prev    next >
Encoding:
Internet Message Format  |  1993-01-11  |  2.1 KB
  1. Path: sparky!uunet!cs.utexas.edu!asuvax!ncar!noao!arizona!sunquest!spades.aces.com!gavron
  2. From: gavron@spades.aces.com (Ehud Gavron 602-570-2000 x. 2546)
  3. Newsgroups: comp.os.vms
  4. Subject: Re: Implimenting "TOMORROW +1: 0:0" from an .EXE
  5. Message-ID: <11JAN199319201213@spades.aces.com>
  6. Date: 12 Jan 93 02:20:00 GMT
  7. References: <1993Jan11.153438.28624@magnus.acs.ohio-state.edu>
  8. Sender: news@cs.arizona.edu
  9. Reply-To: gavron@ACES.COM
  10. Organization: ACES Consulting Inc.
  11. Lines: 46
  12. News-Software: VAX/VMS VNEWS 1.4-b1
  13.  
  14. In article <1993Jan11.153438.28624@magnus.acs.ohio-state.edu>, pat@magnus.acs.ohio-state.edu (Patrick E Plaisted) writes...
  15. #I have the need to set an AST timer queue entry to fire at, in DCL
  16. #syntax, "TOMORROW +1:0:0".  I've looked through all the LIB$ routines,
  17. #as well as $bintim and $asctim.  Is there a simple way to get a
  18. #quadword time value set to this so I can stick it into $setimr?  
  19. #My only thoughts on how to do this are:   
  20. # 
  21. #  1. calculate the number of hours to midnight.
  22. #  2. calculate the number of minutes to midnight.
  23. #  3. calculate the number of seconds to midnight.
  24. #  4. use lib$cvt_to_internal_time to convert these values to
  25. #     delta time quadwords.
  26. #  5. use lib$add_times to add these values to a quadword containing the 
  27. #     current time.
  28. #  6. again using lib$add_times, add 1 hour to this value.
  29. #  7. finally, call $setimr with the quadword.
  30. # 
  31. #I think this approach should work, but am I missing something really 
  32. #obvious?  Is there an easier way to do this?
  33.  
  34.     1. Call SYS$GETTIM to get current time in ticks (10ns units)
  35.     2. Add 144,000,000 to this number 
  36.        24 hrs x 60 min  x 60 sec  x 100000 ns    144,000,000 ns/day
  37.                  -----     -----         ---- =
  38.                hr        min          sec
  39.     3. Use SYS$ASCTIM to get this in ascii format in the form
  40.        DD-MMM-YYYY HH:MM:SS.hh
  41.  
  42.     4. Insert in the 13th position of the string "01:00:00.00"
  43.     5. Call SYS$BINTIM
  44.  
  45.     (I may be off on the number in #2 but it looks right.  I'm
  46.      sure someone will rush to correct me if it isn't.)
  47.  
  48. #Thanks for all your help,
  49. # 
  50. #Pat
  51. # 
  52. #pat@magnus.acs.ohio-state.edu
  53.  
  54.     Ehud
  55.  
  56. --
  57. Ehud Gavron        (EG76)     
  58. gavron@vesta.sunquest.com
  59. Don't SANFORIZE me!!
  60.