Download von Datein ohne zusätzliche Zeichen für UPS

[B.Hauser]

Kommst Du bei den APIs mit 4 Zeilen hin?

DCL-S YourCLOBFile   SQLTYPE(CLOB_FILE);

YourClobFile_Name = '/YourDir/YourDir2/File.Txt';
YourClobFile_NL = %Len(%Trim(YourClobFile_Name));
YourClobFile_FO = SQFOVR;    //Erstelle Datei oder ersetze eine vorhandene Datei

Exec SQL  Set :YourClobFile = 'Mein erster Text im IFS';

YourCLOBFile_FO = SQFAPP   //Zu IFS Datei hinzufügen

Exec SQL Set :YourClobFile = 'Und jetzt geht''s weiter';

SQLCODE oder SQLSTATE sollten natürlich noch abgefangen werden.

Übrigens soooo neu ist das auch nicht, seit V5R1M0!
Und die Grenze liegt bei 2GB.

Birgitta

[dschroeder]

Kommst Du bei den APIs mit 4 Zeilen hin?

Ich komme auch mit 4 Zeilen hin: :-)

dcl-s handle packed(10);
handle = um_StmfOpen('/tmp/testfile.txt':'CREATE');
um_StmfWrite(handle:'Hello World');
um_StmfClose(handle);

Und jetzt, wo ich deinen Code sehe: Stimmt, das habe ich doch auch schon mal benutzt. Um Blobs im IFS abzulegen. Ich habe es gedanklich aber nur nicht als Ersatz für unser Streamfile-Handling betrachtet.

Deine und Baldurs Lösung hat den Charme, dass man sich nicht mit den APIs auseinandersetzen muss.

[Fuerchau]

Hinzu kommt, dass man in der CLOB_FILE-Struktur auch noch CCSID's verarzten kann.
Nie war es einfacher UTF-8-Daten auszugeben oder einzulesen (als UCS2/Unicode).
Dazu kommt auch noch, dass man IFS-Inhalte somit problemlos in die DB (CLOB/BLOB) schreiben und aus ihr wieder lesen kann (ODBC/JDBC, Java lässt grüßen).
Für ein Etikettenprogramm (Windows) speichere ich schon seit 2004 Bilder (jpg, emf, bmp, ...) als BLOB auf der AS/400 und kann diese auf dem PC wieder herstellen.