From:	SMTP%"RELAY-INFO-VAX@CRVAX.SRI.COM" 15-SEP-1993 11:21:29.65
To:	EVERHART
CC:	
Subj:	Re: userid: josh | Owner: Joe Smith

X-Newsgroups: comp.os.vms
From: ndickinson@worldbank.org (Nathaniel Dickinson)
Subject: Re: userid: josh | Owner: Joe Smith
Message-Id: <ndickinson-140993125931@dickinson.worldbank.org>
Followup-To: comp.os.vms
Sender: news@worldbank.org
Organization: The World Bank, Washington, DC
Date: Tue, 14 Sep 1993 17:02:51 GMT
Lines: 63
To: Info-VAX@kl.sri.com
X-Gateway-Source-Info: USENET

In article <NV0GB2FM@math.fu-berlin.de>, you wrote:
> 
> Hi folks,
> could anybody tell me how I can get a full name of the account's owner?
> USER: josh (Joe Smith) How do I obtain the full name in DCL?
> Thanx, Gordie


What you are looking for is a F$GETUAI lexical function, which
unfortunately does not exist.  Normally you would derive this information
with the SYS$GETUAI system service using a language like MACRO or C.  In a
posting last year Stephen Tihor submitted some code that, assuming a user
has read access to the SYSUAF, returns the owner information:

-------------------------------------------------------
Return-path: <tihor@acf3.NYU.EDU>
Received: from acf3.NYU.EDU by ACFcluster.NYU.EDU (PMDF #2323 ) id
 <01GNNL0P3DV48X5YVI@ACFcluster.NYU.EDU>; Sun, 16 Aug 1992 15:51:02 EDT
Received: by acf3.NYU.EDU (5.61/1.34) id AA00413; Sun, 16 Aug 92 15:50:57
-0400
Date: 16 Aug 1992 15:50:57 -0400
From: tihor@acf3.NYU.EDU (Stephen Tihor)
Subject: RE: get first name
In-reply-to: article <1992Aug16.164733.4246@pollux.lu.se> of 16 Aug 92
12:47 EDT
To: tihor@acf3.NYU.EDU
Message-id: <9208161950.AA00413@acf3.NYU.EDU>
Content-transfer-encoding: 7BIT
Newsgroups: comp.os.vms

/* acf3:comp.os.vms / matts@gemini.ldc.lu.se (Matts Kallioniemi) / 12:47 pm
 Aug
 16, 1992 */
In article <0CF1FE6CDABFC08B97@sb.hhs.dk>, ARNE@ko.hhs.dk (Arne Vajhxj)
writes:
>You can not get the owner-fiels from SYSUAF by DCL (not until DEC implements
>F$GETUAI !).

You sure about that?

$ if p1 .eqs. "" then p1 = f$getjpi(0,"username")
$ say := write sys$output
$ prv = f$setprv("sysprv")
$ open/read/share uaf 'f$parse("sysuaf","sys$system:.dat")
$ prv = f$setprv(prv)
$ read/key=&p1/error=x uaf rec
$ close uaf
$ say f$fao("Hello !AC!!",f$cvui(32,32,f$fao("!AD",8,rec))+84)
$ say f$fao("Your set password on
!%D",f$cvui(32,32,f$fao("!AD",8,rec))+380)
$ exit
$x:
$ status = $status
$ close uaf
$ exit status



-------------------
N. Dickinson-- ndickinson@worldbank.org
These are my opinions, and have nothing to do with my company.
Neither my company nor I take responsibility for the use or misuse of the
above information.

