Re: IFS Open Help... -- RPG400-L

I appreciate your reply. I'm actually looking to write to the file I'm
trying to open, not read from it.

The reason everything worked last week...
When I first created the program, I was assigning to Write Only, and Create
to OFLAG.   This created my files on the IFS.   I viewed the files in IE,
and noticed that I had to make some changes.
When I called the program the second time, I noticed that there was some
left over junk at the end of the file from the previous build.  So then I
changed OFLAG to write only and truncate.  This resolved the issue of left
over data being in the file from previous builds.
But now, that I'm creating brand new file names, the oflag value isn't
correct.

Now that I think about it, I should have to worry about the file already
existing.  It should NOT ever exist.  Just an FYI, I'm processing an
invoice file from a vendor and building a brand new HTML page for each
invoice.  This vendor shouldn't send an invoice twice.

Maybe, I should check to see if the invoice HTML page exists, if it does...
skip the current invoice being processed instead of overwritting what's
there.

Thanks.


Michael Schutte
Admin Professional
Bob Evans Farms, Inc.
For hotcake tips, interviews with our chefs and more, check out the Stacked
and Stuffed blog at http://imstuffed.blogspot.com


rpg400-l-bounces@xxxxxxxxxxxx wrote on 03/09/2007 10:42:18 AM:

Hi Michael,

--snip------
ifsfile = '/tmp/test.txt';
fd = open(%trimr(ifsfile): O_RDONLY: 511: 1252);

dou (done = 1);
        len = read(fd : %addr(Buff) : %size(Buff) );
        if (len < 1);
                done = 1;
        endif;
enddo;

close(fd);
--snip------

Thats the normal way to do it.

fd is defined as 10i0
ifsfile is 1024a in my version
buff is 8192a

I hope this is correct :)
I copied this from one of my programs, that works (at least it worked the

last time i used it :) ).
read() is the only function, that needs the pointer adress to read data
into..
open() just wants the plain filename.

best regards
 Martin
--
This is the RPG programming on the AS400 / 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.