ABAP选择屏幕TAB页签

REPORT Y_CLY_104X.

SELECTION-SCREEN: BEGIN OF TABBED BLOCK P_TAB_MAT FOR 30 LINES,
                  TAB (18) P_TEXT1 USER-COMMAND BUT1 DEFAULT SCREEN 2100,
                  TAB (18) P_TEXT2 USER-COMMAND BUT2 DEFAULT SCREEN 2200,
                  END OF BLOCK P_TAB_MAT.

SELECTION-SCREEN BEGIN OF SCREEN 2100 AS SUBSCREEN .
PARAMETERS: P_MATNR1 TYPE CHAR16.
SELECTION-SCREEN END OF SCREEN 2100.

SELECTION-SCREEN BEGIN OF SCREEN 2200 AS SUBSCREEN .
PARAMETERS: P_MATNR2 TYPE CHAR16.
SELECTION-SCREEN END OF SCREEN 2200.

INITIALIZATION.
  P_TEXT1 = 'MAT1'.
  P_TEXT2 = 'MAT2'.

*&-------------------------------------------------------------------------------------------*
* AT SELECTION-SCREEN
*&-------------------------------------------------------------------------------------------*
AT SELECTION-SCREEN.
  CASE  SY-DYNNR .
    WHEN 1000 .
      CASE SY-UCOMM .
        WHEN 'BUT1'.
          P_TAB_MAT-DYNNR = 2100 .
        WHEN 'BUT2'.
          P_TAB_MAT-DYNNR = 2200.
        WHEN OTHERS .
      ENDCASE.

  ENDCASE.

START-OF-SELECTION.
  CASE  P_TAB_MAT-DYNNR .
    WHEN 2100.
    WHEN 2200.
    WHEN OTHERS.
  ENDCASE.