Adicionando anexo em Doc. contábil - utilizando a funcionalidade standard GOS (Generic Object Services)

 Precisei fazer isso para um programa Z que lista doc. contábil e o usuário queria anexar arquivos nos doc. contábeis.

DATA(lo_gos) = NEW cl_gos_srv_attachment_create( ).

DATA: l_sib    TYPE sibflporb,
      l_ip     TYPE swc_value,
      l_status TYPE sgs_status,
      l_icon   TYPE sgs_icon.

"Empresa + Doc.contábil + Exercicio
l_sib-instid = '100010000592332021'.
l_sib-typeid = 'BKPF'.
l_sib-catid = 'BO'.

"igual ao L_SIB-INSTID
l_ip = '100010000592332021'.

lo_gos->set_object(
EXPORTING is_lporb = l_sib
          ip_default_attribute = l_ip
  IMPORTING
          ep_status = l_status
          ep_icon = l_icon ).

lo_gos->execute( ).

"Não esquecer do COMMIT
COMMIT WORK AND WAIT.