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

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