Trigerring workflows in an ABAP program

Question

Can somebody please tell me the best way to trigger a workflow in an ABAP program. And if possible please send me some sample code how it can be done. I need it urgently so if possible please reply to this ASAP.
Thanks in advance,
Mohsin

Answer 1

Check the following Code to trigger the Workflow form custom program.
Data for workflow trigger
  DATA: objtype    LIKE  swetypecou-objtype,
        objkey     LIKE  sweinstcou-objkey,
        event      LIKE  swetypecou-event,
        event_container LIKE  swcont OCCURS 0 WITH HEADER LINE.
  objtype = 'ZBUS1001'. "Material [sub object of BUS1001]
  MOVE v_wfmatnr TO objkey. "V_WFMATNR is material number
  event = 'CreatePLMMaterial'."Custom Event defined in
ZBUS1001 [Tcode SWO1]
  REFRESH event_container.
*Following are the Event parameters required in the *Workflow
  swc_set_element event_container 'Attachment' v_wfattachment.
   swc_set_element event_container 'Material' v_wfmatnr.
  swc_set_element event_container 'TisGroup' v_wftisgroup.
  swc_set_element event_container 'SchDate' v_schdate.
  CALL FUNCTION 'SWE_EVENT_CREATE'
       EXPORTING
            objtype           = objtype
            objkey            = objkey
            event             = event
       TABLES
            event_container   = event_container
       EXCEPTIONS
            objtype_not_found = 1
            OTHERS            = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  COMMIT WORK.
In TCode SWETYPV Create entry for Object type Event and Workflow ID.
In my case Object type is ZBUS1001
Event CreatePLMMaterial
Rec type = <Workflow ID>