AUTHORITY-CHECK OBJECT 'M_MSEG_WWA'
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博客 ” ，链接：https://blog.itpub.net/15117617/viewspace-631577/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
BDC MMSC
下一篇：
SAP职位薪酬调查报告
请登录后发表评论
登录
全部评论
