Article 156505 of comp.os.vms:
A McIntosh <a.mcintosh@lilly.com> writes:

>Hi
>I want to extract the expiry date from a sysuaf and display it
>in a readable form (Without doing a 'mc authorize list')

>From $uafdef.mar (Extracted from lib.mld) I have concluded that I can
>use f$extract(365,8,uaf_record) to get the data but how do I
>convert this Quadword into a value I can use ??

>I've looked at f$fao and cannot find a quadword to anything convert.

>Any help would be most appreciated

I quote the OpenVMS Wizard:
(http://www.openvms.digital.com/wizard/index.html)


>    This method is totally unsupported and may stop     working
>     eventually, but it seems to work on all versions of OpenVMS,     VAX
>     and Alpha to date.
>
>         $ binary_time[0,32] = %xA4FE0000    ! low longword of binary date
>         $ binary_time[32,32] = %x0099D8C4   ! high longword
>         $ date_string=f$cvtime(f$fao("!%D",-
>             f$cvui(32,32,f$fao("!AD",8,binary_time))),"ABSOLUTE")
>         $ show sym date_string
>           DATE_STRING = "7-FEB-1996 09:10:53.00"
>
>         The F$FAO magic depends on the way DCL stores strings internally. It's
>         not at all supported. Use at your own risk.

Karsten Nyblad
karsten@tdr.dk
Tele Danmark R&D


