function z_rfc_se01.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(I_TRKORR) TYPE  TRKORR
*"----------------------------------------------------------------------

  data:   bdcdata like bdcdata    occurs 0 with header line.
  data: opt type ctu_params.

  if i_trkorr+3 = space.
    clear bdcdata.
    bdcdata-program  = 'RDDM0001'.
    bdcdata-dynpro   = 200.
    bdcdata-dynbegin = 'X'.
    append bdcdata.
* Set TAB to Transports
    clear bdcdata.
    bdcdata-fnam = 'BDC_OKCODE'.
    bdcdata-fval = 'TSCM'.
    append bdcdata.

    clear bdcdata.
    bdcdata-program  = 'RDDM0001'.
    bdcdata-dynpro   = 200.
    bdcdata-dynbegin = 'X'.
    append bdcdata.

    clear bdcdata.
    bdcdata-fnam = 'BDC_OKCODE'.
    bdcdata-fval = '/00'.
    append bdcdata.

  else.

    clear bdcdata.
    bdcdata-program  = 'RDDM0001'.
    bdcdata-dynpro   = 200.
    bdcdata-dynbegin = 'X'.
    append bdcdata.
* Set tab to Single display
    clear bdcdata.
    bdcdata-fnam = 'BDC_OKCODE'.
    bdcdata-fval = 'SNGL'.
    append bdcdata.

    clear bdcdata.
    bdcdata-program  = 'SAPLSTRH'.
    bdcdata-dynpro   = 1200.
    bdcdata-dynbegin = 'X'.
    append bdcdata.

    clear bdcdata.
    bdcdata-fnam = 'GV_1200_TRKORR'.
    bdcdata-fval = i_trkorr.
    append bdcdata.

    clear bdcdata.
    bdcdata-fnam = 'BDC_OKCODE'.
    bdcdata-fval = '/00'.
    append bdcdata.

  endif.

  opt-racommit = 'X'.
  opt-dismode = 'E'.
  opt-updmode = 'S'.

  call transaction 'SE01' using bdcdata options from opt.

endfunction.