*&---------------------------------------------------------------------*
*& Report ZPROGRAM_BDC_01
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zprogram_bdc_01.
DATA: it_BDC TYPE TABLE OF bdcdata.
DATA: wa_BDC TYPE bdcdata.
wa_bdc-program = 'SAPMILO0'.
wa_bdc-dynpro = '1110'.
wa_bdc-dynbegin = 'X'.
wa_bdc-fnam = ''.
wa_bdc-fval = ''.
APPEND wa_BDC TO it_bdc.
wa_bdc-program = ''.
wa_bdc-dynpro = ''.
wa_bdc-dynbegin = ''.
wa_bdc-fnam = 'BDC_OKCODE'.
wa_bdc-fval = '/00'.
APPEND wa_BDC TO it_bdc.
wa_bdc-program = ''.
wa_bdc-dynpro = ''.
wa_bdc-dynbegin = ''.
wa_bdc-fnam = 'IFLOS-STRNO'.
wa_bdc-fval = 'TEST-014'.
APPEND wa_BDC TO it_bdc.
wa_bdc-program = ''.
wa_bdc-dynpro = ''.
wa_bdc-dynbegin = ''.
wa_bdc-fnam = 'RILO0-TPLKZ'.
wa_bdc-fval = 'A'.
APPEND wa_BDC TO it_bdc.
wa_bdc-program = ''.
wa_bdc-dynpro = ''.
wa_bdc-dynbegin = ''.
wa_bdc-fnam = 'IFLO-FLTYP'.
wa_bdc-fval = 'M'.
APPEND wa_BDC TO it_bdc.
wa_bdc-program = 'SAPMILO0'.
wa_bdc-dynpro = '2100'.
wa_bdc-dynbegin = 'X'.
wa_bdc-fnam = ''.
wa_bdc-fval = ''.
APPEND wa_BDC TO it_bdc.
wa_bdc-program = ''.
wa_bdc-dynpro = ''.
wa_bdc-dynbegin = ''.
wa_bdc-fnam = 'BDC_OKCODE'.
wa_bdc-fval = '=T\02'.
APPEND wa_BDC TO it_bdc.
wa_bdc-program = ''.
wa_bdc-dynpro = ''.
wa_bdc-dynbegin = ''.
wa_bdc-fnam = 'IFLO-PLTXT'.
wa_bdc-fval = 'Test for BDC 014'.
APPEND wa_BDC TO it_bdc.
wa_bdc-program = ''.
wa_bdc-dynpro = ''.
wa_bdc-dynbegin = ''.
wa_bdc-fnam = 'BDC_CURSOR'.
wa_bdc-fval = 'ITOB-EQART'.
APPEND wa_BDC TO it_bdc.
wa_bdc-program = ''.
wa_bdc-dynpro = ''.
wa_bdc-dynbegin = ''.
wa_bdc-fnam = 'ITOB-EQART'.
wa_bdc-fval = '1000'.
APPEND wa_BDC TO it_bdc.
wa_bdc-program = 'SAPMILO0'.
wa_bdc-dynpro = '2100'.
wa_bdc-dynbegin = 'X'.
wa_bdc-fnam = ''.
wa_bdc-fval = ''.
APPEND wa_BDC TO it_bdc.
wa_bdc-program = ''.
wa_bdc-dynpro = ''.
wa_bdc-dynbegin = ''.
wa_bdc-fnam = 'BDC_OKCODE'.
wa_bdc-fval = '=BU'.
APPEND wa_BDC TO it_bdc.
wa_bdc-program = ''.
wa_bdc-dynpro = ''.
wa_bdc-dynbegin = ''.
wa_bdc-fnam = 'BDC_CURSOR'.
wa_bdc-fval = 'ITOB-SWERK'.
APPEND wa_BDC TO it_bdc.
wa_bdc-program = ''.
wa_bdc-dynpro = ''.
wa_bdc-dynbegin = ''.
wa_bdc-fnam = 'ITOB-SWERK'.
wa_bdc-fval = '0005'.
APPEND wa_BDC TO it_bdc.
Data: it_msg type table of BDCmsgcoll.
CALL TRANSACTION 'il01' USING it_bdc MESSAGE into it_msg.