OK,
jetzt habe die Lösung ohne die zusätzliche Text-Variable:
Code:
dcl-proc UM_StmfToStrUni export;
   dcl-pi *n varucs2(300000);
      file varchar(2000) const;  //file incl. Pfad
   end-pi;


dcl-s clobFile sqltype(DBCLOB_FILE);
dcl-s clobDS sqltype(dbclob:300000) ccsid(1200);


clobFile_Name = %trim(file);
clobFile_NL   = %len(%trim(clobFile_Name));
clobFile_FO   = SQFRD;  //Read Only


exec sql set :clobDS = :clobFile;


if clobDS_len > 0;
   return %trimr(%subst(clobDS_data:1:clobDS_len));
else;
   return %ucs2('');
endif;


end-proc;
Ich werde jetzt mal verschiedene Tests durchführen, ob auch alle Zeichen korrekt gelesen werden.