Aus ILE Programm direkt in IFS schreiben

[prsbrc]

Wie immer, viele Wege führen nach Rom.

Bzgl dem CLOB_FILE... hier füge ich beim schreiben immer einen CAST ein (sicher ist sicher).
zB:

//--------------------------------------
DCL-PROC Main;
 DCL-S File SQLTYPE(CLOB_FILE) CCSID(1208) INZ;

 File_Name = '/tmp/test.txt';
 File_NL = %Len(%TrimR(File_Name));
 File_FO = SQFOVR;
 
 Exec SQL SET :File = CAST('Test1-' AS CLOB CCSID 1208);
 
 File_FO = SQFAPP;
 Exec SQL SET :File = CAST('Test2-' AS CLOB CCSID 1208);

END-PROC;