Zugriff auf Importparameter im Workflow

Code: Alles auswählen.

    CALL METHOD wi_context->get_header
    RECEIVING
      re_workitem_header = lcl_s_wihead.

Code: Alles auswählen.

 METHOD trigger_start_wf_vbeln.

* Data Declarations
    DATA: lv_objtype    TYPE sibftypeid,
    lv_event            TYPE sibfevent,
    lv_objkey           TYPE sibfinstid,
    lr_event_parameters TYPE REF TO if_swf_ifs_parameter_container,
    lv_param_name       TYPE swfdname,
    lv_id               TYPE vbeln_vf,
    lv_param_name_text  TYPE swfdname,
    lv_id_text          TYPE text50.

* Setting values of Event Name
    lv_objtype = 'ZCL_WF_VBELN'.
    lv_event   = 'START_WF_VBELN'.

* Instantiate an empty event container
    CALL METHOD cl_swf_evt_event=>get_event_container
    EXPORTING
    im_objcateg  = cl_swf_evt_event=>mc_objcateg_cl
    im_objtype   = lv_objtype
    im_event     = lv_event
    RECEIVING
    re_reference = lr_event_parameters.

* Set up the name/value pair to be added to the container
    lv_param_name  = 'VBELN'.
    lv_id          = i_vbeln.

* Add the name/value pair to the event conainer
    TRY.
        CALL METHOD lr_event_parameters->set
        EXPORTING
        name  = lv_param_name
        value = lv_id.

      CATCH cx_swf_cnt_cont_access_denied .
      CATCH cx_swf_cnt_elem_access_denied .
      CATCH cx_swf_cnt_elem_not_found .
      CATCH cx_swf_cnt_elem_type_conflict .
      CATCH cx_swf_cnt_unit_type_conflict .
      CATCH cx_swf_cnt_elem_def_invalid .
      CATCH cx_swf_cnt_container .
    ENDTRY.

    lv_param_name_text = 'TEXT'.
    lv_id_text         = i_text.

* Add the name/value pair to the event conainer
    TRY.
        CALL METHOD lr_event_parameters->set
        EXPORTING
        name  = lv_param_name_text
        value = lv_id_text.

      CATCH cx_swf_cnt_cont_access_denied .
      CATCH cx_swf_cnt_elem_access_denied .
      CATCH cx_swf_cnt_elem_not_found .
      CATCH cx_swf_cnt_elem_type_conflict .
      CATCH cx_swf_cnt_unit_type_conflict .
      CATCH cx_swf_cnt_elem_def_invalid .
      CATCH cx_swf_cnt_container .
    ENDTRY.

* Raise the event passing the prepared event container
    TRY.
        CALL METHOD cl_swf_evt_event=>raise
        EXPORTING
        im_objcateg        = cl_swf_evt_event=>mc_objcateg_cl
        im_objtype         = lv_objtype
        im_event           = lv_event
        im_objkey          = lv_objkey
        im_event_container = lr_event_parameters.
      CATCH cx_swf_evt_invalid_objtype .
      CATCH cx_swf_evt_invalid_event .
    ENDTRY.

    COMMIT WORK.

  ENDMETHOD.