Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!seismo!rutgers!mit-eddie!genrad!decvax!ucbvax!JPL-VLSI.ARPA!xrjjm%scint.span
From: xrjjm%scint.span@JPL-VLSI.ARPA
Newsgroups: comp.os.vms
Subject: Return of the GETUAI system service...
Message-ID: <870723081602.057@Jpl-VLSI.ARPA>
Date: Thu, 23-Jul-87 11:16:01 EDT
Article-I.D.: Jpl-VLSI.870723081602.057
Posted: Thu Jul 23 11:16:01 1987
Date-Received: Sat, 25-Jul-87 08:00:06 EDT
Sender: daemon@ucbvax.BERKELEY.EDU
Distribution: world
Organization: The ARPA Internet
Lines: 28

Comment:   Begin User Supplied Mail Headers.
*Site:     NASA Goddard Space Flight Center - Greenbelt, Maryland, USA.
*Position: 76 Deg. 52' 28.5" West, 38 Deg. 59' 59.8" North.
*From:     John J. McMahon, Systems Programmer, STX - ST Systems Corporation.
*Project:  COBE Science Data Room (CSDR), Code 401.1
*Reply-To: (Arpa-Internet)       XRJJM%CSDR.SPAN@JPL-VLSI.ARPA [Old Format]
*Reply-To: (Arpa-Internet)       XRJJM%CSDR.SPAN@VLSI.JPL.NASA.GOV [New Format]
*Reply-To: (Bitnet)              ZMJJM@SCFVM
*Reply-To: (Span/Physnet/Hepnet) 6173::XRJJM = CSDR::XRJJM (Node 6.29)
*Reply-To: (TEXnet)              UTADNX::UTSPAN::CSDR::XRJJM


X> I am attempting to validate usernames from a COBOL program using the
X> system authorization file (sys$system:sysuaf.dat). Any information
X> or suggestion related to the following would be welcomed and appreciated.
X>  
X> 1. Is there a DEC supplied subroutine that can be invoked from a CALL
X>    statement that will return a value verifying the existence of an account
X>    given a username as one of its arguments.

VMS 4.4, 4.5... etc have routines called $GETUAI and $SETUAI.  That is what
you are looking for (I think)...

Regards,
^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v
John J. McMahon (Fast-Eddie)                     
Disclaimer: Views expressed in this letter are my own, 
            and are not meant to represent the views of my employers.