DP90 - BDC

constants : c_space type c value cl_abap_char_utilities=>horizontal_tab.

  refresh it_messtab.
  concatenate  sy-datum+6(2) sy-datum+4(2)
               sy-datum(4) into g_date separated by '.'.

  perform bdc_dynpro      using 'SAPLVPK_GUI_INTRO' '0300'.
  perform bdc_field       using 'BDC_CURSOR'
                                'RV45S-BSTNK'.
  perform bdc_field       using 'BDC_OKCODE'
                                '=SAVE_BI'.
  perform bdc_field       using 'AUFK-AUFNR' g_aufnr.
  perform bdc_field       using 'VPK_INPUT_SELECTION-VBELN' c_space.
  perform bdc_field       using 'G_BUDAT'   g_date.
  perform bdc_transaction using 'DP90'.

  commit work.

*  MESSAGE '' TYPE 'S'.

*   CONCATENATE G_AUFNR 'Created' INTO G_MESS separated by Space.

  if sy-subrc eq 0.
    clear g_vbeln.
    loop at it_messtab where msgtyp = 'S' and msgv1(1) = '3'.
      g_vbeln = it_messtab-msgv1.
    endloop.
  endif.