DATA lo_wf_pdo    TYPE REF TO /sapsrm/if_wf_pdo.
  DATA ls_object  TYPE sibflporb.
  DATA lo_descr_ref TYPE REF TO cl_abap_typedescr.
  DATA lt_wi_header TYPE sww_wi_header_arc.
  DATA ls_wi_header TYPE LINE OF sww_wi_header_arc.

lo_wf_pdo = /sapsrm/cl_wf_pdo_impl_factory=>get_instance(
      iv_document_guid = iv_guid
      iv_document_type = iv_object_type
      iv_pdo_event_handling = abap_false
    ).
IF lo_wf_pdo IS BOUND.
*   determine  type
      lo_descr_ref = cl_abap_typedescr=>describe_by_object_ref( lo_wf_pdo ).
      ls_object-typeid = lo_descr_ref->get_relative_name( ).

      ls_object-instid = iv_guid.
      ls_object-catid = 'CL'. "Abap Object Class


      CALL METHOD cl_swf_rep_item2object=>get_workitem_to_object
        EXPORTING
          im_object              = ls_object
          im_sel_top_level_items = abap_true
        IMPORTING
          ex_wi2obj_header       = lt_wi_header.
       IF lt_wi_header IS NOT INITIAL.
        READ TABLE lt_wi_header INDEX 1 INTO EV_WF_ITEM.
*        write: / ls_wi_header-wi_cd, space, ls_wi_header-wi_ct.
      ENDIF.
  ENDIF.