用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.