BenderD
10-02-05, 10:33
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
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
mfg
Dieter Bender
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