DATA: GR_DOCKING_CONTAINER TYPE REF TO CL_GUI_GOS_CONTAINER,
      GI_OI_CONTAINER_CONTROL TYPE REF TO I_OI_CONTAINER_CONTROL,
      GI_OI_DOCUMENT_PROXY TYPE REF TO I_OI_DOCUMENT_PROXY.

CALL METHOD C_OI_CONTAINER_CONTROL_CREATOR=>GET_CONTAINER_CONTROL
  IMPORTING
    CONTROL = GI_OI_CONTAINER_CONTROL.

CALL METHOD GI_OI_CONTAINER_CONTROL->INIT_CONTROL
  EXPORTING
    PARENT                   = GR_DOCKING_CONTAINER
    R3_APPLICATION_NAME      = 'R/3'
    AUTOALIGN                = 'X'
    NO_FLUSH                 = ' '
    REGISTER_ON_CLOSE_EVENT  = 'X'
    REGISTER_ON_CUSTOM_EVENT = 'X'.

CALL METHOD GI_OI_CONTAINER_CONTROL->GET_DOCUMENT_PROXY
  EXPORTING
    DOCUMENT_TYPE   = 'Word.Document.8'
    DOCUMENT_FORMAT = 'NATIVE'
    NO_FLUSH        = ' '
  IMPORTING
    DOCUMENT_PROXY  = GI_OI_DOCUMENT_PROXY.

CALL METHOD GI_OI_DOCUMENT_PROXY->OPEN_DOCUMENT
  EXPORTING
    DOCUMENT_URL     = 'FILE://C:\claim.doc'
    OPEN_READONLY    = SPACE
    PROTECT_DOCUMENT = SPACE
    NO_FLUSH         = ' '.

CALL SCREEN 100.

MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'MAIN'.
  MESSAGE 'TEST' TYPE 'I'.
ENDMODULE.                 " STATUS_0100  OUTPUT

MODULE USER_COMMAND_0100 INPUT.
  CASE SY-UCOMM.
    WHEN 'BACK'.
      LEAVE PROGRAM.
    WHEN OTHERS.
       " По закрытию документа и наверное ON_CLOSE_EVENT попадаю сюда

  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT