ABAP选择屏幕实现页签 标签页 SUBSCREEN

效果：

代码：

SELECTION-SCREEN: "设置标签
BEGIN OF TABBED BLOCK P_TAB_MAT FOR 12 LINES,
TAB (18) TEXT-001 USER-COMMAND BUT1 DEFAULT SCREEN 2100,
TAB (18) TEXT-002 USER-COMMAND BUT2 DEFAULT SCREEN 2200,
END OF BLOCK P_TAB_MAT.

SELECTION-SCREEN BEGIN OF SCREEN 2100 AS SUBSCREEN ."第一个标签页内容

  SELECTION-SCREEN BEGIN OF BLOCK B4 WITH FRAME TITLE TEXT-003.
    SELECTION-SCREEN BEGIN OF LINE.
      SELECTION-SCREEN PUSHBUTTON 5(15) BUT3 USER-COMMAND DOWN   .
    SELECTION-SCREEN END OF LINE.
  SELECTION-SCREEN END OF BLOCK B4.
  SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-003.
    PARAMETERS: P_PATH TYPE RLGRAP-FILENAME.
  SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN END OF SCREEN 2100.

SELECTION-SCREEN BEGIN OF SCREEN 2200 AS SUBSCREEN ."第二个标签页内容
  SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-003.
    PARAMETERS: RE_DISP RADIOBUTTON GROUP GP1,
                RD_EDIT RADIOBUTTON GROUP GP1.
  SELECTION-SCREEN END OF BLOCK B2.

  SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-003.
    SELECT-OPTIONS: S_MATNR FOR ZMMT0001-MATNR.
    SELECT-OPTIONS: S_LIFNR FOR ZMMT0001-LIFNR.
    SELECT-OPTIONS: S_EKORG FOR ZMMT0001-EKORG.
    SELECT-OPTIONS: S_WERKS FOR ZMMT0001-WERKS.
    SELECT-OPTIONS: S_MJAHR FOR ZMMT0001-MJAHR NO-EXTENSION NO INTERVALS.
    SELECT-OPTIONS: S_MONAT FOR ZMMT0001-MONAT.
  SELECTION-SCREEN END OF BLOCK B3.
SELECTION-SCREEN END OF SCREEN 2200.