[Info-vax] Reading SYSUAF with DCL problem

[abrsvc]

On Wednesday, May 9, 2018 at 6:44:57 AM UTC-4, hb wrote:
> 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)

While this is technically correct and will obtain only the owner string, the field is padded which means that the simpler version will contain added spaces as well to the fixed maximum length of the field.  Either will work.

Dan