Hallo @ all

in einem Programm, dass generisch arbeitet, aktualisiere und lösche ich Daten x-beliebiger Dateien

Code:
** Dummyfile für Arbeit mit DBF                    
FDummyFil  UF A F32766        Disk    Block(*No)   
F                                     UsrOpn       
F                                     RecNo(RRN)
Code:
 **-- Generische DBF-Daten: ---------------
 **                                        
 D GenericDbf      Ds                      
 D   DbfDta                1  32766        
 **
Code:
 C     RRN           Chain     DummyFil      GenericDbf
 c                   If        %found( DummyFil )      
  *                                                    
 c                   If        UpdAct = 'D'            
 c                   Delete(e) DummyFil                
 c                   Else                              
 c                   Movel(p)  ExtDta        GenericDbf
 C                   Update(e) DummyFil      GenericDbf
 c                   EndIf                             
  *                                                    
 c                   Else                              
  *                                                    
 c                   If        UpdAct = 'A'            
 c                   Movel(p)  ExtDta        GenericDbf
           
 C                   Write(e)  DummyFil      GenericDbf
 c                   EndIf                             
  *                                                    
 c                   EndIf
UPDATE und DELETE klappt - aber beim WRITE kommt nix in der Datei an.

Hat jemand einen Tipp?

Vielen Dank vorab...