This function modules describes how to send an email of the IDoc status when receiving an ALEAUD message. PS: This can also be achieved by the process code to send an IDoc via email but that is not covered with this sample code example.

FUNCTION Z_IDOC_INPUT_ALEAUD.

*"----------------------------------------------------------------------

*"*"Local interface:

*"       IMPORTING

*"             VALUE(INPUT_METHOD) LIKE  BDWFAP_PAR-INPUTMETHD

*"             VALUE(MASS_PROCESSING) LIKE  BDWFAP_PAR-MASS_PROC

*"       EXPORTING

*"             VALUE(WORKFLOW_RESULT) LIKE  BDWF_PARAM-RESULT

*"             VALUE(APPLICATION_VARIABLE) LIKE  BDWF_PARAM-APPL_VAR

*"             VALUE(IN_UPDATE_TASK) LIKE  BDWFAP_PAR-UPDATETASK

*"             VALUE(CALL_TRANSACTION_DONE) LIKE  BDWFAP_PAR-CALLTRANS

*"       TABLES

*"              IDOC_CONTRL STRUCTURE  EDIDC

*"              IDOC_DATA STRUCTURE  EDIDD

*"              IDOC_STATUS STRUCTURE  BDIDOCSTAT

*"              RETURN_VARIABLES STRUCTURE  BDWFRETVAR

*"              SERIALIZATION_INFO STRUCTURE  BDI_SER

*"       EXCEPTIONS

*"              WRONG_FUNCTION_CALLED

*"----------------------------------------------------------------------

  DATA: T_IDOC_CONTROL LIKE EDIDC OCCURS 0 WITH HEADER LINE,

        T_IDOC_DATA LIKE EDIDD OCCURS 0 WITH HEADER LINE,

        T_ALE_ERR LIKE ALE_ERR_MESSAGE OCCURS 0 WITH HEADER LINE,

        X_OBJCONT LIKE SOLI OCCURS 0 WITH HEADER LINE,

        X_OBJHEAD LIKE SOLI OCCURS 0 WITH HEADER LINE,

        RAW_HEAD LIKE SORH OCCURS 0 WITH HEADER LINE,

        X_RECEIVERS LIKE SOOS1 OCCURS 0 WITH HEADER LINE.

  DATA: W_E1ADHDR LIKE E1ADHDR,

        W_E1STATE LIKE E1STATE,

        W_E1PRTOB LIKE E1PRTOB,

        X_OBJECT_HD_CHANGE LIKE SOOD1,

        RECEIVING_SYSTEM LIKE EDIDC-SNDPRN,

        SENDING_SYSTEM   LIKE EDIDC-RCVPRN,

        H_TEXT        LIKE SOOD1-OBJDES,

        FOLDER_NAME   LIKE SOS06-S_FOLNAM,

        SUBRC         LIKE SY-SUBRC,

        GLOBAL_SUBRC  LIKE SY-SUBRC,

        X_OBJECT_TYPE LIKE SOOD-OBJTP.

  T_IDOC_CONTROL[] = IDOC_CONTRL[].

  T_IDOC_DATA[] = IDOC_DATA[].

  READ TABLE T_IDOC_CONTROL INDEX 1.

  RECEIVING_SYSTEM = T_IDOC_CONTROL-SNDPRN.

  SENDING_SYSTEM = T_IDOC_CONTROL-RCVPRN.

  GLOBAL_SUBRC = 0.

  LOOP AT T_IDOC_DATA.

    CASE T_IDOC_DATA-SEGNAM.

      WHEN 'E1ADHDR'.

        IF ZTAUD-MESTYP <> SPACE AND NOT T_ALE_ERR[] IS INITIAL.

