SELECTION-SCREEN XXX.
SELECTION-SCREEN BEGIN OF BLOCK  XXX WITH FRAME TITLE t1. "選擇螢幕塊

PARAMETERS: p_carrid TYPE s_carr_id,
            p_cityfr TYPE s_from_cit.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF LINE.
 SELECTION-SCREEN PUSHBUTTON 7(20) but1 USER-COMMAND bt1. " BT1作為按鈕驅動事件碼（如下按鈕操作響應程式碼所示）
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b1.
INITIALIZATION.
t1 = '輸入欄名稱'.
"but1 = '按鍵'.
  CALL FUNCTION 'ICON_CREATE' " 給按鈕新增圖示和文字
    EXPORTING
      name   = ICON_SEARCH   " 按鈕的圖片的名字
      text   = '功能名稱'                   "按鈕的文字
      info   = '功能'
    IMPORTING
      RESULT = but1
    EXCEPTIONS
      OTHERS = 0.

*在單擊時驅動
AT SELECTION-SCREEN.
      case sscrfields-ucomm.
        when 'BT1'.
           MESSAGE  '您單擊了自定義按鈕'  TYPE 'S'.
          ENDCASE.

轉載自：http://blog.sina.com.cn/s/blog_6ffd503d01011ffw.html

http://wfly2004.blog.163.com/blog/static/117642720116591650812/