ich habe es auf meiner 7.3 Maschine mit Systemwert QCCSID 1141 und Job-CCSID 1141 wie folgt nachgebaut und es funktioniert einwandfrei. Die CCSID der Datei im IFS ist 1208 und auch Notepad++ zeigt UTF8 an.
HTML-Code:
ctl-opt dftactgrp(*no) main(main);
//------------------------------------------------------------------//
// //
// Test - Write CLOB to IFS //
// //
//----------------- //
// R.Ross 05.2020 * //
//------------------------------------------------------------------//
// SQL-Options //
//------------------------------------------------------------------//
exec sql set option datfmt=*iso, timfmt=*iso, commit=*none,
decmpt=*period, closqlcsr=*endactgrp;
//------------------------------------------------------------------//
// Main //
//------------------------------------------------------------------//
dcl-proc Main;
dcl-s LocClob SQLType(CLOB:10000) ccsid(*utf8);
dcl-s LocFile sqltype(CLOB_FILE);
exec sql
set :LocClob = '<p>Test</p>';
LocFile_name = '/home/export/html/test.html';
LocFile_nl = %len(%trim(LocFile_name));
LocFile_fo = SQFOVR;
exec sql
set :LocFile = :LocClob;
end-proc;
//------------------------------------------------------------------//
Bookmarks