Keine Daten im Windows Subfile

[DEVJO]

Moin moin,

ich habe ein kleines Problem mit der Anzeige von Daten in einem Windows Subfile

A          R PLH_SFL                   SFL                 
A            BS_WAHL        1A  I  4  1VALUES(' ' '1')     
A            BS_PLATZH     25A  O  4  6                    
 *                                                         
A          R PLH_CTL                   SFLCTL(PLH_SFL)     
A                                      SFLCSRRRN(&RECNR)   
A  81                                  SFLDSP              
A  82                                  SFLDSPCTL           
A  83                                  SFLINZ              
A  80                                  SFLCLR              
A  84                                  SFLEND(*MORE)       
A                                      SFLSIZ(0011)        
A                                      SFLPAG(0010)        
A                                      WINDOW(4 10 17 30 *NOMSGLIN)     
A            RECNR          5S 0H                                       
A            PAGNBR         4S 0H      SFLRCDNBR                        
A                                  1  2'Übersicht Platzhalter'          
A                                  3  1'AW'                             
A                                  3  6'Platzhalter'                    
 *                                                                      
A          R DUMMY                      KEEP                            
A            TEST           1     17  2 

Das Subfile wird angezeigt, aber die Daten leider nicht, das Feld BS_PlatzH wird aber befüllt.

Begsr $Exfmt;                                                       
      Exfmt PLH_TXT;                                                
      If     InfDS.Taste = F09;                                     
             Texte = BS_Fld01 + BS_Fld02 + BS_Fld03 +               
                     BS_Fld04 + BS_Fld05 + BS_Fld06 +               
                     BS_Fld07 + BS_Fld08 + BS_Fld09;                
             If F_SetPHText(Firma:BS_Platz:BS_Sprach:               
                            TEXTK1:Texte:2222) = FALSE;             
                BS_MSG = %Subst(Get_MSG('PLH5001'):19);             
             Endif;                                                 
      Elseif InfDS.Taste = F04;                                     
             Exsr $Init_PLH_CTL;                                    
             Exsr $Fill_PLH_SFL;                                    
             Exsr $Exfmt_SFL;                                       
      Endif;                                                        
Endsr;                                                              
// *****************************************************************
Begsr $Exfmt_SFL;                                                   
      Dou InfDs.TASTE = F03;                                        
          SflDSP    = FALSE;                                        
          SflDSPCTL = TRUE;                                       
          Write DUMMY;                                            
          Exfmt PLH_CTL;                                          
          SflDSP    = TRUE;                                       
          SflDSPCTL = FALSE;                                      
          Exsr $Taste;                                            
      Enddo;                                                      
Endsr;                                                            
// ***************************************************************
Begsr $Taste;                                                     
Endsr;                                                            
// ***************************************************************
Begsr $Fill_PLH_SFL;                                              
      Sprache = Sprach;                                           
      Dou BS_PlatzH = '*STOP';                                    
          BS_PlatzH = F_Get_All_PH(Firma:2222:Sprache:'READ');    
          If BS_PlatzH <> '*STOP';                                
             RecNr += 1;                                          
             Write PLH_SFL;                                       
             If     RecNr = 16;                                   
                    SflEnd = TRUE;                                           
             Elseif %Rem(RecNr:10) = 0;                                      
                    PagNbr += 1;                                             
             Else;                                                           
                    SflEnd  = FALSE;                                         
             Endif;                                                          
          Else;                                                              
             BS_PlatzH = F_Get_All_PH(Firma:2222:Sprache:'CLOSE');           
          Endif;                                                             
      Enddo;                                                                 
Endsr;                                                                       
// **************************************************************************
Begsr $Init_PLH_CTL;                                                         
      Clear BS_PlatzH;                                                       
      RecNr     = 0;                                                         
      SflDsp    = FALSE;                                                     
      SflDspCtl = TRUE;                                                      
      Write PLH_CTL;                                                         
      SflDsp    = TRUE;                                                      
      SflDspCtl = FALSE;  
   Endsr;                                                 
/end-free                                                 
********************************************************** 

[Fuerchau]

SflDSP muss AN sein, damit die SFL auch angezeigt wird.
Prüfe das beim entsprechenden EXFMT.

SFLINZ wird nicht benötigt, wenn du die SFL nicht mit der entsprechenden Anzahl Leersätzen befüllen willst.
Ein WRITE fügt dann am Ende an.

SFLCLR muss an sein, wenn du den vorherigen Inhalt löschen willst.