*** 字母到对应的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.
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> TYPEc.
MOVE i TO x.
ASSIGN x TO <fc> CASTING TYPEc.
MOVE <fc> TO c.
WRITE c.
DATA : x TYPE x.
FIELD-SYMBOLS : <fc> TYPEc.
MOVE i TO x.
ASSIGN x TO <fc> CASTING TYPEc.
MOVE <fc> TO c.
WRITE c.
ECC6
———————————————-
DATA: str TYPE string ,
START-OF-SELECTION.