REPORT ZIAN01.
FIELD-SYMBOLS : <N1> TYPE X.
DATA: CHAR, char2.
DATA : RN TYPE i, RN1 TYPE i.
DATA:str TYPE string.
CHAR = 'A'.
ASSIGN CHAR TO <N1> CASTING. "转换成16进制的数字
MOVE <N1> TO RN. "转换成10进制的数字,16进制必须先转换为10进制才能再转换为字符型
WRITE :'RN' ,RN.
char2 = 'B'.
ASSIGN char2 to <N1> CASTING.
MOVE <N1> to RN1.
WRITE:'RN1', RN1.
DATA: a(2) TYPE c, b(2) TYPE c, c(4) TYPE c.
DATA:f TYPE i.
MOVE rn to a. "10进制转字符型
MOVE rn1 to b.
WRITE:'a',a,'b',b.
CONCATENATE a b INTO c.
WRITE:'c' , c.
MOVE c to f. "字符型转整形
DATA: e TYPE i, g TYPE i.
e = 1000.
g = f - e.
WRITE:'g', g.
FIELD-SYMBOLS : <N1> TYPE X.
DATA: CHAR, char2.
DATA : RN TYPE i, RN1 TYPE i.
DATA:str TYPE string.
CHAR = 'A'.
ASSIGN CHAR TO <N1> CASTING. "转换成16进制的数字
MOVE <N1> TO RN. "转换成10进制的数字,16进制必须先转换为10进制才能再转换为字符型
WRITE :'RN' ,RN.
char2 = 'B'.
ASSIGN char2 to <N1> CASTING.
MOVE <N1> to RN1.
WRITE:'RN1', RN1.
DATA: a(2) TYPE c, b(2) TYPE c, c(4) TYPE c.
DATA:f TYPE i.
MOVE rn to a. "10进制转字符型
MOVE rn1 to b.
WRITE:'a',a,'b',b.
CONCATENATE a b INTO c.
WRITE:'c' , c.
MOVE c to f. "字符型转整形
DATA: e TYPE i, g TYPE i.
e = 1000.
g = f - e.
WRITE:'g', g.