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

Hello Joep,

I tried it on 7.1, it didn't work. Then I changed my little program:

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
d p_pathFromApi s *

/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 (%addr(pathFromApi)
: %size(pathFromApi)
: Qp0lFID_j);

return;

/end-free

and now it works. Thank you very much for your valuable assistance.

I wish you (and everybody) a Merry Christmas and a Happy New Year.

Best regards

Jan


Am 24.12.2015 um 08:11 schrieb j.beckeringh@xxxxxxxxxxxxxxxxxxxxxxxxxx:

Hm. Then I don't see what is wrong; looks like the same code I am using
and that is working (on 7.1). I suppose you could give it a retry after
the release update.

Joep Beckeringh
Pantheon Automatisering

Jan Grove Vejlstrup <jgv@xxxxxxxx>

23-12-2015 15:16

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

Joep,

Here comes the result of WRKLNK option 8;

X'00000000000000018A955A5700015DB9'

and here the string from the debug of my program:

00000 00000000 00000000 8A955A57 00015DB9 - .

Apart from the last bit of the first 8 bytes the two strings are
identical to me. You have already observed and reported the difference
in the first 8 bytes.

We are on 6.1 until end of January next year. Then we will switch to

7.2.

Best regards

Jan