Using internal table in BAPI

Question

hello friends,
I have a scenario where I have to write a BAPI that accepts an input and exports an internal table with several records.
I am finding it difficult to define an internal table.
When I try to define it in the EXPORT tab, it says that 'Occur n' is missing.
If i try to define it in the SOURCE CODE tab using 'data' command, then i can't export it, since
it says that the internal table definition is already defined.
So I would appreciate if some one can let me know how to doit. If you have a sample BAPI that you can share I would appreciate it..
Thanks
Ram

Answer 1

check this sample program
  REPORT z_salesorder_create NO STANDARD PAGE HEADING.
* Order Type
  SELECTION-SCREEN BEGIN OF LINE.
  SELECTION-SCREEN COMMENT 2(20) v_text FOR FIELD p_auart.
  PARAMETERS: p_auart TYPE auart OBLIGATORY  DEFAULT 'ZOR'.
  SELECTION-SCREEN END OF LINE.
* Sales organization
  SELECTION-SCREEN BEGIN OF LINE.
  SELECTION-SCREEN COMMENT 2(20) v_text1 FOR FIELD p_vkorg.
  PARAMETERS: p_vkorg TYPE vkorg OBLIGATORY  DEFAULT '0081'.
  SELECTION-SCREEN END OF LINE.
* Distribution channel
  SELECTION-SCREEN BEGIN OF LINE.
  SELECTION-SCREEN COMMENT 2(20) v_text2 FOR FIELD p_vtweg.
  PARAMETERS: p_vtweg TYPE vtweg OBLIGATORY DEFAULT '01'.
  SELECTION-SCREEN END OF LINE.
* Division.
  SELECTION-SCREEN BEGIN OF LINE.
  SELECTION-SCREEN COMMENT 2(20) v_text3 FOR FIELD p_spart.
  PARAMETERS: p_spart TYPE spart OBLIGATORY default 'RT'.
  SELECTION-SCREEN END OF LINE.
* Sold-to
  SELECTION-SCREEN BEGIN OF LINE.
  SELECTION-SCREEN COMMENT 2(20) v_text4 FOR FIELD p_sold.
  PARAMETERS: p_sold  TYPE kunnr OBLIGATORY.
  SELECTION-SCREEN END OF LINE.
* Ship-to
  SELECTION-SCREEN BEGIN OF LINE.
  SELECTION-SCREEN COMMENT 2(20) v_text5 FOR FIELD p_ship.
  PARAMETERS: p_ship  TYPE kunnr OBLIGATORY.
  SELECTION-SCREEN END OF LINE.
  SKIP 1.
* PO Number
  SELECTION-SCREEN BEGIN OF LINE.
  SELECTION-SCREEN COMMENT 2(20) v_text6 FOR FIELD p_ebeln.
  PARAMETERS: p_ebeln TYPE vbkd-bstkd  OBLIGATORY.
  SELECTION-SCREEN END OF LINE.
* Plant
  SELECTION-SCREEN BEGIN OF LINE.
  SELECTION-SCREEN COMMENT 2(20) v_text9 FOR FIELD p_plant.
  PARAMETERS: p_plant TYPE werks_d OBLIGATORY DEFAULT '81RT'.
  SELECTION-SCREEN END OF LINE.
*File selection
  SELECTION-SCREEN BEGIN OF LINE.
  SELECTION-SCREEN COMMENT 2(20) v_text10 FOR FIELD p_infile.
  PARAMETERS: p_infile LIKE rlgrap-filename DEFAULT 'C:\TEMP\SALES.XLS'
                    OBLIGATORY.
  SELECTION-SCREEN END OF LINE.
