Thanks to Ed James and Jordan Henderson for the solution
and for showing me "More Than One Way to Do It".

And so quickly.


Dale A. Whittemore
Lockheed Martin EIS
[EMAIL PROTECTED]


-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Friday, September 01, 2000 9:06 AM
To: [EMAIL PROTECTED]; [EMAIL PROTECTED]
Subject: Re: Quadword conversion of UIC in VMS::User


[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

Reply via email to