All About ABAP Technique > Indonesia > ABAP Tutorial > ABAP Workbench Tools > Enhancement > Customer Exits > Contoh Customer Exits > Project ZPPWS002 > Funtions Exits > EXIT_SAPLBARM

**&---------------------------------------------------------------------*
**& Include ZXMRMU03 *
**&---------------------------------------------------------------------*
*
**->Must be defined since activate one FM, means activate all others
**->see OSS 165264
E_RM61B = I_RM61B.

*data: s_message_text(20) type c,
* lv_fevor like marc-fevor.
*clear: s_message_text, lv_fevor.
*
*IF E_RM61B-MATNR ne space and E_RM61B-WERKS ne space.
* select single fevor into lv_fevor from marc where
* matnr = E_RM61B-MATNR and
* werks = E_RM61B-WERKS.
* if sy-subrc = 0.
* AUTHORITY-CHECK OBJECT 'Z_AFKO_FEV'
* ID 'ACTVT' FIELD '01'
* ID 'ZFEVOR' FIELD lv_fevor
* ID 'WERKS' FIELD E_RM61B-WERKS.
*
* if not sy-subrc is initial.
* concatenate E_RM61B-WERKS 'Scheduler' lv_fevor
* into s_message_text separated by space.
* message e004(CO) with s_message_text.
* endif.
*
* endif.
*ENDIF.
*
*IF I_PZPEX-LMVRG > 0 AND "RP CANC
* I_PZPEX-LMVRG > I_PZPSX-LMVRG. "CANCELLATION > RP POINT STOCK
* MESSAGE E001(00) WITH 'REVERSAL RESULT WILL BE NEGATIVE !'.
*ENDIF.