home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / lang / fortran / 4212 < prev    next >
Encoding:
Internet Message Format  |  1992-11-06  |  3.1 KB
  1. Path: sparky!uunet!ogicse!uwm.edu!linac!unixhub!slacvx.slac.stanford.edu!fairfield
  2. From: fairfield@slacvx.slac.stanford.edu
  3. Newsgroups: comp.lang.fortran
  4. Subject: Re: Problem using $GETUAI
  5. Message-ID: <1992Nov5.133408.1@slacvx.slac.stanford.edu>
  6. Date: 5 Nov 92 21:34:08 GMT
  7. Article-I.D.: slacvx.1992Nov5.133408.1
  8. References: <1992Nov5.184235.12119@wega.rz.uni-ulm.de>
  9. Sender: news@unixhub.SLAC.Stanford.EDU
  10. Organization: Stanford Linear Accelerator Center
  11. Lines: 98
  12.  
  13. In article <1992Nov5.184235.12119@wega.rz.uni-ulm.de>, KARGL@rzmain.rz.uni-ulm.de (ComRam) writes:
  14. > Starting with the problem of finding the Real Name to a given Account I
  15. > first wrote a little C program which does the job and works quite fine.
  16. > Then I started to do the same thing in FORTRAN (Just for fun:-) and this
  17. > one refuses to work. The SYS$GETUAI returns a SS$_BADCONTEXT. Can anyone
  18. > tell me whats wrong with this thing?
  19. > 
  20. > --------------------------------------------------------------------------
  21. > 
  22. > * FINDREAL.FOR --- Find Owner Name --- (C) 1992 by ComRam
  23. > 
  24. >     PROGRAM Findreal
  25. > 
  26. >     IMPLICIT NONE
  27. >     
  28. >     INCLUDE '($JPIDEF)'
  29. >     INCLUDE '($UAIDEF)'
  30. > 
  31. >     CHARACTER*12   Username
  32. >     CHARACTER*32   Owner
  33. > 
  34. >     INTEGER Usernamelen,
  35. >     1    Ownerlen,
  36. >     2    Status,
  37. >     3    I
  38. > 
  39. >     INTEGER SYS$GETJPI,
  40. >     1    SYS$GETUAI
  41. > 
  42. >     STRUCTURE /ITMLST/
  43. >        INTEGER*2 BUFLEN,
  44. >     1            CODE
  45. >        INTEGER*4 BUFADR,
  46. >     1            RETLENADR
  47. >     END STRUCTURE
  48. >     
  49. >     RECORD /ITMLST/ JPI_LIST,
  50. >     1        UAI_LIST
  51.  
  52. [...]
  53.  
  54. >     Status = SYS$GETUAI (0,0,%DESCR(Username(1:I)),UAI_LIST,0,0,0)
  55. > 
  56. >     WRITE (*,*) 'Status : ',Status,'  Owner : ',Owner
  57. > 
  58. >     STOP
  59. >     END
  60.  
  61.     Petros Dafniotis <dafnioti@cae.wisc.edu> already noted that the call
  62. to SYS$GETUAI wants a "null" argument.  In VAX Fortran you either omit
  63. the argument, as Petros noted, or you pass a zero BY VALUE, i.e., %VAL(0).
  64.  
  65.     Furthermore, VAX Fortran passes character string arguments by descriptor,
  66. so your $DESCR(...) is redundant. (All other arguments are passed by reference,
  67. but you're not writing %REF(UAI_LIST), for example.)  Thus you would normally 
  68. write:
  69.  
  70.      Status = SYS$GETUAI (,,Username(1:I),UAI_LIST,,,)
  71.  
  72.     But what I _really_ wanted to comment on is that your item lists are
  73. supposed to be terminated by a longword zero.  Thus it's common to declare
  74. your ITMLST structure like so:
  75.  
  76.      STRUCTURE /ITMLST/
  77.       UNION
  78.         MAP
  79.            INTEGER*2 BUFLEN,
  80.      1               CODE
  81.            INTEGER*4 BUFADR,
  82.      1               RETLENADR
  83.         END MAP
  84.         MAP
  85.           INTEGER*4 ZERO
  86.         END MAP
  87.       END UNION
  88.      END STRUCTURE
  89.  
  90. followed by
  91.  
  92.      RECORD /ITMLST/ JPI_LIST(2),
  93.      1        UAI_LIST(2)
  94.  
  95. Your assignment statements change from "JPI_LIST.BUFLEN = 12" to
  96. "JPI_LIST(1).BUFLEN = 12", etc.  Finally, to be picky, you then add the 
  97. statements:
  98.  
  99.     JPI_LIST(2).ZERO = 0
  100. and
  101.     UAI_LIST(2).ZERO = 0
  102.  
  103.  
  104.         Cheers, Ken
  105. -- 
  106.  Dr. Kenneth H. Fairfield    |  Internet: Fairfield@Slac.Stanford.Edu
  107.  SLAC, P.O.Box 4349, MS 98   |  DECnet:   45537::FAIRFIELD (45537=SLACVX)
  108.  Stanford, CA   94309        |  BITNET    Fairfield@Slacvx
  109.  ----------------------------------------------------------------------------
  110.  These opinions are mine, not SLAC's, Stanford's, nor the DOE's...
  111.