Das kann der read bereits selber, da ist wahrscheinlich auch der open verkehrt. Beim erstellen kann es noch sein, dass die korrekte CCSID vergeben werden muss, wenn da gemapte Laufwerke im Spiel sind. Die CCSID für Windows sollte hier irgendwo im AS400 Forum zu finden sein.

mfg

Dieter Bender

Zitat Zitat von sim
Hallo PGMR,

hier hab ich mal ein kleines Beispiel wie du die Umsetzung machen kannst. Wie gesagt, wir machen auch XML Ein und Ausgabe und es funktioniert ohne Probleme.

// Von EBCEDIC nach ANSI (Windows) umwandeln
// ohne Euro Zeichen
...
...
when zeichensatz = 'EbAn';
UmgesetzteDaten =
qdcxlate (anzBytes : daten : 'Q273A05A5U' : 'QUSRSYS' );

// Euro Zeichen umsetzen
daten = %xlate(x'C7':x'80':daten);
...
...


sim