Bdc programing

Question

Hi,
i am new to bdc.in my req.. they asked me to change bapi function module and i want replace with bdc. i want to do recording for ME21n or ME21 Tcode and bdc Session method.plz let me know the process by step by step.if any one have code for this send me.for every 1000 line items i want to crate session.
my input file type:
rectyp      type  char1,            " Type of Record indicator - H /T / D
         ebeln       type  ebeln,            " Purchasing Document Number
         bukrs       type zlegacy_company,   " Company Code
         ekgrp       type  bkgrp,            " Purchasing Group
         bsart(6),                           " Purchasing Document Type
         ekorg       type  ekorg,            " Purchasing Organization
         lifnr       type  elifn,            " Vendor Account Number
         bedat       type  ebdat,            " Purchasing Document Date
         ebelp       type  ebelp,            " Item Number of Purchasing Documen
         knttp       type  knttp,            " Account Assignment Category
         matkl       type  matkl,            " Material Group
         werks       type  werks,            " Plant
         txz01       type  txz01,            " Short Text
         menge(13)   type  c,                " Purchase Order Quantity
         meins       type  bstme,            " Purchase Order Unit of Measure
         netpr(16)   type   c,               " Net Price in Purchasing Document
         peinh(5)    type    c,              " Price Unit
         bprme       type  bbprm,            " Order Price Unit (Purchasing)
         eeind       type  datum,            " Delivery Date
         mwskz       type  mwskz,            " Sales Tax Code
         saknr       type  saknr,            " Cost Element
         prctr(15),                          " Profit Center
         po_number   type ebeln,             " PO Number
         bwart       type bwart,             " Movement type
         po_item     type ebelp,             " PO Line Item
         bldat       type bldat,             " Document Date
         lfsnr       type lfsnr,             " Delivery Note
         frbnr       type frbnr,             " Bill of Laden
         bktxt       type bktxt,             " Header Text
         erfmg(13)   type c,
thanks,
ankitha

Answer 1

