conversion char(50) a hexadecimal

[xava]

Buenos días, una facilita alguien sabe convertir un char(50) a hexadecimal.

Tengo problemas con los parámetros de las funciones.

Un saludo

[ballan]

la funcion URL_ASCII_CODE_GET te convierte un caracter a su valor hexadecimal

[tomasm]

REPORT zprueba01 LINE-SIZE 150 NO STANDARD PAGE HEADING.


DATA tipochar(50) TYPE c.
DATA: tipohexa(100) TYPE x.
DATA subrc LIKE sy-subrc.

* Para eliminar espacios en blanco
DATA espacio TYPE x VALUE '20'.
DATA cero TYPE x VALUE '00'.


START-OF-SELECTION.

tipochar = '0123456746789abcdefghijklmnopqrstuvwxyz'.

FIELD-SYMBOLS <fs> LIKE tipohexa.

ASSIGN tipochar TO <fs> CASTING.

tipohexa = <fs>.

* Para eliminar espacios en blanco

subrc = 0.

WHILE subrc = 0.
REPLACE espacio WITH cero INTO tipohexa.
subrc = sy-subrc.
ENDWHILE.

WRITE tipohexa.

END-OF-SELECTION.


303132333435363734363738396162636465666768696A6B6C6D6E6F707172737475767778797A0000000000000000000000