<< Click to Display Table of Contents >> Navigation:  All About ABAP Technique > Indonesia > ABAP Tutorial > ABAP Workbench Tools  > Enhancement > Customer Exits > Contoh Customer Exits > Project ZPPWS001 > Funtions Exits > EXIT_SAPLCORF_102 > ZXCOFU12

**&---------------------------------------------------------------------*
**&  Include           ZXCOFU12                                         *
**&---------------------------------------------------------------------*
***Check authorization during prod order create
***Production scheduler as check object
data: s_message_text(20) type c.
 
DATA : begin of zmbew occurs 0.
      include structure mbew.
DATA : end of zmbew.
 
concatenate CAUFVD_IMP-werks 'Scheduler' into s_message_text separated
by space.
concatenate s_message_text CAUFVD_IMP-fevor into s_message_text
separated by space.
 
AUTHORITY-CHECK OBJECT 'Z_AFKO_FEV'
        ID 'ACTVT' FIELD '01'
        ID 'ZFEVOR' FIELD CAUFVD_IMP-FEVOR
        ID 'WERKS' FIELD CAUFVD_IMP-werks.
if not sy-subrc is initial.
message e004(CO) with s_message_text.
endif.