|
Hi Frank, Your window starts at line 4 with 18 lines so it will cover line 4 to line 23 (including the top and bottom borders). Your function key and message lines (which are not part of the window) are on lines 21 to 22 so they are covered. Here is my solution: On subfile control screen, instead of using window definition, use the window reference.... and define the window on your function key and message lines record.... * screen 1 subfile control (WINCDEC1) A WINDOW(WINCDEB1) * function key and message lines (WINCDEB1) A WINDOW(4 16 18 50) A WDWBORDER(*COLOR BLU) (*DSPATR HI RI) (*CHAR ' ') A RMVWDW A B01FKEY 49 O 16 2COLOR(BLU) A B01MSGLN 49 O 17 2COLOR(WHT) ----- Original Message ----- From: <FKany@idssinfo.com> To: <RPG400-L@midrange.com> Sent: Tuesday, September 12, 2000 8:32 AM Subject: Window Subfiles > ------------------------------- > 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 > +--- > +--- | 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 mailing list archive is Copyright 1997-2025 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.
midrange.com
