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

Jan,

With WRKLNK option 8 you can display attributes of your file; on the last
page the file-id is shown as a hexadecimal string. If you debug your
program and show the hexadecimal value of your file-id (eval Qp0;FID_j :x)
the last 8 bytes should match the file-id shown by WRKLNK. Do they match?

Joep Beckeringh
Pantheon Automatisering

Jan Grove Vejlstrup <jgv@xxxxxxxx>

23-12-2015 11:12

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

Carsten,

I can't get my little program to work:

H DFTACTGRP(*NO) ACTGRP(*NEW)

/copy ifsio_h

d Qp0lGetPathFromFileID...
d pr *

ExtProc('Qp0lGetPathFromFileID')

d bufPointer * value
d size 10u 0 value
d fileid 16a


d Qp0lFID_j ds qualified
d 8a inz(*allx'00')
d gid 10u 0
d fid 10u 0

d MyStat s like(statds64)
d i s 10i 0
d ifsPath s 100a varying
d pathFromApi s 1000a based(p_pathFromApi)

/free

*inlr = *on;

ifsPath = '/jgvtmp/is511551.JPG';
i = stat64(ifsPath : %addr(MyStat));

p_statds64 = %addr(MyStat);

Qp0lFID_j.gid = statds64.st_ino_gen_id;
Qp0lFID_j.fid = statds64.st_ino;
p_pathFromApi = Qp0lGetPathFromFileID (p_pathFromApi:
%size(pathFromApi)
: Qp0lFID_j);

return;

/end-free


The pointer p_pathFromApi that is returned, is *NULL. I've checked fid
and gid with Qp0lGetAttr. They are identical. What am I doing wrong?

Thank you very much in advance.

Best regards

Jan