Codepage im IFS

[DEVJO]

Hallo,

ich benutze das Tool von D.Bender zum lesen und schreiben von Textfiles im IFS, welche dann von einem Fax-Server nach Frankreich geschickt werden.
Nun wollte ich die CodePage in 1281 (Französisch) abändern.
Bekomme damit aber beim Open_ immer einen Fehler, woran kann das liegen?

[BenderD]

... wo geändert? welchen Fehler?

D*B

Hallo,

ich benutze das Tool von D.Bender zum lesen und schreiben von Textfiles im IFS, welche dann von einem Fax-Server nach Frankreich geschickt werden.
Nun wollte ich die CodePage in 1281 (Französisch) abändern.
Bekomme damit aber beim Open_ immer einen Fehler, woran kann das liegen?

[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

[BenderD]

... nimm mal die 297 (EBCDIC France)

D*B

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