home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / comp / os / vms / 20721 < prev    next >
Encoding:
Text File  |  1993-01-11  |  1.3 KB  |  38 lines

  1. Newsgroups: comp.os.vms
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!magnus.acs.ohio-state.edu!pat
  3. From: pat@magnus.acs.ohio-state.edu (Patrick E Plaisted)
  4. Subject: Implimenting "TOMORROW +1: 0:0" from an .EXE
  5. Message-ID: <1993Jan11.153438.28624@magnus.acs.ohio-state.edu>
  6. Sender: news@magnus.acs.ohio-state.edu
  7. Nntp-Posting-Host: bottom.magnus.acs.ohio-state.edu
  8. Organization: The Ohio State University
  9. Date: Mon, 11 Jan 1993 15:34:38 GMT
  10. Lines: 26
  11.  
  12. I have the need to set an AST timer queue entry to fire at, in DCL
  13. syntax, "TOMORROW +1:0:0".  I've looked through all the LIB$ routines,
  14. as well as $bintim and $asctim.  Is there a simple way to get a
  15. quadword time value set to this so I can stick it into $setimr?  
  16. My only thoughts on how to do this are:   
  17.  
  18.   1. calculate the number of hours to midnight.
  19.   2. calculate the number of minutes to midnight.
  20.   3. calculate the number of seconds to midnight.
  21.   4. use lib$cvt_to_internal_time to convert these values to
  22.      delta time quadwords.
  23.   5. use lib$add_times to add these values to a quadword containing the 
  24.      current time.
  25.   6. again using lib$add_times, add 1 hour to this value.
  26.   7. finally, call $setimr with the quadword.
  27.  
  28. I think this approach should work, but am I missing something really 
  29. obvious?  Is there an easier way to do this?
  30.  
  31. Thanks for all your help,
  32.  
  33. Pat
  34.  
  35. pat@magnus.acs.ohio-state.edu
  36.  
  37.  
  38.