*         send SAP mail

          CLEAR SUBRC.

          PERFORM SEND_SAP_MAIL

                                TABLES T_ALE_ERR

                                 USING RECEIVING_SYSTEM

                                       SENDING_SYSTEM

                                       ZTAUD

                                       SUBRC.

          IF SUBRC <> 0.

            GLOBAL_SUBRC = SUBRC.

            IDOC_STATUS-DOCNUM = T_IDOC_CONTROL-DOCNUM.

            IDOC_STATUS-STATUS = '51'.

            IDOC_STATUS-MSGTY = 'E'.

            IDOC_STATUS-MSGID = 'B1'.

            IDOC_STATUS-MSGNO = '999'.

            IDOC_STATUS-MSGV1 = TEXT-013.

            IDOC_STATUS-MSGV2 = ZTAUD-MESTYP.

            IDOC_STATUS-MSGV3 = 'SO_OBJECT_SEND RC ='.

            IDOC_STATUS-MSGV4 = SUBRC.

            APPEND IDOC_STATUS.

          ENDIF.

          CLEAR T_ALE_ERR.

          REFRESH T_ALE_ERR.

        ENDIF.

        W_E1ADHDR = T_IDOC_DATA-SDATA.

        CLEAR ZTAUD.

        SELECT SINGLE * FROM ZTAUD WHERE MESTYP = W_E1ADHDR-MESTYP.

      WHEN 'E1STATE'.

        IF ZTAUD-MESTYP = SPACE.

          CONTINUE.

        ELSE.

          W_E1STATE = T_IDOC_DATA-SDATA.

          CLEAR T_ALE_ERR.

          IF    W_E1STATE-STATUS = '51'

             OR W_E1STATE-STATUS = '56'

             OR W_E1STATE-STATUS = '61'

             OR W_E1STATE-STATUS = '63'

             OR W_E1STATE-STATUS = '65'

             OR W_E1STATE-STATUS = '60'.

            T_ALE_ERR-STATUS = W_E1STATE-STATUS.

            T_ALE_ERR-DOCNUMSND = W_E1STATE-DOCNUM.

          ENDIF.

        ENDIF.

      WHEN 'E1PRTOB'.

        IF ZTAUD-MESTYP = SPACE.

          CONTINUE.

        ELSE.

          IF T_ALE_ERR-STATUS = SPACE.

            CONTINUE.

          ELSE.

            W_E1PRTOB = T_IDOC_DATA-SDATA.

            T_ALE_ERR-DOCNUMRCV = W_E1PRTOB-DOCNUM.

            APPEND T_ALE_ERR.

            CLEAR T_ALE_ERR.

          ENDIF.

        ENDIF.

    ENDCASE.

  ENDLOOP.

  IF ZTAUD-MESTYP <> SPACE AND NOT T_ALE_ERR[] IS INITIAL.

*   send SAP mail

    CLEAR SUBRC.

    PERFORM SEND_SAP_MAIL

                          TABLES T_ALE_ERR

                           USING RECEIVING_SYSTEM

                                 SENDING_SYSTEM

                                 ZTAUD

                                 SUBRC.

    IF SUBRC <> 0.

      GLOBAL_SUBRC = SUBRC.

      IDOC_STATUS-DOCNUM = T_IDOC_CONTROL-DOCNUM.

      IDOC_STATUS-STATUS = '51'.

      IDOC_STATUS-MSGTY = 'E'.

      IDOC_STATUS-MSGID = 'B1'.

      IDOC_STATUS-MSGNO = '999'.

      IDOC_STATUS-MSGV1 = TEXT-013.

      IDOC_STATUS-MSGV2 = ZTAUD-MESTYP.

      IDOC_STATUS-MSGV3 = 'SO_OBJECT_SEND RC ='.

      IDOC_STATUS-MSGV4 = SUBRC.

      APPEND IDOC_STATUS.

    ENDIF.

    CLEAR T_ALE_ERR.

    REFRESH T_ALE_ERR.

  ENDIF.

  IF GLOBAL_SUBRC <> 0.

    WORKFLOW_RESULT = 99999.

    RETURN_VARIABLES-DOC_NUMBER = T_IDOC_CONTROL-DOCNUM.

    RETURN_VARIABLES-WF_PARAM = 'Error_IDOCs'.

    APPEND RETURN_VARIABLES.

  ELSE.

    WORKFLOW_RESULT = 0.

    CLEAR IDOC_STATUS.

    IDOC_STATUS-DOCNUM = T_IDOC_CONTROL-DOCNUM.

    IDOC_STATUS-STATUS = '53'.

    IDOC_STATUS-MSGTY = 'E'.

    IDOC_STATUS-MSGID = 'B1'.

    IDOC_STATUS-MSGNO = '999'.

    IDOC_STATUS-MSGV1 = TEXT-014.

    APPEND IDOC_STATUS.

    CLEAR RETURN_VARIABLES.

    RETURN_VARIABLES-WF_PARAM = 'Processed_IDOCs'.

    RETURN_VARIABLES-DOC_NUMBER = T_IDOC_CONTROL-DOCNUM.

    APPEND RETURN_VARIABLES.

  ENDIF.

