更改选择屏幕的GUI STATUS---RS_SET_SELSCREEN_STATUS

REPORT ZEXAMPLE.

DATA: BEGIN OF P_EXTAB OCCURS 0,

        FCODE LIKE SY-PFKEY,

      END OF P_EXTAB.

PARAMETERS P_FCODE LIKE SY-PFKEY.

P_EXTAB-FCODE = P_FCODE.

APPEND P_EXTAB.

INITIALIZATION.

CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'

     EXPORTING

          P_STATUS  = 'Z_SELSCREEN'"自定义的GUI STATUS

     TABLES

          P_EXCLUDE = P_EXTAB

     EXCEPTIONS

          OTHERS    = 1.

IF SY-SUBRC EQ 0.

  WRITE:/ 'FUNCTION', P_FCODE, 'HAS BEEN DISABLED'.

ELSE.

  WRITE:/ 'COULD NOT DISABLE', P_FCODE.

ENDIF.