Re: Passing a file to a procedure

[Vernon Hamberg <vhamberg@xxxxxxxxxxx>]

You can use the same C functions in an RPG program - just be sure not 
to use any F-specs for these.

Look for the redbook - "Who Knew You Could" - written by Jon Paris 
and Susan Gantner, et al., at

http://www.redbooks.ibm.com/redbooks/pdfs/sg245402.pdf

That does not have anything specific to the file APIs, but the 
principles should be transferable.

Once you get through some of the basics, do a google on "ropen rpg" - 
lots of hits

Good luck!

At 07:16 PM 11/23/2007, you wrote:

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