BAPI help urgent

Question

Dear All,
cud any spot the error the error..it throws an exception FAILURE
*& Report  Y1MM_PODRG                                                  *
report  y1mm_podrg                              .
tables: mara,
        lfa1,
        eina,
        eine,
        eban,
        zdrgsah, zdrgsap,
        t100.
*Internal Table to get the input Data
data: begin of i_input occurs 0,
        matnr like ekpo-matnr,
        asqty like ekpo-menge,
        ebeln like ekpo-ebeln,
        posnr like zdrgsap-posnr,
        invno like zdrgsap-invno,
        invdt like zdrgsah-invdt,
        netpr like zdrgsap-netpr,
        cntno like zdrgsap-cntno,
        shcnm like zdrgsah-shcnm,
        werks like ekpo-werks,
        lgort like ekpo-lgort,
        matkl like ekpo-matkl,
      end of i_input.
data: begin of i_error occurs 0,
        matnr like mara-matnr,
        remark(255) type c,
      end of i_error.
data: i_mara type mara occurs 0 with header line,
      i_eina like eina occurs 0 with header line,
      i_eine like eine occurs 0 with header line.
*Data declaration.
data: v_file     type string,           " Variable for uploading file
      v_item(5)  type c,             " Line item number
      v_itno(2)  type c,
      p_wkurs like zdrgkurs-wkurs,
      v_matnr(20)    type c,
      v_menge(20)    type c,
      v_banfn(20)    type c,
      v_bnfpo(20)    type c,
      v_bednr(20)    type c,
      p_lifnr like lfa1-lifnr,
      v_flag,
        p_lifnrtxt(10),
      p_wkurstxt(9),
      p_bsartxt(4).
data: begin of i_inputxt occurs 0,
        matnr(18) ,
        asqty(13) ,
        ebeln(10) ,
        posnr(6)  ,
        invno(10) ,
        invdt(8)  ,
        netpr(11) ,
        cntno(11) ,
        shcnm(10) ,
        werks(4) ,
        lgort(4) ,
        matkl(9) ,
      end of i_inputxt.
Constants
constants : c_pd01 like eine-werks value 'PD01',
            c_x value 'X'.
*Structures to hold PO header data
data : header like  bapimepoheader   ,
       headerx like  bapimepoheaderx .
data : begin of cheader occurs 0,
        cond_type like bapimepocondheader-cond_type,
       end of cheader.
*data : cheaderx like bapimepocondheaderx.
data :  begin of cheaderx occurs 0,
        cond_type like bapimepocondheaderx-cond_type,
       end of cheaderx.
*Internal Tables to hold PO ITEM DATA
data : item   like bapimepoitem  occurs 0 with header line,
       itemx  like bapimepoitemx occurs 0 with header line,
*Internal table to hold messages from BAPI call
       return like bapiret2 occurs 0 with header line.
data : w_header(40) value 'PO Header'.
data : ws_langu like sy-langu.
*text-001 = 'PO Header' - define as text element
data : v_company like header-comp_code  value 'SBA'      ,
       v_doctyp  like header-doc_type   value 'NB'       ,
       v_cdate   like header-creat_date value  'sy-datum'   ,
       v_vendor  like header-vendor     ,
       v_pur_org like header-purch_org  value 'sbap'     ,
       v_pur_grp like header-pur_group  value 'PG1'      .
*Selection Screen Declarations
selection-screen begin of block b1 with frame title text-010.
parameters: p_invno like zdrgsah-invno obligatory,
            p_bsart like ekko-bsart.
selection-screen end of block b1.
*selection-screen begin of block b2 with frame title text-002.
*parameters : item_num like item-po_item  default '00010',
            material like mara-matnr default '0011442062'   ,
            plant    like item-plant    default 'PD01' ,
           quantity like item-quantity default 100.
*selection-screen end of block b2.
start-of-selection.
*DATA POPULATION
  ws_langu = sy-langu.   "Language variable
  To Upload the data into Internal table.
  perform f_upload_data.
To Validate the input data.
  perform f_check_data.
  if i_error[] is initial.
