&---------------------------------------------------------------------
*& 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
  CNTL_ERROR = 1
  CNTL_SYSTEM_ERROR = 2
  CREATE_ERROR = 3
  LIFETIME_ERROR = 4
  LIFETIME_DYNPRO_DYNPRO_LINK = 5.
  ENDIF.

IF X_EDITOR IS INITIAL.
CREATE OBJECT X_EDITOR
EXPORTING
PARENT = X_DOCKING
WORDWRAP_MODE = CL_GUI_TEXTEDIT=>WORDWRAP_AT_FIXED_POSITION
WORDWRAP_POSITION = 72
MAX_NUMBER_CHARS = 100000.
ENDIF.