ABAP中字符与ASC码转换

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

1. REPORTztestljc.
5. DATA:chrVALUE'C'.
6. DATA:ascTYPEi.
7. PERFORMgetascUSINGchr
8. CHANGINGasc.
10. WRITEasc.
13. asc=65.
14. performgetChrusingasc
15. changingchr.
17. writechr.
21. *&---------------------------------------------------------------------*
22. *&FormgetASC
23. *&---------------------------------------------------------------------*
24. *获得字符的ASC
25. *----------------------------------------------------------------------*
26. *-->P_C字符
27. *-->P_ASCasc码
28. *----------------------------------------------------------------------*
29. FORMgetascUSINGp_c
30. CHANGINGp_ascTYPEi.
32. FIELD-SYMBOLS:<n>TYPEx.
33. DATA:l_rn1TYPEi.
34. ASSIGNp_cTO<n>CASTING.
35. MOVE<n>TOl_rn1.
36. p_asc=l_rn1/256.
37. ENDFORM."getASC
41. *&---------------------------------------------------------------------*
42. *&FormgetChr
43. *&---------------------------------------------------------------------*
44. *获得ASC对应的字符
45. *----------------------------------------------------------------------*
46. *-->P_ASCasc码
47. *-->P_C字符
48. *----------------------------------------------------------------------*
49. formgetchrusingp_asctypei
50. changingp_ctypec.
52. DATA:l_char(2).
53. DATA:l_intTYPEi.
54. DATA:x(4)TYPEx.
55. FIELD-SYMBOLS:<fc>TYPEc.
56. l_int=p_asc*256.
57. MOVEl_intTOx.
58. ASSIGNxTO<fc>CASTINGTYPEc.
59. MOVE<fc>TOl_char.
60. p_c=l_char+1.
61. ENDFORM."getchr