Tweet
Buenos días, una facilita alguien sabe convertir un char(50) a hexadecimal.
Tengo problemas con los parámetros de las funciones.
Un saludo
Tengo problemas con los parámetros de las funciones.
Un saludo
-
-
la funcion URL_ASCII_CODE_GET te convierte un caracter a su valor hexadecimal -
convertir char a hexadecimal
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.
303132333435363734363738396162636465666768696A6B6C 6D6E6F707172737475767778797A0000000000000000000000Editado por última vez por tomasm; 30/10/2006, 15:34:16.
Comentario
Comentario