BAdi:BOM_UPDATE - Check update for BOM Save

METHOD if_ex_bom_update~change_at_save.
DATA:
ls_wa   TYPE stpob,
ls_str  TYPE string.

TYPES:BEGIN OF ty_check,
alpgr TYPE stpob-alpgr ,
ewahr TYPE stpob-ewahr ,
END OF ty_check.
DATA:
lt_check TYPE STANDARD TABLE OF ty_check,
ls_check TYPE ty_check.

LOOP AT delta_stpob INTO ls_wa WHERE selkz = 'X'.
CHECK NOT ls_wa-alpgr IS INITIAL.
MOVE-CORRESPONDING ls_wa TO ls_check .
COLLECT ls_check INTO lt_check .
ENDLOOP.

LOOP AT lt_check INTO ls_check.
IF ls_check-ewahr <> 100.
CONCATENATE 'The total number of Usage prob. of Group ' ls_check-alpgr ' must equal to 100.' INTO ls_str SEPARATED BY space.
MESSAGE ls_str TYPE 'E' .
ENDIF.
ENDLOOP.
ENDMETHOD.