home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / lang / fortran / 4209 < prev    next >
Encoding:
Text File  |  1992-11-06  |  2.0 KB  |  52 lines
  1. Newsgroups: comp.lang.fortran
  2. Path: sparky!uunet!ukma!darwin.sura.net!zaphod.mps.ohio-state.edu!uwm.edu!zazen!doug.cae.wisc.edu!dafnioti
  3. From: dafnioti@cae.wisc.edu (Petros Dafniotis)
  4. Subject: Re: Problem using $GETUAI
  5. Organization: U of Wisconsin-Madison College of Engineering
  6. Date: 5 Nov 92 14:07:48 CST
  7. Message-ID: <1992Nov5.140749.12816@doug.cae.wisc.edu>
  8. References: <1992Nov5.184235.12119@wega.rz.uni-ulm.de>
  9. Lines: 41
  10.  
  11. In article <1992Nov5.184235.12119@wega.rz.uni-ulm.de> KARGL@rzmain.rz.uni-ulm.de (ComRam) writes:
  12. >Starting with the problem of finding the Real Name to a given Account I
  13. >first wrote a little C program which does the job and works quite fine.
  14. >Then I started to do the same thing in FORTRAN (Just for fun:-) and this
  15. >one refuses to work. The SYS$GETUAI returns a SS$_BADCONTEXT. Can anyone
  16. >tell me whats wrong with this thing?
  17. >
  18. >--------------------------------------------------------------------------
  19. >
  20. >* FINDREAL.FOR --- Find Owner Name --- (C) 1992 by ComRam
  21. >
  22. >    PROGRAM Findreal
  23. >
  24.            ...   [code deleted] ...
  25. >
  26. >    Status = SYS$GETUAI (0,0,%DESCR(Username(1:I)),UAI_LIST,0,0,0)
  27.                              ^ ^                                ^ ^ ^
  28. >
  29. >    WRITE (*,*) 'Status : ',Status,'  Owner : ',Owner
  30. >
  31. >    STOP
  32. >    END
  33. >
  34.  
  35.   Frank,
  36.  
  37.   using HELP SYSTEM $GETUAI you see that where you put 0 you really need
  38. null argument. Therefore, try:
  39.     Status = SYS$GETUAI(,,%DESCR(Username(1:I)),UAI_LIST,,,)
  40. This works for me. Hope it helps.
  41.  
  42. >------------------------------------------------------------------------------
  43. > ComRam  (in real life : Frank Kargl)    Student consultant for programming
  44. > IP            : COMRAM@RZ.UNI-ULM.DE    University of Ulm          Germany
  45. > DECnet(Belwue) : 50186::KARGL           All statements posted above are
  46. > Bitnet       : KARGL@DULRUU51.BITNET    my personal oppinion ONLY !
  47. >------------------------------------------------------------------------------
  48.  
  49.                 Petros Dafniotis (AKA VMS4Ever)
  50.                 Chem Engr Dept, UW-Madison
  51.             e-mail:    dafnioti@cae.wisc.edu
  52.