PARAMETERS: dummy.
CLASS lcl DEFINITION INHERITING FROM cl_gui_control.
  PUBLIC SECTION. METHODS constructor.
ENDCLASS.
CLASS lcl IMPLEMENTATION.
  METHOD constructor.
    CALL METHOD:
      super->constructor( parent = cl_gui_container=>screen0
                          clsid  = 'SAPGUI.AbapEditor.1' ),
      cl_gui_cfw=>flush,
      cl_gui_cfw=>subscribe( shellid = h_control-shellid ref = me ),
      call_method( method = 'AddEmptyDoc' p_count = 4
                   p1 = '' p2 = 0 p3 = 'BSP' p4 = '' ),
      cl_gui_cfw=>flush,
      set_focus( me ).
  ENDMETHOD.
ENDCLASS.
DATA: abap_editor TYPE REF TO lcl.
AT SELECTION-SCREEN OUTPUT.
  CHECK abap_editor IS INITIAL.
  CREATE OBJECT abap_editor.