ENDFUNCTION.

LZALAF01 Code

*-------------------------------------------------------------------

***INCLUDE LZALAF01 .

*-------------------------------------------------------------------

*&---------------------------------------------------------------------*

*&      Form  SEND_SAP_MAIL

*&---------------------------------------------------------------------*

FORM SEND_SAP_MAIL

                   TABLES T_ALE_ERR        STRUCTURE ALE_ERR_MESSAGE

                    USING RECEIVING_SYSTEM LIKE EDIDC-SNDPRN

                          SENDING_SYSTEM   LIKE EDIDC-RCVPRN

                          ZTAUD            STRUCTURE ZTAUD

                          SUBRC            LIKE SY-SUBRC.

  DATA: T_ALE_ERR_WA LIKE ALE_ERR_MESSAGE OCCURS 0 WITH HEADER LINE,

        X_OBJCONT LIKE SOLI OCCURS 0 WITH HEADER LINE,

*       x_objhead like soli occurs 0 with header line,

        X_RECEIVERS LIKE SOOS1 OCCURS 0 WITH HEADER LINE.

  DATA:

        X_OBJECT_HD_CHANGE LIKE SOOD1,

        H_TEXT        LIKE SOLI-LINE,

        H_STATUS      LIKE EDIDC-STATUS,

        X_OBJECT_TYPE LIKE SOOD-OBJTP.

  MOVE 'RAW' TO X_OBJECT_TYPE.

  H_TEXT = TEXT-002.

  REPLACE '&' WITH ZTAUD-MESTYP INTO H_TEXT.

  REPLACE '&' WITH RECEIVING_SYSTEM INTO H_TEXT.

  CONDENSE H_TEXT.

  MOVE: SY-LANGU      TO X_OBJECT_HD_CHANGE-OBJLA,

        TEXT-001      TO X_OBJECT_HD_CHANGE-OBJSRT,

        TEXT-001      TO X_OBJECT_HD_CHANGE-OBJNAM,

        H_TEXT        TO X_OBJECT_HD_CHANGE-OBJDES,

        'F'           TO X_OBJECT_HD_CHANGE-OBJSNS.     " Functional

* clear   x_objhead.

* refresh x_objhead.

* move 6 to raw_head-rawsiz.

* move raw_head to x_objhead.

* append x_objhead.

  REFRESH X_OBJCONT.

  CLEAR   X_OBJCONT.

  MOVE H_TEXT TO X_OBJCONT.

  APPEND X_OBJCONT.

  CLEAR   X_OBJCONT.

  APPEND X_OBJCONT.

  SORT T_ALE_ERR.

  LOOP AT T_ALE_ERR.

    IF H_STATUS <> T_ALE_ERR-STATUS.

      IF H_STATUS <> SPACE.

        PERFORM ERROR_REPORT

                             TABLES X_OBJCONT

                                    T_ALE_ERR_WA

                              USING H_STATUS

                                    RECEIVING_SYSTEM

                                    SENDING_SYSTEM.

        CLEAR T_ALE_ERR_WA.

        REFRESH T_ALE_ERR_WA.

      ENDIF.

      H_STATUS = T_ALE_ERR-STATUS.

    ENDIF.

    T_ALE_ERR_WA = T_ALE_ERR.

    APPEND T_ALE_ERR_WA.

  ENDLOOP.

  IF SY-SUBRC = 0.

    PERFORM ERROR_REPORT

                         TABLES X_OBJCONT

                                T_ALE_ERR_WA

                          USING H_STATUS

                                RECEIVING_SYSTEM

                                SENDING_SYSTEM.

    CLEAR T_ALE_ERR_WA.

    REFRESH T_ALE_ERR_WA.

  ENDIF.

  CLEAR   X_RECEIVERS.

  REFRESH X_RECEIVERS.

  MOVE ZTAUD-DLINAM TO X_RECEIVERS-RECNAM. " Distribution list

  MOVE 'X'       TO X_RECEIVERS-SNDEX.

  MOVE 'C'       TO X_RECEIVERS-RECESC.

  APPEND X_RECEIVERS.

  CLEAR: SY-MSGID.

  CALL FUNCTION 'SO_OBJECT_SEND'

       EXPORTING

            OBJECT_HD_CHANGE           =  X_OBJECT_HD_CHANGE

            OBJECT_TYPE                =  X_OBJECT_TYPE

       TABLES

            OBJCONT                    = X_OBJCONT

