用CSAI_BOM_DELETE删除WBS元素BOM

REPORT  ZTEST4.
data wa_csin type CSIN.

data g_warn_stlnr type STZUB-STLNR.

data g_flwarning type CAPIFLAG-FLWARNING.
cLEAR wa_csin.

* wa_csin-aennr = '009900159470'.
 wa_csin-MATNR = '000000000000001223'.
"wa_csin-datuv = sy-datum.
wa_csin-PSPNR = '00032666'.
wa_csin-werks = '2000'  .
 wa_csin-stlan = '1'.  " 4
wa_csin-stlty = 'P'.



data: l_text type string.


CALL FUNCTION 'CSAI_BOM_DELETE'
   EXPORTING
     ECSIN                    = wa_csin
     FL_COMMIT_AND_WAIT       = 'X'
  "   FL_NO_COMMIT_WORK        = ' '
   IMPORTING
 fl_warning = g_flwarning
  EXCEPTIONS
    ERROR                    = 1
    OTHERS                   = 2
           .
IF SY-SUBRC <> 0.

  MESSAGE ID SY-MSGID TYPE 'E' NUMBER SY-MSGNO into l_text
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
           write l_text.
else.
   write 'ok'.
   commit work and wait.
ENDIF.