Folgender SQLRPG-Code liegt hier zugrunde:

D KDARR DS QUALIFIED DIM(30)
D KDNR 7 0
D KDNAM 20C
.
.
C DO 30
C READ KUNDSTAM
C EVAL X = X + 1
C EVAL KDARR(X).KDNR = KDNUMR
C EVAL KDARR(X).KDNAM = %UCS2(KDNAME)
C ENDDO
.
.
C/EXEC SQL
C+ SET RESULT SETS ARRAY :KDARR FOR :X ROWS
C/END-EXEC

Ich versuche hier einfach nur ein ResultSet mit Kundennummern und Kundennamen an ein aufrufendes Programm zurückzugeben. Ich benötige für das aufrufende Programm den Kundennamen im Unicode-Format (deshalb UCS2). Allerdings scheint das nicht zu funktionieren, denn das ResultSet kann im rufenden Programm nicht verarbeitet werden. Die Fehlermeldung besteht leider nur aus kryptischen Zeichen, sodass ich damit nicht viel anfangen kann.
Wenn ich statt des UCS2-Feldes ein Alpha-Feld verwende, dann erhalte ich zwar die Daten im rufenden Programm, jedoch wird keine Codeumwandlung durchgeführt.
Weiß jemand zufällig wie ich UCS2-Felder im ResultSet zurückgeben kann?
Ich könnte zwar auch mit einem Cursor arbeiten und einen SQL-Select ausführen. Ich wollte aber die Datei satzweise verarbeiten, da dies deutlich schneller geht.

Gruß,
KM