CLOB in das IFS schreiben

[mk]

Hallo zusammen,

eigentlich eine simple Aufgabe, aber es will mir nicht gelingen.

Ich möchte eine CLOB Datei ( soll später als hmtl Anhang per mail versendet werden )
in das IFS schreiben

  dcl-c q  const('''');
  dcl-s aString     varchar(200);
  dcl-s aHtmlString varchar(10000) ;
  dcl-s clob        sqltype(CLOB:10000) ;

  dcl-s aHtmlMailFile sqltype(clob_file)  ;
  dcl-s aHtmlMailFilePath varchar(100) inz('/home/username/atesthtmlfile.html') ;

do
.. fetch ...
   aHtmlString += aString;     
enddo


 clob_data =aHtmlString;
 clob_len =%len(%trim(aHtmlString));


       //  SQL CLOB setzen
   
    aHtmlMailFile_Name = %trim(aHtmlMailFilePath);
    aHtmlMailFile_NL = %len(%trim(aHtmlMailFile_Name));
    aHtmlMailFile_FO = SQFOVR;  
   
// IFS Datei anlegen
 exec sql values(:clob) into : aHtmlMailFile  ; 

Soweit klappt das. Die Datei wird auf dem IFS angelegt.

Allerdings sind die Dateninhalte nicht lesbar.

Weiß jemand welche CCSIDs verwendet werden müssen
damit eine html Datei gesendet werden kann ?

Gruß an alle
Michael