选择屏幕分割

&---------------------------------------------------------------------
*& Report ZTEST009
&---------------------------------------------------------------------
*&
&---------------------------------------------------------------------
REPORT ZTEST009.

DATA: V_REPID TYPE SY-REPID.
DATA: X_DOCKING TYPE REF TO CL_GUI_DOCKING_CONTAINER,
X_EDITOR TYPE REF TO CL_GUI_TEXTEDIT.

*选择屏幕
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS : P_BUKRS TYPE BUKRS,
P_GJAHR TYPE GJAHR,
P_BELNR TYPE BELNR.
SELECTION-SCREEN END OF BLOCK B1.

AT SELECTION-SCREEN OUTPUT.

IF X_DOCKING IS INITIAL.

• 创建对象并分割容器
  CREATE OBJECT X_DOCKING
  EXPORTING
  REPID = V_REPID
  DYNNR = SY-DYNNR
  SIDE = CL_GUI_DOCKING_CONTAINER=>DOCK_AT_LEFT " 左分割
  EXTENSION = ‘235’
  EXCEPTIONS