Re: c_ifs_open Problem

Hi Barbara: This is from Simon's site where you posted a comment.

dcl-pr OpenFile pointer extproc('_C_IFS_fopen') ;
*n pointer value ; //File name
*n pointer value ; //File mode
end-pr ;

PathFile = '/tmp/wc/images/post_out.json' + x'00' ;
OpenMode = 'r' + x'00' ;
FilePtr = OpenFile(%addr(PathFile):%addr(OpenMode)) ;

** Result is FilePtr = *null

https://www.rpgpgm.com/2016/03/a-better-way-to-read-file-in-ifs-with.html

On Thu, Apr 22, 2021 at 4:40 PM Barbara Morris <bmorris@xxxxxxxxxx> wrote:

On 2021-04-22 1:51 p.m., Art Tostaine, Jr. wrote:

Debugging a program that stopped working recently. I think this code was
copied from Simon, Liam also has a version.

PathFile = '/tmp/wc/images/post_out.json' + x'00' ;
OpenMode = 'r' + x'00' ;
FilePtr = OpenFile(%addr(PathFile):%addr(OpenMode)) ;

What is the prototype for OpenFile?

--
Barbara

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com