Hi Ankitha,
Its not possible to use BDC for ME21N, becos this is Enjoy Tcode. Better create program using BAPI_PO_CREATE1 Bapi.
if u want here is the code with bapi.....
FORM create_sto .
REFRESH: i_errpo, i_error.
CLEAR: w_header, i_errpo, i_error, v_success, v_error.
LOOP AT i_header_sa INTO w_header.
CLEAR: w_errpo, w_poheaderx, w_exppurchaseorder, w_expheader,
w_return, w_poitem, w_poitemx, w_poschedule, w_poschedulex,
i_return, w_poitem, w_poitemx, i_poschedule, i_poschedulex.
REFRESH: i_return, i_poitem, i_poitemx, i_poschedule, i_poschedulex.
*--Fill Header
w_poheader-po_number = w_header-ebeln.
w_poheader-doc_type = 'ZU'.
*--The supplying plant is mapped based on the recieving plant in from the ZCA_CONV_UTILITY.
The conversion is based on the new values of the recieving plant and storage location
v_value_old = w_header-bukrs.
PERFORM convert TABLES i_values
USING 'BUKRS'
v_value_old
CHANGING v_value_new.
w_poheader-comp_code = v_value_new(4).
w_poheader-pur_group = w_header-ekgrp.
CLEAR: v_value_old, v_value_new.
v_value_old = w_header-ekorg.
PERFORM convert TABLES i_values
USING 'EKORG'
v_value_old
CHANGING v_value_new.
WRITE w_header-aedat+4(2) TO v_po_date(2).
WRITE w_header-aedat6(2) TO v_po_date2(2).
WRITE w_header-aedat(4) TO v_po_date+4(4).
w_poheader-purch_org = v_value_new(4).
w_poheader-vendor = w_header-lifnr.
w_poheader-creat_date = v_po_date.
w_poheader-item_intvl = w_header-pincr.
w_poheader-langu = w_header-spras.
w_poheader-subitemint = w_header-upinc.
w_poheader-vper_start = w_header-kdatb.
w_poheader-vper_end = w_header-kdate.
w_poheader-warranty = w_header-gwldt.
w_poheader-ref_1 = w_header-ihrez.
w_poheader-sales_pers = w_header-verkf.
w_poheader-our_ref = w_header-unsez.
w_poheader-telephone = w_header-telf1.
w_poheaderx-po_number = 'X'.
w_poheaderx-doc_type = 'X'.
w_poheaderx-suppl_plnt = 'X'.
w_poheaderx-comp_code = 'X'.
w_poheaderx-pur_group = 'X'.
w_poheaderx-purch_org = 'X'.
w_poheaderx-vendor = 'X'.
w_poheaderx-creat_date = 'X'.
w_poheaderx-item_intvl = 'X'.
w_poheaderx-langu = 'X'.
w_poheaderx-subitemint = 'X'.
w_poheaderx-vper_start = 'X'.
w_poheaderx-vper_end = 'X'.
w_poheaderx-warranty = 'X'.
w_poheaderx-ref_1 = 'X'.
w_poheaderx-sales_pers = 'X'.
w_poheaderx-our_ref = 'X'.
w_poheaderx-telephone = 'X'.
CLEAR: w_item, v_poitem.
LOOP AT i_item INTO w_item WHERE ebeln EQ w_header-ebeln.
CLEAR: w_zmm_cordlog,
v_split,
w_matnr.
READ TABLE i_zmm_cordlog INTO w_zmm_cordlog WITH KEY ponumber = w_item-ebeln
poitem = w_item-ebelp.
IF sy-subrc EQ 0.
*--If file is processed earlier, rollback work.
IF NOT w_zmm_cordlog-mdoc561 IS INITIAL. "STO has to be processed for 561 Goods Mvmt
w_errortab-ponumber = w_item-ebeln.
w_errortab-poitem = w_item-ebelp.
w_errortab-message = text-051. "Process STO for 561 Goods Mvmt.
APPEND w_errortab TO i_errortab.
ADD 1 TO v_error.
CLEAR w_errortab.
PERFORM error_pos.
CONTINUE.
ELSE.
IF NOT w_zmm_cordlog-eccpo IS INITIAL. "STO already exists
w_errortab-ponumber = w_item-ebeln.
w_errortab-poitem = w_item-ebelp.
w_errortab-eccpo = w_zmm_cordlog-eccpo.
w_errortab-eccpoitem = w_zmm_cordlog-eccpoitem.
w_errortab-message = text-052. "STO already created, record skipped
APPEND w_errortab TO i_errortab.
ADD 1 TO v_error.
CLEAR w_errortab.
PERFORM error_pos.
CONTINUE.
ENDIF.
ENDIF.
ENDIF.
CLEAR w_mard.
SELECT SINGLE * FROM mard INTO w_mard
WHERE matnr EQ w_item-matnr
AND werks EQ w_item-werks
AND lgort EQ w_item-lgort.
IF sy-subrc <> 0.
w_itmerror-ponumber = w_item-ebeln.
w_itmerror-poitem = w_item-ebelp.
CONCATENATE w_item-matnr w_item-werks w_item-lgort text-044
INTO w_itmerror-message SEPARATED BY space.
APPEND w_itmerror TO i_itmerror.
ADD 1 TO v_error.
CONTINUE.
ENDIF.
*--Plant and Storage location conversion
CLEAR: v_value_old, i_values[], v_value_new.
CONCATENATE w_item-werks w_item-lgort INTO v_value_old.
PERFORM convert TABLES i_values
USING 'WERKSLGORT'
v_value_old
CHANGING v_value_new.
w_item-werks = v_value_new+0(4).
w_item-lgort = v_value_new+4(4).
*--The converted recieving plant will be the same as the supplying plant in the new system
and the supplying storage location would be OW01.
w_poheader-suppl_plnt = w_item-werks.
*--Fill item
w_poitem-po_item = w_item-ebelp.
w_poitem-material = w_item-matnr.
w_poitem-plant = w_item-werks.
w_poitem-stge_loc = w_item-lgort.
w_poitem-po_unit = w_item-meins.
PERFORM get_valuation_type USING w_item-matnr
w_item-werks
w_item-lgort
CHANGING w_poitem-val_type.
IF w_item-matnr CP '*-R'.
SPLIT w_item-matnr AT '-R' INTO w_item-matnr v_split.
ELSEIF w_item-matnr CP '*-D'.
SPLIT w_item-matnr AT '-D' INTO w_item-matnr v_split.
ENDIF.
SELECT SINGLE matnr INTO w_matnr
FROM mara
WHERE matnr = w_item-matnr.
IF sy-subrc NE 0.
w_errortab-ponumber = w_item-ebeln.
w_errortab-poitem = w_item-ebelp.
CONCATENATE w_item-matnr 'Does not exist in the MARC table'
INTO w_errortab-message.
ADD 1 TO v_error.
CONTINUE.
ENDIF.
w_poitem-matl_group = w_item-matkl.
w_poitem-item_cat = w_item-pstyp.
w_poitem-acctasscat = w_item-knttp.
w_poitem-reminder1 = w_item-mahn1.
w_poitem-conf_ctrl = w_item-bstae.
w_poitem-ackn_reqd = w_item-kzabs.
w_poitem-quantity = w_item-menge.
w_poitem-reminder2 = w_item-mahn2.
w_poitem-acknowl_no = w_item-labnr.
w_poitem-reminder3 = w_item-mahn3.
w_poitem-trackingno = w_item-bednr.
w_poitem-gr_pr_time = w_item-webaz.
w_poitem-under_dlv_tol = w_item-untto.
w_poitem-qual_insp = w_item-insmk.
w_poitem-over_dlv_tol = w_item-uebto.
w_poitem-unlimited_dlv = w_item-uebtk.
w_poitem-no_more_gr = w_item-elikz.
w_poitem-shipping = w_item-evers.
w_poitem-period_ind_expiration_date = ' '.
APPEND w_poitem TO i_poitem.
w_poitemx-po_item = w_poitem-po_item.
w_poitemx-po_itemx = 'X'.
w_poitemx-material = 'X'.
w_poitemx-plant = 'X'.
w_poitemx-stge_loc = 'X'.
w_poitemx-po_unit = 'X'.
w_poitemx-val_type = 'X'.
w_poitemx-matl_group = 'X'.
w_poitemx-item_cat = 'X'.
w_poitemx-acctasscat = 'X'.
w_poitemx-reminder1 = 'X'.
w_poitemx-conf_ctrl = 'X'.
w_poitemx-ackn_reqd = 'X'.
w_poitemx-quantity = 'X'.
w_poitemx-reminder2 = 'X'.
w_poitemx-acknowl_no = 'X'.
w_poitemx-reminder3 = 'X'.
w_poitemx-trackingno = 'X'.
w_poitemx-gr_pr_time = 'X'.
w_poitemx-under_dlv_tol = 'X'.
w_poitemx-qual_insp = 'X'.
w_poitemx-over_dlv_tol = 'X'.
w_poitemx-unlimited_dlv = 'X'.
w_poitemx-no_more_gr = 'X'.
w_poitemx-shipping = 'X'.
w_poitemx-period_ind_expiration_date = 'X'.
APPEND w_poitemx TO i_poitemx.
CLEAR w_poitemx.
CLEAR: w_slines, v_scheditem.
LOOP AT i_slines INTO w_slines WHERE ebeln EQ w_item-ebeln
AND ebelp EQ w_item-ebelp.
*--Fill Schedule lines for PO
w_poschedule-po_item = w_item-ebelp.
w_poschedule-sched_line = w_slines-etenr.
w_poschedule-del_datcat_ext = ' '.
w_poschedule-delivery_date = w_slines-eindt.
w_poschedule-quantity = w_slines-menge.
APPEND w_poschedule TO i_poschedule.
CLEAR w_poschedule.
w_poschedulex-po_item = w_item-ebelp.
w_poschedulex-sched_line = w_slines-etenr.
w_poschedulex-po_itemx = 'X'.
w_poschedulex-sched_linex = 'X'.
w_poschedulex-del_datcat_ext = 'X'.
w_poschedulex-delivery_date = 'X'.
w_poschedulex-quantity = 'X'.
APPEND w_poschedulex TO i_poschedulex.
CLEAR w_poschedulex.
CLEAR w_slines.
ENDLOOP.
CLEAR: w_poitem,
w_item.
ENDLOOP.
SORT: i_poitem, i_poitemx, i_poschedule, i_poschedulex.
*--If the import data to BAPI is empty, then raise a message to check the Material Error file for
any PO items which are skipped.
The PO in error is also moved to the error file for reprocessing.
IF w_poheader IS INITIAL OR
i_poitem[] IS INITIAL.
CLEAR: w_poheader, w_poheaderx, i_return[], i_poitem, i_poitem[].
CONTINUE.
ENDIF.
*--BAPI call for PO creation
CALL FUNCTION 'BAPI_PO_CREATE1'
EXPORTING
poheader = w_poheader
poheaderx = w_poheaderx
testrun = p_test
IMPORTING
exppurchaseorder = w_exppurchaseorder
expheader = w_expheader
TABLES
return = i_return
poitem = i_poitem
poitemx = i_poitemx
poschedule = i_poschedule
poschedulex = i_poschedulex.
*--Commit the transaction if a success message is returned, else rollback work.
Update the legacy PO and items in the ZMM_CORDLOG table
start of modification
WAIT UP TO time SECONDS.
end of modification
IF NOT i_return[] IS INITIAL.
LOOP AT i_return INTO w_return.
*--Read the error messages
IF w_return-type = 'E'.
w_errortab-ponumber = w_header-ebeln.
w_errortab-doctype = w_poheader-doc_type.
w_errortab-supplplnt = w_poheader-suppl_plnt.
w_errortab-vendor = w_poheader-vendor.
w_errortab-eccpo = w_expheader-po_number.
w_errortab-message = w_return-message(73).
APPEND w_errortab TO i_errortab.
ADD 1 TO v_error.
ROLLBACK WORK.
ELSEIF w_return-type = 'S'.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'
EXCEPTIONS
OTHERS = 1.
IF sy-subrc EQ 0.
v_success = v_success + 1.
CLEAR w_poitem.
LOOP AT i_poitem INTO w_poitem.
w_zmm_cordlog-ponumber = w_poheader-po_number.
w_zmm_cordlog-poitem = w_poitem-po_item.
w_zmm_cordlog-doctype = w_poheader-doc_type.
w_zmm_cordlog-supplplnt = w_poheader-suppl_plnt.
w_zmm_cordlog-vendor = w_poheader-vendor.
w_zmm_cordlog-eccpo = w_poheader-po_number.
w_zmm_cordlog-eccpoitem = w_poitem-po_item.
w_zmm_cordlog-message = w_return-message(73).
MODIFY zmm_cordlog FROM w_zmm_cordlog. "Modify DB table
CLEAR w_zmm_cordlog.
w_errpo-ebeln = w_poheader-po_number.
w_errpo-ebelp = w_poitem-po_item.
APPEND w_errpo TO i_errpo.
CLEAR w_errpo.
ENDLOOP.
ENDIF.
ENDIF.
ENDLOOP.
CALL FUNCTION 'DEQUEUE_ALL'.
ENDIF.
CLEAR: w_header,
w_poheader,
w_poheaderx.
CALL FUNCTION 'DEQUEUE_ALL'.
ENDLOOP.
IF NOT i_errpo[] IS INITIAL.
*--Separate error records (all records for any PO in error).
PERFORM create_error_file TABLES i_header_sa.
*--Write data to Application Server
IF NOT i_error[] IS INITIAL.
OPEN DATASET p_error FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
IF sy-subrc NE 0.
MESSAGE e398 WITH text-023 space space space.
ENDIF.
LOOP AT i_error INTO w_error.
TRANSFER w_error TO p_error.
ENDLOOP.
ENDIF.
ENDIF.
COMMIT WORK.
ENDFORM. " create_sto
some other example code with bapi.. for ME21N
use BAPI_PO_CREATE1.
check this Sample code,
REPORT  zpo_create                              .
PARAMETERS: p-file LIKE rlgrap-filename DEFAULT
                          'c:\demo3.txt'.
