Re: Overlaying WINDOW

[Russell Conerly <rconerly@xxxxxxxxxxx>]

I'm starting in on this thread late.  This may already been suggested.

Create your regular window with your function keys listed at the
bottom.  In your SFLCTL record, reference the window created with the
WINDOW keyword.
Then in your program EXFMT SFLCTL01


For example:

               R SFL01             SFL
                 FLD01
                 FLD02
                 FLD03

               R SFLCTL01          SFLCTL(SFL01)
                                   WINDOW(KEYS01)

               R KEYS01
0018.10                         WINDOW(4 3 13 72)                   
0018.20                         CF03(03 'EXIT')                 
0018.40                         WDWBORDER((*COLOR BLU) (*DSPATR RI)-
0018.50                          (*CHAR '        '))                
0018.60                         USRRSTDSP   
                           12  2'F3=Exit'
 
                                                                      

Give this a try.  Your mileage will vary.

Regards,

Russell Conerly
IBM Certified Specialist 
RPG IV Developer
Tupelo, MS

        
-------------------
> 
> Murugesh,
> 
> It may also be the order in which you are calling the formats in
your
> program.  A snippet of both the DDS and the PGM may help resolve
your
> issue.
> 
> Mark A McCarty
> Navy Exchange Service Command
> 
> 
> 
> 
> Can you send the DDS of the display file?
> 
> 
> 
> 
> 
> "Paramasivam Murugesan , Gurgaon" <ParamasivamM@xxxxxxxxxxxxxxx>
> @midrange.com on 07/22/2003 09:04:02 AM
> 
> Hi guys.. I am trying to display a footer record in a window. To be
more
> precise, In a window record format, i have a subfile. Beneath the
subfile,
> I
> need to display the "F3=Exit" Kind of stuff....I tried with overlay
+ keep+
> assume...Did not work...Any clues?
> 
> Thanks.
> Murugesh
> 
> 
> 
> 
> 
>
***************************defiant************************************
> This email and any files transmitted with it are intended solely for

> the use of the individual or agency to whom they are addressed. If 
> you have received this email in error please notify the Navy
Exchange
> Service Command e-mail administrator.
> 
> This footnote also confirms that this email message has been scanned

> for the presence of computer viruses.
> 
> messaging_support_team@xxxxxxxxxxxxxxx
>
**********************************************************************
> 
> _______________________________________________
> 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.
> 
>