*&---------------------------------------------------------------------*
*& Report  ZBAPI_ALE                                                   *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  ZBAPI_ALE                                                   .

INCLUDE: <CNTAIN>.
DATA: L_RETURN TYPE SWOTRETURN,
      LT_CONT TYPE SWCONTTAB,
      L_OBJHND TYPE SWO_OBJHND,
      LS_GENERAL TYPE BAPI_ITOB,
      LS_GENERALX TYPE BAPI_ITOBX,
      LS_DATASPECIFIC LIKE  BAPI_ITOB_FL_ONLY,
      LS_DATASPECIFICX LIKE  BAPI_ITOB_FL_ONLYX,
      L_OBJKEY LIKE SWOTOBJID-OBJKEY.

************************************************************************
* parameter screen
PARAMETERS:
  P_FUNLOC TYPE BAPI_ITOB_PARMS-FUNCLOC_INT,
  P_DESC   TYPE BAPI_ITOB-DESCRIPT.
************************************************************************

L_OBJKEY = P_FUNLOC.
** instantiate object
CALL FUNCTION 'SWO_CREATE'
  EXPORTING
    OBJTYPE           = 'ZBUS0010'
    OBJKEY            = L_OBJKEY
    OBJNAME           = 'FuncLocation'
*    LOGICAL_SYSTEM    = 'LQACLNT700'
  IMPORTING
    OBJECT            = L_OBJHND
  EXCEPTIONS
    NO_REMOTE_OBJECTS = 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.
************************************************************************
* pass data to container for bapi
LS_GENERAL-DESCRIPT = P_DESC.
LS_GENERALX-DESCRIPT = 'X'.

swc_set_element lt_cont 'FUNCTLOCATION' P_FUNLOC.
swc_set_element lt_cont 'DataGeneral' LS_GENERAL.
swc_set_element lt_cont 'DataGeneralx' LS_GENERALX.

* fire BAPI
CALL FUNCTION 'SWO_INVOKE'
  EXPORTING
*     ACCESS = 'C'
    OBJECT = L_OBJHND
    VERB = 'ReqFuncloc'
*     PERSISTENT = ' '
*     REQUESTER = ' '
*     SYNCHRON = '*'
*     UNSORTED_CONTAINER = ' '
*     NO_ARFC = ' '
  IMPORTING
    RETURN = L_RETURN
*     VERB =
*     MODE_ID =
  TABLES
    CONTAINER = LT_CONT.
************************************************************************
* COMMIT WORK를 수행해야만 Inbound Idoc이 생성됨
COMMIT WORK.
************************************************************************
* write out return parameter
WRITE:/ 'hola amigo', L_RETURN.