DATA: BEGIN OF itab OCCURS 0,
  line(1000),
  END OF itab.
DATA l_item(5) TYPE n.
TABLES : zerror.
DATA lcounter(3) TYPE n.
DATA : l_errflag.
DATA : l_po_header LIKE bapimepoheader.
DATA : l_po_headerx LIKE bapimepoheaderx.
DATA : t_po_account LIKE bapimepoaccount OCCURS 0 WITH HEADER LINE.
DATA : t_po_accountx LIKE bapimepoaccountx OCCURS 0 WITH HEADER LINE.
DATA : l_new_po(10), l_last_po(10).
DATA : l_purchaseorder LIKE bapimepoheader-po_number.
*DATA : L_HEADER LIKE BAPIMEPOHEADER STRUCTURE BAPIMEPOHEADER.
DATA : BEGIN OF t_po_items OCCURS 0.
        INCLUDE STRUCTURE bapimepoitem.
DATA : END OF t_po_items.
DATA : BEGIN OF t_po_itemsx OCCURS 0.
        INCLUDE STRUCTURE bapimepoitemx.
DATA : END OF t_po_itemsx.
DATA : BEGIN OF t_return OCCURS 0.
        INCLUDE STRUCTURE bapiret2.
DATA : END OF t_return.
CLEAR : l_po_header.
CALL FUNCTION 'WS_UPLOAD'
  EXPORTING
    filename                = p-file
    filetype                = 'DAT'
  TABLES
    data_tab                = itab
  EXCEPTIONS
    file_open_error         = 1
    file_read_error         = 2
    no_batch                = 3
    gui_refuse_filetransfer = 4
    invalid_type            = 5
    OTHERS                  = 6.
IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  EXIT.
ENDIF.
LOOP  AT itab.
  IF itab-line(1) EQ 'K'.
    l_new_po = itab-line(10).
    IF l_last_po NE  l_new_po AND l_last_po NE space.
      PERFORM create_po.
      PERFORM refresh_table.
    ENDIF.
    IF itab-line+13(2) EQ '40'.
      PERFORM append_header.
    ENDIF.
    IF itab-line+13(2) EQ '81'.
      PERFORM append_item.
    ENDIF.
    l_last_po = l_new_po.
  ENDIF.
ENDLOOP.
IF sy-subrc EQ 0.
  PERFORM create_po.
  PERFORM refresh_table.
ENDIF.
*&      Form  CREATE_PO
PO Create
-->  p1        text
<--  p2        text
FORM create_po .
  CLEAR : l_purchaseorder.
  CALL FUNCTION 'BAPI_PO_CREATE1'
    EXPORTING
      poheader                     = l_po_header
     poheaderx                    = l_po_headerx
    POADDRVENDOR                 =
    TESTRUN                      =
    MEMORY_UNCOMPLETE            =
    MEMORY_COMPLETE              =
    POEXPIMPHEADER               =
    POEXPIMPHEADERX              =
    VERSIONS                     =
    NO_MESSAGING                 =
    NO_MESSAGE_REQ               =
    NO_AUTHORITY                 =
    NO_PRICE_FROM_PO             =
   IMPORTING
     exppurchaseorder             = l_purchaseorder
    EXPHEADER                    =
    EXPPOEXPIMPHEADER            =
   TABLES
     return                       = t_return
     poitem                       = t_po_items
     poitemx                      = t_po_itemsx
    POADDRDELIVERY               =
    POSCHEDULE                   =
    POSCHEDULEX                  =
     poaccount                    = t_po_account
    POACCOUNTPROFITSEGMENT       =
     poaccountx                   = t_po_accountx
    POCONDHEADER                 =
    POCONDHEADERX                =
    POCOND                       =
    POCONDX                      =
    POLIMITS                     =
    POCONTRACTLIMITS             =
    POSERVICES                   =
    POSRVACCESSVALUES            =
    POSERVICESTEXT               =
    EXTENSIONIN                  =
    EXTENSIONOUT                 =
    POEXPIMPITEM                 =
    POEXPIMPITEMX                =
    POTEXTHEADER                 =
    POTEXTITEM                   =
    ALLVERSIONS                  =
    POPARTNER                    =
  l_errflag = space.
  lcounter  = 1.
  LOOP AT t_return .
    IF t_return-type = 'E'.
      l_errflag = 'X'.
      GET TIME.
      PERFORM append_error.
    ENDIF.
    WRITE : /1 t_return-message.
  ENDLOOP.
  IF l_errflag EQ space.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT =
