效果

演示程序

SELECTION-SCREEN:PUSHBUTTON 2(4)  bt1 USER-COMMAND cli1.
INITIALIZATION.
bt1 = 'Button 1'."可直接设置按钮上的标签文本
AT SELECTION-SCREEN.
  CASE sy-ucomm.
    WHEN 'CLI1'.
  ENDCASE.