Update sales order using BAPI_SALESORDER_CHANGE --- URGENT!!!!

Question

Hello,
<b> I want to update Batch, Pricing date, Header text & Item text using BAPI_SALESORDER_CHANGE.</b>
But i am not able to do it.
i have written a code, but it's still not updating:
PARAMETERS: p_vbeln LIKE vbak-vbeln.
TYPES: BEGIN OF t_return.
        INCLUDE STRUCTURE bapiret2.
TYPES: END OF t_return.
TYPES: BEGIN OF t_order_item_in.
        INCLUDE STRUCTURE bapisditm.
TYPES: END OF t_order_item_in.
TYPES: BEGIN OF t_order_item_inx.
        INCLUDE STRUCTURE bapisditmx.
TYPES: END OF t_order_item_inx.
TYPES: BEGIN OF t_schedule_lines.
        INCLUDE STRUCTURE bapischdl.
TYPES: END OF t_schedule_lines.
TYPES: BEGIN OF t_schedule_linesx.
        INCLUDE STRUCTURE bapischdlx.
TYPES: END OF t_schedule_linesx.
TYPES: BEGIN OF t_order_text.
        INCLUDE STRUCTURE bapisdtext.
TYPES: END OF t_order_text.
DATA: l_vbeln              LIKE          bapivbeln-vbeln,
      i_order_header_inx   LIKE          bapisdh1x,
      i_order_header_in    LIKE          bapisdh1,
      i_return             TYPE TABLE OF t_return,
      i_order_item_in      TYPE TABLE OF t_order_item_in,
      wa_order_item_in     LIKE LINE  OF i_order_item_in,
      i_order_item_inx     TYPE TABLE OF t_order_item_inx,
      wa_order_item_inx    LIKE LINE  OF i_order_item_inx,
      i_schedule_lines     TYPE TABLE OF t_schedule_lines,
      wa_schedule_lines    LIKE LINE  OF i_schedule_lines,
      i_schedule_linesx    TYPE TABLE OF t_schedule_linesx,
      wa_schedule_linesx   LIKE LINE  OF i_schedule_linesx,
      i_order_text         TYPE TABLE OF t_order_text,
      wa_order_text        LIKE LINE  OF i_order_text,
      w_return             LIKE          bapiret2,
      l_date               TYPE char10.
CLEAR l_vbeln.
l_vbeln = p_vbeln.
          UPDATE REJECTION REASON IN SALES ORDER                *
*WRITE sy-datum TO l_date.
i_order_header_inx-updateflag = 'U'.
REFRESH i_order_item_in.
CLEAR wa_order_item_in.
wa_order_item_in-itm_number = '000010'.
wa_order_item_in-batch = '2007450027'.
wa_order_item_in-price_date = sy-datum.
wa_order_item_in-reason_rej = '00'.
APPEND wa_order_item_in TO i_order_item_in.
REFRESH i_order_item_inx.
CLEAR wa_order_item_inx.
wa_order_item_inx-itm_number = '000010'.
wa_order_item_inx-updateflag = 'U'.
wa_order_item_in-batch = 'X'.
wa_order_item_in-price_date = 'X'.
wa_order_item_inx-reason_rej = 'X'.
APPEND wa_order_item_inx TO i_order_item_inx.
*wa_order_text-doc_number = l_vbeln.
**wa_order_text-TDOBJECT = 'EHSWA_MAN'.
***wa_order_text-text_id = '0001'.
**wa_order_text-TDTEXT = 'Header Texts'.
*wa_order_text-text_line = 'SYNGENTA HEADER'.
***wa_order_text-function = 'U'.
wa_order_text-doc_number = l_vbeln.
wa_order_text-itm_number = '000010'.
*wa_order_text-TDOBJECT = 'EBAN'.
wa_order_text-text_id = '0001'.
*wa_order_text-TDTEXT = 'Item text'.
wa_order_text-text_line = 'SYNGENTA TEXT'.
wa_order_text-function = '004'.
APPEND wa_order_text TO i_order_text.
CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
  EXPORTING
    salesdocument               = l_vbeln
  ORDER_HEADER_IN             =
    order_header_inx            = i_order_header_inx
  SIMULATION                  =
  BEHAVE_WHEN_ERROR           = ' '
  INT_NUMBER_ASSIGNMENT       = ' '
  LOGIC_SWITCH                =
  NO_STATUS_BUF_INIT          = ' '
  TABLES
    return                      = i_return
    order_item_in               = i_order_item_in
    order_item_inx              = i_order_item_inx
  PARTNERS                    =
  PARTNERCHANGES              =
  PARTNERADDRESSES            =
  ORDER_CFGS_REF              =
  ORDER_CFGS_INST             =
  ORDER_CFGS_PART_OF          =
  ORDER_CFGS_VALUE            =
  ORDER_CFGS_BLOB             =
  ORDER_CFGS_VK               =
  ORDER_CFGS_REFINST          =
   schedule_lines              = i_schedule_lines
   schedule_linesx             = i_schedule_linesx
   order_text                  = i_order_text
  ORDER_KEYS                  =
  CONDITIONS_IN               =
  CONDITIONS_INX              =
  EXTENSIONIN                 =
