Konvertierung char in hex

[mott]

Hallo!

Wie kann ich in RPG ein Alphafeld in einen Hexwert konvertieren.

Beispiel:
In meiner Variable text steht 'test'. Nach der Konvertierung sollte in dem Feld text der Wert '74655774' stehen.

Hat vielleicht jemand eine einfache Lösung?

Vielen Dank im Voraus für eure Antworten.

Michi

[Pikachu]

Das sind ja gleich 2 Wünsche auf einmal ...

Von 'test' nach 'A385A2A3' wär einfacher, zum Beispiel mit cvthc.

[Fuerchau]

Man beachte die ASCII-Kodierung.
Also erst per iconv() in 1252 konvertieren und dann per cvthc() umwandeln.

[Fuerchau]

Wie wärs mit SQL?

exec sql set : MyHex =
replace(hex(cast : MyChar as graphic(nn) ccsid 13488)), '00', '');

Man beachte:
CCSID 13488 entspricht 2-Byte Unicode, wobei zumindest bei deutsch das 1. Byte immer x'00' ist.
Daher kann man '00' halt mit nichts '' ersetzen.