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



//* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
//* GetErrorMessageId
//* Get the error message Id for the Unix Error.
//* Input - None
//* Out - None
//* Returns - Message Id.
//* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
dcl-proc GetErrorMessageId;
dcl-pi *N Char(7) end-pi;

dcl-pr GetErrorNumberApi Pointer ExtProc('__errno') end-pr;

dcl-s ErrorNumber Int(10) Based(PtrErrorNumber);

PtrErrorNumber = GetErrorNumberApi();

Return 'CPE' + %Char(ErrorNumber);

end-proc;

On Thu, Apr 22, 2021 at 2:16 PM Art Tostaine, Jr. <atostaine@xxxxxxxxx>
wrote:

I'm also trying to code the errno routines but finding a mix of old "D"
Spec and free format and I Can't get it to work. If anyone has a working
example of that in *free please let me know. Thank you.

On Thu, Apr 22, 2021 at 5:12 PM Art Tostaine, Jr. <atostaine@xxxxxxxxx>
wrote:

Thanks Alan. Compile Error:

Message ID . . . . . . : RNF3360 Severity . . . . . . . : 20

Message type . . . . . : Diagnostic



Message . . . . : OPTIONS(*STRING) is not valid for a parameter of the

specified type.

Cause . . . . . : OPTIONS(*STRING) can be specified only for basing
pointer
parameters. OPTIONS(*STRING) is ignored.

Recovery . . . : Change the data type of the parameter or remove the

OPTIONS(*STRING) keyword. Compile again.


On Thu, Apr 22, 2021 at 5:01 PM Alan Campin <alan0307d@xxxxxxxxx> 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;

dcl-s FilePtr Pointer;

FilePtr = OpenFile('/tmp/wc/images/post_out.json':
'r');

Have not tested but should work.


On Thu, Apr 22, 2021 at 1:42 PM Art Tostaine, Jr. <atostaine@xxxxxxxxx>
wrote:

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

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

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


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


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.