FUNCTION Z_BAPIALE_SEND.

DATA: LT_RECEIVERS TYPE STANDARD TABLE OF BDI_LOGSYS,

      LT_FILTERS TYPE STANDARD TABLE OF BDI_FOBJ.

 CALL FUNCTION 'ALE_ASYNC_BAPI_GET_RECEIVER'

    EXPORTING

      OBJECT                  = 'ZBUS000001'

      METHOD                  = 'ZSend'

    TABLES

*   RECEIVER_INPUT                 =

      RECEIVERS               = LT_RECEIVERS

      FILTEROBJECT_VALUES     = LT_FILTERS

 EXCEPTIONS

   ERROR_IN_FILTEROBJECTS     = 1

   ERROR_IN_ALE_CUSTOMIZING   = 2

   OTHERS                     = 3

            .

  IF SY-SUBRC <> 0.

    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

  ENDIF.

CALL FUNCTION 'ZZ_ALE_SEND'

 EXPORTING

   CARRID                        = carrid

   GSSCARR                       = gs_scarr

*   OBJ_TYPE                      = 'ZBUS000001'

*   SERIAL_ID                     = '0'

  TABLES

    receivers                     = LT_RECEIVERS

*   COMMUNICATION_DOCUMENTS       =

*   APPLICATION_OBJECTS           =

* EXCEPTIONS

*   ERROR_CREATING_IDOCS          = 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.

ENDFUNCTION.