× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.
> 
> 

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.