To process the data file
   perform f_process_session.
   elseif not i_error[] is initial.
To display the error message
   perform f_display_error.
    perform bapi_call_data.
  endif.
end-of-selection.
*Output the messages returned from BAPI call
  loop at return.
    write / return-message.
  endloop.
*&      Form  f_upload_data
form f_upload_data .
  select matwa as matnr asqty ebeln posnr b~invno invdt netpr cntno
    shcnm into table i_input
         from zdrgsah as a join zdrgsap as b on
         a~invno = b~invno
         where b~invno eq p_invno.
  loop at i_input.
    select single * from eban
       where banfn eq i_input-ebeln
       and   bnfpo eq i_input-posnr.
    if sy-subrc eq 0.
      move eban-werks to i_input-werks.
      move eban-lgort to i_input-lgort.
      move eban-matkl to i_input-matkl.
      modify i_input.
      clear  i_input.
    endif.
  endloop.
endform.                    " f_upload_data
*&      Form  f_check_data
form f_check_data .
  if not i_input[] is initial.
    select * from mara
    into table i_mara
    for all entries in i_input
    where matnr eq i_input-matnr.
  endif.
  if i_mara[] is initial.
    message e000(zcnc) with text-001.
  endif.
  read table i_input index 1.
  if sy-subrc eq 0.
    select single lifnr into p_lifnr from zdrgsup
       where shcnm = i_input-shcnm.
    if sy-subrc <> 0.
      message e000(zcnc) with text-002.
    endif.
  endif.
  select single wkurs into p_wkurs from zdrgkurs
    where invno = p_invno.
  if sy-subrc ne 0.
    message e000(zcnc) with text-s11.
  endif.
    call function 'CONVERSION_EXIT_ALPHA_OUTPUT'
    exporting
      input  = p_lifnr
    importing
      output = p_lifnr.
  p_lifnrtxt = p_lifnr.
  p_wkurstxt = p_wkurs.
  p_bsartxt = p_bsart.
  loop at i_input.
    move-corresponding i_input to i_inputxt.
    append i_inputxt.
  endloop.
endform.                    "f_check_data
*&      Form  bapi_call_data
      text
form bapi_call_data.
*POPULATE HEADER DATA FOR PO
  header-comp_code  = v_company    .
  header-doc_type   = v_doctyp     .
  header-creat_date = v_cdate      .
  header-vendor     = p_lifnr     .
  header-langu      = ws_langu   .
  header-quotation  = p_invno.
  header-exch_rate  = p_wkurs.
  header-ex_rate_fx = 'X'.
  header-purch_org  = v_pur_org    .
  header-pur_group  = v_pur_grp    .
  header-doc_date   = sy-datum.
*POPULATE HEADER FLAG.
  headerx-comp_code  = c_x.
  headerx-doc_type   = c_x.
  headerx-creat_date = c_x.
  headerx-vendor     = c_x.
  headerx-langu      = c_x.
  headerx-quotation  = c_x.
  headerx-exch_rate  = c_x.
  headerx-ex_rate_fx = c_x.
  headerx-purch_org  = c_x.
  headerx-pur_group  = c_x.
  headerx-doc_date   = c_x.
*POPULATE HEADER DATA.CONDITIONS
  cheader-cond_type = 'ZCA1'.
  append cheader.
  cheader-cond_type = 'ZFA1'.
  append cheader.
  cheader-cond_type = 'ZINC'.
  append cheader.
  cheader-cond_type = 'ZIV1'.
  append cheader.
  cheader-cond_type = 'ZOT1'.
  append cheader.
*POPULATE HEADER CONDITION FLAG.
  cheader-cond_type = c_x.
*POPULATE ITEM DATA.
perform bdc_field       using v_bednr   i_input-cntno.
item-price_unit = '100'.
  loop at i_inputxt.
    item-plant      = i_inputxt-werks.
    item-stge_loc   = i_inputxt-lgort.
    item-material   = i_inputxt-matnr.
    item-matl_group = i_inputxt-matkl.
    item-quantity   = i_inputxt-asqty.
    item-preq_no    = i_inputxt-ebeln.
    item-preq_item  = i_inputxt-posnr.
    item-trackingno = i_inputxt-cntno.
   item-preq_item = i_input-posnr.
