ABAP获取GOS附件数据BIN

*&---------------------------------------------------------------------*
*& Report  ZDEMO15
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
*附件连接数据在toa*查找
report zdemo15.

data: lv_dtype   type toadd-doc_type.
data: lv_length  type sapb-length,
      lv_out_len type i,
      lt_bin     type table of tbl1024,
      lv_buffer  type xstring.

clear:lv_length,lt_bin.

parameters:
p_archiv   type toa02-archiv_id,
p_arc      type toa02-arc_doc_id,
p_res      type toa02-reserve.

lv_dtype = p_res.
call function 'ARCHIVOBJECT_GET_TABLE'
  exporting
    archiv_id                = p_archiv
    document_type            = lv_dtype
    archiv_doc_id            = p_arc
    signature                = 'X'
  importing
    binlength                = lv_length
  tables
    binarchivobject          = lt_bin
  exceptions
    error_archiv             = 1
    error_communicationtable = 2
    error_kernel             = 3
    others                   = 4.

write 1.