Aus ILE Programm direkt in IFS schreiben

[prsbrc]

Hallo. Wenn ihr das neueste TR drauf habts dann gibts da jetzt neue SQL-Funktion(en):

https://www.rpgpgm.com/2020/11/writi...-with-sql.html

Ich konnte es aber leider noch nicht selber testen/verwenden :-(

LG

[Fuerchau]

Nun ja, und noch eine Methode....;-).

[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;

[Fuerchau]

Was man sich eben durch die Angabe von CCSID direkt auf der Variablen sparen kann.