[Info-vax] Reading SYSUAF with DCL problem

[hb]

On 05/09/2018 09:12 AM, Volker Halle wrote:
> From SYS$LIBRARY:LIB.REQ:
> 
> !*** MODULE $UAFDEF ***
> ! ++
> !  User authorization file format
> !  Note: With the exception of the username and account name,
> !  all strings are blank padded counted strings. Username and
> !  account name are uncounted, blank padded.
> ! --
> 
> So the first byte in the UAF$T_OWNER field is the string size. The owner string itself begins at the 2nd Byte.
> 
> $ owner=f$extr(85,31,rec)    ! obtain string portion from counted string 
> 
> Volker.
> 
Hmm, maybe I'm missing something. If there is a counted ASCII string, I
would use something like

$ len=f$cvsi(84*8,8,rec)
$ owner=f$extract(85,len,rec)