Re: Script Help

On Thu, 2006-02-16 at 11:51 -0600, Mike Wills wrote:
> There is a Perl script I got from our vendor that is used to install
> patches. Rather cool and much more automated than previously, however there
> is still quite a few manual steps I would like to automate. So I a writting
> a CL program to automate this a bit more.
> 
> 1. Is there a way in CL to get the first filename (alpha sorted) in a
> directory?

Sort of.   Call an RPG program that uses the opendir/readdir API's.  You
could probably hack this into a CL, but it will be much easier to write
and maintain if you write it in C or in RPG.


> 2. What is the easiest way to get a list of
>   a. Source Physical Files
>   b. Source Members
> I need this to "archive" the origonal source before the patch is installed.
I would SAVLIB before any upgrades.  However, DSPOBJD to an outfile, for
a list of objects.  Then use RCVF in a loop to read the data.  

Then, DSPFD *MBRLIST to an outfile.  Use a second program to RCVF the
members.


> (Just incase there is a problem)
> 
> I know I can do this in RPG with API's but I am wondering if this can all be
> done in CL.
Probably not worth the effort to do it strictly with CL.