[ABAP] Selection Screen에서 TABSTRIP 사용하기

 

 탭을 TAB_BLK로 선언(2개의 TAB(TAB1/TAB2))

SELECTION-SCREEN BEGIN OF TABBED BLOCK TAB_BLK FOR 10 LINES.
  SELECTION-SCREEN TAB (20) TAB1 USER-COMMAND TAB1
    DEFAULT SCREEN 1001.
  SELECTION-SCREEN TAB (20) TAB2 USER-COMMAND TAB2
    DEFAULT SCREEN 1002.
SELECTION-SCREEN END OF BLOCK TAB_BLK.

 

개별 TAB에 대한 조회 조건 선언 

SELECTION-SCREEN BEGIN OF SCREEN 1001 AS SUBSCREEN.
  SELECT-OPTIONS : S_LIFNR  FOR EINA-LIFNR,
                   S_MATNR  FOR EINA-MATNR,
                   S_EKORG  FOR EINE-EKORG,
                   S_WERKS  FOR EINE-WERKS,
                   S_ESOKZ  FOR EINE-ESOKZ.
 SELECTION-SCREEN END OF SCREEN 1001.

SELECTION-SCREEN BEGIN OF SCREEN 1002 AS SUBSCREEN.
  PARAMETERS     : P_DATUM  TYPE SY-DATUM.
SELECTION-SCREEN END OF SCREEN 1002.

 

 개별 탭에 대한 이름 선언

INITIALIZATION.
  TAB1 = 'Inforecord'.
  TAB2 = 'Others'.

선택된 탭에 따른 실행 프로그램 선언 

START-OF-SELECTION. 

  IF TAB_BLK-ACTIVETAB EQ 'TAB1'.
    PERFORM SELECT_DATA1.
  ELSE.
    PERFORM SELECT_DATA2.
  ENDIF.

 실행결과