selection screen 上面创建tab scrip

SELECTION-SCREEN BEGIN OF TABBED BLOCK tab1 FOR 20 LINES.
SELECTION-SCREEN TAB (15) text-001 USER-COMMAND tab1
 DEFAULT SCREEN 2000.
SELECTION-SCREEN TAB (15) text-002 USER-COMMAND tab2
 DEFAULT SCREEN 3000.
SELECTION-SCREEN TAB (15) text-003 USER-COMMAND tab3
 DEFAULT SCREEN 4000.
SELECTION-SCREEN END OF BLOCK tab1.

SELECTION-SCREEN BEGIN OF SCREEN 2000 AS SUBSCREEN.
PARAMETER: p_field1 TYPE c LENGTH 30 DEFAULT 'Here is tab1'.
SELECTION-SCREEN END OF SCREEN 2000.

SELECTION-SCREEN BEGIN OF SCREEN 3000 AS SUBSCREEN.
PARAMETER: p_field2 TYPE c LENGTH 30.
SELECTION-SCREEN END OF SCREEN 3000.

SELECTION-SCREEN BEGIN OF SCREEN 4000 AS SUBSCREEN.
PARAMETER: p_field3 TYPE c LENGTH 30.
SELECTION-SCREEN END OF SCREEN 4000.


AT SELECTION-SCREEN.
  CASE sy-ucomm.
    WHEN 'TAB1'.
      p_field1 = 'Here is tab1'.
    WHEN 'TAB2'.
      p_field2 = 'Here is tab2'.
    WHEN OTHERS.
      p_field3 = 'Here is tab3'.
  ENDCASE.

 

注意：这里可能会报出一个错误： “Error when generating screen xxx for xxx”， 主要是因为field的长度超过tab的子屏幕的宽度。