Anzeige eines Windows - Aufrufender Bildschirm verschwindet

[Heyden]

Hallo Miteinander,
ich habe folgendes Problem und bitte um Hilfe.

bei der Anzeige des nachfolgenden Auswahl-Windows verschwindet die Anzeige des aufrufenden Bildschirms, ist aber nach Rückkehr ins aufrufende Programm wieder da. RSTDSP *YES wurde bei der Umwandlung berücksichtigt.

Woran kann es nun liegen?
Bin für jede Hilfe dankbar.

Gruss

Stefan Heyden


A*================================================ ================
A DSPSIZ(24 80 *DS3)
A REF(*LIBL/MDMD00 MDMD00A)
A PRINT
A ERRSFL
A CA03
A CA12
A*----------------------------------------------------------------
A R WINDOW1 SFL
A CTLFLD 1Y 0H SFLCHCCTL
A W1DESC 40A O 6 2
A*................................................ ................
A R SF1CTL SFLCTL(WINDOW1)
A OVERLAY
A SFLSIZ(0050)
A SFLPAG(0007)
A WINDOW(*DFT 14 44 *NOMSGLIN)
A USRRSTDSP
A SFLDSP
A N31 SFLDSPCTL
A 31 SFLCLR
A N31 SFLEND(*MORE)
A WDWBORDER((*COLOR PNK))
A WDWTITLE((*TEXT 'NAME SELECTION') (-
A *COLOR WHT))
A WDWTITLE((*TEXT 'F12=Abbruch') (*CO-
A LOR BLU) *BOTTOM)
A SFLSNGCHC(*RSTCSR)
A SFLCSRRRN(&RRN1)
A RRN1 5S 0H
A 5 2'Schlüssel Bezeichnung -
A '
A DSPATR(HI)
A DSPATR(UL)
A W1HDR 42 O 1 2COLOR(BLU)
A 3 2'Auswahl mit Enter, F12=Abbruch -
A '
A COLOR(BLU)
A R ASSUME
A ASSUME
A 1 3' '

A*----------------------------------------------------------------
A R FKEY1
A 22 2' -
A -
A '
A DSPATR(UL)
A 23 2'F3=Ende'
A COLOR(BLU)
A 23 10'F4=Auswahl'
A COLOR(BLU)
A 23 21'F6=Hinzufügen'
A COLOR(BLU)
A 23 35'F8=Scan'
A COLOR(BLU)
A 23 43'F9=Verfolgung'
A COLOR(BLU)
A 23 57'F11=Sichten'
A COLOR(BLU)
A 23 69'F12=Zurück'
A COLOR(BLU)
A 99 YFEHL 78A O 24 2DSPATR(HI)
A*----------------------------------------------------------------
A R FKEY2
A 22 2' -
A -
A '
A DSPATR(UL)
A 23 2'F3=Ende'
A COLOR(BLU)
A 23 10'F12=Zurück'
A COLOR(BLU)
A 99 YFEHL 78A O 24 2DSPATR(HI)
A*----------------------------------------------------------------
A R FKEY3
A 22 2' -
A -
A '
A DSPATR(UL)
A 23 2'F12=Zurück'
A COLOR(BLU)
A 99 YFEHL 78A O 24 2DSPATR(HI)
A* R FKEY3
A R FKEY9
A 22 2' -
A -
A '
A DSPATR(UL)
A 23 2'F12=Zurück'
A COLOR(BLU)
A 99 YFEHL 78A O 24 2DSPATR(HI)

[ExAzubi]

Hallo,

um dieses Problem zu umgehen gebe ich immer eine Maske mit folgenden Daten aus.

A ASSUME
A OVERLAY
A 24 78 ' '
A DSPATR(ND)

Irgendwie bringt das was, eine Leere Maske mit Overlay ausszugeben.

Viele Grüße

ExAzubi

[Fuerchau]

Es reicht, dass ein Satzformat mit ASSUME vorhanden ist, eine Ausgabe ist nicht erforderlich.

Allerdings tritt noch ein gemeiner Effekt auf.
Wenn RSTDSP(*YES) ausgewählt ist, so merkt sich die AS/400 den Bildschirminhalt bei der ersten Ausgabe des Fensters.
Ein wiederholter Aufruf des Fensterprogrammes zeigt den ursprünglich gemerkten Hintergrund wieder an, das Hintergrund-Bild ist dann also nicht mehr aktuell !

Lösung:
a) das Fensterprogramm mit *INLR = *ON verlassen
b) die DSPF mit USROPN (UC) deklarieren und im Programm immer Open/Close verwenden.

[Heyden]

Danke. werde es morgen ausprobieren.

Gruss

Stefan Heyden

[Heyden]

Hallo,

das Problem besteht weiterhin.

Gruss

Stefan

[Fuerchau]

So wie ich das sehe, hast du noch weitere Satzformate (FKEYx), in denen das OVERLAY fehlt!

[Heyden]

Danke - Danke - Danke

Hallo Baldur,

der Hinweis war entscheidend.
Ich Trottel, warum habe ich dies nicht bemerkt.

Danke - Danke - Danke

Gruss

Stefan