|
midrange.com
Just a guess, but you may try to reposition the window.
// WINDOW(4 16 18 50 *NOMSGLIN)
This tells me you're window is positioned on line 4 and continues 18 lines, this
will place the bottom line at line 22.
Yet, at line 21 are your function key displays.
Mark A McCarty
FKany@idssinfo.com on 09/12/2000 08:32:43 AM
Please respond to RPG400-L@midrange.com
To: RPG400-L@midrange.com
cc: (bcc: Mark McCarty/HQ/NEXNET)
Subject Window Subfiles
:
Fax to:
-------------------------------
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 email and any files transmitted with it are intended solely for
the use of the individual or agency to whom they are addressed. If
you have received this email in error please notify the Navy Exchange
Service Command e-mail administrator.
This footnote also confirms that this email message has been scanned
for the presence of computer viruses.
messaging_support_team@nexnet.navy.mil
**********************************************************************
+---
| 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.
