home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / os / vms / 13710 < prev    next >
Encoding:
Internet Message Format  |  1992-08-16  |  1.5 KB
  1. Path: sparky!uunet!cis.ohio-state.edu!ucbvax!ko.hhs.dk!ARNE
  2. From: ARNE@ko.hhs.dk (Arne Vajhxj)
  3. Newsgroups: comp.os.vms
  4. Subject: Re: RE: get first name
  5. Message-ID: <0C6CBAB4963FC0905E@sb.hhs.dk>
  6. Date: 17 Aug 92 06:55:00 GMT
  7. Sender: daemon@ucbvax.BERKELEY.EDU
  8. Distribution: world
  9. Organization: The Internet
  10. Lines: 34
  11.  
  12. > >You can not get the owner-fiels from SYSUAF by DCL (not until DEC implements
  13. > >F$GETUAI !).
  14. > 
  15. > You sure about that?
  16. > 
  17. > $ if p1 .eqs. "" then p1 = f$getjpi(0,"username")
  18. > $ say := write sys$output
  19. > $ prv = f$setprv("sysprv")
  20. > $ open/read/share uaf 'f$parse("sysuaf","sys$system:.dat")
  21. > $ prv = f$setprv(prv)
  22. > $ read/key=&p1/error=x uaf rec
  23. > $ close uaf
  24.  
  25. I do know that, but I have apperently made some susumption, that you did
  26. not make.
  27.  
  28.   - The user did not want to hardcode the first name in his com-file, so
  29.     I assume that the com-file will be used by multiple users.
  30.   - I assume that not many users have sysprv on that machine.
  31.  
  32. So that little (undocumented and unsupported - but who cares about that)
  33. hack about reading SYSUAF.DAT do not sound as a good solution.
  34.  
  35. The good thing about SYS$GETUAI (and the lexical F$GETUAI - if it existed !)
  36. is that you can extract information about your own user-name without any
  37. privs !
  38.  
  39.                                                           Arne
  40.  
  41. Arne Vajhxj                             local DECNET:  KO::ARNE
  42. Computer Department                     PSI:           PSI%23831001304030::ARNE
  43. Business School of Southern Denmark     Internet:      ARNE@KO.HHS.DK
  44.  
  45.  
  46.