conversion char(50) a hexadecimal [Archivos]

xava

27/10/06, 08:17:05

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

27/10/06, 09:38:56

la funcion URL_ASCII_CODE_GET te convierte un caracter a su valor hexadecimal

tomasm

27/10/06, 10:05:48

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