IMPORTING
RETURN =
  ENDIF.
ENDFORM.                    " CREATE_PO
*&      Form  APPEND_HEADER
PO Header print
-->  p1        text
<--  p2        text
FORM append_header .
  l_po_header-comp_code = '1000'." Company Code
  l_po_header-doc_type = 'NB'. " Order Typr BSART
  l_po_header-creat_date = sy-datum. " P.O Dt - BEDAT
*CONCATENATE '0000' ITAB+72(6) INTO L_PO_HEADER-VENDOR .
  l_po_header-vendor = itab-line+71(6).
*L_PO_HEADER-VENDOR = ITAB+72(6)    " 'ABC'. "Vendor - EKKO-LIFNR
  IF itab-line(4) NE 'K034'.
    l_po_header-purch_org = '2000'. " Purch. Org - EKKO-EKORG
    l_po_header-pur_group = 'F01'. " Purch Group - EKKO-EKGRP
  ELSE.
    l_po_header-purch_org = '1000'. " Purch. Org - EKKO-EKORG
    l_po_header-pur_group = '001'. " Purch Group - EKKO-EKGRP
  ENDIF.
  l_po_header-currency_iso = 'USD'. " Currency Default field for Enjoy
  l_po_header-ref_1       = itab-line+1(9).
*L_PO_HEADER-DOC_CAT = 'F'. " Account Assign Cat EKPO-KNTTP
*_PO_HEADER-CREATED_BY = SY-UNAME.
  CLEAR : l_po_headerx.
  l_po_headerx-po_number = 'X'.
  l_po_headerx-comp_code = 'X'." Company Code
  l_po_headerx-doc_type = 'X'. " Order Typr BSART
  l_po_headerx-vendor = 'X'. "Vendor - EKKO-LIFNR
  l_po_headerx-purch_org = 'X'. " Purch. Org - EKKO-EKORG
  l_po_headerx-pur_group = 'X'. " Purch Group - EKKO-EKGRP
  l_po_headerx-currency_iso = 'X'. " Currency Default field for Enjoy
  l_po_headerx-ref_1       = 'X'.
