Aus ILE Programm direkt in IFS schreiben

[Fuerchau]

Welcher Schritt war da zuviel?
Es wurden wie bei dir 2 Variablen (CLOB, CLOB_FILE) definiert und ein SQL ausgeführt.
Wenn _FO nicht angegeben wird, nimmt SQL einen Default an.

Was mich allerdings geärget hat ist, dass eine UCS2-Variable nicht direkt genommen werden kann (V7R3).
Ich musste diese mit einem DBCLOB redefinieren (Overlay).
Dann klappts auch mit UCS2 von/nach UTF8.

[B.Hauser]

Ich habe KEINE CLOB-Variable nur eine CLOB-File!
Zuerst in eine Variable und dann ins IFS ist ein Schritt zuviel.

Birgitta

[mk]

Hi,

ob nun eine Variable zuviel oder zuwenig ist wohl egal :-)

Wichtig ist: Bei dem CLOB ignoriert das System die CCSID bei der DCL-S LocClobFile SQLTYPE(Clob_File) CCSID(1208); Definition.

Die CCSID wird von der CLOB Variablen genommen. Deswegen die CLOB Variable mit UTF-8
Gruß
Michael

[Fuerchau]

@Birgitta:
"Zuerst in eine Variable und dann ins IFS ist ein Schritt zuviel."
Und was ist das:
Exec SQL Set :LocClobFile = :LocText

Wir wollen ja schließlich keine Konstanten ausgeben.

MK hat statt LocText eben eine variable "clob" verwendet.

Und danke Michael, bzgl. der CCSID hast du Recht.

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