|
Frank, Don't make the Function key Screen as a Record Format instead make it a simple window refering to your main Subfile Control Record format for size and use Overlay. Parvez. >From: FKany@idssinfo.com >Reply-To: RPG400-L@midrange.com >To: RPG400-L@midrange.com >Subject: Window Subfiles >Date: Tue, 12 Sep 2000 08:32:43 -0400 > >------------------------------- >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 >+--- _________________________________________________________________________ Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com. Share information about yourself, create your own public profile at http://profiles.msn.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-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.
midrange.com
