选择屏幕添加应用栏按钮

tables： SSCRFIELDS.“引入系统工具栏空间

SELECTION-SCREEN:FUNCTION KEY 1.   "激活按钮

*生成按钮

INITIALIZATION.

DATA: ICON_NAME TYPE ICONNAME,
          BUTTON_TEXT(20) TYPE C,
          QUICKINFO LIKE ICONT-QUICKINFO,
          ICON_STR(255) TYPE C.
    ICON_NAME = 'ICON_INFORMATION'.
    QUICKINFO = '文档帮助说明'.
    BUTTON_TEXT = ''.
    CALL FUNCTION 'ICON_CREATE'
         EXPORTING
              NAME                  = ICON_NAME
              TEXT                  = BUTTON_TEXT
              INFO                  = QUICKINFO
              ADD_STDINF            = 'X'
         IMPORTING
              RESULT                = ICON_STR
         EXCEPTIONS
              ICON_NOT_FOUND        = 1
              OUTPUTFIELD_TOO_SHORT = 2
              OTHERS                = 3.
    SSCRFIELDS-FUNCTXT_01 = ICON_STR.

*响应按钮动作

AT SELECTION-SCREEN.
  IF SSCRFIELDS-UCOMM = 'FC01'.
    .........
  ENDIF.