CL_GOS_MANAGER usage

[Former Member]

We used function module SWU_OBJECT_DISPATCH_DIALOG to display IDOC links associated with a Shipment or Delivery. It appears that this function has become obsolete in ERP2005 release.

Does anyone know how to use class CL_GOS_MANAGER to achieve the same result?

Thanks!

[Former Member]

I figured it out... here is the code...

DATA: my_object TYPE REF TO cl_gos_manager.

DATA: ls_object TYPE borident.

DATA: li_service TYPE tgos_sels,

ls_service TYPE sgos_sels.

MOVE: i_objkey TO ls_object-objkey,

i_objtype TO ls_object-objtype.

MOVE: 'I' TO ls_service-sign,

'EQ' TO ls_service-option,

'SRELATIONS' TO ls_service-low,

'SRELATIONS' TO ls_service-high.

APPEND ls_service TO li_service.

CREATE OBJECT my_object

EXPORTING

is_object = ls_object

it_service_selection = li_service

EXCEPTIONS

object_invalid = 1

callback_invalid = 2

OTHERS = 3.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

*

CALL METHOD my_object->start_service_direct

EXPORTING

ip_service = 'SRELATIONS'

is_object = ls_object

EXCEPTIONS

no_object = 1

object_invalid = 2

execution_failed = 3

OTHERS = 4.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.