Code:
     
          Chain MyKey MyFile;                                             
          *IN50 = Not %Found(MyFile);                                      
          If  *IN50 = *OFF;                                                 
            Clear  WK2KST;                                                  
            Chain MyKey MyFile;                                           
            *IN50 = Not %Found(MyFile);                                    
            If  *IN50 = *OFF;                                               
              F2KOST = F2AKT;                                              
            Else;                                                           
              F2KOST = F2KOST_Sv;                                           
            EndIf;                                                          
          EndIf;                                                            
                                                                            
 /End-Free                                                                  
c     MyKey        chain     MyFile                            50         
c   50              clear                   Wk2kst                          
c   50MyKey        chain     MyFile                            50         
c                   if        *in50 = *off                                  
c                   eval      F2KOST = F2AKT                               
c                   else                                                    
c                   eval      F2KOST = F2KOST$                            
c                   endif
Frau Hauser habe ich das korrekt aufgelöst?