通过SUBSCREEN定义带选项卡的选择屏幕

高级选择屏幕效果

代码：

1. SELECTION-SCREEN BEGIN OF SCREEN 0100 AS SUBSCREEN.
   
2. PARAMETERS p_carrid TYPE spfli-carrid.
   
3. PARAMETERS p_coufr TYPE spfli-countryfr.
   
4. SELECTION-SCREEN END OF SCREEN 0100.
   
5. 
   
6. SELECTION-SCREEN BEGIN OF SCREEN 0101 AS SUBSCREEN.
   
7. PARAMETERS p_connid TYPE spfli-connid.
   
8. PARAMETERS p_cityfr TYPE spfli-cityfrom.
   
9. SELECTION-SCREEN END OF SCREEN 0101.
   
10. 
    
11. SELECTION-SCREEN BEGIN OF TABBED BLOCK blk1 FOR 10 LINES .
    
12. SELECTION-SCREEN TAB (10) tab1 USER-COMMAND ucomm1 DEFAULT SCREEN 0100.
    
13. SELECTION-SCREEN TAB (10) tab2 USER-COMMAND ucomm2 DEFAULT SCREEN 0101.
    
14. SELECTION-SCREEN END OF BLOCK blk1.
    
15. 
    
16. INITIALIZATION.
    
17.   tab1 = '选项页1'.
    
18.   tab2 = '选项页2'.
    

复制代码