IF sy-subrc = 0.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait   = 'X'
    IMPORTING
      return = w_return.
ENDIF.
Please help out.
Please send the code of it.
Thanks in advance...

Answer 1

START-OF-SELECTION.
Get Blocked Orders
  PERFORM sub_select_orders.
  PERFORM order_reason_for_reject.
  END-OF-SELECTION.
Display output
  PERFORM sub_display_output.
*&      Form  sub_select_orders
      text
FORM sub_select_orders .
  SELECT a~vbeln
         a~erdat
         a~erzet
         a~auart
         b~posnr
         FROM ( vbak as A
         INNER JOIN VBAP AS B
         on Bvbeln = AVBELN )
         INTO TABLE i_order_data
         WHERE a~vbeln IN s_ordno  AND
               A~auart IN s_auart  AND
               A~erdat IN s_orddt  AND
               A~vkorg IN s_vkorg  AND
               A~vtweg IN s_vtweg  AND
               A~spart IN s_spart .
  IF sy-subrc NE 0.
    MESSAGE i001.
  No data selected
    LEAVE LIST-PROCESSING.
  ENDIF.
ENDFORM.                    " sub_get_blocked_orders
*&      Form  order_reason_for_reject
      text
-->  p1        text
<--  p2        text
FORM order_reason_for_reject .
  LOOP AT i_order_data INTO w_order_data.
    w_output-vbeln = w_order_data-vbeln.
    w_ordhdrx-updateflag = c_update.
Update Order Reason for rejection .
    w_orditem-ITM_NUMBER = w_order_data-posnr.
    w_orditem-reason_rej = p_abgru.
    append w_orditem to i_orditem .
    w_orditemx-ITM_NUMBER = w_order_data-posnr.
    w_orditemx-updateflag = c_update.
    w_orditemx-reason_rej = 'X'.
    append w_orditemx to i_orditemx .
    At end of vbeln .
    w_output-vbeln = w_order_data-vbeln .
      CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
        EXPORTING
          salesdocument    = w_order_data-vbeln
          order_header_in  = w_ordhdr
          order_header_inx = w_ordhdrx
        TABLES
          ORDER_ITEM_IN    = i_orditem
          ORDER_ITEM_INX   = i_orditemx
          return           = i_bapiret.
      READ TABLE i_bapiret WITH KEY type = c_error
                           TRANSPORTING NO FIELDS.
      IF sy-subrc EQ '0'.
        move 'Order Reason for rejection update Failed' to
        w_output-message .
      ELSE.
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
          EXPORTING
            wait   = c_check
          IMPORTING
             return = i_return.
      move 'Order Reason for rejection update successful' to
      w_output-message .
     endif .
     refresh :i_orditemx , i_orditem .
    Endat .
    APPEND w_output TO i_output.
    CLEAR w_output.
  endloop .
ENDFORM.                    " order_reason_for_reject