RE: Window Does Not Exist?

["Rex Capio" <rex_capio@xxxxxxxxxxxxxxxxxxxxx>]

I remember it happened to me long time ago and this is what I did:

        N41             SFLDSPCTL

And it worked.

HTH...

Rex



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Captain Jerry
Sent: Friday, May 19, 2006 11:30 AM
To: RPG programming on the AS400 / iSeries
Subject: Window Does Not Exist?

Hi all,  Now I've got a "strange subfile problem" ~ Must be the day for
them...

A small subfile test program that I have, compiles fine, but errors on the
initial Write to the control-record (with SFLCLR Indicator *On, and all
other's off) with "Window does not exist" (CPF500A) The Cause says "An
attempt was made to display a window record in a window that is not
currently being displayed." (What? LOL)

It's a subfile-in-a-window thing! Oh, it also works fine if I don't do an
initial clear of the subfile!  If I load the subfile, execute format on the
control-record, and then clear the subfile, it works fine, but that's
backwards!

Here's the Display file and small test only program...

A          R DSP12SFL                  SFL
A  40                                  SFLNXTCHG
A            S1SEL          1A  B  4  7COLOR(BLU)
A            S1MODEL        5A  O  4 11
A            S1YEAR         4S 0O  4 19
A            S1DESC        40A  O  4 25

A          R DSP12CTL                  SFLCTL(DSP12SFL)

A                                      CF02
A                                      CF24
A                                      OVERLAY
A  42                                  SFLDSP
A                                      SFLDSPCTL
A  41                                  SFLCLR
A  42                                  SFLEND(*MORE)
A                                      SFLSIZ(0320)
A                                      SFLPAG(0010)
A                                      WINDOW(DSP12RCD)
A                                  2  6'Sel'
A
DSPATR(UL)
A
COLOR(WHT)
A                                  2
11'Model#'
A
DSPATR(UL)
A
COLOR(WHT)
A                                  2
19'Year'
A
DSPATR(UL)
A
COLOR(WHT)
A                                  2 25'              Description
-
A
'
A
DSPATR(UL)
A
COLOR(WHT)
A            S1POSN         5A  B  3
11COLOR(BLU)
A                                  3 17'<- Position
to...'
A
COLOR(BLU)


A          R
DSP12RCD
A                                      WINDOW(6 3 15 70
*NOMSGLIN)
A                                      WDWBORDER((*COLOR WHT) (*DSPATR HI
-
A                                      RI) (*CHAR
'+-+||+-+'))
A                                 15  7'F2=Return'
A                                      COLOR(BLU)
A                                 15 19'F24=Process'
A                                      COLOR(BLU)

=====================================================================

fwkd111c_svcf   e             workstn sfile(dsp12sfl:rrn12)

d rrn12           s              4  0

 /free

  *in41 = *on;
  clear *in42;
  write dsp12ctl; <- Errors here....

  clear *in41;

  s1model = 'xxxxx';

  for rrn12 = 1 to 20; <- Just to load the subfile with test
data.
    write dsp12sfl;
  endfor;

  *in42 = *on;
  write dsp12rcd;
  exfmt dsp12ctl;

  if *inkb;
    *inlr = *on;
  endif;

 /end-free