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

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