ENDFORM.                    " APPEND_HEADER
*&      Form  APPEND_ITEM
Material Number and Item print
-->  p1        text
<--  p2        text
FORM append_item .
PO Line Items
  l_item = l_item + 10.
  t_po_items-po_item = l_item.
*T_PO_ITEMS-PO_ITEM = '00010'." Line Item No - EKPO-EBELP
*T_PO_ITEMS-SHORT_TEXT = 'KSR TEXT'." Line Item TEXT
  CONCATENATE  '00000000' itab-line+32(10) INTO t_po_items-material.
*T_PO_ITEMS-MATERIAL = '000000000000000043'. " Material No - EKPO-EMATN
  CONCATENATE  '00000000' itab-line+32(10) INTO t_po_items-ematerial.
  t_po_items-plant = '2001'. " Plant - EKPO-WERKS
  t_po_items-quantity = '1.000'.
  t_po_items-net_price = '10.00'. " EKPO-NETPR
  t_po_items-price_unit = '10 '.
*T_PO_ITEMS-TAX_CODE = 'A2'.
  IF  itab-line+0(4) EQ 'K034'.
    t_po_items-acctasscat = 'R'.
    t_po_items-plant = '1001'.
    t_po_account-po_item = l_item.
    t_po_account-profit_ctr = 'BR034'.
    t_po_account-gl_account = '0000135075'.
T_PO_ACCOUNT-CO_AREA  = '1000'.
    APPEND t_po_account.
    CLEAR t_po_account.
    t_po_accountx-po_item = l_item.
    t_po_accountx-profit_ctr = 'X'.
    t_po_accountx-gl_account = 'X'.
T_PO_ACCOUNTX-CO_AREA  = 'X'.
    APPEND t_po_accountx.
    CLEAR t_po_accountx.
  ENDIF.
  APPEND t_po_items.
  CLEAR t_po_items.
  t_po_itemsx-po_item = l_item.
  t_po_itemsx-po_itemx = 'X'.
  t_po_itemsx-acctasscat = 'X'.
  t_po_itemsx-material = 'X'.
  t_po_itemsx-ematerial = 'X'.
  t_po_itemsx-plant = 'X'.
  t_po_itemsx-quantity = 'X'.
  t_po_itemsx-net_price = 'X'.
  t_po_itemsx-price_unit = 'X'.
*T_PO_ITEMSX-TAX_CODE = 'X'.
  APPEND t_po_itemsx.
  CLEAR t_po_itemsx.
Second Line Item
ENDFORM.                    " APPEND_ITEM
*&      Form  REFRESH_TABLE
      text
-->  p1        text
<--  p2        text
FORM refresh_table .
  REFRESH : t_po_items, t_po_itemsx.
  CLEAR l_item.
ENDFORM.                    " REFRESH_TABLE
*&      Form  append_error
      text
-->  p1        text
<--  p2        text
FORM append_error .
  MOVE : sy-datum TO zerror-zdate,
          sy-uzeit TO zerror-ztime,
          itab+3(5) TO zerror-document_no,
          t_return-message    TO zerror-message.
  lcounter =  lcounter + 1.
  zerror-counter = lcounter .
  zerror-rec_type = itab-line(1).
  MODIFY zerror. CLEAR zerror.
  COMMIT WORK.
ENDFORM.                    " append_error
~~Guduri
Mark the helpful answers
        NAVEEN KUMAR GUDURI