DATA:lmsg(255) TYPE c.
TRANSLATE p_plant TO UPPER CASE.
CONCATENATE 'You are not authorized for plant' p_plan
INTO lmsg SEPARATED BY ' '.
AUTHORITY-CHECK OBJECT 'M_MSEG_WWA'
ID 'ACTVT' FIELD '01'
ID 'WERKS' FIELD p_plant.
pl_subrc = sy-subrc.
IF sy-subrc NE 0.
MESSAGE i004 WITH lmsg.
ENDIF.
TRANSLATE p_plant TO UPPER CASE.
CONCATENATE 'You are not authorized for plant' p_plan
INTO lmsg SEPARATED BY ' '.
AUTHORITY-CHECK OBJECT 'M_MSEG_WWA'
ID 'ACTVT' FIELD '01'
ID 'WERKS' FIELD p_plant.
pl_subrc = sy-subrc.
IF sy-subrc NE 0.
MESSAGE i004 WITH lmsg.
ENDIF.
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/15117617/viewspace-631577/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/15117617/viewspace-631577/