*           objhead                    = x_objhead

            RECEIVERS                  = X_RECEIVERS

       EXCEPTIONS

            ACTIVE_USER_NOT_EXIST      = 1

            COMMUNICATION_FAILURE      = 2

            COMPONENT_NOT_AVAILABLE    = 3

            FOLDER_NOT_EXIST           = 4

            FOLDER_NO_AUTHORIZATION    = 5

            FORWARDER_NOT_EXIST        = 6

            NOTE_NOT_EXIST             = 7

            OBJECT_NOT_EXIST           = 8

            OBJECT_NOT_SENT            = 9

            OBJECT_NO_AUTHORIZATION    = 10

            OBJECT_TYPE_NOT_EXIST      = 11

            OPERATION_NO_AUTHORIZATION = 12

            OWNER_NOT_EXIST            = 13

            PARAMETER_ERROR            = 14

            SUBSTITUTE_NOT_ACTIVE      = 15

            SUBSTITUTE_NOT_DEFINED     = 16

            SYSTEM_FAILURE             = 17

            TOO_MUCH_RECEIVERS         = 18

            USER_NOT_EXIST             = 19

            X_ERROR                    = 20

            OTHERS                     = 21.

  SUBRC = SY-SUBRC.

ENDFORM.                               " SEND_SAP_MAIL

*&---------------------------------------------------------------------*

*&      Form  ERROR_REPORT

*&---------------------------------------------------------------------*

FORM ERROR_REPORT

                 TABLES X_OBJCONT    STRUCTURE SOLI

                        T_ALE_ERR_WA STRUCTURE ALE_ERR_MESSAGE

                  USING H_STATUS     LIKE EDIDC-STATUS

                        RECEIVING_SYSTEM LIKE EDIDC-SNDPRN

                        SENDING_SYSTEM   LIKE EDIDC-RCVPRN.

  DATA: H_TEXT        LIKE SOLI-LINE,

        H_LINES(5)   TYPE C.

  CLEAR X_OBJCONT.

  APPEND X_OBJCONT.

  CLEAR H_TEXT.

  CASE H_STATUS.

    WHEN '51'.

      H_TEXT = TEXT-004.

    WHEN '56'.

      H_TEXT = TEXT-005.

    WHEN '61'.

      H_TEXT = TEXT-006.

    WHEN '63'.

      H_TEXT = TEXT-007.

    WHEN '65'.

      H_TEXT = TEXT-008.

    WHEN '60'.

      H_TEXT = TEXT-009.

    WHEN OTHERS.

      H_TEXT = H_STATUS.

  ENDCASE.

  CLEAR X_OBJCONT.

  X_OBJCONT = H_TEXT.

  APPEND X_OBJCONT.

  DESCRIBE TABLE T_ALE_ERR_WA LINES H_LINES.

  H_TEXT = TEXT-010.

  REPLACE '&' WITH H_LINES INTO H_TEXT.

  X_OBJCONT = H_TEXT.

  APPEND X_OBJCONT.

  H_TEXT = TEXT-011.

  REPLACE '&' WITH RECEIVING_SYSTEM INTO H_TEXT.

  REPLACE '&' WITH SENDING_SYSTEM INTO H_TEXT.

  X_OBJCONT = H_TEXT.

  APPEND X_OBJCONT.

  LOOP AT T_ALE_ERR_WA.

    H_TEXT = TEXT-012.

    REPLACE '&' WITH T_ALE_ERR_WA-DOCNUMRCV INTO H_TEXT.

    REPLACE '&' WITH T_ALE_ERR_WA-DOCNUMSND INTO H_TEXT.

    X_OBJCONT = H_TEXT.

    APPEND X_OBJCONT.

  ENDLOOP.

ENDFORM.                               " ERROR_REPORT

Related Items:

• Changing an Idoc’s status with
• Convert Spool request to PDF a
• Creating an inbound IDoc
• Creating and Sending an IDoc
• Creation of DESADV & INVOIC ID