|
Frank, I have worked around your DDS code to match the versions we've created for pop-up subfile windows > 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 12 CF12(12 'F12=Cancel') > A OVERLAY > A N72 SFLDSP > A N71 SFLDSPCTL > A 71 SFLCLR > A 73 SFLEND(*MORE) > A S01RRN 4S 0H SFLRCDNBR(CURSOR) > A* > A* SCREEN 1 > A* > A R WINCDEB1 OVERLAY > A WINDOW(4 16 18 50 *NOMSGLIN) > A WDWBORDER((*COLOR BLU) (*DSPATR HI - > A RI) (*CHAR ' ')) > A CLRL(*NO) > 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 B01FKEY 49 O 21 18COLOR(BLU) > A B01MSGLN 49 O 22 18COLOR(WHT) > > 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' ' > ----- Original Message ----- From: <FKany@idssinfo.com> To: <RPG400-L@midrange.com> Sent: 12 September 2000 13:32 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-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
