Re: Window format clearing the remainder of the screen

["Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>]

Hello Don,

It seems your cut-and-paste dropped the rightmost characters from the DDS,
and I don't know what the field reference file looks like.  However, I
made my best guess and compiled the DDS using the defaults.  I wrote a
simple RPG program to drive the display.  It works fine on my 440 system
so either:
        o the problem is PTF related
        o or the problem is in how your code handles the screen

Comments:
I certainly wouldn't be doing the DDS the way you have with the SCRN1K
format referencing the SCRN1C window.  I would create a separate window
format and reference that on both SCRN1C and SCRN1K that way it doesn't
matter what order the formats are written to the screen (as long as the
window format itself is written first) and you can use EXFMT on SCRN1C
instead of a WRITE and a READ.  You'll find this more flexible in the long
run.

I probably wouldn't use OVERLAY on the SCRN1K format but would write that
to the window first and then EXFMT the SCRN1C format which will need
OVERLAY.

In addition to the above, you have major interface inconsistencies.
        1. Underlying screen uses F3 to 'do stuff' but window uses it for
Exit.
        2. Windows shouldn't have an Exit key, only a Cancel key.
        3. Inconsistent terminology -- CMD 3 vs. F3

Also, I do hope you are using the AID byte in the file feedback data
structure to test for the F-keys rather than the bloody awful *INKx
method.  I know you have to be using one of those because you don't define
indicators on the F-key definitions in the DDS.

Here is my test code in case it helps.  See if it works on your system.

 FTST_WINDOWCF   E             WORKSTN SFILE(SCRN1S:S1RRN)

 C                   EXFMT     DRIVER
 C                   EVAL      S1MFG = 'ABC'
 C                   EVAL      S1DESC = 'Framistat'
 C                   EVAL      S1RRN = S1RRN + 1
 C                   WRITE     SCRN1S
 C                   EVAL      S1MFG = 'DFG'
 C                   EVAL      S1DESC = 'Thingummyjig'
 C                   EVAL      S1RRN = S1RRN + 1
 C                   WRITE     SCRN1S
 C                   EVAL      S1MFG = 'JKL'
 C                   EVAL      S1DESC = 'Widget'
 C                   EVAL      S1RRN = S1RRN + 1
 C                   WRITE     SCRN1S
 C                   EVAL      S1MFG = 'XYZ'
 C                   EVAL      S1DESC = 'Doohickey'
 C                   EVAL      S1RRN = S1RRN + 1
 C                   WRITE     SCRN1S
 C                   SETON                                        848587
 C                   WRITE     SCRN1C
 C                   WRITE     SCRN1K
 C                   READ      SCRN1C

 C                   SETON                                        LR
 C                   RETURN

Regards,
Simon Coulter.

--------------------------------------------------------------------
   FlyByNight Software         AS/400 Technical Specialists
   http://www.flybynight.com.au/

   Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
   Fax:   +61 3 9419 0175   mailto: shc@flybynight.com.au   \ /
                                                             X
                 ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------