REPORT zale_001                                                   .

INCLUDE: <cntain>.

DATA: l_return TYPE swotreturn,

      lt_cont TYPE swconttab,

      l_objhnd TYPE swo_objhnd,

      l_objkey LIKE swotobjid-objkey.

************************************************************************

PARAMETERS:

  p_carrid TYPE scarr-carrid,

  p_name   TYPE scarr-carrname.

************************************************************************

l_objkey = p_carrid.

** Business Object 인스턴스 생성

CALL FUNCTION 'SWO_CREATE'

  EXPORTING

    objtype           = 'ZBUS000001'

    objkey            = l_objkey

    objname           = 'ZBUS000001'

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

************************************************************************

* BAPI 함수에 데이터 전달

DATA : gs_scarr LIKE scarr.

gs_scarr-carrid = p_carrid.

gs_scarr-carrname = p_name.

swc_set_element lt_cont 'CARRID' p_carrid.

swc_set_element lt_cont 'GS_SCARR' gs_scarr.

* BAPI함수 실행

CALL FUNCTION 'SWO_INVOKE'

  EXPORTING

*     ACCESS = 'C'

    object = l_objhnd

    verb = 'ZSend'

*     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:/ 'BAPI-ALE 인터페이스 테스트', l_return.