Re: Subfile Window border -- RPG400-L

Hi Bob,

Is the prompt window in the same display file as the format for which you're
showing valid data?  Or is it in a separately called program?  Are you
displaying a footer format with a function key legend?  I had a similar
problem which was solved by putting all the window keywords into a separate
format with nothing else, e.g.

     A          R WINDOW1
     A                                      WINDOW(*DFT 16 75)
     A                                      WDWTITLE((*TEXT 'YOUR TITLE'))
     A                                      WDWBORDER((*COLOR(BLU) +
     A                                            *DSPATR(RI HI) *CHAR('
'))

then refer to it in your subfile control record, and footer format:

     A          R CONTROL1                SFLCTL(SUBFILE1)
     A                                      SFLSIZ(0016)
     A                                      SFLPAG(0002)
     A                                      WINDOW(WINDOW1)
     A                                      OVERLAY
     A  82                                  SFLDSP
     A  83                                  SFLDSPCTL
     A  81                                  SFLCLR
     A  84                                  SFLEND

     A          R FOOTER1
     A                                      WINDOW(WINDOW1)
     A                                 15  3'Enter = Accept'
     A                                 15 36'F8 = Fold'
     A                                 15 49'F16 = Sort by cursor column'

And in your program, display the window format first:

     c                   write     WINDOW1
     c                   write     FOOTER1
     c                   exfmt     CONTROL1

Since this was in a called program, it also had the requisite dummy format:

     A          R DUMMY
     A                                      ASSUME
     A                                  1  2' '

hth,

Peter Dow
Dow Software Services, Inc.
909 793-9050 voice
909 793-4480 fax
951 522-3214 cell



----- Original Message ----- 
From: "Bob Kohlndorfer" <kohlnbob@xxxxxxxxxxx>
To: <RPG400-L@xxxxxxxxxxxx>
Sent: Thursday, April 28, 2005 8:45 PM
Subject: Subfile Window border


I have a prompt window that displays with valid data for a field.
Everything works fine the first time I display the window.  But on
subsequent time I loose the border of the window.
The first time I have a nice almost shadow box border with the title along
the top.  On all subsequent displays my top line is made up of periods with
the title still centered (..... Title ....) but no border on the sides or
bottom.
When I defined a border WDWBORDER((*COLOR(BLU) *DSPATR(RI HI) *CHAR('
')) the first time still comes up fine but subsequent displays loose the
sides and bottom but also part of the background panel is then also Reversed
Image, High Intensity.

Am I missing a keyword or something that someone could point me in the
correct direction?

Thanks,
Bob
-- 
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.



-- 
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.11.0 - Release Date: 4/29/2005




-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.11.1 - Release Date: 5/2/2005