DATA: bdcdata_wa TYPE bdcdata,
bdcdata_tab TYPE TABLE OF bdcdata.
DATA opt TYPE ctu_params.
CLEAR bdcdata_wa.
bdcdata_wa-program = 'SAPLCOKO1'.
bdcdata_wa-dynpro = '0110'.
bdcdata_wa-dynbegin = 'X'.
APPEND bdcdata_wa TO bdcdata_tab.
CLEAR bdcdata_wa.
bdcdata_wa-fnam = 'BDC_CURSOR'.
bdcdata_wa-fval = 'CAUFVD-AUFNR'.
APPEND bdcdata_wa TO bdcdata_tab.
CLEAR bdcdata_wa.
bdcdata_wa-fnam = 'BDC_OKCODE'.
bdcdata_wa-fval = '/00'.
APPEND bdcdata_wa TO bdcdata_tab.
CLEAR bdcdata_wa.
bdcdata_wa-fnam = 'CAUFVD-AUFNR'.
bdcdata_wa-fval = itab-aufnr.
APPEND bdcdata_wa TO bdcdata_tab.
CLEAR bdcdata_wa.
bdcdata_wa-fnam = 'R62CLORD-FLG_OVIEW'.
bdcdata_wa-fval = 'X'.
APPEND bdcdata_wa TO bdcdata_tab.
CLEAR bdcdata_wa.
bdcdata_wa-program = 'SAPLCOKO1'.
bdcdata_wa-dynpro = '0115'.
bdcdata_wa-dynbegin = 'X'.
APPEND bdcdata_wa TO bdcdata_tab.
CLEAR bdcdata_wa.
bdcdata_wa-fnam = 'BDC_OKCODE'.
bdcdata_wa-fval = '=AUFM'.
APPEND bdcdata_wa TO bdcdata_tab.
CLEAR bdcdata_wa.
bdcdata_wa-fnam = 'BDC_SUBSCR'.
bdcdata_wa-fval = 'SAPLCOKO1 0120SUBSCR_0115'.
APPEND bdcdata_wa TO bdcdata_tab.
CLEAR bdcdata_wa.
bdcdata_wa-fnam = 'BDC_CURSOR'.
bdcdata_wa-fval = 'CAUFVD-GAMNG'.
APPEND bdcdata_wa TO bdcdata_tab.
* CLEAR bdcdata_wa.
* bdcdata_wa-program = 'SAPLCOISOUTPUT'.
* bdcdata_wa-dynpro = '0100'.
* bdcdata_wa-dynbegin = 'X'.
* APPEND bdcdata_wa TO bdcdata_tab.
*
*
* CLEAR bdcdata_wa.
* bdcdata_wa-fnam = 'BDC_OKCODE'.
* bdcdata_wa-fval = '=END'.
* APPEND bdcdata_wa TO bdcdata_tab.
*
*
* CLEAR bdcdata_wa.
* bdcdata_wa-program = 'SAPLCOKO1'.
* bdcdata_wa-dynpro = '0115'.
* bdcdata_wa-dynbegin = 'X'.
* APPEND bdcdata_wa TO bdcdata_tab.
*
*
* CLEAR bdcdata_wa.
* bdcdata_wa-fnam = 'BDC_OKCODE'.
* bdcdata_wa-fval = '/EEND'.
* APPEND bdcdata_wa TO bdcdata_tab.
opt-dismode = 'E'.
* opt-defsize = 'X'.
CALL TRANSACTION 'CO03' USING bdcdata_tab OPTIONS FROM opt.