Sv: Convert O Specs -- MIDRANGE-L

> On 04/08/99 05:40:32 PM "Scott Swaim"  wrote:
> 
> >Is there a utility available that will convert the O-Specs of a RPG/IV
> >program to a PRTF?
> 
> Scott, I have a copy of the Midrange Computing utility, but I don't
think 
> it'll work with RPG IV.  If you can't find the code on the Midrange 
> Computing web site, I can send it your way.  The basic concept is that
you 
> spin through all the external file descriptions, store the field names
and 
> attributes (length!) so you can calculate the start position for the
DDS 
> from the end position in the O spec. 
> 
> Buck Calabro

If anybody are going to reinvent such an utility you might find my
RTVPGMFLDA useful as it can get the basic field attributes directly from
the program with the O-spec in stead of finding some file with the field:

                  Retrieve Pgm Field Attributes (RTVPGMFLDA)     
                                                                 
Type choices, press Enter.                                       
                                                                 
Program  . . . . . . . . . . . .  __________     Name 
  Library  . . . . . . . . . . .     *LIBL_____  Name, *LIBL
Field name . . . . . . . . . . .  __________     Character value
Return Field Type         (16)    __________     Character value
Return Field Length      (5 0)    __________     Number
Return Decimal Positions (5 0)    __________     Number

            Retrieve Program Field Attributes - Help               
                                                                   
The Retrieve Program Field Attributes command is used to retrieve  
the type and length of an internal field in a compiled program     
object. You can always get this information by compiling it (into  
QTEMP with OPTION(*NOGEN)) or maybe by looking in the source, but  
using this command lets a program retrive the information with no  
source and recompile needed.                                       
                                                                   
Programmed by Henrik Krebs (hkrebs@hkrebs.dk) at 1999.01.19        
                                                                   
    Note:  A side effect of this command is that it is counted as
    a 'usage' in the programs statistic. 

The program is freeware and can be ordered at
http://hkrebs.dk/rtvpgmflda.html. Please make a note in the commentbox in
the order "Via your posting at MIDRANGE-L".

I am also interested in getting such a utility considered it's freeware.

Regards

Henrik Krebs

------------------------------------------------------------
Henrik Krebs
IT Consultant (IBM AS/400)
Phone +45 55 44 26 50
Mobile +45 40 88 83 23
Email: hkrebs@hkrebs.dk
Web: http://www.hkrebs.dk/
Snailmail: Kokhaven 8, DK-4736  Karrebaeksminde
------------------------------------------------------------
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---