LOOP AT T_MAST.
W_LOOP = SY-TABIX.
CALL FUNCTION 'CSAP_MAT_BOM_DELETE'
EXPORTING
MATERIAL = T_MAST-MATNR
PLANT = T_MAST-WERKS
BOM_USAGE = P_STLAN
* ALTERNATIVE =
* VALID_FROM =
* CHANGE_NO =
* REVISION_LEVEL =
* FL_NO_CHANGE_DOC = ' '
* FL_COMMIT_AND_WAIT = ' '
* IMPORTING
* FL_WARNING =
* EXCEPTIONS
* ERROR = 1
* OTHERS = 2
.
IF SY-SUBRC <> 0.
W_ERR = W_ERR + 1.
T_ERROR-WERKS = T_MAST-WERKS.
T_ERROR-MATNR = T_MAST-MATNR.
APPEND T_ERROR.
ELSE.
W_CNT = W_CNT + 1.
T_MAST-FLAG = 'Y'.
MODIFY T_MAST INDEX W_LOOP.
ENDIF.
SY-TABIX = W_LOOP.
ENDLOOP.