form gos_tmp using value(zraid).
  data  model1 type  TGOS_SELS.
data:         lp_event TYPE i,
        lp_status TYPE sgs_status,
        lp_icon TYPE sgs_icon.
data obj_ type   BORIDENT.
obj_-objkey  = zraid.
obj_-objtype = 'z_ra_rens'.
obj_-LOGSYS  = 'BO'.
      CALL FUNCTION 'GOS_EXECUTE_SERVICE'
*        DESTINATION 'NONE'
        EXPORTING
          ip_service            = 'CREATE_ATTA'
          is_object             = obj_
          ip_no_commit          = space
          ip_rwmod              = 'E'
          it_service_selection  = model1
          ip_popup              = 'X'
        IMPORTING
          ep_event              = lp_event
          ep_status             = lp_status
          ep_icon               = lp_icon
        EXCEPTIONS
          execution_failed      = 1
          communication_failure = 2  "MESSAGE lp_msgtext
          system_failure        = 3  "MESSAGE lp_msgtext
          OTHERS                = 4.

    write: / sy-subrc.

endform.