*&---------------------------------------------------------------------*
*& Include          Z19_02_O01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'S0100'.
  SET TITLEBAR 'xxx'.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module TEXT_EDITOR OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE text_editor OUTPUT.

  IF go_custom_container IS INITIAL.
    CREATE OBJECT go_custom_container
      EXPORTING
        container_name = 'TEXT_AREA'.

    CREATE OBJECT go_text_editor
      EXPORTING
        parent = go_custom_container.

**" 조금 더 알아보기 – Toolbar 및 Status Bar 버튼 숨기기
*    CALL METHOD go_text_editor->set_toolbar_mode
*      EXPORTING
*        toolbar_mode = cl_gui_textedit=>false.

*    CALL METHOD go_text_editor->set_statusbar_mode
*      EXPORTING
*        statusbar_mode = cl_gui_textedit=>false.


    gs_header-tdobject = 'Z19_001'.
    gs_header-tdid = 'Z01'.
    gs_header-tdspras = sy-langu.

    SELECT SINGLE certtext
      FROM zcertinfo
      WHERE certid EQ @p_certid
      INTO @gs_header-tdname.

    IF gs_header-tdname IS INITIAL.
      PERFORM text_init.
    ELSE.
      PERFORM read_text.
    ENDIF.

  ENDIF.
ENDMODULE.