FUNCTION-POOL zedi.                        

TABLES: edidc,
        tbd52,
        edifct.

DATA: BEGIN OF g_bdcdata OCCURS 100.
        INCLUDE STRUCTURE bdcdata.
DATA: END OF g_bdcdata.

DATA: eid LIKE bdwfretvar-wf_param 

        VALUE 'Error_IDOCs',
      pid LIKE bdwfretvar-wf_param 

        VALUE 'Processed_IDOCs',
      apo LIKE bdwfretvar-wf_param 

        VALUE 'Appl_Objects',
      ape LIKE bdwfretvar-wf_param 

        VALUE 'Appl_Object',
      c_wf_result_error 

        LIKE bdwfap_par-result VALUE '99999',
      c_wf_result_ok    

        LIKE bdwfap_par-result VALUE '0'.

DATA:  ok.

FUNCTION z_idoc_display_workflow_log.
*"-----------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(DOCNUM) LIKE  EDIDC-DOCNUM
*"  EXCEPTIONS
*"      NO_IDOC_SENT
*"-----------------------------------------
  DATA: objtype LIKE swotentry-objtype.

  IF docnum IS INITIAL.

    RAISE no_idoc_sent.

  ELSE.

    SELECT SINGLE mestyp 

      INTO edidc-mestyp FROM edidc
      WHERE docnum = docnum.

    IF sy-subrc = 0.

      SELECT SINGLE fctnam 

        INTO edifct-fctnam
        FROM edifct
        WHERE mestyp = edidc-mestyp.

      IF sy-subrc = 0.

        SELECT SINGLE packetobjt 

          INTO tbd52-packetobjt
          FROM tbd52
          WHERE funcname = edifct-fctnam.

        IF sy-subrc = 0.
          objtype = tbd52-packetobjt.
        ENDIF.

      ENDIF.

    ENDIF.


    REFRESH g_bdcdata.
    PERFORM bdc_dynpro 

      USING 'SAPLSWI2'              '0100'.
    PERFORM bdc_field  

      USING 'BDC_OKCODE'            '=OBJKEY'.
    PERFORM bdc_field  

      USING 'SWI2SELDAT-CATID'      'BO'.
    PERFORM bdc_field  

      USING 'SWI2SELDAT-BOR_OBJTYP' objtype.
    PERFORM bdc_field  

      USING 'SWI2SELDAT-SELVARIANT' '0'.
    PERFORM bdc_field  

      USING 'SWI2SELDAT-TIME_SEL'   '003'.

    PERFORM bdc_dynpro 

      USING 'SAPLSWOT'              '0200'.
    PERFORM bdc_field  

      USING 'BDC_OKCODE'            '=SOK'.
    PERFORM bdc_field  

      USING 'OBJID-VALUE(01)'       docnum.

    PERFORM bdc_dynpro 

      USING 'SAPLSWI2'              '0100'.
    PERFORM bdc_field  

      USING 'BDC_OKCODE'            '=STRT'.
    PERFORM bdc_field  

      USING 'SWI2SELDAT-CATID'      'BO'.
    PERFORM bdc_field  

      USING 'SWI2SELDAT-BOR_OBJTYP' objtype.
    PERFORM bdc_field  

      USING 'SWI2SELDAT-SELVARIANT' '0'.
    PERFORM bdc_field  

      USING 'SWI2SELDAT-TIME_SEL'   '003'.

    CALL TRANSACTION 'SWI6' 

      USING g_bdcdata MODE 'E'.

  ENDIF.

ENDFUNCTION.

Related Items:

• 'No Administrator found' workf
• Changing an Idoc’s status with
• Creating an inbound IDoc
• Creating and Sending an IDoc
• Creation of DESADV & INVOIC ID