item-net_price  = item-price_unit * item-quantity.
    append item.
    clear item.
  endloop.
*POPULATE ITEM FLAG TABLE
itemx-po_item    = item_num.
  itemx-material   = c_x.
  itemx-plant      = c_x .
  itemx-stge_loc   = c_x .
  itemx-quantity   = c_x .
  itemx-stge_loc   = c_x .
  itemx-tax_code   = c_x .
  itemx-item_cat   = c_x .
  itemx-acctasscat = c_x .
itemx-net_price  = c_x.
  append itemx.
*BAPI CALL
  call function 'BAPI_PO_CREATE1'
    exporting
      poheader                     = header
      poheaderx                    = headerx
    POADDRVENDOR                 =
    TESTRUN                      =
    IMPORTING
    EXPPURCHASEORDER             =
    EXPHEADER                    =
    EXPPOEXPIMPHEADER            =
   tables
    pocondheader                 = cheader
    pocondheaderx                = cheaderx
     return                       = return
     poitem                       = item
     poitemx                      = itemx.
*Confirm the document creation by calling database COMMIT
  call function 'BAPI_TRANSACTION_COMMIT'
   exporting
     wait          = 'X'
IMPORTING
  RETURN        =
endform.                    "bapi_call_data
Thanks a lot ,
santosh Kotra.

Answer 1

Hi,
   Check out the sample code for the same BAPI.
   This error may come because of incorrect Package no value.
DATA: i_poitem        TYPE STANDARD TABLE OF bapimepoitem,
      i_poitemx       TYPE STANDARD TABLE OF bapimepoitemx,
      i_poitem_sch    TYPE STANDARD TABLE OF bapimeposchedule,
      i_poitem_schx   TYPE STANDARD TABLE OF bapimeposchedulx,
      i_acct_***      TYPE STANDARD TABLE OF bapimepoaccount,
      i_acct_assx     TYPE STANDARD TABLE OF bapimepoaccountx,
      i_services      TYPE STANDARD TABLE OF bapiesllc ,
      i_srvacc        TYPE STANDARD TABLE OF bapiesklc,
      i_return        TYPE STANDARD TABLE OF bapiret2,
      wa_header       TYPE bapimepoheader,
      wa_headerx      TYPE bapimepoheaderx,
      wa_poitem       TYPE bapimepoitem,
      wa_poitemx      TYPE bapimepoitemx,
      wa_poitem_sch   TYPE bapimeposchedule,
      wa_poitem_schx  TYPE bapimeposchedulx,
      wa_acct_***     TYPE bapimepoaccount,
      wa_acct_assx    TYPE bapimepoaccountx,
      wa_services     TYPE bapiesllc,
      wa_srvacc       TYPE bapiesklc,
      wa_return       TYPE bapiret2,
      ws_po           TYPE bapimepoheader-po_number,
      ws_wait         TYPE bapita-wait.
CONSTANTS: c_x        TYPE char01 VALUE 'X'.
break gbpra8.
wa_header-doc_type = 'ZDET'.
wa_header-vendor = '0002000000'.
PERFORM conversion_output USING wa_header-vendor
                          CHANGING wa_header-vendor.
