ABAP 给选择屏幕添加按钮

效果如图：

CODE：

[plain]  view plain  copy

1. REPORT  Z_WUWEI_0009.  
2.   
3. TABLES SSCRFIELDS.  
4.   
5.   SELECTION-SCREEN:  
6.     ULINE /1(83),  
7.     COMMENT /30(30) TEXT-001,  
8.     ULINE /1(83),  
9.     SKIP.  
10.   
11.   SELECTION-SCREEN BEGIN OF LINE.  
12.     SELECTION-SCREEN COMMENT 2(15) TXT1.  
13.     PARAMETER OUT(3) TYPE C.  
14.   SELECTION-SCREEN END OF LINE.  
15.   
16.   SELECTION-SCREEN:  
17.     SKIP 1,  
18.     BEGIN OF BLOCK BLK WITH FRAME TITLE T1,  
19.       BEGIN OF LINE,  
20.         PUSHBUTTON 2(10) BTN1 USER-COMMAND COMM1,  
21.         PUSHBUTTON 12(10) BTN2 USER-COMMAND COMM2,  
22.         PUSHBUTTON 22(10) BTN3 USER-COMMAND COMM3,  
23.       END OF LINE,  
24.     END OF BLOCK BLK.  
25. *&---------------------------------------------------------------------*  
26.    INITIALIZATION.  
27.     TXT1 = '总分: '.  
28.     T1 = '给选择屏幕添加按钮'.  
29.     BTN1 = '汤姆'.  
30.     BTN2 = '露西'.  
31.     BTN3 = '韩梅梅'.