Re: IFS Open & Append

Thank you. Damn that I overlooked that.

On Tue, Apr 26, 2016 at 8:28 PM, Glenn Gundermann <
glenn.gundermann@xxxxxxxxx> wrote:

Try adding O_append to the 2nd open.


Yours truly,
Glenn Gundermannglenn.gundermann@xxxxxxxxx (416) 317-3144
-------- Original message --------From: Jack Tucky <jacktucky@xxxxxxxxx>
Date: 2016-04-26 8:17 PM (GMT-05:00) To: "RPG programming on the IBM i
(AS/400 and iSeries)" <rpg400-l@xxxxxxxxxxxx> Subject: IFS Open & Append
I'm trying to open a stream file to append data to it. This is the code

I

grabbed from the internet to test:

fd = open(%trim($file_name)
: O_WRONLY+O_CREAT+O_APPEND+O_CCSID
: S_IRGRP + S_IWGRP + S_IXGRP:819);
callp close(fd);
fd = open(%trim($file_Name):O_WRONLY+O_TEXTDATA);

$xml = '<Items>';
callp write(fd: %addr($xml): %len(%trim($xml)));

when I write to the stream file it goes to the beginning of the file.

I tried reading through the file using this first, then using write but

it

did the same thing

dow (read(fd: %addr(Buf): %size(Buf)) > 0);
buf = *allx'20';
enddo;

How can I add to the end of a stream file?
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

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

Please contact support@xxxxxxxxxxxx for any subscription related
questions.