wa_header-comp_code = 'DE03'.
wa_header-purch_org = 'DE03'.
wa_header-pur_group = 'DE1'.
wa_header-vper_start = '20060730'.
wa_header-vper_end = '20070621'.
wa_headerx-comp_code = c_x.
wa_headerx-doc_type = c_x.
wa_headerx-creat_date = c_x.
wa_headerx-created_by = c_x.
wa_headerx-vendor = c_x.
wa_headerx-purch_org = c_x.
wa_headerx-pur_group = c_x.
wa_headerx-vper_start = c_x.
wa_headerx-vper_end = c_x.
wa_poitem-po_item = 100.
wa_poitem-short_text = 'Sample'.
wa_poitem-plant = 'DE03'.
wa_poitem-quantity = 1.
wa_poitem-tax_code = 'V1'.
wa_poitem-item_cat = 'D'.
wa_poitem-acctasscat = 'K'.
wa_poitem-matl_group = 'ZDESS'.
wa_poitem-pckg_no = 10.
wa_poitem-gr_ind = space.
wa_poitem-gr_basediv = space.
APPEND wa_poitem TO i_poitem .
wa_poitemx-po_item = 100.
wa_poitemx-po_itemx = c_x.
wa_poitemx-short_text = c_x.
wa_poitemx-plant = c_x.
wa_poitemx-quantity = c_x.
wa_poitemx-tax_code = c_x.
wa_poitemx-item_cat = c_x.
wa_poitemx-acctasscat = c_x.
wa_poitemx-matl_group = c_x.
wa_poitemx-pckg_no = c_x.
wa_poitemx-gr_ind = c_x.
wa_poitemx-gr_basediv = space.
APPEND wa_poitemx TO i_poitemx.
wa_poitem-po_item = 200.
wa_poitem-short_text = 'Sample'.
wa_poitem-plant = 'DE03'.
wa_poitem-quantity = 1.
wa_poitem-tax_code = 'V1'.
wa_poitem-item_cat = 'D'.
wa_poitem-acctasscat = 'K'.
wa_poitem-matl_group = 'ZDESS'.
wa_poitem-pckg_no = 40.
wa_poitem-gr_ind = space.
wa_poitem-gr_basediv = space.
APPEND wa_poitem TO i_poitem .
wa_poitemx-po_item = 200.
wa_poitemx-po_itemx = c_x.
wa_poitemx-short_text = c_x.
wa_poitemx-plant = c_x.
wa_poitemx-quantity = c_x.
wa_poitemx-tax_code = c_x.
wa_poitemx-item_cat = c_x.
wa_poitemx-acctasscat = c_x.
wa_poitemx-matl_group = c_x.
wa_poitemx-pckg_no = c_x.
wa_poitemx-gr_ind = c_x.
wa_poitemx-gr_basediv = space.
APPEND wa_poitemx TO i_poitemx.
wa_acct_***-po_item = 100.
wa_acct_***-serial_no = 01.
wa_acct_***-gl_account = '0006360100'.
wa_acct_***-co_area  = '1000'.
wa_acct_***-costcenter = 'KC010000'.
APPEND wa_acct_*** TO i_acct_***.
wa_acct_assx-po_item = 100.
wa_acct_assx-serial_no = 01.
wa_acct_assx-po_itemx = c_x.
wa_acct_assx-serial_nox = c_x.
wa_acct_assx-gl_account = c_x.
wa_acct_assx-co_area  = c_x.
wa_acct_assx-costcenter = c_x.
APPEND wa_acct_assx TO i_acct_assx.
wa_acct_***-po_item = 100.
wa_acct_***-serial_no = 02.
wa_acct_***-gl_account = '0006360100'.
wa_acct_***-co_area  = '1000'.
wa_acct_***-costcenter = 'KC010000'.
APPEND wa_acct_*** TO i_acct_***.
wa_acct_assx-po_item = 100.
wa_acct_assx-serial_no = 02.
wa_acct_assx-po_itemx = c_x.
wa_acct_assx-serial_nox = c_x.
wa_acct_assx-gl_account = c_x.
wa_acct_assx-co_area  = c_x.
wa_acct_assx-costcenter = c_x.
APPEND wa_acct_assx TO i_acct_assx.
wa_acct_***-po_item = 200.
wa_acct_***-serial_no = 01.
wa_acct_***-gl_account = '0006360100'.
wa_acct_***-co_area  = '1000'.
wa_acct_***-costcenter = 'KC010000'.
APPEND wa_acct_*** TO i_acct_***.
wa_acct_assx-po_item = 200.
wa_acct_assx-serial_no = 01.
wa_acct_assx-po_itemx = c_x.
wa_acct_assx-serial_nox = c_x.
wa_acct_assx-gl_account = c_x.
wa_acct_assx-co_area  = c_x.
wa_acct_assx-costcenter = c_x.
APPEND wa_acct_assx TO i_acct_assx.
wa_acct_***-po_item = 200.
wa_acct_***-serial_no = 02.
wa_acct_***-gl_account = '0006360100'.
wa_acct_***-co_area  = '1000'.
wa_acct_***-costcenter = 'KC010000'.
APPEND wa_acct_*** TO i_acct_***.
wa_acct_assx-po_item = 200.
wa_acct_assx-serial_no = 02.
wa_acct_assx-po_itemx = c_x.
wa_acct_assx-serial_nox = c_x.
wa_acct_assx-gl_account = c_x.
wa_acct_assx-co_area  = c_x.
wa_acct_assx-costcenter = c_x.
APPEND wa_acct_assx TO i_acct_assx.
wa_services-pckg_no = 10.
wa_services-line_no = 1.
wa_services-outl_no = '0'.
wa_services-outl_ind = c_x.
wa_services-subpckg_no = 20.
wa_services-from_line = 1.
wa_services-to_line = 2.
APPEND wa_services TO i_services.
wa_services-pckg_no = 20.
wa_services-line_no = 2.
wa_services-service = 'H007'.
wa_services-quantity = '12'.
wa_services-gr_price = '100'.
wa_services-userf1_txt = 'Firm'.
APPEND wa_services TO i_services.
wa_services-pckg_no = 40.
wa_services-line_no = 1.
wa_services-outl_no = '0'.
wa_services-outl_ind = c_x.
wa_services-subpckg_no = 50.
wa_services-from_line = 1.
wa_services-to_line = 2.
APPEND wa_services TO i_services.
wa_services-pckg_no = 50.
wa_services-line_no = 2.
wa_services-service = 'H008'.
wa_services-quantity = '12'.
wa_services-gr_price = '100'.
wa_services-userf1_txt = 'Firm'.
APPEND wa_services TO i_services.
wa_srvacc-pckg_no = 10.
wa_srvacc-line_no = 1.
wa_srvacc-serno_line = 01.
wa_srvacc-serial_no = 01.
wa_srvacc-percentage = 100.
APPEND wa_srvacc TO i_srvacc.
wa_srvacc-pckg_no = 20.
wa_srvacc-line_no = 2.
wa_srvacc-serno_line = 02.
wa_srvacc-serial_no = 02.
wa_srvacc-percentage = 100.
APPEND wa_srvacc TO i_srvacc.
wa_srvacc-pckg_no = 40.
wa_srvacc-line_no = 1.
wa_srvacc-serno_line = 01.
wa_srvacc-serial_no = 01.
wa_srvacc-percentage = 100.
APPEND wa_srvacc TO i_srvacc.
wa_srvacc-pckg_no = 50.
wa_srvacc-line_no = 2.
wa_srvacc-serno_line = 02.
wa_srvacc-serial_no = 02.
wa_srvacc-percentage = 100.
APPEND wa_srvacc TO i_srvacc.
CALL FUNCTION 'BAPI_PO_CREATE1'
  EXPORTING
    poheader          = wa_header
    poheaderx         = wa_headerx
  IMPORTING
    exppurchaseorder  = ws_po
  TABLES
    return            = i_return
    poitem            = i_poitem
    poitemx           = i_poitemx
    poschedule        = i_poitem_sch
    poschedulex       = i_poitem_schx
    poaccount         = i_acct_***
    poaccountx        = i_acct_assx
    poservices        = i_services
    posrvaccessvalues = i_srvacc.
break gbpra8.
LOOP AT i_return INTO wa_return.
ENDLOOP.
ws_wait = 5.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
  EXPORTING
    wait = ws_wait.
*&      Form  conversion_output
      Conversion exit input
FORM conversion_output  USING    p_ip
                        CHANGING p_op.
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = p_ip
    IMPORTING
      output = p_op.
ENDFORM.                    " conversion_output
  Reward points if it helps.
Manish