|
#1
|
||||
|
||||
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. 303132333435363734363738396162636465666768696A6B6C6D6E6F707172737475767778797A0000000000000000000000
__________________
Úlima edición por tomasm fecha: 30/10/06 a las 15:34:16. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|