Hallo an Alle!

Ich habe ein Problem Unicode Daten im IFS zu erstellen. Lt. der Bescheibung von Scott Klement soll die Konverierung automatisch geschehen, wenn eine IFS Datei mit CCSID 1208 neu erstellt, danach geschlossen mit schließlich dem Flag mit O_TEXTDATE neu geöffnet wird. Eine Konvertierung geschieht devinitiv aber meiner Meinung nach nicht 1208 codiert, da kein Zeichen lesbar ist.

Hier der Code der Dateierstellung:
fdpic = open(%trim(path) + %trim(IFSFilenamePic)
: flags : mode : 1208);
if fdpic < 0;
ErrMsg = %str(strerror(errno));
callp die('open(IFS File): ' + ErrMsg) ;
endif;

callp(e) close(fdpic);
if %error;
exsr *pssr;
endif;

// flags = o_textdata + o_wronly; // Umsetzungsfehler
flags = o_wronly + o_textdata + o_ccsid;

fdpic = open(%trim(path) + %trim(IFSFilenamePic)
: flags);
if fdpic < 0;
ErrMsg = %str(strerror(errno));
callp die('open(IFS File): ' + ErrMsg) ;
endif;

Das Ergebnis ist alles andere als erbaulich:
4c 4f c4 d6 c3 e3 e8 d7 c5 40 88 a3 94 93 6e 0d
25 4c 88 a3 94 93 6e 0d 25 4c 94 85 a3 81 40 83
88 81 99 a2 85 a3 7e 7f a4 a3 86 60 f8 7f 6e 0d
25 4c a2 83 99 89 97 a3 40 a3 a8 97 85 7e 7f a3
85 a7 a3 61 91 81 a5 81 a2 83 99 89 97 a3 7f 40
a2 99 83 7e 7f 4b 4b 61 91 a2 61 91 98 a4 85 99
a8 60 f3 4b f5 4b f1 4b 94 89 95 4b 91 a2 7f 6e
4c 61 a2 83 99 89 97 a3 6e 0d 25 4c a2 83 99 89
97 a3 40 a3 a8 97 85 7e 7f a3 85 a7 a3 61 91 81

%L¢ƒ™‰—£@£¨—…~£…§£a‘¥ ƒ™‰—£@¢™ƒ~KKa‘¢a‘˜¤…™¨` óKõKñK”‰•K‘¢nLa¢ƒ™‰—£n

Was habe ich beim Erstellen der Datei falsch gemacht?

Vielen Dank für Euro Hilfe im Voraus

Hermann