ABAP - 将PDF文件内容转换成Base64

前提：该PDF文件存在于表 SOOD里，如下：

然后就可以将SAP里的PDF文件，转换为BASE64位的内容了

再来可以用这种简单前端UI的方式，将该文件下载下来：

简单的JavaScript去下载转换为Base64的PDF文件

源代码如下：

DATA lv_obj_id            TYPE sx_obj_id.
DATA ls_content           TYPE sx_content.
DATA lt_binary_data       TYPE solix_tab.
DATA lv_len               TYPE i.
DATA lv_xstring           TYPE xstring.
DATA lv_base64            TYPE string.

lv_obj_id = 'EXT48000000103932'.

CALL FUNCTION 'SO_OBJECT_DATA_FOR_SEND_GET'
  EXPORTING
    object_id            = lv_obj_id
  IMPORTING
    content              = ls_content
  EXCEPTIONS
    err_obj_not_found    = 1
    err_no_authorization = 2
    err_wrong_reference  = 3
    OTHERS               = 4.

lt_binary_data = ls_content-linesx.
lv_len         = ls_content-len.

CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
  EXPORTING
    input_length = lv_len
  IMPORTING
    buffer       = lv_xstring
  TABLES
    binary_tab   = lt_binary_data
  EXCEPTIONS
    failed       = 1
    OTHERS       = 2.


CALL FUNCTION 'SCMS_BASE64_ENCODE_STR'
  EXPORTING
    input  = lv_xstring
  IMPORTING
    output = lv_base64.

WRITE lv_base64.