James,
Maybe I'm missing the boat here, but why couldn't you use the native I/O
to read data into a data structure and then pass the data structure, or
pointer, to the procedure? IIRC, your C example is basically passing a
pointer to the file information into your frobozz function. Unless you
need something other than the data the data structure approach would do
the same think I think.
Something like this (syntax not verified):
D FileDS eds ExternalName(InputFile)
/Free
Read InputFile FileDS;
frobozz(FileDS);
/End-Free
Rick
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of James Lampert
Sent: Friday, November 23, 2007 7:16 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Passing a file to a procedure
lmejia@xxxxxxxxxxxxxx wrote:
How about this:
No, sorry, nothing involving OVRDBFs and new shared open data paths
would be even remotely applicable to the situation at hand.
Compare this relatively simple C example:
_RFILE *fp1, *fp2;
fp1 = Ropen("foo/bar", "rr");
fp2 = Ropen("boz/bar", "rr");
frobozz(fp1);
frobozz(fp2);
rclose(fp1);
rclose(fp2);
.
.
.
void frobozz(_RFILE *fp) {
char buffy[81];
_Rreadf(fp, buffy, 80, __DFT);
printf("%-80.80s\n", buffy);
}
We "frobozz" first one file, then the other.
Is there a way to do something similar in ILE RPG?
--
James H. H. Lampert
Touchtone Corporation
--
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.
Privileged and Confidential. This e-mail, and any attachments there to, is intended only for use by the addressee(s) named herein and may contain privileged or confidential information. If you have received this e-mail in error, please notify me immediately by a return e-mail and delete this e-mail. You are hereby notified that any dissemination, distribution or copying of this e-mail and/or any attachments thereto, is strictly prohibited.
midrange.com
