abap base64转码详解编程语言

DATA:  l_json TYPE string, 
       l_xstr TYPE xstring, 
       l_encode TYPE string. 
 
l_json = '{"I_INT_NAME":"Z_TEST_FUNCTION","I_KEY":"123456","I_JSON":{"AUFNR":"0000123456"}}'. 
 
* String to Xstring 
CALL FUNCTION 'SCMS_STRING_TO_XSTRING' 
  EXPORTING 
    text   = l_json 
  IMPORTING 
    buffer = l_xstr 
  EXCEPTIONS 
    failed = 1 
    OTHERS = 2. 
IF sy-subrc <> 0. 
* Implement suitable error handling here 
ENDIF. 
 
WRITE:/ l_xstr. 
 
*Encode base64 
CALL FUNCTION 'SCMS_BASE64_ENCODE_STR' 
  EXPORTING 
    input  = l_xstr 
  IMPORTING 
    output = l_encode. 
 
WRITE:/ l_encode. 

结果
用notepad++测试
结果一致。