Update workitem id in z table using program exit

* WI_CONTEXT Instance Attribute Private Type Ref To IF_WAPI_WORKITEM_CONTEXT
* PROCESS_STATUS Instance Attribute Private Type STRING

  DATA: l_s_wihead TYPE swr_wihdr,
        l_wa_itab TYPE zwffi_mon,
        l_swfdname TYPE swfdname VALUE 'V_FIPP'.


  DATA: l_bukrs TYPE bkpf-bukrs,
        l_belnr TYPE bkpf-belnr,
        l_gjahr TYPE bkpf-gjahr.

  DATA: l_tmp TYPE REF TO if_swf_ifs_parameter_container.

  DATA: l_zwf_cl_fi TYPE swotobjid.



  DATA: l_process_id TYPE swwwihead,
        l_wi_id TYPE sww_wiid.


  CALL METHOD wi_context->get_wf_container "ok
    RECEIVING
      re_container = l_tmp.


  CALL METHOD l_tmp->get
    EXPORTING
      name  = l_swfdname
    IMPORTING
      value = l_zwf_cl_fi.

  l_bukrs = l_zwf_cl_fi-objkey+0(4).
  l_belnr = l_zwf_cl_fi-objkey+4(10).
  l_gjahr = l_zwf_cl_fi-objkey+14(4).

**Get work item ID
  CALL METHOD wi_context->get_workitem_id
    RECEIVING
      re_workitem = l_wi_id.

  IF sy-subrc = 0.
    UPDATE zwffi_mon SET zzwf_id = l_wi_id
    WHERE bukrs = l_bukrs
    AND   belnr = l_belnr
    AND   gjahr = l_gjahr.
  ENDIF.