ASCII 转换

REPORT z_barry_test_ascii .

 

*** 字母到对应的ASCII码

DATA : c.
FIELD-SYMBOLS : <n> TYPE x.
DATA : rn TYPE i.
c = 'A'.
ASSIGN c TO <n> CASTING.
MOVE <n> TO rn.
WRITE rn.

 

*** ASCII到字母

DATA : i TYPE i VALUE 66.
DATA : x TYPE x.
FIELD-SYMBOLS : <fc> TYPE c.
MOVE i TO x.
ASSIGN x TO <fc> CASTING TYPE c.
MOVE <fc> TO c.
WRITE c.

 

 

ECC6

----------------------------------------------

REPORT  z_barry_test_ascii.

 

DATA: str TYPE string ,
      xstr TYPE xstring,
      l_con TYPE REF TO cl_rpe_convert .

 

START-OF-SELECTION.

  CREATE OBJECT l_con.

  CALL METHOD l_con->string_to_xstring
    EXPORTING
      input  = 'ABC'
    IMPORTING
      output = xstr.

  CALL METHOD l_con->xstring_to_string
    EXPORTING
      input  = '4261727279'
    IMPORTING
      output = str.

  WRITE / :  xstr ,str.