Re: Quadword conversion of UIC in VMS::User

[Ed James, 410-295-1919, [EMAIL PROTECTED]]

[EMAIL PROTECTED] wrote on Fri, 01 Sep 2000 08:06:19 -0600 in
<[EMAIL PROTECTED]>:

> use VMS::User;
> 
> $UserName = "DALEW"
> $uairef = VMS::User:user_info($UserName);
> $uic = $uairef->{UIC};
> print "UIC ==> ",$uic,"\n";
> 
> 
> My uic is [5,6], and this code returns:
> UIC ==> 327686
> 
> I want it to display the [5,6]

printf( "UIC ==> [%o,%o]\n", $uic/65536, $uic % 65536);

Ed James                           [EMAIL PROTECTED]
TeleCommunications Systems, Inc.   voice 410-295-1919
2024 West Street, Suite 300        fax   410-280-1094
Annapolis, MD 21401-3556