Re: Retrieving object names on the IFS

On Fri, 4 Jan 2002, Scott Klement wrote:

> Here's an example (in RPG IV) of using option c.  You might also find it
> helpful to go to  http://archive.midrange.com/rpg400-l/index.htm
> and search for "opendir" or "Qp0lProcessSubtree" for other examples.
> In fact, searching the archives for this list might also be helpful...
>
> but... at any rate, here's the example code:

[code snipped]

Wow, that looks like a lot of code.  Almost all of it is D specs defining
variables and functions.  That stuff is #include'd in my C version, which
I think makes the C code more readable.  Are there C include file
equivalents for RPG?  I know you can use /INCLUDE and /COPY, but that's
not what I'm referring to.  I mean system supplied header files that make
all the D spec stuff unnecessary.  So you could just do something like:

D/INCLUDE types.h
D/INCLUDE dirent.h

Of course I guess it would be nice if RPG supported typedef, too (maybe it
does?).

For the original question asked by the poster, I wonder if it would be
easier to code the IFS stuff in C and then make it a bound procedure for
the RPG program?  You could make your own function called
'change_directory' that would be a C function to do the chdir() API
and another function to list the files.  That would be pretty easy I
think.

James Rich
james@eaerich.com