Hallo,


Zitat Zitat von PGMR
* //Open File! If error, FileOpen return '-1'
c eval File = %trim(pFileName) + x'00'
c eval ofl=O_RDONLY+O_TEXTDATA
c eval mode = S_IRUSR
c eval codep = 273
c eval FileOpen = open(%add
(Filepenflags
c :mode:codepage)
c eval FileOpen = open(%addr(File)fl)

Kannst du den Fehler erkennen??
der erste open sollte klappen, der zweite geht wohl in den Wind, weil das File schon open ist (denke ich mir), wenn die CCSID der Datei korrekt ist, dann wird ohne Angabe geöffnet, was bei Textdata automatisch konvertiert.
Mit anderen Worten: prüfe ob der Inhalt der Konstanten O_RDONLY und O_TXTDATA richtig ist und lass den ersten open weg.

mfg

Dieter Bender