CL_GOS_SERVICE_TOOLS

    DATA: lt_services TYPE tgos_sels.    " Services table typ
  DATA: ls_service  TYPE sgos_sels.    " Services structure type
  DATA: ls_source   TYPE sibflporb,    " Source
        ls_target   TYPE sibflporb.    " Target

  ls_service-sign   = 'I'.
  ls_service-option = 'EQ'.
  ls_service-low    = 'PCATTA_CREA'.
  APPEND ls_service TO lt_services.

  ls_source-instid = sy-uname.
  ls_source-typeid = 'ZAARM003'.
  ls_source-catid  = 'BO'.

  ls_target-instid = gv_zcontnum.
  ls_target-typeid = 'ZAARM003'.
  ls_target-catid  = 'BO'.


  cl_gos_service_tools=>move_linked_objects(
      is_source            = ls_source
      is_target            = ls_target
      it_service_selection = lt_services ).

  COMMIT WORK.

    DATA: lt_services TYPE tgos_sels.    " Services table typ
  DATA: ls_service TYPE sgos_sels.     " Services structure type
  DATA: borident LIKE borident.

  borident-objkey = sy-uname.
  borident-objtype = 'ZAARM003'.

  ls_service-sign   = 'I'.
  ls_service-option = 'EQ'.
  ls_service-low    = 'PCATTA_CREA'.
  APPEND ls_service TO lt_services.

  CALL METHOD cl_gos_service_tools=>delete_linked_objects
    EXPORTING
      is_object            = borident
      it_service_selection = lt_services.

  COMMIT WORK.