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