Toschie, der Code funktioniert, Du hast nur vergessen, die DS fromCCSID und toCCSID richtig zu initialisieren, sprich, die "Inz(*LIKEDS)"
hast Du sowohl bei fromCCSID und toCCSID vergessen. Wenn Du die beiden einbaust, kriegst Du kein -1 und er übersetzt Dein ABCDEFG auch.