RE: What the beep is wrong with this? -- RPG400-L

Not sure if this just the formatting but if this is commented out

// C API Prototypes - renamed to avoid opcode conflicts Dcl-Pr openFile
Int(10) ExtProc('open');

Then this will not find openFile

FileDesc = openFile(FilePath: O_RDONLY + O_TEXTDATA );

Cheers
Don

Â

Don Brown

Senior Consultant
Â
[1]OneTeam IT Pty Ltd
P: 1300 088 400

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Jon
Paris
Sent: Sunday, 25 January 2026 10:07 AM
To: RPG programming on the IBM i (AS/400 and iSeries)
<rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: What the beep is wrong with this?

I'm playing with Bob and asked him (it?) to create an RPG program to read
an IFS file.

I'm familiar with all of the required APIs (or thought I was) - but the
Bob program will not open the file and I'm danged if I can see why. Here's
an extract of the code which demonstrates the issue.

Ctl-Opt DftActGrp(*No);

// C API Prototypes - renamed to avoid opcode conflicts Dcl-Pr openFile
Int(10) ExtProc('open');
*N Pointer Value Options(*String);
*N Int(10) Value;
*N Uns(10) Value Options(*NoPass);
*N Uns(10) Value Options(*NoPass);
End-Pr;

// Constants for open()
Dcl-C O_RDONLY 1;
Dcl-C O_TEXTDATA 16777216;

// Variables
Dcl-S FilePath Varchar(256) Inz('/home/PARIS/Bob/Test.csv'); Dcl-S
FileDesc Int(10);

// Open the IFS file
FileDesc = openFile(FilePath: O_RDONLY + O_TEXTDATA );

If FileDesc < 0;
Dsply 'Error opening file';
Else;
Dsply 'File Open';
EndIf;

*InLr = *On;

The file opens just fine if I use SQL ( SELECT * FROM
TABLE(QSYS2.IFS_READ(PATH_NAME => '/home/paris/bob/Test.csv'))

So I don't think it is a permissions problem (and yes I have checked that
tooj. It has to be something dumb and I just can't see it.

Jon Paris
Jon.Paris@xxxxxxxxxxxxxx

--
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: [2]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
[3]https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

--
Message protected by MailGuard: e-mail anti-virus, anti-spam and content
filtering.
[4]https://www.mailguard.com.au

Click here to report this message as spam:
[5]https://console.mailguard.com.au/ras/2bX46aVUxL/11ThXLPPWgUKWwImjcf4Km/-0.1

References

Visible links
1. https://www.oneteamit.com.au/
2. https://lists.midrange.com/mailman/listinfo/rpg400-l
3. https://archive.midrange.com/rpg400-l.
4. https://www.mailguard.com.au/
5. https://console.mailguard.com.au/ras/2bX46aVUxL/11ThXLPPWgUKWwImjcf4Km/-0.1