RE: Exact Name of File in Root-Part of IFS

[j.beckeringh@xxxxxxxxxxxxxxxxxxxxxxxxxx]

Thank you, Carsten, that works. 

Strange: if I retrieve the file_id with Qp0lGetAttr I recognize the values 
from st_ino_genid and st_ino in bytes 9-16, but the first 8 bytes contain 
x'0000000000000001' instead of all zeroes. But both values seem to work 
for Qp0lGetPathFromFileId.

Joep Beckeringh
Pantheon Automatisering


> "Flensburg, Carsten" <Flensburg@xxxxxxxxxx>
>
>
> 21-12-2015 15:38
>
> RE: Exact Name of File in Root-Part of IFS
>
> Joop,
>
> Using st_ino in conjunction with st_ino_gen_id as in the example 
> below should do the trick:
>
> **-- File ID structure: 
> D Qp0lFID_t       Ds                  Qualified 
> D                                8a   Inz( *Allx'00' ) 
> D  Gid                          10u 0 
> D  Fid                          10u 0 
>
>  /Free 
>
>    Qp0lFID_t.Fid = Buf.st_ino; 
>    Qp0lFID_t.Gid = Buf.st_ino_gen_id; 
>
>    pBufPth = GetPathFromFileID( pBufPth: %Size( BufPth ): Qp0lFID_t );
>
> Cheers,
> Carsten