-
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:
Code:
//--------------------------------------
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;
-
Was man sich eben durch die Angabe von CCSID direkt auf der Variablen sparen kann.
-
Hallo,
zunächst einmal: Herzlichen Dank für die vielen Antworten! :-) Das ist richtig beeindruckend!
habe mir mal das von Scottklement.com angeschaut und auch ein entsprechendes Programm erstellt. Es funktioniert auch. Die Datei wird erstellt.
Das Problem: Den Inhalt kann ich mir (egal welche Codepage ich nehmen) im WINDOWS Explorer nicht ansehen. Da sieht es der Inhalt von "helloworld.txt" so aus:
È…““–@æ–™“„@
Im iNavigator sieht es korrekt aus!
hat jemand Erfahrung damit?
-
Mein Trick ist, die Datei nach dem Erstellen gleich zu schliessen und erneut zu öffnen:
Flags = O_WRONLY + O_CREAT + O_APPEND + O_CCSID;
Mode = S_IRWXU + S_IRWXG + S_IRWXO;
Fd = Open(%Trim(IfsLink):Flags:Mode:1252);
Callp Close(Fd);
Fd = Open(%Trim(IfsLink):O_CCSID+O_WRONLY+O_TEXTDATA:0: 0);
-
Hallo Robert,
vielen Dank für die Info.
Ich habe die Datei geöffnet, reingeschrieben und wieder geschlossen!
Deine Vorgehensweise werde ich gleich heute Mittag ausprobieren!
Bin gespannt, ob das auch mit ö,ä,ü und ß funktioniert.
Herzliche Grüße Frank
-
Warum immer so kompliziert, wenn doch SQL die einfachste Methode ist?
Ok, ich bin letzten auf ein Kundensystem gestoßen, wo ich keine SQL-Programme erstellen kann;-).
-
Zitat von Fuerchau
Warum immer so kompliziert, wenn doch SQL die einfachste Methode ist?
Ok, ich bin letzten auf ein Kundensystem gestoßen, wo ich keine SQL-Programme erstellen kann;-).
Dann erstell' das Programm das nächste Mal auf einer Maschine mit SQL und übernimm' das Objekt.
Die Runtime ist auf jedem System vorhanden, d.h. embedded SQL Programme können auch ausgeführt werden, wenn kein SQL installiert ist! (War übrigens schon immer so!)
-
Zitat von Fuerchau
Warum immer so kompliziert, wenn doch SQL die einfachste Methode ist?
Zugegeben ;-) Allerdings gibt es Dinge, ich mit SQL gar nicht erst versuchen würde. Zum Beispiel Office XML mit Variablen oder Textbausteinen mischen, statisches HTML mit Google Charts schreiben…
-
Nun ja, HTML ist auch nur eine Form von XML und SQL unterstützt dies halt.
Aber es ging ja nur un dem File-IO (Lesen/Schreiben) und das ist ja nur eine Set-Anweisung "Variable <=> CLOB_FILE".
-
Zitat von Fuerchau
Warum immer so kompliziert, wenn doch SQL die einfachste Methode ist?
Ok, ich bin letzten auf ein Kundensystem gestoßen, wo ich keine SQL-Programme erstellen kann;-).
... naja, wenn ich mir diesen Murks anschaue, der aus einer Deklaration mit SQLTYPE gemacht wird - eine Art Struktur mit prefix-Namen, die keine ist, da war doch ein RPGII Programmierer am Werk. Empfehlen kann ich das eher nicht! Vom Error Handling ganz zu schweigen.
D*B
-
Ich habe aber keine Probleme damit, und das Errorhandling ist halt SQLCODE und SQLSTATE.
Und es ist halt einfacher als die C-Routinen einzubinden;-).
Da es bereits seit V5R2 (oder so) existiert hat man halt an der Struktur nichts mehr geändert.
Und damals klappte das auch ohne ILE.
-
Zitat von RobertMack
Mein Trick ist, die Datei nach dem Erstellen gleich zu schliessen und erneut zu öffnen:
Flags = O_WRONLY + O_CREAT + O_APPEND + O_CCSID;
Mode = S_IRWXU + S_IRWXG + S_IRWXO;
Fd = Open(%Trim(IfsLink):Flags:Mode:1252);
Callp Close(Fd);
Fd = Open(%Trim(IfsLink):O_CCSID+O_WRONLY+O_TEXTDATA:0: 0);
Wollte kurz berichten:
hat alles geklappt! Vielen Dank!
Grüße Frank
Similar Threads
-
By dschroeder in forum NEWSboard Programmierung
Antworten: 4
Letzter Beitrag: 30-01-17, 13:36
-
By PFR in forum NEWSboard Programmierung
Antworten: 15
Letzter Beitrag: 05-01-16, 15:42
-
By JoergHamacher in forum NEWSboard Programmierung
Antworten: 8
Letzter Beitrag: 28-11-13, 09:56
-
By Kilianski in forum NEWSboard Server Software
Antworten: 0
Letzter Beitrag: 08-08-02, 16:07
-
By Michael@Paff.de in forum IBM i Hauptforum
Antworten: 1
Letzter Beitrag: 28-04-02, 08:42
Tags for this Thread
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks