CSAP_MAT_BOM_MAINTAIN

gs_stpo_bom1-item_categ = gs_stpo_bom-item_categ.
gs_stpo_bom1-item_no    = gs_stpo_bom-item_no.
gs_stpo_bom1-COMPONENT  = gs_stpo_bom-COMPONENT.
gs_stpo_bom1-comp_qty   = gs_stpo_bom-comp_qty .
gs_stpo_bom1-comp_unit  = gs_stpo_bom-comp_unit.
gs_stpo_bom1-rel_cost   = gs_stpo_bom-rel_cost.
gs_stpo_bom1-rel_prod   = gs_stpo_bom-rel_prod.
gs_stpo_bom1-itm_ident  = gs_stpo_bom-itm_ident.
gs_stpo_bom1-item_guid  = gs_stpo_bom-item_guid.
gs_stpo_bom1-valid_from = gs_stpo_bom-valid_from.
gs_stpo_bom1-change_no  = gd_change_no.
gs_stpo_bom1-bom_no     = gs_stpo_bom-bom_no.
gs_stpo_bom1-item_node  = gs_stpo_bom-item_node.
gs_stpo_bom1-item_count = gs_stpo_bom-item_count.
gs_stpo_bom1-fldelete   = 'X'.

APPEND gs_stpo_bom1 TO gt_stpo_bom1.

CLEAR: gs_stpo_bom1-comp_unit, gs_stpo_bom1-rel_cost, gs_stpo_bom1-fldelete,
gs_stpo_bom1-itm_ident, gs_stpo_bom1-item_guid, gs_stpo_bom1-valid_from,
gs_stpo_bom1-bom_no, gs_stpo_bom1-item_node, gs_stpo_bom1-item_count.

gs_stpo_bom1-item_categ = gs_stpo_bom-item_categ.
gs_stpo_bom1-item_no    = gs_stpo_bom-item_no.
gs_stpo_bom1-COMPONENT  = gs_material-smatn.
gs_stpo_bom1-comp_qty   = gs_stpo_bom-comp_qty .
gs_stpo_bom1-rel_prod   = gs_stpo_bom-rel_prod.
gs_stpo_bom1-change_no  = gd_change_no.

APPEND gs_stpo_bom1 TO gt_stpo_bom1.

CSAP_MAT_BOM_MAINTAINCALL FUNCTION 'CSAP_MAT_BOM_MAINTAIN'
EXPORTING
material           = ud_matnr
plant              = p_werks
bom_usage          = '1'
alternative        = '1'
valid_from         = ud_valid_form
change_no          = ud_bom
i_stko             = gt_stko1_i
fl_commit_and_wait = 'X'
fl_default_values  = 'X'
IMPORTING
fl_warning         = gd_fl_warning1
o_stko             = gt_stko1_o
TABLES
t_stpo             = gt_stpo_bom1
EXCEPTIONS
error              = 1
OTHERS             = 2.