REPORT  ztest_demo_yj_schedule.

*import
DATA:lt_salesdocument LIKE bapivbeln-vbeln,
     lt_order_header_in LIKE bapisdh1_del_sched,
     lt_order_header_inx LIKE bapisdh1x_del_sched,
     lt_simulation LIKE bapiflag-bapiflag,
     lt_behave_when_error LIKE bapiflag-bapiflag,
     lt_logic_switch LIKE bapisdls.
*TABLES
DATA: lt_order_item_in LIKE TABLE OF bapisditm_del_sched WITH HEADER LINE,
      lt_order_item_inx LIKE TABLE OF bapisditmx_del_sched WITH HEADER LINE,
      lt_schedule_lines LIKE TABLE OF bapischdl_del_sched WITH HEADER LINE,
      lt_schedule_linesx LIKE TABLE OF bapischdlx_del_sched WITH HEADER LINE,
      lt_order_text LIKE TABLE OF bapisdtext_del_sched WITH HEADER LINE,
      lt_del_schedule_in LIKE TABLE OF bapisddelschd_in_del_sched WITH HEADER LINE,
      lt_del_schedule_inx LIKE TABLE OF bapisddelschd_inx_del_sched WITH HEADER LINE,
      lt_corr_cum_qty_in LIKE TABLE OF bapisddelschd_in_corrcq WITH HEADER LINE,
      lt_corr_cum_qty_inx LIKE TABLE OF bapisddelschd_inx_corrcq WITH HEADER LINE,
      lt_partners LIKE TABLE OF bapiparnr_del_sched WITH HEADER LINE,
      lt_schedule_ex LIKE TABLE OF bapisdhedu WITH HEADER LINE,
      lt_del_schedule_ex LIKE TABLE OF bapisddelsched_ex WITH HEADER LINE,
      lt_corr_cum_qty_ex LIKE TABLE OF bapisddelschd_ex_corrcq WITH HEADER LINE,
      lt_extensionex LIKE TABLE OF bapiparex WITH HEADER LINE,
      lt_return LIKE TABLE OF bapiret2 WITH HEADER LINE.

START-OF-SELECTION.
*DOCUMENT
  lt_order_header_inx-updateflag = 'U'.
*item
  lt_order_item_in-itm_number = '000010'.
  APPEND lt_order_item_in.

  lt_order_item_inx-itm_number = '000010'.
  lt_order_item_inx-updateflag = 'U'.
  APPEND lt_order_item_inx.

*SCHEDULE LINE
  lt_schedule_lines-itm_number = '000010'.
  lt_schedule_lines-sched_line = '0001' .
  lt_schedule_lines-req_date = sy-datum.
  lt_schedule_lines-date_type = '1'.
  lt_schedule_lines-req_qty = 566 .
  lt_schedule_lines-rel_type = '1'.
  APPEND lt_schedule_lines.

  lt_schedule_linesx-itm_number = '000010'.
  lt_schedule_linesx-sched_line = '0001'.
  lt_schedule_linesx-updateflag = 'I'.
  lt_schedule_linesx-req_date = 'X'.
  lt_schedule_linesx-date_type = 'X'.
  lt_schedule_linesx-req_qty = 'X' .
  lt_schedule_linesx-rel_type = 'X'.
  APPEND lt_schedule_linesx.

* DEL RELEASE
  lt_del_schedule_in-itm_number = '000010'.
  lt_del_schedule_in-rel_type = '1'.
  lt_del_schedule_in-dlvschedno = '20120101' .
  lt_del_schedule_in-dlvscheddate = sy-datum.
  APPEND lt_del_schedule_in.

  lt_del_schedule_inx-itm_number = '000010'.
  lt_del_schedule_inx-rel_type = '1'.
  lt_del_schedule_inx-dlvschedno = 'X'.
  lt_del_schedule_inx-dlvscheddate = 'X'.
  APPEND lt_del_schedule_inx.




  CALL FUNCTION 'BAPI_SALES_DEL_SCHEDULE_CREATE'
   EXPORTING
     salesdocument           = '0030000035'
*   ORDER_HEADER_IN         =
     order_header_inx        = lt_order_header_inx
*   SIMULATION              =
*   BEHAVE_WHEN_ERROR       = ' '
*   LOGIC_SWITCH            =
   TABLES
*   ORDER_ITEM_IN           =
*   ORDER_ITEM_INX          =
   schedule_lines          = lt_schedule_lines
   schedule_linesx         = lt_schedule_linesx
*   ORDER_TEXT              =
     del_schedule_in         = lt_del_schedule_in
     del_schedule_inx        = lt_del_schedule_inx
*   CORR_CUM_QTY_IN         =
*   CORR_CUM_QTY_INX        =
*   PARTNERS                =
*   SCHEDULE_EX             =
*   DEL_SCHEDULE_EX         =
*   CORR_CUM_QTY_EX         =
*   EXTENSIONEX             =
     return                  = lt_return.

  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
*      EXPORTING
*        WAIT          =
*      IMPORTING
*        RETURN        =
                .


  LOOP AT lt_return.
    WRITE / lt_return-message.
  ENDLOOP.


*CALL FUNCTION 'BAPI_SALESDOCUMENT_CHANGE'
*  EXPORTING
*    SALESDOCUMENT            = 30000035
*    order_header_in          =
*    order_header_inx         =
**   SIMULATION               = ' '
*  tables
*    return                   =
**   ITEM_IN                  =
**   ITEM_INX                 =
**   SCHEDULE_IN              =
**   SCHEDULE_INX             =
**   SALES_CFGS_REF           =
**   SALES_CFGS_INST          =
**   SALES_CFGS_PART_OF       =
**   SALES_CFGS_VALUE         =
**   SALES_CFGS_BLOB          =
*          .