Hallo

ich habe eine .jpg-Datei im IFS stehen und will aus dieser mit RPG die EXIF-daten auslesen. Dabei gibts aber sichtlich ein Problem mit der Datenkonvertierung.

Mit EDTF sehe ich folgendes:
- - - - + - - - - * - - - - + - - - - * ----+----*----+----*
FFD8FFE1 38454578 69660000 49492A00 0A Ï ß8EExif II*

wenn ich das einlese entsteht dieses:
*...+....1....+....2....+....3..
Xa8EExifII* 
0E08FCCA8800CC501000000000400030
77718557960099C06000C0E120000050
Alle Buchstaben werden richtig übersetzt, die restlichen Hexdaten allerdings falsch.
Die Anfangszeichen "FFD8FFE1" werden zu "07E70781"

Die Verarbeitung erfolgt in RPG:
D FileIn S 80A
D FileId S 10I 0
D FullName S 128A
D DataIn S 10000A
D DataPtr S * Inz(%addr(DataIn))
D Length S 10I 0 Inz(%size(DataIn))
D BytesRead S 10I 0
D O_RDONLY S 10I 0 INZ(1)
D S_IRWXU S 10I 0 INZ(448)
D O_TEXTDATA S 10I 0 INZ(16777216)
D O_CODEPAGE S 10I 0 INZ(8388608)
D CodePage S 10U 0 INZ(850)

EVAL FileID = open(%ADDR(FullName)
: O_RDONLY + O_CODEPAGE + O_TEXTDATA
: S_IRWXU : Codepage)
EVAL BytesRead = read(FileID : DataPtr : Length)

mit Codepage 37 funktioniert es übrigens auch nicht. Kann mir jemand einen guten Tipp geben was ich ändern muss?

hans