* Initialization.
INITIALIZATION.
   v_text  = 'Order type'.
  v_text1  = 'Sales Org'.
  v_text2  = 'Distribution channel'.
  v_text3  = 'Division'.
  v_text4  = 'Sold-to'.
  v_text5  = 'Ship-to'.
  v_text6  = 'PO Number'.
  v_text9  = 'Plant'.
  v_text10 = 'Select File'.
  TYPES: BEGIN OF t_record ,
           matnr LIKE  itb-value,  "Material Number
           menge LIKE  itb-value,  "Quantity
           i_text LIKE itb-value,  "Item text
         END OF t_record.
  DATA : line TYPE i.
  DATA: BEGIN OF it_data OCCURS 100,
         matnr TYPE rv45a-mabnr,
         menge TYPE rv45a-kwmeng,
         i_text TYPE char200,
        END OF it_data.
  DATA : BEGIN OF i_vbap OCCURS 0,
           vbeln LIKE  vbap-vbeln,
           posnr LIKE  vbap-posnr,
           text  LIKE  rstxt-txline,
         END OF i_vbap.
* BAPI tables
  DATA: v_vbeln            LIKE vbak-vbeln,
        header             LIKE bapisdhead1,
        headerx            LIKE bapisdhead1x,
        item               LIKE bapisditem  OCCURS 0 WITH HEADER LINE,
        itemx              LIKE bapisditemx OCCURS 0 WITH HEADER LINE,
        partner            LIKE bapipartnr  OCCURS 0 WITH HEADER LINE,
        return             LIKE bapiret2    OCCURS 0 WITH HEADER LINE,
        lt_schedules_inx   TYPE STANDARD TABLE OF bapischdlx
                           WITH HEADER LINE,
        lt_schedules_in    TYPE STANDARD TABLE OF bapischdl
                           WITH HEADER LINE.
START-OF-SELECTION.
  PERFORM read_excel_file.
* Header data
* Sales document type
  header-doc_type = p_auart.
  headerx-doc_type = 'X'.
* Sales organization
  header-sales_org = p_vkorg.
  headerx-sales_org = 'X'.
* Distribution channel
  header-distr_chan  = p_vtweg.
  headerx-distr_chan = 'X'.
* Division
  header-division = p_spart.
  headerx-division = 'X'.
  headerx-updateflag = 'I'.
*po number
  header-purch_no_c = p_ebeln.
  headerx-purch_no_c = 'X'.
* Partner data
* Sold to
  partner-partn_role = 'AG'.
  partner-partn_numb = p_sold.
  APPEND partner.
* Ship to
  partner-partn_role = 'WE'.
  partner-partn_numb = p_ship.
  APPEND partner.
* ITEM DATA
  LOOP AT it_data.
    line = sy-tabix.
    itemx-updateflag = 'I'.
* Material
    item-material = it_data-matnr.
    itemx-material = 'X'.
* Plant
    item-plant    = p_plant.
    itemx-plant   = 'X'.
* Quantity
    item-target_qty = it_data-menge.
    itemx-target_qty = 'X'.
    APPEND item.
    APPEND itemx.
*   Fill schedule lines
    lt_schedules_in-sched_line = line.
    lt_schedules_in-req_qty    = it_data-menge.
    APPEND lt_schedules_in.
*   Fill schedule line flags
    lt_schedules_inx-sched_line  = line.
    lt_schedules_inx-updateflag  = 'X'.
    lt_schedules_inx-req_qty     = 'X'.
    APPEND lt_schedules_inx.
  ENDLOOP.
* Call the BAPI to create the sales order.
  CALL FUNCTION 'BAPI_SALESDOCU_CREATEFROMDATA1'
    EXPORTING
      sales_header_in     = header
      sales_header_inx    = headerx
    IMPORTING
      salesdocument_ex    = v_vbeln
    TABLES
      return              = return
      sales_items_in      = item
      sales_items_inx     = itemx
      sales_schedules_in  = lt_schedules_in
      sales_schedules_inx = lt_schedules_inx
      sales_partners      = partner.
* Check the return table.
  LOOP AT return WHERE type = 'E' OR type = 'A'.
    WRITE :/(72) return-message color 6.
  ENDLOOP.
  IF sy-subrc = 0.
    WRITE: / 'Error in creating document'.
    EXIT.
  ELSE.
* Commit the work.
    COMMIT WORK AND WAIT.
    WRITE: / 'Document ', v_vbeln, ' created'.
  ENDIF.