Sfl-Problem

[tarkusch]

Hallo,

ich wollte bei leerem Sfl, einfach einen Text ausgeben.
Aber leider Funktioniert das anscheinend nur bei mir in
einem Window.

A          R SFL1CLEAR                                                   
A                                      SLNO(03)                          
A                                      CLRL(07)                          
A                                      OVERLAY                           
A                                                                        
A          R SFL1EMPTY                                                   
A                                      OVERLAY                           
A                                 10 30'!! no records found !!'          
A                                      DSPATR(BL)                        
A                                      COLOR(RED)                        
A          R FMTC1                     SFLCTL(FMTS1)
A                                      SFLSIZ(0015) 
A                                      SFLPAG(0014) 
A                                      CHANGE(05)   
A  20                                  SFLDSP       
A N20                                  SFLCLR       
A  21                                  SFLDSPCTL  
A                                      OVERLAY    


IF  (SF#1 = 0);   
  *IN20 = *OFF;   
  WRITE SFL1CLEAR;
  WRITE SFL1EMPTY;
ELSE;             
  *IN20 = *ON;    
ENDIF;

Dank und Gruß

Tarki

[Fuerchau]

Das Problem ist immer das Überlagern von Satzformaten mit Overlay.
Die SFL ist immer im Zusammenhang mit mit dem SFLCTL zu sehen.
Overlay bedeutet nur, dass der Bildschirm nicht gelöscht wird. Ein überlappendes Format wird aber entfernt.

Ein WRITE auf das SFLCTL gibt das gesamte Format aus und löscht ggf. den Bereich der SFL wenn sie nicht angezeigt wird.
Wenn anschließend SFL1EMPTY ausgegeben wird, ist das SFLCTL nicht mehr aktiv und ein READ schlägt dann fehl.

Wenn dein SFLCTL keine Eingabefelder hast, kannst du im SFL1EMPTY statt OVERLAY lieber CLRL(*NO) und nach dem WRITE FMTC1 ein EXFMT SFL1EMPTY machen.
Vergesse aber nicht gf. noch benötigte Funktionstasten dort zu definieren.

[tarkusch]

Cool! Danke vielmals(wiedereinmal).