Codepage im IFS

[DEVJO]

D CodePage        S             10I 0 Inz(1281)                            1281 Französisch      
                                                                                             
 * Gibt es das File ?                                                                        
D F_OK            C                   Const(0)                                               
                                                                                             
 /free                                                                                       
                                                                                 
            Path = outPath;                                                                  
              If Access(%Trim(Path):F_OK) <> 0;                                              
                 FileW = Open_( %Trim(Path)                                                  
                              : O_CREAT + O_CODEPAGE + O_RDWR                                
                              : S_IRWXU + S_IRWXG + S_IRWXO                                  
                              : CodePage); 

Hier bekomme ich ein FileW = -1