RE: Changing Compiled Display File

["Marvin Radding" <MRadding@xxxxxxxxxxxx>]

As my old manager used to say, "Given enough time and money, we can do
anything." 

As to your question, The text descriptions on a file or its fields can
be changed without causing a 4131.  Changing the CA01 to CA03 will cause
a 4131 every time. What I do is put all Function Key on *in15.  Then all
need to do is detect the key via *IN(A-Y).  I do this:

        Select;
        When *inkc;
                {Exit};
        When *inkl;
                {exit};
        When *in15
                {display error message 'Invalid Function key');
        Endsl;

This way you can change the function keys and only have to compile the
program.

Marvin

        

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Captain Jerry
Sent: Friday, July 08, 2005 9:23 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Changing Compiled Display File

Haven't actually tried it with a display file, but maybe the LABEL ON 
command of SQL will do what you want.
 //Captain Jerry/

 On 7/8/05, Shannon ODonnell <sodonnell@xxxxxxxxxxxxxxxxx> wrote: 
> 
> I'm going to guess that this PROBABLY cannot be done..on the other
hand, I
> firmly believe that ANYTHING can be done, eventually.some things are
just 
> a
> lot harder to figure out how to do.
> 
> 
> 
> But. has anyone ever tried to change a compiled display file object?
What
> I'd like to do, were it possible, is to change a label on a record
format,
> and, possibly, change the value of a keyword (like changing CA01 to
CA03,
> for example).
> 
> 
> 
> TIA!
> 
> 
> 
> Shannon O'Donnell
> 
> 
> 
> --
> 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.
> 
>