BAPI X테이블에 값 채우기

귀찮아 죽을뻔했네..

  " FLAG TABLE UPDATE.
  PERFORM flag_update USING    i_sales_header_in
                      CHANGING i_sales_header_inx.

  LOOP AT t_sales_items_in.
    PERFORM flag_update USING    t_sales_items_in
                        CHANGING t_sales_items_inx.
  ENDLOOP.

  LOOP AT t_sales_schedules_in.
    PERFORM flag_update USING    t_sales_schedules_in
                        CHANGING t_sales_schedules_inx.
  ENDLOOP.

  CALL FUNCTION 'BAPI_SALESDOCU_CREATEFROMDATA1'
    EXPORTING
      salesdocument           = i_salesdocument
      sales_header_in         = i_sales_header_in
      sales_header_inx        = i_sales_header_inx
      sender                  = i_sender
      binary_relationshiptype = i_binary_relationshiptype
      int_number_assignment   = i_int_number_assignment
    IMPORTING
      salesdocument_ex        = e_salesdocument_ex
    TABLES
      return                  = t_return
      sales_items_in          = t_sales_items_in
      sales_items_inx         = t_sales_items_inx
      sales_partners          = t_sales_partners
      sales_schedules_in      = t_sales_schedules_in
      sales_schedules_inx     = t_sales_schedules_inx
      sales_conditions_in     = t_sales_conditions_in
      sales_cfgs_ref          = t_sales_cfgs_ref
      sales_cfgs_inst         = t_sales_cfgs_inst
      sales_cfgs_part_of      = t_sales_cfgs_part_of
      sales_cfgs_value        = t_sales_cfgs_value
      sales_cfgs_blob         = t_sales_cfgs_blob
      sales_ccard             = t_sales_ccard
      key_table               = t_key_table.

*----------------------------------------------------------------------*

FORM flag_update  USING    ps_data
                  CHANGING ps_flag.

  FIELD-SYMBOLS: <fs1>, <fs2>.

  DATA: lo_data   TYPE REF TO cl_abap_typedescr.
  DATA: lo_flag   TYPE REF TO cl_abap_typedescr,
        lo_comp   TYPE REF TO cl_abap_structdescr,
        ls_comp   TYPE abap_compdescr.

  CALL METHOD cl_abap_datadescr=>describe_by_data
    EXPORTING
      p_data      = ps_data
    RECEIVING
      p_descr_ref = lo_data.

  CALL METHOD cl_abap_datadescr=>describe_by_data
    EXPORTING
      p_data      = ps_flag
    RECEIVING
      p_descr_ref = lo_flag.

  ASSIGN COMPONENT 'UPDATEFLAG' OF STRUCTURE ps_flag TO <fs1>.
  IF sy-subrc = 0.
    MOVE: 'I' TO <fs1>.  " 삭제후 생성하기 때문에 무조건 'I '
  ENDIF.

  lo_comp ?= lo_data.

  LOOP AT lo_comp->components INTO ls_comp.
    ASSIGN COMPONENT ls_comp-name OF STRUCTURE ps_data TO <fs1>.
    CHECK sy-subrc = 0 AND <fs1> IS NOT INITIAL.

    ASSIGN COMPONENT ls_comp-name OF STRUCTURE ps_flag TO <fs2>.
    CHECK sy-subrc = 0.
    <fs2> = 'X'.

  ENDLOOP.

ENDFORM.                    " FLAG_UPDATE