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 .