2008年10月20日 星期一

MESSAGE Type

簡單的使用MESSAGE E來達到控管
其它的還有MESSAGE A,  I, S, W, or X可運用

*&---------------------------------------------------------------------*
*&   Form  AUTHORIZATION_CHECK
*&---------------------------------------------------------------------*
*    text
*----------------------------------------------------------------------*
*  -->  p1     text
*  <--  p2     text
*----------------------------------------------------------------------*
FORM AUTHORIZATION_CHECK .
  DATA: L_UNAME LIKE USR21-BNAME.
  SELECT SINGLE BNAME FROM USR21 INTO L_UNAME WHERE BNAME = SY-UNAME.
  IF L_UNAME NE 'EIS_CHERRY'.
    MESSAGE E398(00) WITH '您的帳號沒有使用權限'.
  ENDIF.

沒有留言:

張貼留言