Print# & Zeichensalat auf einer AS/400

[FlatPM]

Hallo,

ich hab einen Agenten geschrieben der periodisch läuft und Text in eine Datei schreibt. Funktioniert unter Windows auch problemlos. Auf der AS/400 wo es jetzt laufen soll, schreibt er aber seltsame Zeichen in die Datei...sieht irgendwie nach falscher Codepage aus. Kann ich da irgendwo etwas einstellen?
Danke.
Veit

[Gandhi]

Ich würde hierfür einen Stream verwenden - dabei kannst Du dann auch einen Zeichensatz angeben.

[Driri]

Womit schaust Du dir denn die erzeugte Datei an ?

Die AS/400 erzeugt Dateien in EBCDIC. Wenn Du die mit dem Editor in Windows öffnest, sieht das halt komisch aus. Wenn das der Fall ist, besorg dir mal z.B. das kostenlose Notepad++. Da gibt es einen Textkonverter, der die Datei dann in ASCII umwandelt.

[FlatPM]

Ah...richtig es ist EBCDIC. Na toll...kann ich mit einem Stream das ASCII-Format erzwingen?

[ascabg]

Hallo,

Das sollte schon moeglich sein.

Code

lag = notesStream.Open( pathname$ [ , charset$ ] )

Valid character sets include: ASCII, Big5, Binary, EUC-JP, EUC-KR, EUC-TW, GB2312, ISO-2022-JP, ISO-2022-KR, ISO-8859-1 through ISO-8859-9, ISO-8859-15, KOI8-R, Latin4, Shift_JIS, System, TCVN3, Unicode, Unicode-1-1, US-ASCII, UTF-7, UTF-8, UTF-16, UTF-16BE, UTF-16LE, Windows-1250 through Windows-1258, and Windows-874. Binary implies byte operations only on the stream. Unicode is the same as UTF-16 and Unicode-1-1 is a compatible subset of UTF-16.

Aus der Designer Hilfe.


Andreas

[FlatPM]

Hallo,
dass es grundsätzlich geht, war mir klar. Meine Frage war nur ob die AS/400 die Datei dann auch so abspeichert. Ich hab leider wenig Erfahrung mi unixoiden Systemen...

[Gandhi]

Probier es aus - ich habe leider gerade keine ISeries da...
Ausserdem wird es Dir so mancher AS/400'ler vermutlich übel nehmen, wenn Du das als 'unixoid' bezeichnest - ist glaube ich eher 'hostoid' ;-)

[FlatPM]

dann halt ich lieber meine klappe.
danke euch.

[Gravedigger]

Hallo,

wir haben auf unserer AS400 bei der Dateiausgabe folgenden Befehl im LotusScript abgesetzt:

Dim shellstring As String
Dim resultvalue As Integer
shellstring = |copy obj('|+curLogFiles+|') TOOBJ('|+curLogFiles+|') TOCCSID(*PCASCII) DTAFMT(*BINARY) REPLACE(*YES)|
resultvalue = Shell(shellstring)

Die Variable "curLogFiles" enthält den Dateinamen.


Hoffe es hilft weiter.