Nicht lesbare Daten nach Read aus dem IFS

[msost]

Hallo,

ich möchte Daten aus einer .csv Datei im IFS lesen. Die eingelesenen Daten werden aber nciht umgesetzt. Was mache ich falsch/was fehlt? Habe mich an den bekannten Beispielen von Scott Klement orientiert. Auch verschiedene Versuche mit den Parametern des Open haben nichts gebracht (O_CCSID/O_TEXTDATA/O_CODEPAGE). Oder ist buf falsch definiert?

Open der Datei:
Inp_File = '/CIAN/' + Read_File;
oflag = O_RDWR + O_CCSID + O_TEXTDATA;
omode = S_IRWXU + S_IRWXG + S_IRWXO;
eval fd = open(%trimr(Inp_File) : oflag :
omode : 500);

Lesen der Datei:
eval len = read(fd: %addr(buf): %size(buf));

Inhalt von buf:
‚ä%ÑÁ>È€ñà‚›‚&/ÊÈ`‚›‚&<ãäèê‚›‚&<ãçëè‚
Ž‚‚›‚è`øÁ‚›‚‚›‚‚
Ž‚‚›‚‚›‚‚›‚‚
Ž‚.+( à€€€€€‚›‚Š•‚›‚àá‚›‚ ë.+ñàá‚
Ž‚.+âä+€€€€€‚›‚Š•‚›‚àá‚›‚ ë.+ñàá‚
Ž‚èáë耀€€€‚›‚Š•‚›‚àá‚›‚ ë.+ñàá‚
Ž‚+!èñã߀€€€‚›‚Š•‚›‚àá‚›‚ ë.+ñàá‚
Ž‚ë â ñêäê ‚›‚Š•‚›‚àá‚›‚ ë.+ñàá‚
Ž‚ëçñ&&áꀀ€‚›‚Š•‚›‚àá‚›‚ ë.+ñàá‚
Ž‚ä!+ëñå+áဂ›‚Š•‚›‚àá‚›‚ ë.+ñàá‚
Ž‚.+ç.倀€€€‚›‚Š•‚›‚àá‚›‚ ë.+ñàá‚
Ž‚â!ñ+å ñäê ‚›‚Š•‚›‚àá‚›‚ ë.+ñàá‚
Ž‚.+âê䀀€€€‚›‚Š•‚›‚àá‚›‚ ë.+ñàá‚
Ž‚.+ <ñ€€€€€‚›‚Š•‚›‚àá‚›‚ ë.+ñàá‚
Ž‚.+î <€€€€€‚›‚Š•‚›‚àá‚›‚ ë.+ñàá‚
Ž‚.+â< €€€‚›‚Š•‚›‚àá‚›‚ ë.+ñàá‚
Ž‚.+€( à€€€€‚›‚Š•‚›‚àá‚›‚ ë.+ñàá‚
Ž‚( [!êñä ë ‚›‚Š•‚›‚àá‚›‚ ë.+ñàá‚
Ž‚äíêèñà!ëêñ‚›‚Š•‚›‚àá‚›‚ ë.+ñàá‚
Ž‚.+€ Ž‚ë& ñ+èáë耂›‚Š•‚›‚àá‚›‚ ë.+ñàá‚
Ž‚ íè!( èñäë‚›‚Š•‚›‚àá‚›‚ ë.+ñàá‚
Ž‚ <ã ãíᐑ€‚›‚Š•‚›‚àá‚›‚ ë.+ñàá‚
Ž‚ <ñ(&íᐑ€‚›‚Š•‚›‚àá‚›‚ ë.+ñàá‚
Ž‚ ê(ëâá向€‚›‚Š•‚›‚àá‚›‚ ë.+ñàá‚
Ž‚ êá â à‘€‚›‚Š•‚›‚àá‚›‚ ë.+ñàá‚
Ž‚ <âêâ ꐑ€‚›‚Š•‚›‚àá‚›‚ ë.+ñàá‚
Ž‚ åäñâ ꐑ€‚›‚Š•‚›‚àá‚›‚ ë.+ñàá‚
Ž‚ &<ñ


Definition buf:
D buf S 5000


Danke für Ideen!

Grüße

Matthias