使用ABAP代码返回S/4HANA Material上维护的Attachment明细

REPORT zgos_api.
DATA ls_appl_object     TYPE gos_s_obj.
DATA lo_gos_api         TYPE REF TO cl_gos_api.
DATA lt_attachment_list TYPE gos_t_atta.
DATA lt_role_filter     TYPE gos_t_rol.
DATA ls_attachment   TYPE gos_s_atta.
DATA ls_attachm_cont TYPE gos_s_attcont.
DATA ls_atta_key     TYPE gos_s_attkey.
DATA: lv_id  TYPE matnr VALUE '16',
      lt_att TYPE TABLE OF sibflporb.
CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
  EXPORTING
    input  = lv_id
  IMPORTING
    output = lv_id.
ls_appl_object-typeid = 'BUS1001006'.
ls_appl_object-instid = lv_id.
ls_appl_object-catid  = 'BO'.
START-OF-SELECTION.
  TRY.
      lo_gos_api = cl_gos_api=>create_instance( ls_appl_object ).
      APPEND cl_gos_api=>c_attachment TO lt_role_filter.
      lt_attachment_list = lo_gos_api->get_atta_list( lt_role_filter ).
    CATCH cx_gos_api INTO DATA(error).
      WRITE:/ error->get_text( ).
      RETURN.
  ENDTRY.
  DATA: ls_key TYPE gos_s_attkey.
  LOOP AT lt_attachment_list ASSIGNING FIELD-SYMBOL(<id>).
    ls_key-atta_id = <id>-atta_id.
    ls_key-atta_cat = <id>-atta_cat.
    DATA(ls) = lo_gos_api->get_al_item( ls_key ).
  ENDLOOP.