Subscreen

SUBSCREEN

실행화면

화면 하나에 여러 탭을 만들어 데이터를 입력할 수 있도록 한다. 여러 탭을 만들기 위해 SUBSCREEN을 생성한다.

TABLES : sbook.
DATA : ok_code LIKE SY-UCOMM.

화면을 하나 생성한뒤 요소리스트에 OK_CODE를 입력하고 데이터 선언도 해준다. GUI STATUS에서 사용할거다.

SELECTION-SCREEN BEGIN OF SCREEN 101 AS SUBSCREEN.
  SELECT-OPTIONS: so_bid FOR sbook-bookid,
                  so_cid FOR sbook-customid.
 SELECTION-SCREEN END OF SCREEN 101.

 SELECTION-SCREEN BEGIN OF SCREEN 102 AS SUBSCREEN.
   PARAMETERS: p_b TYPE sbook-bookid,
               p_c TYPE sbook-customid.
 SELECTION-SCREEN END OF SCREEN 102.

 SELECTION-SCREEN BEGIN OF SCREEN 103 AS SUBSCREEN.
   PARAMETERS: p_c1 AS CHECKBOX DEFAULT 'X',
               p_c2 AS CHECKBOX.
 SELECTION-SCREEN END OF SCREEN 103.

SUBSCREEN 101, 102, 103을 만들어준다. 따로 화면 생성을 하지 않아도 만들어진다.

 SELECTION-SCREEN BEGIN OF TABBED BLOCK tab_block FOR 5 LINES.
   SELECTION-SCREEN TAB (10) tab1 USER-COMMAND comm1 DEFAULT SCREEN 101.
   SELECTION-SCREEN TAB (10) tab2 USER-COMMAND comm2 DEFAULT SCREEN 102.
   SELECTION-SCREEN TAB (10) tab3 USER-COMMAND comm3 DEFAULT SCREEN 103.
 SELECTION-SCREEN END OF BLOCK tab_block.

 INITIALIZATION.

 tab1 = 'Connection'(001).
 tab2 = 'Flight'(002).
 tab3 = 'Booking'(003).

TAB의 텍스트

tab_block-activetab = 'COMM2'.
tab_block-dynnr = 102.

TAB의 초기화면은 SUBSCREEN 102화면으로 설정.

AT SELECTION-SCREEN ON HELP-REQUEST FOR p_b.
    CALL SCREEN 100 STARTING AT 30 03
                    ENDING    AT 70 10.

on help-request 로직으로 F1 도움말
on value-request 로직으로 F4 도움말

도움말입니다!는 화면 레이아웃에서 텍스트로 설정해주었다.

START-OF-SELECTION.

MODULE status_0100 OUTPUT.
 SET PF-STATUS 'S100'.
 SET TITLEBAR 'S100'.
ENDMODULE.

START-OF-SELECTION은 실행했을때 생성해준 화면이 나오는 구간이다. GUI STATUS와 TITLEBAR를 생성해준뒤 PBO에 입력.

MODULE user_command_0100 INPUT.
 CASE ok_code.
 	WHEN 'CANC'.
 	LEAVE TO SCREEN 0.
 ENDCASE.
ENDMODULE.

사용자가 CANC 취소버튼을 눌렀을때 자기자신을 호출한 WINDOW로 복귀한다.