× 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.



On 2021-04-22 5:01 p.m., Alan Campin wrote:
May I suggest.

dcl-pr OpenFile Pointer ExtProc('C_IFS_fopen');
PR_FileName Char(256) Options(*String) Value;
PR_FileMode Char(25) Options(*String) Value;
end-pr;


Not sure whether anyone has said this yet in this thread ...

The data type for OPTIONS(*STRING) is POINTER.

dcl-pr OpenFile Pointer ExtProc('C_IFS_fopen');
PR_FileName Pointer Options(*String) Value;
PR_FileMode Pointer Options(*String) Value;
end-pr;

You can pass either a string or a pointer to a POINTER OPTIONS(*STRING) parameter. If you pass a string, RPG will take care of adding the x'00' for you.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.