Article 135149 of comp.os.vms:
Path: nntpd.lkg.dec.com!crl.dec.com!crl.dec.com!caen!kuhub.cc.ukans.edu!zippy.dct.ac.uk!peer-news.britain.eu.net!EU.net!newsfeed.internetmci.com!uwm.edu!homer.alpha.net!mvb.saic.com!info-vax
Newsgroups: comp.os.vms
Subject: Re: Getting "owner" using DCL
Message-ID: <95Nov30.065954mst.20482@twiki.spire.com>
From: "Been There, Done That!" <BRIVAN@spire.com>
Date: Thu, 30 Nov 1995 06:58:56 -0700
Organization: Info-Vax<==>Comp.Os.Vms Gateway
X-Gateway-Source-Info: Mailing List
Lines: 16

I could not tell by your original post if you wanted the personal name from the
mail file or from the uaf.  Carl L. posted how to get it from the mail easily
enough.  So, here is how I get it from the UAF.

$   If p1 .Eqs. "" Then Inquire p1 "Username"
$
$   Open/Read/Share uaf SYS$system:sysuaf.dat
$   Read/Key='p1' uaf text
$   Close uaf
$
$   username = F$extract(85, 31, text)
$   Write Sys$output "''p1' is ''username'"


Brian VandeMerwe
brivan@spire.com


