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

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

Ah, now I see what I missed! In the previous version you passed
p_pathFromApi as input to the API, without pointing it to pathFromApi. So
you gave the API a null pointer to work with :-)

Best wishes to you too,

Joep Beckeringh
Pantheon Automatisering

Jan Grove Vejlstrup <jgv@xxxxxxxx>

24-12-2015 10:08

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

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.