ABAP中字符与ASC码转换

根据输入的字符返回asc码，或者根据asc码返回字符

 

1. REPORT  ztestljc.
5. DATA : chr VALUE 'C'.
6. DATA : asc TYPE i.
7. PERFORM getasc USING chr
8.                CHANGING asc.
10. WRITE asc.
13. asc = 65.
14. perform getChr using asc
15.                changing chr.
17. write chr.
21. *&---------------------------------------------------------------------*
22. *&      Form  getASC
23. *&---------------------------------------------------------------------*
24. *       获得字符的ASC
25. *----------------------------------------------------------------------*
26. *      -->P_C  字符
27. *      -->P_ASC  asc码
28. *----------------------------------------------------------------------*
29. FORM getasc  USING        p_c
30.               CHANGING    p_asc TYPE i.
32.   FIELD-SYMBOLS : <n> TYPE x.
33.   DATA : l_rn1 TYPE i.
34.   ASSIGN p_c TO <n> CASTING.
35.   MOVE <n> TO l_rn1.
36.   p_asc = l_rn1 / 256.
37. ENDFORM.                    " getASC
41. *&---------------------------------------------------------------------*
42. *&      Form  getChr
43. *&---------------------------------------------------------------------*
44. *       获得ASC对应的字符
45. *----------------------------------------------------------------------*
46. *      -->P_ASC  asc码
47. *      -->P_C    字符
48. *----------------------------------------------------------------------*
49. form getchr   using       p_asc type i
50.               changing     p_c type c.
52. DATA : l_char(2) .
53. DATA : l_int TYPE i.
54. DATA : x(4) TYPE x.
55. FIELD-SYMBOLS : <fc> TYPE c.
56. l_int = p_asc * 256.
57. MOVE l_int TO x.
58. ASSIGN x TO <fc> CASTING TYPE c.
59. MOVE <fc> TO l_char.
60. p_c = l_char+1.
61. ENDFORM.                    " getchr