Re: Variable length record in different files

[rob@xxxxxxxxx]

SQL?

Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin



                    Jim Langston
                    <jlangston@celsin       To:     "'rpg-l@midrange.com'" 
<rpg-l@midrange.com>
                    c.com>                  cc:
                    Sent by:                Fax to:
                    rpg400-l-admin@mi       Subject:     Variable length record 
in different files
                    drange.com


                    03/22/2002 04:01
                    PM
                    Please respond to
                    rpg400-l






I'm writing a program/utility to go through all the source code files on
our
system and put the comments into a file that we can run some reports on,
export to excel, etc...  The comments are all going to be between the H
spec
(if it's there) and the first I or D or C spec, so this isn't a problem.

My problem is this: I have done a DSPFD for all the Q* files on our system
to get a list of source files and members, which I cleaned up and took the
non source out of.  Now I'm going to read through this file, either in CL
or
RPG, doesn't matter which, open up the source member and read the comments.
That's where my problem comes in.  Some of these files have record lengths
of 92, some 112, etc..  I'm 99% sure that if I just specified the longest
record length of 112 and internally described the file it wouldn't not work
the way I wanted to at all.

The only other thing I can think of is to create 3 or more versions of this
RPGLE program, one with each of the different record lengths I come across,
and in a CL or such look at the record length and call the proper RPGLE
program to read the comments.

Can anyone think of a better way to do this?  If possible, I would like to
do this in only one RPG program.

Regards,

Jim Langston
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.