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



-------------------------------
Here is the Problem:
-------------------------------
I have an RPGILE program that calls a Popup Window.  The Window that is
called is a Subfile.  There is Record Format that is being written to the
screen that contains the Function Keys(F4=Prompt, F12=Cancel, etc........)
right below the subfile.

Now what's happening is the Record containing the function keys is being
written to the screen but the window is covering the function keys.


--------------------------------------------------
RPGILE PGM for window display:
--------------------------------------------------
0119.00  *
0120.00  * Execute S/R to Enable Available Function Keys
0121.00 C                   EXSR      S00EAFKY
0122.00  *
0123.00  * Display Screen
0124.00 C                   WRITE     WINCDEB1-------------(Record Format
containing the function keys)
0125.00 C                   EXFMT     WINCDEC1-------------(Subfile
Control)
0126.00  *
0127.00  * Execute S/R to Reset Field Values/Error Indicators etc.
0128.00 C                   EXSR      W01RESET



-------------------
Display File:
-------------------
     A*****************************************************************
     A* Copyright INTEGRATED DATA SYSTEM & SERVICES - 2000
     A*****************************************************************
     A*
     A*  FILE ID             -    WINCDEF1
     A*  Application ID      -    TIMEX System
     A*  Application Name    -    Lookup for File CDE
     A*  Date Generated      -    August 4, 2000
     A*
     A*****************************************************************
     A*%%EC
     A                                      DSPSIZ(24 80 *DS3)
     A                                      REF(*LIBL/FRF)
     A                                      ALTPAGEUP(CF07)
     A                                      ALTPAGEDWN(CF08)
     A*
     A* SCREEN 1 SUBFILE
     A*
     A          R WINCDES1                  SFL
     A            S01ACT         2A  B  8  2COLOR(WHT)
     A  32                                  DSPATR(RI)
     A  32                                  DSPATR(PC)
     A            S01CDE    R        O  8  7REFFLD(FRFSTS)
     A            S01CDESC  R        O  8 13REFFLD(FRFLNME)
     A*
     A* SCREEN 1 SUBFILE CONTROL
     A*
     A          R WINCDEC1                  SFLCTL(WINCDES1)
     A                                      SFLSIZ(0008)
     A                                      SFLPAG(0007)
     A                                      WINDOW(4 16 18 50 *NOMSGLIN)
     A  12                                  CF12(12 'F12=Cancel')
     A                                      OVERLAY
     A N72                                  SFLDSP
     A N71                                  SFLDSPCTL
     A  71                                  SFLCLR
     A  73                                  SFLEND(*MORE)
     A                                      WDWBORDER((*COLOR BLU) (*DSPATR
HI -
     A                                      RI) (*CHAR '        '))
     A                                      RMVWDW
     A            S01RRN         4S 0H      SFLRCDNBR(CURSOR)
     A                                  1 17'Look Up Processing'
     A                                      COLOR(WHT)
     A                                  3  2'Select Action Code then Press
Ente-
     A                                      r:'
     A                                  6  2'Act'
     A                                  6  7'Code'
     A                                  6 13'Description'
     A            C01ACT         2A  B  7  2COLOR(WHT)
     A  30                                  DSPATR(RI)
     A  30                                  DSPATR(PC)
     A            C01CDE    R        B  7  7REFFLD(FRFSTS)
     A                                      COLOR(WHT)
     A  31                                  DSPATR(RI)
     A  31                                  DSPATR(PC)
     A            C01ACT1       49A  O  4  2COLOR(BLU)
     A            C01ACT2       49   O  5  2COLOR(BLU)
     A          R WINCDEB1                  OVERLAY
     A            B01FKEY       49   O 21 18COLOR(BLU)
     A            B01MSGLN      49   O 22 18COLOR(WHT)

A**********************************************************************
     A* DUMMY RECORD TO REMOVE WINDOW FROM DISPLAY FILE BEFORE RETURNING

A**********************************************************************
     A          R RMVWDW                    CLRL(*NO) OVERLAY FRCDTA

A**********************************************************************
     A* NO I/O WILL EVER BE DONE TO THIS RECORD.  THIS RECORD PREVENTS THE
     A* DISPLAY FROM CLEARING.

A**********************************************************************
     A          R DUMMY                     ASSUME
     A                                 11  1' '




Thank you.

Frank W. Kany IV
Integrated Data Systems and Services
2675 Morgantown Road, Suite 1100
Reading, PA 19607



+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

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.