自定义SQL查询或者更新

有些时候需要查询一些表的数据，可以使用SE16N查询，但当需要多表关联查询时，SE16N就不行了，我们需要写SQL语句来查询，以是一个可以输入SQL语句来执行并显示结果的程序，同时还可以有外键关系选择加入表等功能，细节可执行后自己看。

1.创建ABAP代码

*&------------------------------------------------------------------------------------------------------------*
*& Report  ZSQL_FREE
*&
*&------------------------------------------------------------------------------------------------------------*
*&                                            Hovitaga OpenSQL Editor
*&
*&                                      FREE EDITION for 7.00 basis release
*&
*&                                 upgrade to full version at www.hovitaga.com
*&
*&   The full version has additional features like:
*&
*&   - edit unlimited number of commands, save and load, can be organized to folders
*&   - report generation based on a select command: generate 150-1000+ lines of code with a push of a button
*&   - select for all entries syntax
*&   - field selector wizard
*&   - Tree display mode
*&   - the result set is editable, easy modification of table contents possible (only with authorizations!)
*&   - import data from Excel/Access (only with authorizations!)
*&   - executing ABAP code on the result set of a query (only with authorizations!)
*&   - record and column level authorizations
*&   - Update, Delete commands (only with authorizations!)
*&
*&   INSTALL INSTRUCTIONS
*&
*&   1, Just execute the report for the first time to install it
*&   2, Execute again to run it
*&
*&-------------------------------------------------------------------------------------------------------------*

REPORT zsql_free MESSAGE-ID zsql_free.


TYPE-POOLS: abap, icon, rsds, sqlt, trdev, slis.


TYPES: lty_commandtype(2)             TYPE n.


CONSTANTS: gc_version(2)              TYPE c             VALUE '10',
           gc_hash(32)                TYPE c             VALUE 'e130d57ba1c629c83107bce22ae5f594',
           gc_line_length             TYPE i             VALUE 132,
           gc_ctype_select            TYPE lty_commandtype VALUE 1,
           gc_ctype_update            TYPE lty_commandtype VALUE 2,
           gc_ctype_delete            TYPE lty_commandtype VALUE 3,
           gc_ctype_lawb              TYPE lty_commandtype VALUE 4,
           gc_ctype_selfae            TYPE lty_commandtype VALUE 5,
           gc_ctype_script            TYPE lty_commandtype VALUE 6,
           gc_style_repo_folder       TYPE i             VALUE 101,
           gc_style_obj_list          TYPE i             VALUE 103,
           gc_style_my_repo           TYPE i             VALUE 104,
           gc_style_curr_comm         TYPE i             VALUE 105,
           gc_style_pkg_content       TYPE i             VALUE 106,
           gc_style_pkg_name          TYPE i             VALUE 107,
           gc_style_obj_list_elem     TYPE i             VALUE 108,
           gc_style_native            TYPE i             VALUE 109,
           gc_style_select_fae        TYPE i             VALUE 110,
           gc_style_lawb              TYPE i             VALUE 111,
           gc_style_script            TYPE i             VALUE 112,
           gc_style_delete_command    TYPE i             VALUE 113,
           gc_style_update_command    TYPE i             VALUE 114,
           gc_style_select_command    TYPE i             VALUE 115,
           gc_style_bo                TYPE i             VALUE 116,
           gc_style_bo_folder         TYPE i             VALUE 117,
           gc_style_rfc_select        TYPE i             VALUE 140,
           gc_style_rfc_selfae        TYPE i             VALUE 141,
           gc_style_param_displ       TYPE i             VALUE 142,
           gc_style_lonakafasza       TYPE i             VALUE 118,
           sem5_node_type_class       TYPE n             VALUE 0,
           gc_result_page_size        TYPE i             VALUE 200,
           gc_result_size_warning     TYPE i             VALUE 5000.

TYPES: lty_keycol_type                TYPE c,
       lty_last_display_mode          TYPE c,
       lty_commandid                  TYPE i,
       lty_gen_prog_nro(10)           TYPE n,
       lty_zhtdb_table_type           TYPE c,
       lty_zhtdb_vrange_text(255)     TYPE c,

       BEGIN OF lty_zhtdb_alv_tab,
         ddtext                       TYPE lty_zhtdb_vrange_text,
         tablename                    TYPE tabname,
         fieldname                    TYPE fieldname,
         alias                        TYPE tabname,
       END OF lty_zhtdb_alv_tab,

       BEGIN OF lty_zhtdb_checktable_struc,
         tabname                      TYPE tabname,
         fieldname                    TYPE forfield,
         forkey                       TYPE forkey,
         cardleft                     TYPE cardleft,
         card                         TYPE card,
         checktable                   TYPE checktable,
       END OF lty_zhtdb_checktable_struc,

       lty_zhtdb_join_text(512)       TYPE c,

       BEGIN OF lty_zhtdb_checktable_struc_alv,
         tabname                      TYPE tabname,
         ddtext                       TYPE as4text,
         longtext                     TYPE lty_zhtdb_join_text,
       END OF lty_zhtdb_checktable_struc_alv,

       BEGIN OF lty_zhtdb_fieldinfo,
         table                        TYPE tabname,
         field                        TYPE fieldname,
         is_key                       TYPE flag,
         orig_field                   TYPE char50,
         field_alias                  TYPE char50,
         table_alias                  TYPE char50,
         agg_function                 TYPE char50,
         distinctf                    TYPE flag,
         generated_field              TYPE char50,
         samecount                    TYPE int4,
       END OF lty_zhtdb_fieldinfo,

       BEGIN OF lty_zhtdb_keyword,
         keyword                      TYPE string,
         required                     TYPE c,
         order_pos                    TYPE i,
         begins_at                    TYPE i,
         ends_at                      TYPE i,
         additions                    TYPE string,
         text                         TYPE string,
       END OF lty_zhtdb_keyword,

       BEGIN OF lty_zhtdb_sign_pos,
         position                     TYPE i,
         type(3)                      TYPE c,
       END OF lty_zhtdb_sign_pos,

       BEGIN OF lty_zhtdb_table_aliases,
         table                        TYPE tabname,
         alias                        TYPE string,
         explain_alias                TYPE string,
         type                         TYPE lty_zhtdb_table_type,
         position                     TYPE i,
       END OF lty_zhtdb_table_aliases,

       lty_zhtdbt_string_tab          TYPE TABLE OF string,
       lty_zhtdb_fieldinfo_tt         TYPE TABLE OF lty_zhtdb_fieldinfo,
       lty_zhtdb_sign_pos_tt          TYPE TABLE OF lty_zhtdb_sign_pos,
       lty_zhtdb_table_aliases_tt     TYPE TABLE OF lty_zhtdb_table_aliases,

       BEGIN OF lty_zhdb_vrange,
         alias                        TYPE tabname,
         rsds_range                   TYPE rsds_range,
       END OF lty_zhdb_vrange,

       lty_zhdb_vrange_tab            TYPE STANDARD TABLE OF lty_zhdb_vrange,
       lty_colmn_header               TYPE c,

       BEGIN OF ty_notes,
         line(gc_line_length)         TYPE c,
       END OF ty_notes,

       gty_tb_name                    TYPE dd02d-dbtabname,
       gty_fld_name                   TYPE dd03p-fieldname,
       gty_fieldinfo                  TYPE lty_zhtdb_fieldinfo,
       gty_table_aliases              TYPE lty_zhtdb_table_aliases,

       BEGIN OF gty_ddicref,
         fieldname                    TYPE gty_fld_name,
         checktable                   TYPE tabname,
         ref_table                    TYPE gty_tb_name,
         ref_field                    TYPE gty_fld_name,
         key                          TYPE c,
       END OF gty_ddicref,

       BEGIN OF source,
         line(gc_line_length)         TYPE c,
       END OF source,

       source_table                   TYPE soli_tab,
       gty_commandtext                TYPE string,

       BEGIN OF gty_linkedquery,
         fcode                        TYPE ui_func,
         tabname                      TYPE gty_tb_name,
         checktable                   TYPE gty_tb_name,
         fieldname                    TYPE gty_fld_name,
         checkfield                   TYPE gty_fld_name,
         text(40)                     TYPE c,
         longtext(255)                TYPE c,
         join_type                    TYPE c,
         ddtext                       TYPE dd02t-ddtext,
         primpos                      TYPE dd05m-primpos,
       END OF gty_linkedquery,

       BEGIN OF gty_ranges,
         table_alias                  TYPE string,
         fieldname                    TYPE dd03p-fieldname,
         range                        TYPE rsds_selopt_t,
         node_text                    TYPE lvc_value,
         node_key                     TYPE lvc_nkey,
         where_text                   TYPE string,
       END OF gty_ranges,

       BEGIN OF gty_tab_node_xref,
         node_key                     TYPE lvc_nkey,
         tablename                    TYPE tabname,
         alias                        TYPE string,
       END OF gty_tab_node_xref,

       BEGIN OF gty_alias_ranges,
         table_alias                  TYPE string,
         fields                       TYPE rsdsfields_t,
         expr                         TYPE rsds_texpr,
         sel_id                       TYPE rsdynsel-selid,
         active                       TYPE i,
       END OF gty_alias_ranges,

       BEGIN OF mty_t_type,
         line(255),
       END OF mty_t_type,

       mty_tt_type                    TYPE STANDARD TABLE OF mty_t_type WITH NON-UNIQUE DEFAULT KEY INITIAL SIZE 500.

DATA: gv_def_col_hdr                  TYPE lty_colmn_header,
      gv_def_keycol_type              TYPE lty_keycol_type,
      gv_0100_first_run               TYPE flag          VALUE 'X',
      gt_tab_node_xref                TYPE TABLE OF gty_tab_node_xref,
      gs_tab_node_xref                TYPE gty_tab_node_xref,
      gs_linkedquery                  TYPE gty_linkedquery,
      gt_linkedquery                  TYPE TABLE OF gty_linkedquery,
      gs_linkedquery_comp             TYPE gty_linkedquery,
      gt_linkedquery_comp             TYPE TABLE OF gty_linkedquery,
      gt_prev_table_aliases           TYPE TABLE OF gty_table_aliases,
      gs_ranges                       TYPE gty_ranges,
      ok_code                         TYPE sy-ucomm,
      ok_code_200                     TYPE sy-ucomm,
      ok_code_300                     TYPE sy-ucomm,
      ok_code_400                     TYPE sy-ucomm,
      ok_code_500                     TYPE sy-ucomm,
      ok_code_700                     TYPE sy-ucomm,
      ok_code_800                     TYPE sy-ucomm,
      ok_code_900                     TYPE sy-ucomm,
      ok_code_950                     TYPE sy-ucomm,
      ok_code_1000                    TYPE sy-ucomm,
      gv_dynnr(4)                     TYPE n             VALUE '0101',
      gv_dynnr2(4)                    TYPE n             VALUE '0101',
      g_textedit                      TYPE REF TO cl_gui_abapedit,
      g_container_textedit_200        TYPE REF TO cl_gui_custom_container,
      g_textedit_200                  TYPE REF TO cl_gui_textedit,
      g_alv                           TYPE REF TO cl_gui_alv_grid,
      go_field_selector_alv           TYPE REF TO cl_gui_alv_grid,
      go_selscr_fields_alv            TYPE REF TO cl_gui_alv_grid,
      gs_fcat                         TYPE lvc_s_fcat,
      gt_fcat                         TYPE lvc_t_fcat,
      gs_layo                         TYPE lvc_s_layo,
      gt_toolbar_exclude              TYPE ui_functions,
      gs_toolbar_exclude              TYPE ui_func,
      gt_toolbar_table                TYPE ttb_button,
      g_tree_tb                       TYPE REF TO cl_gui_alv_tree,
      gs_fcat_tb                      TYPE lvc_s_fcat,
      gt_fcat_tb                      TYPE lvc_t_fcat,
      gs_layo_tb                      TYPE lvc_s_layo,
      gt_toolbar_exclude_tb           TYPE ui_functions,
      gs_toolbar_exclude_tb           TYPE ui_func,
      gt_toolbar_table_tb             TYPE ttb_button,
      gs_outtab_tb                    TYPE lty_zhtdb_alv_tab,
      g_toolbar_textedit              TYPE REF TO cl_gui_toolbar,
      g_toolbar_tb_tree               TYPE REF TO cl_gui_toolbar,
      g_toolbar_commands              TYPE REF TO cl_gui_toolbar,
      autotrace(1)                    TYPE c,
      lockresults(1)                  TYPE c,
      clientspecified(1)              TYPE c,
      clientspec_ud(1)                TYPE c,
      bypassingbuffer(1)              TYPE c,
      orderbypk(1)                    TYPE c,
      rfc_destination                 TYPE rfcdest,
      gv_styce_colname                TYPE lvc_fname,
      gt_prev_text                    TYPE source_table,
      gv_prev_nodekey                 TYPE lvc_nkey,
      gt_prev_fcat                    TYPE lvc_t_fcat.

FIELD-SYMBOLS: <gt_result>            TYPE STANDARD TABLE,
               <gt_display>           TYPE STANDARD TABLE,
               <gt_temp>              TYPE STANDARD TABLE,
               <gt_tree>              TYPE STANDARD TABLE,
               <gt_undo>              TYPE STANDARD TABLE,
               <gs_result>,
               <gf_result>,
               <gs_temp>,
               <gs_undo>,
               <gf_temp>,
               <itab>                 TYPE STANDARD TABLE,
               <ntab>                 TYPE STANDARD TABLE.


PERFORM install.
*PERFORM update.
PERFORM check_message_001.

CALL SCREEN 100.

*&---------------------------------------------------------------------*
*&  Include           ZHTDB_CLASSES                                    *
*&---------------------------------------------------------------------*



CLASS lcl_toolbox DEFINITION.

*"* public components of class LCL_TOOLBOX
*"* do not include other source files here!!!
  PUBLIC SECTION.

    CLASS-METHODS split_string
       IMPORTING
         !iv_string TYPE string
         !iv_maxlen TYPE i
         !iv_log_handle TYPE balloghndl OPTIONAL
       EXPORTING
         !et_string_tab TYPE lty_zhtdbt_string_tab.
    CLASS-METHODS get_word_at_pos
      IMPORTING
        !iv_string TYPE string
        !iv_position TYPE i
      EXPORTING
        !ev_word TYPE string.
    CLASS-METHODS parse_aptph
      IMPORTING
        !iv_condense TYPE flag DEFAULT 'X'
        !iv_log_handle TYPE balloghndl OPTIONAL
      EXPORTING
        !et_aptph_pos TYPE lty_zhtdb_sign_pos_tt
        !et_paranth TYPE lty_zhtdb_sign_pos_tt
      CHANGING
        !cv_string TYPE string
      EXCEPTIONS
        missing_aptph
        missing_parnth .
    CLASS-METHODS select_single_gen
      IMPORTING
        !is_key_value TYPE REF TO data
        !iv_table_name TYPE strukname
        !it_keyf_list TYPE lty_zhtdbt_string_tab
      EXPORTING
        !es_record TYPE REF TO data .
    CLASS-METHODS convert_to_uppercase
      CHANGING
        !cv_string TYPE string .
    CLASS-METHODS pretty_printer
      CHANGING
        !ct_source TYPE soli_tab .
    CLASS-METHODS is_client_field
      IMPORTING
        !iv_tabname TYPE tabname
        !iv_fieldname TYPE fieldname
      RETURNING
        value(ev_client_field) TYPE char1 .
    CLASS-METHODS has_client_field
      IMPORTING
        !iv_tabname TYPE tabname
      RETURNING
        value(ev_has_client_field) TYPE char1 .
    CLASS-METHODS pretty_printer_string
      CHANGING
        !ct_source TYPE lty_zhtdbt_string_tab .
    CLASS-METHODS determinte_tab_type
      IMPORTING
        !iv_table TYPE tabname
      RETURNING
        value(ev_type) TYPE lty_zhtdb_table_type
      EXCEPTIONS
        table_not_exist .

ENDCLASS.                    "LCL_TOOLBOX DEFINITION

*----------------------------------------------------------------------*
*       CLASS LCL_TOOLBOX IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_toolbox IMPLEMENTATION.

  METHOD get_word_at_pos.

    DATA: lv_length TYPE i,
          lv_char   TYPE char1,
          lv_shift  TYPE i,
          lv_start  TYPE i,
          lv_end    TYPE i.


    lv_length = STRLEN( iv_string ).

* check if position is valid
    IF lv_length   < iv_position OR
       iv_position < 1.
      RETURN.
    ENDIF.

    lv_shift = iv_position - 1.
    lv_char = iv_string+lv_shift(1).

* space does not matter
    IF lv_char = space.
      RETURN.
    ENDIF.

* determine start
    DO.
      lv_char = iv_string+lv_shift(1).

      IF lv_char = space.
        lv_start = lv_shift + 1.
        EXIT.
      ENDIF.

      lv_shift = lv_shift - 1.
      IF lv_shift < 0.
        lv_start = lv_shift + 1.
        EXIT.
      ENDIF.
    ENDDO.

* determine end
    lv_shift = iv_position - 1.
    DO.
      lv_char = iv_string+lv_shift(1).

      IF lv_char = space.
        lv_end = lv_shift.
        EXIT.
      ENDIF.

      lv_shift = lv_shift + 1.
      IF lv_shift = lv_length.
        lv_end = lv_shift.
        EXIT.
      ENDIF.
    ENDDO.

    lv_length = lv_end - lv_start.
    ev_word = iv_string+lv_start(lv_length).

  ENDMETHOD.                    "

  METHOD split_string.

    DATA: lt_aptph_pos TYPE lty_zhtdb_sign_pos_tt,
          ls_aptph_pos TYPE lty_zhtdb_sign_pos,
          lv_string    TYPE string,
          lv_newstr    TYPE string,
          lv_actstr    TYPE string,
          lv_char      TYPE c,
          lv_shift     TYPE i,
          lv_lastsp    TYPE i,
          lv_length    TYPE i,
          lv_strg_lgth TYPE i,
          lv_index     TYPE i.


    IF iv_string IS INITIAL.
      RETURN.
    ENDIF.

    lv_string = iv_string.

    parse_aptph( EXPORTING  iv_condense   = space
                            iv_log_handle = iv_log_handle
                 IMPORTING  et_aptph_pos  = lt_aptph_pos
                 CHANGING   cv_string     = lv_string
                 EXCEPTIONS OTHERS        = 1 ).

    lv_shift = -1.
    lv_strg_lgth = STRLEN( lv_string ).

    DO.
      lv_shift = lv_shift + 1.
      IF lv_shift >= lv_strg_lgth.
        EXIT.
      ENDIF.

      lv_char = lv_string+lv_shift(1).  " current character

      IF lv_char = space.
        CONCATENATE lv_actstr lv_char INTO lv_actstr
          SEPARATED BY space.   " otherwise the SPACE will be lost ...
        lv_length = lv_length + 1.

*     check, if the SPACE is inside of apostrophes
        lv_index = lv_shift + 1.
        READ TABLE lt_aptph_pos INDEX lv_index INTO ls_aptph_pos.

        IF ls_aptph_pos-type = 'O'.  " outside of apostrophes
          IF lv_length > iv_maxlen.
*       the length of actual line is bigger than the maximum allowed
            IF lv_lastsp <> 0.   " there is a right position to cut
*           cut string at the last SPACE to get the current line
              lv_newstr = lv_actstr(lv_lastsp).
              IF lv_newstr(1) = '*'.
                SHIFT lv_newstr RIGHT BY 1 PLACES.
              ENDIF.

*           the rest is the new line
              lv_actstr = lv_actstr+lv_lastsp.
              lv_length = lv_length - lv_lastsp.
              lv_lastsp = lv_length.
              APPEND lv_newstr TO et_string_tab.

*           the new line might be already longer, than allowed
              IF lv_length >= iv_maxlen.
                IF lv_actstr(1) = '*'.
                  SHIFT lv_actstr RIGHT BY 1 PLACES.
                ENDIF.
                APPEND lv_actstr TO et_string_tab.
                CLEAR lv_actstr.
                lv_length = 0.
              ENDIF.
            ELSE.    " there is no right position to cut
              IF lv_actstr(1) = '*'.
                SHIFT lv_actstr RIGHT BY 1 PLACES.
              ENDIF.
              APPEND lv_actstr TO et_string_tab.
              CLEAR lv_actstr.
              lv_length = 0.
            ENDIF.
          ELSE.
*         this is the position of the last SPACE, where the string can be cut,
*         if no better position will be found
            lv_lastsp = lv_length.
          ENDIF.
        ENDIF.
      ELSE.    " not a SPACE
        CONCATENATE lv_actstr lv_char INTO lv_actstr.
        lv_length = lv_length + 1.
      ENDIF.
    ENDDO.

    IF lv_actstr IS NOT INITIAL.
      IF lv_length > iv_maxlen.
*   the length of actual line is bigger than the maximum allowed
        IF lv_lastsp <> 0.   " there is a right position to cut
*       cut string at the last SPACE to get the current line
          lv_newstr = lv_actstr(lv_lastsp).
          IF lv_newstr(1) = '*'.
            SHIFT lv_newstr RIGHT BY 1 PLACES.
          ENDIF.
          APPEND lv_newstr TO et_string_tab.

*       the rest is the new line
          lv_actstr = lv_actstr+lv_lastsp.
          IF lv_actstr(1) = '*'.
            SHIFT lv_actstr RIGHT BY 1 PLACES.
          ENDIF.
          APPEND lv_actstr TO et_string_tab.
        ELSE.    " there is no right position to cut
          IF lv_actstr(1) = '*'.
            SHIFT lv_actstr RIGHT BY 1 PLACES.
          ENDIF.
          APPEND lv_actstr TO et_string_tab.
        ENDIF.
      ELSE.  " length OK
        IF lv_actstr(1) = '*'.
          SHIFT lv_actstr RIGHT BY 1 PLACES.
        ENDIF.
        APPEND lv_actstr TO et_string_tab.
      ENDIF.
    ENDIF.

  ENDMETHOD.                    "

  METHOD parse_aptph.
* fills up the et_aptph_pos table: for each character of the command
* it sets the following flag:
*  - O - if the character is not part of a text
*  - A - if it is an apostrophe
*  - I - if it is part of a text

* fills up the et_paranth table with the positions of paranthesis

* executes a kind of CONDENSE, but outside of apostrophes only

    DATA: ls_aptph      LIKE LINE OF et_aptph_pos,
          ls_paranth    LIKE LINE OF et_aptph_pos,

          lv_strg_lgth  TYPE i,
          lv_char       TYPE c,

          lv_shift      TYPE i,
          lv_shift_sp   TYPE i,
          lv_shift_end  TYPE i,
          lv_next       TYPE i,
          lv_in_apostr  TYPE xfeld,
          lv_par_cnt    TYPE i.


    IF cv_string IS INITIAL.
      RETURN.
    ENDIF.

    lv_shift = -1.
    lv_strg_lgth = STRLEN( cv_string ).

    DO.
      lv_shift = lv_shift + 1.
      IF lv_shift >= lv_strg_lgth.
        EXIT.
      ENDIF.

      lv_char = cv_string+lv_shift(1).  " current character

      IF lv_char = ''''.

        IF lv_in_apostr = ' '.
*       => beginning of a text
          lv_in_apostr = 'X'.   " mark, that we are within a text

          ls_aptph-position = lv_shift + 1.
          ls_aptph-type = 'A'.
          APPEND ls_aptph TO et_aptph_pos.

          CONTINUE.
        ENDIF.

*     we are within a text

*     the next apostrophe closes the text, if it isn't doubled!
*     then both will be ignored
*     => the next character must be checked
        lv_next = lv_shift + 1.

        IF lv_next < lv_strg_lgth.

          IF cv_string+lv_next(1) = ''''.
*         these two apostrophes will be ignored
            ls_aptph-position = lv_shift + 1.
            ls_aptph-type = 'I'.
            APPEND ls_aptph TO et_aptph_pos.

            ls_aptph-position = lv_shift + 2.
            APPEND ls_aptph TO et_aptph_pos.

            lv_shift = lv_shift + 1.  " skip next character
          ELSE.
*         this apostrophe closes the text
            IF lv_in_apostr = 'X'.
              lv_in_apostr = ' '.   " mark, that we are not in a text
            ENDIF.
            ls_aptph-position = lv_shift + 1.
            ls_aptph-type = 'A'.
            APPEND ls_aptph TO et_aptph_pos.
          ENDIF.

        ELSE.

*       this apostrophe closes the text
          IF lv_in_apostr = 'X'.
            lv_in_apostr = ' '.   " mark, that we are not in a text
          ENDIF.
          ls_aptph-position = lv_shift + 1.
          ls_aptph-type = 'A'.
          APPEND ls_aptph TO et_aptph_pos.

        ENDIF.

      ELSE.  " lv_char <> ''''

        ls_aptph-position = lv_shift + 1.
        IF lv_in_apostr = 'X'.  " inside a text
          ls_aptph-type = 'I'.
        ELSE.
          ls_aptph-type = 'O'.  " outside of text
        ENDIF.
        APPEND ls_aptph TO et_aptph_pos.

*     check for '('
        IF lv_char      = '(' AND
           lv_in_apostr = ' '.    " not in a text

          lv_par_cnt = lv_par_cnt + 1.
          ls_paranth-type = lv_par_cnt.
          ls_paranth-position = lv_shift + 1.
          APPEND ls_paranth TO et_paranth.

        ENDIF.

*     check for ')'
        IF lv_char      = ')' AND
           lv_in_apostr = ' '.    " not in a text

          ls_paranth-type = lv_par_cnt.
          lv_par_cnt = lv_par_cnt - 1.
          ls_paranth-position = lv_shift + 1.
          APPEND ls_paranth TO et_paranth.

        ENDIF.

        IF iv_condense = 'X'.
*       condense SPACEs (outside of apostrophes only!)
          IF lv_char      = space AND
             lv_in_apostr = ' '.

            lv_shift_sp  = lv_shift + 1.
            lv_shift_end = lv_shift + 2.

            IF lv_shift_sp >= lv_strg_lgth.
              EXIT.
            ENDIF.

            DO.
              IF lv_shift_sp >= lv_strg_lgth.
                EXIT.
              ENDIF.

              lv_char = cv_string+lv_shift_sp(1).
              IF lv_char = space.
                lv_strg_lgth = lv_strg_lgth - 1.
*             remove SPACE from position lv_shift_sp + 1
                CONCATENATE cv_string(lv_shift_sp) cv_string+lv_shift_end INTO cv_string.
              ELSE.
                EXIT.
              ENDIF.
            ENDDO.

          ENDIF.
        ENDIF.

      ENDIF.

    ENDDO.

    IF lv_in_apostr = 'X'.  " the command was not closed properly

      IF iv_log_handle IS INITIAL.
*     Message: An ending apostrophe is missing
        MESSAGE e005 RAISING missing_aptph.
      ELSE.
        RAISE missing_aptph.
      ENDIF.

    ENDIF.

    IF lv_par_cnt <> 0.  " the command was not closed properly
      IF iv_log_handle IS INITIAL.
*     Message: An closing paranthesis is missing
        MESSAGE e059 RAISING missing_parnth.
      ELSE.
        RAISE missing_parnth.
      ENDIF.
    ENDIF.

  ENDMETHOD.                    "

  METHOD select_single_gen.

    DATA: lv_keyfield TYPE fieldname,
          lr_data     TYPE REF TO data,
          lv_where    TYPE string,
          lv_keyval   TYPE string.

    FIELD-SYMBOLS: <ls_data>      TYPE ANY,
                   <lv_keyval>    TYPE ANY,
                   <ls_keyfields> TYPE ANY.


* create work area
    CREATE DATA lr_data TYPE (iv_table_name).
    ASSIGN lr_data->* TO <ls_data>.

    ASSIGN is_key_value->* TO <ls_keyfields>.

* create WHERE clause
    LOOP AT it_keyf_list INTO lv_keyfield.
      IF lv_where IS NOT INITIAL.
        CONCATENATE lv_where 'AND' INTO lv_where
          SEPARATED BY space.
      ENDIF.

      ASSIGN COMPONENT lv_keyfield OF STRUCTURE <ls_keyfields> TO <lv_keyval>.
      lv_keyval = <lv_keyval>.

      CONCATENATE lv_where lv_keyfield '= ''' INTO lv_where
        SEPARATED BY space.
      CONCATENATE lv_where lv_keyval '''' INTO lv_where.
    ENDLOOP.

    SELECT SINGLE * FROM (iv_table_name) INTO <ls_data>
      WHERE (lv_where).

    es_record = lr_data.

  ENDMETHOD.                    "

  METHOD convert_to_uppercase.

    DATA: lt_aptph_pos TYPE lty_zhtdb_sign_pos_tt,
          lv_aptph     TYPE lty_zhtdb_sign_pos,
          lv_char      TYPE c,
          lv_uppercase TYPE string.


    CALL METHOD lcl_toolbox=>parse_aptph
      EXPORTING
        iv_condense    = ' '
        iv_log_handle  = 'DUMMY'
      IMPORTING
        et_aptph_pos   = lt_aptph_pos
      CHANGING
        cv_string      = cv_string
      EXCEPTIONS
        missing_aptph  = 1
        missing_parnth = 2
        OTHERS         = 3.

    LOOP AT lt_aptph_pos INTO lv_aptph.

      lv_aptph-position = lv_aptph-position - 1.
      lv_char = cv_string+lv_aptph-position(1).

      IF lv_aptph-type EQ 'O'.
        TRANSLATE lv_char TO UPPER CASE.
      ENDIF.

      IF lv_char = space.
        CONCATENATE lv_uppercase lv_char INTO lv_uppercase SEPARATED BY space.   " otherwise the SPACE will be lost ...
      ELSE.
        CONCATENATE lv_uppercase lv_char INTO lv_uppercase.
      ENDIF.

    ENDLOOP.

    cv_string = lv_uppercase.

  ENDMETHOD.                    "convert_to_uppercase

  METHOD pretty_printer.

    DATA: ls_source LIKE LINE OF ct_source,
          lv_string TYPE string,
          lv_tabix  TYPE i.


    LOOP AT ct_source INTO ls_source.
      lv_tabix = sy-tabix.
      lv_string = ls_source-line.

      CALL METHOD lcl_toolbox=>convert_to_uppercase
        CHANGING
          cv_string = lv_string.

      ls_source-line = lv_string.

      MODIFY ct_source FROM ls_source INDEX lv_tabix.
    ENDLOOP.

  ENDMETHOD.                    "pretty_printer

  METHOD is_client_field.

    DATA: lv_datatype   TYPE dd03l-datatype,
          lv_fieldname  TYPE fieldname,
          lv_tabname    TYPE tabname,

          lt_x031l_tab  TYPE TABLE OF x031l,
          ls_x031l      TYPE x031l.

    CLEAR ev_client_field.

    lv_tabname   = iv_tabname.
    lv_fieldname = iv_fieldname.

    TRANSLATE lv_tabname   TO UPPER CASE.
    TRANSLATE lv_fieldname TO UPPER CASE.

    SELECT SINGLE datatype
      FROM dd03l INTO lv_datatype
      WHERE tabname   = lv_tabname AND
            fieldname = lv_fieldname AND
            keyflag   = 'X'.

    IF sy-subrc EQ 0.
      CALL FUNCTION 'DD_DICTIONARY_TO_NAMETAB'
        EXPORTING
          foreign_key = ' '
          status      = 'A'
          tabname     = lv_tabname
        TABLES
          x031l_tab   = lt_x031l_tab.

      IF sy-subrc EQ 0.
        READ TABLE lt_x031l_tab INTO ls_x031l
          WITH KEY fieldname = lv_fieldname.

        IF ls_x031l-dtyp = 'CLNT' AND ls_x031l-position = 1.
          ev_client_field = 'X'.
        ENDIF.
      ENDIF.
    ENDIF.

  ENDMETHOD.                    "is_client_field

  METHOD has_client_field.

    DATA: x030l_wa TYPE x030l.


    CLEAR ev_has_client_field.

    CHECK iv_tabname IS NOT INITIAL.

    CALL FUNCTION 'DDIF_FIELDINFO_GET'
      EXPORTING
        tabname        = iv_tabname
      IMPORTING
        x030l_wa       = x030l_wa
      EXCEPTIONS
        not_found      = 1
        internal_error = 2
        OTHERS         = 3.

    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
         WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.

    IF x030l_wa-clpos NE 0.
      ev_has_client_field = 'X'.
    ENDIF.

  ENDMETHOD.                    "has_client_field

  METHOD pretty_printer_string.

    DATA: ls_source LIKE LINE OF ct_source,
          lv_tabix  TYPE i.


    LOOP AT ct_source INTO ls_source.
      lv_tabix = sy-tabix.

      CALL METHOD lcl_toolbox=>convert_to_uppercase
        CHANGING
          cv_string = ls_source.

      MODIFY ct_source FROM ls_source INDEX lv_tabix.
    ENDLOOP.

  ENDMETHOD.                    "pretty_printer_string

  METHOD determinte_tab_type.

    DATA: lv_tabname TYPE tabname.


* check if it is a transparent table
    SELECT SINGLE tabname
      INTO lv_tabname FROM dd03vv
      WHERE tabname   = iv_table AND
            tabclass  = 'TRANSP' AND
            as4local  = 'A' AND
            fieldname NOT LIKE '.%' AND
            fieldname NOT LIKE '*%' AND
            fieldname NOT LIKE '$_%' ESCAPE '$' AND
            fieldname NOT LIKE '$%%' ESCAPE '$'.

* not transparent table
    IF sy-subrc EQ 4.

*   check if it is a view
*   viewfield instead of fieldname, field alias may be defined in a view!
      SELECT SINGLE viewname
        INTO lv_tabname FROM dd27s
        WHERE viewname  = iv_table AND
              as4local  = 'A' AND
*           possible to define * in views to include all fields from a table, and - to exclude a field
              viewfield <> '*' AND
              viewfield <> '-' AND
              fieldname NOT LIKE '.%' AND
              fieldname NOT LIKE '*%' AND
              fieldname NOT LIKE '$_%' ESCAPE '$' AND
              fieldname NOT LIKE '$%%' ESCAPE '$'.

*   not a view
      IF sy-subrc EQ 4.

*     check if it is a Clustered table
        SELECT SINGLE dd16s~sqltab
          INTO lv_tabname
          FROM dd16s INNER JOIN dd06l ON dd06l~sqltab = dd16s~sqltab
          WHERE dd16s~sqltab = iv_table AND
                dd06l~as4local = 'A' AND
                dd06l~sqlclass = 'CLUSTER' AND
                dd16s~fieldname NOT LIKE '.%' AND
                dd16s~fieldname NOT LIKE '*%' AND
                dd16s~fieldname NOT LIKE '$_%' ESCAPE '$' AND
                dd16s~fieldname NOT LIKE '$%%' ESCAPE '$'.

*     not a Clustered table
        IF sy-subrc EQ 4.

*       check if it is a Pooled table
          SELECT SINGLE dd16s~sqltab
            INTO lv_tabname
            FROM dd16s INNER JOIN dd06l ON dd06l~sqltab = dd16s~sqltab
            WHERE dd16s~sqltab = iv_table AND
                  dd06l~sqlclass = 'POOL' AND
                  dd06l~as4local = 'A' AND
                  dd16s~fieldname NOT LIKE '.%' AND
                  dd16s~fieldname NOT LIKE '*%' AND
                  dd16s~fieldname NOT LIKE '$_%' ESCAPE '$' AND
                  dd16s~fieldname NOT LIKE '$%%' ESCAPE '$'.

*       not a Pooled table
          IF sy-subrc EQ 4.
            RAISE table_not_exist.
*       it is a Pooled table
          ELSE.
            ev_type = 'P'.
          ENDIF.

*     it is a Clustered table
        ELSE.
          ev_type = 'C'.
*        CLEAR mv_can_edit.
        ENDIF.

*   it is a view
      ELSE.
        ev_type = 'V'.

*      DATA: lv_viewgrant TYPE dd25l-viewgrant.
*
*      SELECT SINGLE viewgrant
*        INTO lv_viewgrant
*        FROM dd25l
*        WHERE viewname = iv_table AND
*              as4local = 'A'.
*
*      IF sy-subrc EQ 0.
*        IF lv_viewgrant EQ 'R'.
*          CLEAR mv_can_edit.
*        ENDIF.
*      ENDIF.

      ENDIF.

* it is a transparent table
    ELSE.
      ev_type = 'T'.
    ENDIF.

  ENDMETHOD.                    "determinte_tab_type


ENDCLASS.                    "LCL_TOOLBOX IMPLEMENTATION

*----------------------------------------------------------------------*
*       CLASS lcl_lawb DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_lawb DEFINITION.
  PUBLIC SECTION.
ENDCLASS.                    "lcl_lawb DEFINITION

*----------------------------------------------------------------------*
*       CLASS lcl_lawb IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_lawb IMPLEMENTATION.

ENDCLASS.                    "lcl_lawb IMPLEMENTATION

*----------------------------------------------------------------------*
*       CLASS lcl_select_fae_command DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_select_fae_command DEFINITION.
  PUBLIC SECTION.
ENDCLASS.                    "lcl_select_fae_command DEFINITION

*----------------------------------------------------------------------*
*       CLASS lcl_select_fae_command IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_select_fae_command IMPLEMENTATION.

ENDCLASS.                    "lcl_select_fae_command IMPLEMENTATION

*----------------------------------------------------------------------*
*       CLASS lcl_update_command DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_update_command DEFINITION.
  PUBLIC SECTION.
ENDCLASS.                    "lcl_update_command DEFINITION

*----------------------------------------------------------------------*
*       CLASS lcl_update_command IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_update_command IMPLEMENTATION.

ENDCLASS.                    "lcl_update_command IMPLEMENTATION

*----------------------------------------------------------------------*
*       CLASS lcl_delete_command DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_delete_command DEFINITION.
  PUBLIC SECTION.
ENDCLASS.                    "lcl_delete_command DEFINITION

*----------------------------------------------------------------------*
*       CLASS lcl_delete_command IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_delete_command IMPLEMENTATION.

ENDCLASS.                    "lcl_delete_command IMPLEMENTATION




*----------------------------------------------------------------------*
*       CLASS LCL_HTDB_CL_COMMAND DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_htdb_cl_command DEFINITION.

*"* public components of class lcl_htdb_cl_command
*"* do not include other source files here!!!
  PUBLIC SECTION.

    TYPES: BEGIN OF lty_zhdb_vrange,
            alias      TYPE tabname,
            rsds_range TYPE rsds_range,
          END OF lty_zhdb_vrange.

    TYPES: lty_zhdb_vrange_tab TYPE STANDARD TABLE OF lty_zhdb_vrange.

    METHODS create_new
      IMPORTING
        !iv_command_id TYPE lty_commandid OPTIONAL
        !iv_command TYPE string
        !it_vranges TYPE lty_zhdb_vrange_tab OPTIONAL
        !iv_log_handle TYPE balloghndl OPTIONAL
        !iv_test_from_file TYPE c OPTIONAL
      EXCEPTIONS
        no_id .
    METHODS is_client_spec
      RETURNING
        value(ev_cspec) TYPE flag .
    METHODS constructor
      EXCEPTIONS
        no_id .
    METHODS get_id
      EXPORTING
        !ev_id TYPE guid_32 .
    METHODS execute
      IMPORTING
        !iv_simulation TYPE flag OPTIONAL
        !iv_bg_proc TYPE flag OPTIONAL
        !iv_bg_date TYPE tbtcjob-sdlstrtdt OPTIONAL
        !iv_bg_time TYPE tbtcjob-sdlstrttm OPTIONAL
      EXPORTING
        value(er_result) TYPE REF TO data
        !ev_dbcnt TYPE sy-dbcnt
        value(er_lock_argument) TYPE REF TO data
        !er_exc TYPE REF TO cx_root
        !ev_job_name TYPE btcjob
        !ev_job_count TYPE btcjobcnt
        !et_srccode TYPE lty_zhtdbt_string_tab
      EXCEPTIONS
        parse_error
        exec_error
        job_submit_error
        table_locked
        no_auth_for_table
        no_auth_for_columns .
    METHODS parse
      EXCEPTIONS
        parse_error
        no_auth_for_table .
    METHODS get_message_dropped
      RETURNING
        value(ev_message_dropped) TYPE char1 .
    METHODS get_where
      RETURNING
        value(es_where) TYPE lty_zhtdb_keyword .
    METHODS get_command
      RETURNING
        value(ev_command) TYPE string .
    TYPE-POOLS rsds .

*"* protected components of class lcl_htdb_cl_command
*"* do not include other source files here!!!
  PROTECTED SECTION.

    TYPES gty_keyword TYPE lty_zhtdb_keyword .

    DATA mv_command_id TYPE lty_commandid .
    DATA mv_parsed TYPE flag .
    DATA mv_prog_id TYPE guid_32. "lty_gen_prog_nro .
    DATA mv_command TYPE string .
    DATA mt_vranges TYPE lty_zhdb_vrange_tab .
    DATA:
      mt_keywords TYPE STANDARD TABLE OF gty_keyword .
    DATA mt_aptph_pos TYPE lty_zhtdb_sign_pos_tt .
    CONSTANTS mc_prog_prefix TYPE string VALUE 'Z'.  " 'ZENITH_'. "#EC NOTEXT
    DATA mv_log_handle TYPE balloghndl .
    DATA ms_s_msg TYPE bal_s_msg .
    DATA mv_test_from_file TYPE c .
    DATA mv_message_dropped TYPE char1 .
    DATA mt_paranth TYPE lty_zhtdb_sign_pos_tt .
    DATA mt_query_depth TYPE lty_zhtdb_sign_pos_tt .
    DATA mv_jobname TYPE btcjob .
    DATA mv_jobcount TYPE btcjobcnt .
    DATA mv_command_id_ui TYPE lty_commandid .

    METHODS call_gen_form
      IMPORTING
        !iv_program TYPE programm
        !iv_bg_proc TYPE flag OPTIONAL
        !iv_bg_date TYPE tbtcjob-sdlstrtdt OPTIONAL
        !iv_bg_time TYPE tbtcjob-sdlstrttm OPTIONAL
      EXPORTING
        !ev_dbcnt TYPE sy-dbcnt
        value(er_result) TYPE REF TO data
        value(er_lock_argument) TYPE REF TO data
        !er_exc TYPE REF TO cx_root
      EXCEPTIONS
        error
        job_submit_error
        table_locked .
    METHODS create_program
      IMPORTING
        !iv_program TYPE programm
        !it_srccode TYPE lty_zhtdbt_string_tab
        !iv_force_insert_report TYPE c OPTIONAL
      EXPORTING
        !ev_msg TYPE string
        !ev_line TYPE int4
      EXCEPTIONS
        syntax_error
        internal_error .
    METHODS det_subquery .
    METHODS execute_int
      IMPORTING
        !iv_simulation TYPE flag OPTIONAL
        !iv_bg_proc TYPE flag OPTIONAL
        !iv_bg_date TYPE tbtcjob-sdlstrtdt OPTIONAL
        !iv_bg_time TYPE tbtcjob-sdlstrttm OPTIONAL
      EXPORTING
        !ev_dbcnt TYPE sy-dbcnt
        value(er_result) TYPE REF TO data
        value(er_lock_argument) TYPE REF TO data
        !er_exc TYPE REF TO cx_root
        !et_srccode TYPE lty_zhtdbt_string_tab
      EXCEPTIONS
        syntax_error
        error
        job_submit_error
        table_locked
        no_auth_for_columns .
    METHODS generate_srccode
      EXPORTING
        value(et_srccode) TYPE lty_zhtdbt_string_tab
      EXCEPTIONS
        error
        no_auth_for_columns .
    METHODS generate_vranges
      EXPORTING
        !et_srccode TYPE lty_zhtdbt_string_tab .
    METHODS parse_keywords
      EXCEPTIONS
        missing_keyword
        wrong_position
        wrong_keyword .
    METHODS parse_check_dot
      EXCEPTIONS
        parse_error .
    METHODS split_string
      IMPORTING
        !iv_string TYPE string
      EXPORTING
        value(et_words) TYPE lty_zhtdbt_string_tab .
    METHODS add_message
      IMPORTING
        !iv_msgty TYPE symsgty
        !iv_msgid TYPE symsgid
        !iv_msgno TYPE symsgno
        !iv_msgv1 TYPE any OPTIONAL
        !iv_msgv2 TYPE any OPTIONAL
        !iv_msgv3 TYPE any OPTIONAL
        !iv_msgv4 TYPE any OPTIONAL .

    TYPE-POOLS rsds .

ENDCLASS.                    "LCL_HTDB_CL_COMMAND DEFINITION

*----------------------------------------------------------------------*
*       CLASS lcl_HTDB_CL_COMMAND IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_htdb_cl_command IMPLEMENTATION.


  METHOD call_gen_form.
* calls the generated program to execute the command

    DATA: lx_root   TYPE REF TO cx_root,
          lv_locked TYPE flag.

* execute command
    TRY.
        PERFORM exec_command IN PROGRAM (iv_program)
          TABLES mt_vranges
          CHANGING lv_locked
                   ev_dbcnt.
      CATCH cx_root INTO lx_root.
*     Message: Internal error: generated program could not be called
        MESSAGE e003 RAISING error.
    ENDTRY.

    IF lv_locked = 'X'.
*   Message: Table could not be locked
      MESSAGE e146 RAISING table_locked.
    ENDIF.

  ENDMETHOD.                    "

  METHOD create_program.
* creates a repository program, which includes the command

    DATA: lv_program  TYPE programm,
          lv_msg      TYPE string,
          lv_line     TYPE n,
          lv_word     TYPE char50,
          lt_str      TYPE TABLE OF string,
          ls_trdir    TYPE trdir,

          lv_str1     TYPE string,
          lv_str2     TYPE string,
          lv_str3     TYPE string,
          lv_str4     TYPE string.


    IF iv_program IS INITIAL.
      RETURN.
    ELSE.
      lv_program = iv_program.
    ENDIF.

* syntax check
    SYNTAX-CHECK FOR it_srccode
      MESSAGE lv_msg
      LINE lv_line
      WORD lv_word
      PROGRAM 'ZENITH_GENERATED_SQ'.

    IF sy-subrc = 4.
      ev_line = lv_line.
      ev_msg  = lv_msg.

      IF mv_log_handle IS INITIAL.
        MESSAGE lv_msg TYPE 'I' DISPLAY LIKE 'E'.
        MESSAGE e019 RAISING syntax_error.
      ELSE.
*     split message to four parts (for four placeholders)
        CALL METHOD lcl_toolbox=>split_string
          EXPORTING
            iv_log_handle = mv_log_handle
            iv_string     = lv_msg
            iv_maxlen     = 50
          IMPORTING
            et_string_tab = lt_str.

        READ TABLE lt_str INTO lv_str1 INDEX 1.
        READ TABLE lt_str INTO lv_str2 INDEX 2.
        READ TABLE lt_str INTO lv_str3 INDEX 3.
        READ TABLE lt_str INTO lv_str4 INDEX 4.

        CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '085' iv_msgv1 = lv_str1
          iv_msgv2 = lv_str2 iv_msgv3 = lv_str3 iv_msgv4 = lv_str4 ).

        IF iv_force_insert_report EQ 'X'.
*       create program in repository
          TRANSLATE lv_program TO UPPER CASE.            "#EC TRANSLANG
          INSERT REPORT lv_program FROM it_srccode.
        ENDIF.

        RAISE syntax_error.
      ENDIF.

    ELSEIF sy-subrc = 8.
*   Message: Internal error during syntax check

      IF mv_log_handle IS INITIAL.
        MESSAGE e002 RAISING internal_error.
      ELSE.
        CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '002' ).
        RAISE internal_error.
      ENDIF.

    ENDIF.

* create program in repository
    TRANSLATE lv_program TO UPPER CASE.                  "#EC TRANSLANG

    lt_str[] = it_srccode[].

    CALL METHOD lcl_toolbox=>pretty_printer_string
      CHANGING
        ct_source = lt_str.

    ls_trdir-subc = '1'.
    ls_trdir-fixpt = 'X'.
    ls_trdir-uccheck = 'X'.

    INSERT REPORT lv_program FROM lt_str DIRECTORY ENTRY ls_trdir.

* mert a zsql futtataskor torli a nem lockoltakat!


    CALL FUNCTION 'ENQUEUE_ES_PROG'
     EXPORTING
       mode_trdir           = 'E'
       name                 = lv_program
*       X_NAME               = ' '
*       _SCOPE               = '2'
*       _WAIT                = ' '
*       _COLLECT             = ' '
     EXCEPTIONS
       foreign_lock         = 1
       system_failure       = 2
       OTHERS               = 3.

    IF sy-subrc <> 0.
      IF mv_log_handle IS INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ELSE.
        CALL METHOD add_message( iv_msgty = sy-msgty iv_msgid = sy-msgid iv_msgno = sy-msgno
          iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).
        RAISE internal_error.
      ENDIF.
    ENDIF.

  ENDMETHOD.                    "

  METHOD det_subquery.

    DATA: lv_str_lgth     TYPE i,
          lt_query_depth  LIKE mt_query_depth,
          ls_query_depth  LIKE LINE OF mt_query_depth,
          ls_depth_old    LIKE LINE OF mt_query_depth,
          ls_depth_new    LIKE LINE OF mt_query_depth,
          lv_act_depth    TYPE i,
          ls_aptph        LIKE LINE OF mt_aptph_pos,
          lv_shift        TYPE i,
          lv_position     TYPE i,
          lv_subq_end     TYPE i,
          lt_subq_end     TYPE STANDARD TABLE OF i,
          lv_depth_old    TYPE i,
          lv_depth_new    TYPE i.


    IF mv_command IS INITIAL.
      RETURN.
    ENDIF.

    lv_str_lgth  = STRLEN( mv_command ).
    lv_act_depth = 1.
    lv_subq_end  = lv_str_lgth.
    APPEND lv_subq_end TO lt_subq_end.

* init lt_query_depth
    ls_query_depth-position = 1.
    ls_query_depth-type     = 1.
    APPEND ls_query_depth TO lt_query_depth.
    ls_query_depth-position = lv_str_lgth.
    ls_query_depth-type     = -1.
    APPEND ls_query_depth TO lt_query_depth.

    DO.
      lv_shift = lv_position + 1.

      SEARCH mv_command
        FOR '. ( SELECT .'
        STARTING AT lv_shift.

      IF sy-subrc EQ 0.
        lv_position = sy-fdpos + lv_shift + 1.

        READ TABLE mt_aptph_pos INTO ls_aptph
          WITH KEY position = lv_position.

        IF ls_aptph-type = 'O'.  " it's not inside a text => found a new subquery
*       determine depth of the suqquery
          LOOP AT lt_subq_end INTO lv_subq_end.
            IF lv_position < lv_subq_end.
              lv_act_depth = lv_act_depth + 1.
              EXIT.
            ELSE.
              lv_act_depth = lv_act_depth - 1.
              DELETE lt_subq_end.
            ENDIF.
          ENDLOOP.

*       mark beginning of the subqery
          ls_query_depth-position = lv_position.
          ls_query_depth-type     = lv_act_depth.
          APPEND ls_query_depth TO lt_query_depth.

*       find end of the suqery
          READ TABLE mt_paranth INTO ls_aptph
            WITH KEY position = lv_position.

          IF sy-subrc = 0.
*         now ls_aptph-type is the depth of the (
*         find the closing paranthesis - the next with the same depth
            lv_shift = sy-tabix + 1.
            LOOP AT mt_paranth FROM lv_shift INTO ls_aptph
                 WHERE type = ls_aptph-type.
              lv_subq_end = ls_aptph-position.
              INSERT lv_subq_end INTO lt_subq_end INDEX 1.
              EXIT.
            ENDLOOP.
          ENDIF.

*       mark end of subqery -> use negative numbers!!
          ls_query_depth-position = lv_subq_end.
          ls_query_depth-type     = - lv_act_depth.
          APPEND ls_query_depth TO lt_query_depth.
        ENDIF.
      ELSE.
        EXIT.
      ENDIF.

    ENDDO.

    SORT lt_query_depth BY position.

* complete query_depth table
    READ TABLE lt_query_depth INTO ls_depth_old INDEX 1.
    lv_act_depth = 1.

    LOOP AT lt_query_depth INTO ls_query_depth.
*   determine depth
      lv_depth_old = ls_depth_old-type.
      lv_depth_new = ls_query_depth-type.
      IF ABS( lv_depth_old ) = ABS( lv_depth_new ).
        IF lv_depth_old < lv_depth_new.     " between two subquerys on the same level
          lv_act_depth = lv_depth_new - 1.
        ELSE.
          lv_act_depth = lv_depth_old.       " within one subquery
        ENDIF.
      ELSE.
        IF lv_depth_old < lv_depth_new.      " between subquery and new subquery, one level deeper
          lv_act_depth = lv_depth_old.
        ELSEIF lv_depth_old > lv_depth_new.  " between closed subquery and subquery one level higher
          lv_act_depth = - lv_depth_new.
        ENDIF.
      ENDIF.

*   complete missing positions
      lv_position = ls_depth_old-position + 1.
      WHILE ls_query_depth-position > lv_position.
        ls_depth_new-position = lv_position.
        ls_depth_new-type     = lv_act_depth.
        APPEND ls_depth_new TO mt_query_depth.

        lv_position = lv_position + 1.
      ENDWHILE.

      ls_query_depth-type = ABS( ls_query_depth-type ).
      APPEND ls_query_depth TO mt_query_depth.
      ls_depth_old = ls_query_depth.
    ENDLOOP.

  ENDMETHOD.                    "

  METHOD execute_int.
* execute command

    DATA: lt_srccode             TYPE lty_zhtdbt_string_tab,
          lv_line                TYPE string,
          lv_force_insert_report TYPE c,
          lv_program             TYPE programm.


* create source code of the program
    CALL METHOD generate_srccode
      IMPORTING
        et_srccode          = lt_srccode
      EXCEPTIONS
        no_auth_for_columns = 1
        error               = 2
        OTHERS              = 3.

    IF sy-subrc = 1.
      MESSAGE e148 RAISING no_auth_for_columns.
    ELSEIF ( sy-subrc = 2 ) OR ( sy-subrc = 3 ).
      IF mv_log_handle IS INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
                RAISING error.
      ELSE.
        CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno
          iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).
        RAISE error.
      ENDIF.
    ENDIF.

* program name
    lv_line = mv_prog_id.
    CONCATENATE mc_prog_prefix lv_line INTO lv_program.
    lv_program = lv_program(30).

    IF mv_log_handle IS INITIAL.
      CLEAR lv_force_insert_report.
    ELSE.
      lv_force_insert_report = 'X'.
    ENDIF.

* create program in the repository
    CALL METHOD create_program
      EXPORTING
        iv_program             = lv_program
        it_srccode             = lt_srccode
        iv_force_insert_report = lv_force_insert_report
      EXCEPTIONS
        syntax_error           = 1
        internal_error         = 2
        OTHERS                 = 3.

    IF sy-subrc <> 0.
      IF mv_log_handle IS INITIAL.
        IF sy-subrc <> 1.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
            RAISING error.
        ELSE.
*       the syntax check displayed the error already!
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
            RAISING syntax_error.
        ENDIF.
      ELSE.
        CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno
          iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).
        IF sy-subrc <> 1.
          RAISE error.
        ELSE.
          RAISE syntax_error.
        ENDIF.
      ENDIF.
    ENDIF.

    IF iv_simulation IS INITIAL.
*   call generated program
      CALL METHOD call_gen_form
        EXPORTING
          iv_program       = lv_program
          iv_bg_proc       = iv_bg_proc
          iv_bg_date       = iv_bg_date
          iv_bg_time       = iv_bg_time
        IMPORTING
          er_result        = er_result
          ev_dbcnt         = ev_dbcnt
          er_lock_argument = er_lock_argument
          er_exc           = er_exc
        EXCEPTIONS
          job_submit_error = 1
          table_locked     = 2
          OTHERS           = 3.

      IF sy-subrc = 1.
        IF mv_log_handle IS INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
                  RAISING job_submit_error.
        ELSE.
          CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno
            iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).
          RAISE job_submit_error.
        ENDIF.
      ENDIF.

      IF sy-subrc = 2.
        IF mv_log_handle IS INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
                  RAISING table_locked.
        ELSE.
          CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno
            iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).
          RAISE table_locked.
        ENDIF.
      ENDIF.

      IF sy-subrc = 3.
        IF mv_log_handle IS INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
                  RAISING error.
        ELSE.
          CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno
            iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).
          RAISE error.
        ENDIF.
      ENDIF.

    ENDIF.

    IF mv_log_handle IS NOT INITIAL.
*   if error occurred, keep the program
      IF ms_s_msg IS INITIAL.
*   delete program from the repository

        CALL FUNCTION 'RS_DELETE_PROGRAM'
          EXPORTING
            program            = lv_program
            suppress_checks    = 'X'
            suppress_popup     = 'X'
            with_includes      = ' '
            with_cua           = ' '
            with_documentation = ' '
            with_dynpro        = ' '
            with_textpool      = ' '
            skip_progress_ind  = 'X'
          EXCEPTIONS
            enqueue_lock       = 1
            object_not_found   = 2
            permission_failure = 3
            reject_deletion    = 4
            OTHERS             = 5.

        IF sy-subrc <> 0.
          IF mv_log_handle IS INITIAL.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
                    RAISING error.
          ELSE.
            CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno
              iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).
            RAISE error.
          ENDIF.
        ENDIF.
      ENDIF.
    ENDIF.

    et_srccode = lt_srccode.

  ENDMETHOD.                    "


  METHOD create_new.

    DATA: lv_returncode TYPE inri-returncode.


    CLEAR: mv_prog_id.

    mv_command_id = iv_command_id.

*** get program ID from number range
**    CALL FUNCTION 'NUMBER_GET_NEXT'
**      EXPORTING
**        nr_range_nr   = '01'
**        object        = 'ZHTDB_PROG'
**        ignore_buffer = 'X'
**      IMPORTING
**        number        = mv_prog_id
**        returncode    = lv_returncode
**      EXCEPTIONS
**        OTHERS        = 1.

    CALL FUNCTION 'GUID_CREATE'
      IMPORTING
        ev_guid_32 = mv_prog_id.

    IF sy-subrc <> 0.
      IF mv_log_handle IS INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
                RAISING no_id.
      ELSE.
        CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno
          iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).
        RAISE no_id.
      ENDIF.
    ELSE.
      IF lv_returncode IS NOT INITIAL.
        IF mv_log_handle IS INITIAL.
          MESSAGE ID sy-msgid TYPE 'S' NUMBER '116' DISPLAY LIKE 'E'
                  WITH lv_returncode sy-msgv2 sy-msgv3 sy-msgv4
                  RAISING no_id.
        ELSE.
          CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '116'
            iv_msgv1 = lv_returncode ).
          RAISE no_id.
        ENDIF.
      ELSE.
        COMMIT WORK.
      ENDIF.
    ENDIF.

* clear attributes
    CLEAR mv_command.
    CLEAR mt_aptph_pos.
    CLEAR mt_paranth.
    CLEAR mt_keywords.
    CLEAR mt_vranges.
    CLEAR mv_parsed.
    CLEAR ms_s_msg.

* take over data
    mv_command    = iv_command.    " Open SQL command
    SHIFT mv_command RIGHT DELETING TRAILING '. '.

    mt_vranges    = it_vranges.    " value ranges for the WHERE clause
    mv_log_handle = iv_log_handle. " Application Log handle. If supplied, no messages given.

* If select commands are loaded from file, some messages are suppressed in add_message
    mv_test_from_file = iv_test_from_file.
* if a message is suppressed, this indicator is set, so no messages are logged from outside (ZSQL)
    CLEAR mv_message_dropped.

  ENDMETHOD.                    "

  METHOD generate_srccode.
* generates a program source code, which includes the command

    DATA: ls_keyword   LIKE LINE OF mt_keywords,
          lv_tabname   TYPE tabname,
          lv_program   TYPE programm,
          lv_line      TYPE string,
          lv_tmp       TYPE string.


*****************************************************************************************
* create source code for the program

* build program name
    lv_tmp = mv_prog_id.
    CONCATENATE mc_prog_prefix lv_tmp INTO lv_program.

    lv_line = 'PROGRAM'.
    CONCATENATE lv_line lv_program '.' INTO lv_line
      SEPARATED BY space.
    APPEND lv_line TO et_srccode.
    APPEND INITIAL LINE TO et_srccode.

    APPEND '  TYPE-POOLS: rsds.' TO et_srccode.
    APPEND INITIAL LINE TO et_srccode.

* FORM
    APPEND 'FORM exec_command TABLES pt_vranges CHANGING p_locked p_dbcnt.' TO et_srccode.
    APPEND '  DATA: lv_lock_argument(150) TYPE c,'                          TO et_srccode.
    APPEND '        lv_table              TYPE tabname.'                    TO et_srccode.
    APPEND INITIAL LINE TO et_srccode.

* create value range tables
    IF mt_vranges IS NOT INITIAL.
      generate_vranges( IMPORTING et_srccode = et_srccode ).
    ENDIF.

* insert command
    APPEND mv_command TO et_srccode.
    APPEND '.'        TO et_srccode.

* save SY-DBCNT
    APPEND '  p_dbcnt = sy-dbcnt.' TO et_srccode.
    APPEND 'ENDFORM.'              TO et_srccode.

  ENDMETHOD.                    "

  METHOD generate_vranges.

    DATA: ls_vrange   LIKE LINE OF mt_vranges,
          ls_range    TYPE rsds_range,
          ls_frange   TYPE rsds_frange,
          lv_line     TYPE string,
          lv_index_vr TYPE sy-tabix,
          lv_index_fr TYPE sy-tabix.


    APPEND INITIAL LINE TO et_srccode.

* work area for value range entries
    APPEND '  TYPES: BEGIN OF lty_zhdb_vrange,'        TO et_srccode.
    APPEND '           alias      TYPE tabname,'       TO et_srccode.
    APPEND '           rsds_range TYPE rsds_range,'    TO et_srccode.
    APPEND '  END OF lty_zhdb_vrange.'                 TO et_srccode.
    APPEND INITIAL LINE TO et_srccode.
    APPEND '  TYPES: lty_zhdb_vrange_tab TYPE STANDARD TABLE OF lty_zhdb_vrange.'                 TO et_srccode.
    APPEND INITIAL LINE TO et_srccode.
    APPEND '  DATA: ls_vrange TYPE lty_zhdb_vrange,' TO et_srccode.
    APPEND '        ls_frange TYPE rsds_frange.' TO et_srccode.

    LOOP AT mt_vranges INTO ls_vrange.
      lv_index_vr = sy-tabix.

      LOOP AT ls_vrange-rsds_range-frange_t INTO ls_frange.
        lv_index_fr = sy-tabix.

*     define new value range table
        CONCATENATE '  DATA: r_' ls_vrange-alias '_' ls_frange-fieldname INTO lv_line.
        CONCATENATE lv_line 'TYPE RSDS_SELOPT_T.' INTO lv_line
          SEPARATED BY space.
        APPEND lv_line TO et_srccode.
        lv_line = lv_index_vr.

*     take over content
        CONCATENATE '  READ TABLE pt_vranges INDEX' lv_line 'INTO ls_vrange.' INTO lv_line
          SEPARATED BY space.
        APPEND lv_line TO et_srccode.
        lv_line = lv_index_fr.
        CONCATENATE '  READ TABLE ls_vrange-rsds_range-frange_t INDEX' lv_line 'INTO ls_frange.' INTO lv_line
          SEPARATED BY space.
        APPEND lv_line TO et_srccode.
        CONCATENATE '  r_' ls_vrange-alias '_' ls_frange-fieldname INTO lv_line.
        CONCATENATE lv_line '= ls_frange-selopt_t.' INTO lv_line
          SEPARATED BY space.
        APPEND lv_line TO et_srccode.
        APPEND INITIAL LINE TO et_srccode.

      ENDLOOP.

    ENDLOOP.

  ENDMETHOD.                    "


  METHOD parse_keywords.
* extracts keywords of the command and fills up the MT_KEYWORDS table

    DATA: lv_keyword      TYPE string,
          lv_search_str   TYPE string,
          ls_prev_keyword TYPE gty_keyword,
          ls_next_keyword TYPE gty_keyword,

          lv_length       TYPE i,
          lv_position     TYPE i,
          lv_ends_at      TYPE i,
          lv_lines        TYPE i,
          lv_index        TYPE i,
          lv_shift        TYPE i,
          lv_delta        TYPE i,
          ls_aptph        LIKE LINE OF mt_aptph_pos.

    FIELD-SYMBOLS: <ls_keyword> TYPE gty_keyword.


* determine subquerys
    det_subquery( ).

************************************************************************
* get keywords

    lv_length = STRLEN( mv_command ).

* search for keywords
    LOOP AT mt_keywords ASSIGNING <ls_keyword>.
      lv_keyword = <ls_keyword>-keyword.
      CONCATENATE '.' lv_keyword '.' INTO lv_search_str
        SEPARATED BY space.

      CLEAR lv_position.

      DO.
        lv_shift = lv_position + 1.

        SEARCH mv_command
          FOR lv_search_str
          STARTING AT lv_shift.

        IF sy-subrc EQ 0.
          lv_position = sy-fdpos + lv_shift + 1.
          lv_ends_at  = lv_position + STRLEN( lv_keyword ) - 1.

          READ TABLE mt_aptph_pos INTO ls_aptph
            WITH KEY position = lv_position.

          IF ls_aptph-type = 'O'.  " it's not inside a text

            READ TABLE mt_query_depth INTO ls_aptph
              WITH KEY position = lv_position.

            IF ls_aptph-type = 1.  " top level, not a subquery
*           keyword found
              <ls_keyword>-begins_at = lv_position.
              <ls_keyword>-ends_at   = lv_ends_at.

              IF <ls_keyword>-order_pos = 1 AND
              <ls_keyword>-begins_at <> 2.
                IF mv_log_handle IS INITIAL.
*               Message: Command does not begin with the keyword '&1'
                  MESSAGE e088 WITH lv_keyword
                  RAISING missing_keyword.
                ELSE.
                  CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '088' iv_msgv1 = lv_keyword ).

                  RAISE missing_keyword.
                ENDIF.
              ENDIF.

              EXIT.
            ENDIF.
          ENDIF.
        ELSE.
*       keyword not found at all
          CLEAR lv_position.
          EXIT.
        ENDIF.
      ENDDO.

      IF lv_position IS INITIAL AND
         <ls_keyword>-required = 'X'.    " required keyword

        IF mv_log_handle IS INITIAL.
*       Message: Keyword '&1' is missing
          MESSAGE e006 WITH lv_keyword
            RAISING missing_keyword.
        ELSE.
          CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '006' iv_msgv1 = lv_keyword ).

          RAISE missing_keyword.
        ENDIF.

      ENDIF.
    ENDLOOP.


************************************************************************
* check positions

* delete keywords, which are not defined in the current command
    DELETE mt_keywords WHERE begins_at IS INITIAL.

    SORT mt_keywords BY begins_at.

    LOOP AT mt_keywords ASSIGNING <ls_keyword>.
      IF ls_prev_keyword-order_pos > <ls_keyword>-order_pos.
        IF mv_log_handle IS INITIAL.
*       Message: Wrong order of keywords: &1 on wrong position
          MESSAGE e018 WITH <ls_keyword>-keyword
            RAISING wrong_position.
        ELSE.
          CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '006' iv_msgv1 = ls_prev_keyword-keyword ).

          RAISE wrong_position.
        ENDIF.

      ENDIF.

      ls_prev_keyword = <ls_keyword>.
    ENDLOOP.

************************************************************************
* get texts

* MOVED before loop above: why loop through obsolete records?
** delete keywords, which are not defined in the current command
*  LOOP AT mt_keywords ASSIGNING <ls_keyword>
*       WHERE begins_at IS INITIAL.
*    DELETE mt_keywords.
*  ENDLOOP.

    DESCRIBE TABLE mt_keywords LINES lv_lines.

* get texts
    LOOP AT mt_keywords ASSIGNING <ls_keyword>.
      lv_index = sy-tabix + 1.

      IF lv_index <= lv_lines.  " til the position of the next keyword
        READ TABLE mt_keywords INTO ls_next_keyword
          INDEX lv_index.

        lv_shift = <ls_keyword>-ends_at + 1.
        lv_delta = ls_next_keyword-begins_at - lv_shift - 1.
      ELSE.                    " til the end of the command
        lv_shift = <ls_keyword>-ends_at + 1.
        lv_delta = lv_length - lv_shift.
      ENDIF.

      MOVE mv_command+lv_shift(lv_delta) TO <ls_keyword>-text.  " trim text

      lv_index = lv_index - 1.
      MODIFY mt_keywords INDEX lv_index FROM <ls_keyword>.
    ENDLOOP.

  ENDMETHOD. "

  METHOD parse_check_dot.
* check that there is no new command after a closing dot

    DATA: lv_strg_lgth  TYPE i,
          lv_char       TYPE c,
          lv_shift      TYPE i,
          lv_end        TYPE c,
          ls_aptph      LIKE LINE OF mt_aptph_pos.


    IF mv_command IS INITIAL.
      RETURN.
    ENDIF.

    lv_strg_lgth = STRLEN( mv_command ).

* check dots
    DO.
      lv_char = mv_command+lv_shift(1).

      IF lv_end  = 'X' AND
         lv_char IS NOT INITIAL.
        IF mv_log_handle IS INITIAL.
*       Message: 'Don''t write any commands after the closing dot'
          MESSAGE e001 RAISING parse_error.
        ELSE.
          CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '001' ).

          RAISE parse_error.
        ENDIF.
      ENDIF.

      IF lv_char = '.'.
*     check that the dot is not inside a text
        READ TABLE mt_aptph_pos INTO ls_aptph
          WITH KEY position = lv_shift.

        IF ls_aptph-type = 'O'.  " outside a text
          lv_end = 'X'.          " the dot closes the command
        ENDIF.
      ENDIF.

      lv_shift = lv_shift + 1.
      IF lv_shift >= lv_strg_lgth.
        EXIT.
      ENDIF.
    ENDDO.

  ENDMETHOD.                    "


  METHOD is_client_spec.

    DATA: ls_keyword LIKE LINE OF mt_keywords.


    READ TABLE mt_keywords INTO ls_keyword
      WITH KEY keyword = 'CLIENT SPECIFIED'.

    IF ls_keyword-begins_at IS NOT INITIAL.
      ev_cspec = 'X'.
    ENDIF.

  ENDMETHOD.                    "

  METHOD split_string.
* splits a string at SPACE, but outside apostrophes only

    DATA: lv_string       TYPE string,
          lt_aptph_pos    LIKE mt_aptph_pos,
          lv_length       TYPE i,
          lv_shift        TYPE i,
          lv_pos          TYPE i,
          lv_char         TYPE c,
          lv_word         TYPE string,
          ls_aptph        LIKE LINE OF mt_aptph_pos.


    lv_string = iv_string.

    lcl_toolbox=>parse_aptph(
                        EXPORTING
                          iv_condense   = space
                        IMPORTING
                          et_aptph_pos = lt_aptph_pos
                        CHANGING
                          cv_string    = lv_string ).
* get words
    lv_shift = -1.
    lv_length = STRLEN( iv_string ).

    DO.
      lv_shift = lv_shift + 1.

      IF lv_shift >= lv_length.
        EXIT.
      ENDIF.

      lv_char = iv_string+lv_shift(1).

      IF lv_char = space.
        lv_pos = lv_shift + 1.

        READ TABLE lt_aptph_pos INTO ls_aptph
          WITH KEY position = lv_pos.

        IF ls_aptph-type = 'O'.

          IF lv_word IS NOT INITIAL.

            APPEND lv_word TO et_words.
            CLEAR lv_word.
          ENDIF.
          CONTINUE.
        ENDIF.
      ENDIF.

      CONCATENATE lv_word lv_char INTO lv_word.
    ENDDO.

* the last word
    IF lv_word IS NOT INITIAL.
      APPEND lv_word TO et_words.
    ENDIF.

  ENDMETHOD.                    "

  METHOD add_message.

    IF     iv_msgid = 'SD'    AND iv_msgno = 94.
      RETURN.
    ELSEIF iv_msgid = 'FL'    AND iv_msgno = 714.
      RETURN.
    ELSEIF iv_msgid = 'VSCAN' AND iv_msgno = 33.
      RETURN.
    ELSEIF iv_msgid = 'E4'    AND iv_msgno = '035'.
      RETURN.
    ENDIF.

    IF mv_test_from_file EQ 'X'.
      IF iv_msgid = 'ZSQL_FREE'.
        IF iv_msgno = 14 OR iv_msgno = 68 OR iv_msgno = 16 OR iv_msgno = 36 OR iv_msgno = 8.
          mv_message_dropped = 'X'.
          RETURN.
        ENDIF.
      ENDIF.
    ENDIF.

    CLEAR ms_s_msg.

    ms_s_msg-msgid = iv_msgid.
    ms_s_msg-msgno = iv_msgno.

    ms_s_msg-msgv1 = iv_msgv1.
    ms_s_msg-msgv2 = iv_msgv2.
    ms_s_msg-msgv3 = iv_msgv3.
    ms_s_msg-msgv4 = iv_msgv4.

    IF ms_s_msg IS INITIAL.
      RETURN.
    ENDIF.

    CONDENSE: ms_s_msg-msgv1, ms_s_msg-msgv2, ms_s_msg-msgv3, ms_s_msg-msgv4.

    ms_s_msg-msgty = iv_msgty.

    CALL FUNCTION 'BAL_LOG_MSG_ADD'
      EXPORTING
        i_log_handle = mv_log_handle
        i_s_msg      = ms_s_msg
      EXCEPTIONS
        OTHERS       = 1.

    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.

  ENDMETHOD.                    "add_message


  METHOD constructor.


  ENDMETHOD.                    "

  METHOD get_id.

    ev_id = mv_prog_id.

  ENDMETHOD.                    "

  METHOD execute.
* execute command

    IF mv_command IS INITIAL.
      RETURN.
    ENDIF.

* parse command if needed
    IF mv_parsed IS INITIAL.
      CALL METHOD parse
        EXCEPTIONS
          OTHERS = 1.

      IF sy-subrc <> 0.
        IF mv_log_handle IS INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
                  RAISING parse_error.
        ELSE.
          CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno
            iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).
          RAISE parse_error.
        ENDIF.

      ENDIF.
    ENDIF.

* execute command
    CALL METHOD execute_int
      EXPORTING
        iv_simulation       = iv_simulation
        iv_bg_proc          = iv_bg_proc
        iv_bg_date          = iv_bg_date
        iv_bg_time          = iv_bg_time
*        it_selscr_fields    = it_selscr_fields
      IMPORTING
        er_result           = er_result
        ev_dbcnt            = ev_dbcnt
        er_lock_argument    = er_lock_argument
        er_exc              = er_exc
        et_srccode          = et_srccode
      EXCEPTIONS
        error               = 1
        syntax_error        = 2
        job_submit_error    = 3
        table_locked        = 4
        no_auth_for_columns = 5
        OTHERS              = 6.

    CASE sy-subrc.
      WHEN 1.
        IF mv_log_handle IS INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
                  RAISING exec_error.
        ELSE.
          CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno
            iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).
          RAISE exec_error.
        ENDIF.

      WHEN 2.
        IF mv_log_handle IS INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
                  RAISING parse_error.
        ELSE.
          CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno
            iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).
          RAISE parse_error.
        ENDIF.

      WHEN 3.
        IF mv_log_handle IS INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
                  RAISING job_submit_error.
        ELSE.
          CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno
            iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).
          RAISE job_submit_error.
        ENDIF.

      WHEN 4.
        IF mv_log_handle IS INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
                  RAISING table_locked.
        ELSE.
          CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno
            iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).
          RAISE table_locked.
        ENDIF.
      WHEN 5.
        IF mv_log_handle IS INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
                  RAISING no_auth_for_columns.
        ELSE.
          CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno
            iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).
          RAISE no_auth_for_columns.
        ENDIF.
    ENDCASE.

    ev_job_name  = mv_jobname.
    ev_job_count = mv_jobcount.

  ENDMETHOD.                    "

  METHOD parse.
* parse command and execute checks

    IF mv_parsed = 'X'.
      RETURN.
    ELSE.
      mv_parsed = 'X'.
    ENDIF.

* check apostrophes
    CLEAR mt_aptph_pos.
    CALL METHOD lcl_toolbox=>parse_aptph
      EXPORTING
        iv_log_handle  = mv_log_handle
      IMPORTING
        et_aptph_pos   = mt_aptph_pos
        et_paranth     = mt_paranth
      CHANGING
        cv_string      = mv_command
      EXCEPTIONS
        missing_aptph  = 1
        missing_parnth = 2
        OTHERS         = 3.

    CASE sy-subrc.
      WHEN 1.
        IF mv_log_handle IS INITIAL.
*       Message: An ending apostrophe is missing
          MESSAGE e005 RAISING parse_error.
        ELSE.
          CALL METHOD add_message( iv_msgty = 'E'
            iv_msgid = 'ZSQL_FREE'
            iv_msgno = '005' ).
          RAISE parse_error.
        ENDIF.

      WHEN 2.
        IF mv_log_handle IS INITIAL.
*       Message: An closing paranthesis is missing
          MESSAGE e059 RAISING parse_error.
        ELSE.
          CALL METHOD add_message( iv_msgty = 'E'
            iv_msgid = 'ZSQL_FREE'
            iv_msgno = '059' ).
          RAISE parse_error.
        ENDIF.

      WHEN 3.
        IF mv_log_handle IS INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
                  RAISING parse_error.
        ELSE.
          CALL METHOD add_message( iv_msgty = 'E'
            iv_msgid = sy-msgid
            iv_msgno = sy-msgno
            iv_msgv1 = sy-msgv1
            iv_msgv2 = sy-msgv2
            iv_msgv3 = sy-msgv3
            iv_msgv4 = sy-msgv4 ).
          RAISE parse_error.
        ENDIF.
    ENDCASE.

* if there is a closing dot, check that there is no new command after it
    parse_check_dot( EXCEPTIONS OTHERS = 1 ).

    IF sy-subrc <> 0.
      IF mv_log_handle IS INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
                RAISING parse_error.
      ELSE.
        CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno
          iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).
        RAISE parse_error.
      ENDIF.
    ENDIF.

** determine subquerys
*  det_subquery( ).

* extract keywords
    parse_keywords( EXCEPTIONS OTHERS = 1 ).

    IF sy-subrc <> 0.
      IF mv_log_handle IS INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
                RAISING parse_error.
      ELSE.
        CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno
          iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).
        RAISE parse_error.
      ENDIF.
    ENDIF.

  ENDMETHOD.                    "

  METHOD get_message_dropped.

    ev_message_dropped = mv_message_dropped.

  ENDMETHOD.                    "get_message_dropped

  METHOD get_where.

    CLEAR es_where.

    READ TABLE mt_keywords WITH KEY keyword = 'WHERE'
      INTO es_where.

  ENDMETHOD.                    "get_where

  METHOD get_command.

    ev_command = mv_command.

  ENDMETHOD.                    "get_command

ENDCLASS.                    "lcl_HTDB_CL_COMMAND IMPLEMENTATION



*----------------------------------------------------------------------*
*       CLASS LCL_HTDB_CL_COMMAND_SELECT  DEFINITIO
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_htdb_cl_command_select DEFINITION
  INHERITING FROM lcl_htdb_cl_command.

*"* public components of class lcl_htdb_cl_command_select
*"* do not include other source files here!!!
  PUBLIC SECTION.

    DATA mt_adt_tables TYPE lty_zhtdb_table_aliases_tt .

    METHODS can_edit
      RETURNING
        value(ev_can_edit) TYPE char1 .
    METHODS get_fieldinfo
      EXPORTING
        !et_fieldinfo TYPE lty_zhtdb_fieldinfo_tt
        !ev_can_edit TYPE flag
        !ev_can_insert TYPE flag .
    METHODS get_program_name
      RETURNING
        value(ev_program_name) TYPE programm .
    METHODS get_table_alias
      EXPORTING
        !et_table_alias TYPE lty_zhtdb_table_aliases_tt .
    METHODS get_texts
      EXPORTING
        !ev_select_text TYPE string
        !ev_from_text TYPE string
        !ev_where_text TYPE string
        !ev_group_by_text TYPE string
        !ev_having_text TYPE string
        !ev_order_by_text TYPE string .

    METHODS create_new
      REDEFINITION .
    METHODS parse
      REDEFINITION .


*"* protected components of class lcl_htdb_cl_command_select
*"* do not include other source files here!!!
  PROTECTED SECTION.

    TYPES:
      BEGIN OF gty_table_field,
             table    TYPE tabname,
             field    TYPE fieldname,
             keyflag  TYPE flag,
             position TYPE tabfdpos,
           END OF gty_table_field .

    DATA mt_fieldinfo TYPE lty_zhtdb_fieldinfo_tt .
    DATA mt_table_alias TYPE lty_zhtdb_table_aliases_tt .
    DATA:
      mt_table_fields TYPE STANDARD TABLE OF gty_table_field .
    DATA mv_sel_single TYPE flag .
    DATA mv_can_edit TYPE flag .
    DATA mv_can_insert TYPE flag .
    DATA mv_has_dupl_fields TYPE flag .
    CONSTANTS mc_type_name_res TYPE string VALUE 'GTY_RES'. "#EC NOTEXT
    CONSTANTS mc_type_name_tech_res TYPE string VALUE 'GTY_RES_TECH'. "#EC NOTEXT
    DATA mv_type_name_tech_res TYPE string .
    DATA mv_prog_id_str TYPE string .
    DATA mv_type_name_res TYPE string .
    DATA mv_program TYPE programm .
    CONSTANTS mc_result_prefix TYPE string VALUE 'GT_RES'.  "#EC NOTEXT
    DATA mv_result_name TYPE string .
    DATA mv_program_upd TYPE programm .
    DATA mt_authorizations TYPE rsec_t_usvalues .
    DATA mv_where_addition TYPE string .
    DATA:
      mt_subqu_where TYPE STANDARD TABLE OF lty_zhtdb_keyword .

    METHODS extend_where_clause
      IMPORTING
        !iv_where_addition TYPE string .
    METHODS add_where_excl_all
      IMPORTING
        !iv_table TYPE tabname
      CHANGING
        !cv_where_addition TYPE string .
    METHODS create_type
      IMPORTING
        !iv_type_name TYPE string
        !it_fieldinfo TYPE lty_zhtdb_fieldinfo_tt
        !iv_with_tech_fields TYPE c
      CHANGING
        !ct_srccode TYPE lty_zhtdbt_string_tab .
    METHODS expand_asterisk
      EXCEPTIONS
        table_not_found .
    METHODS parse_adt_tables
      EXPORTING
        !et_table_alias TYPE lty_zhtdb_table_aliases_tt
      EXCEPTIONS
        parse_error .
    METHODS parse_check_fieldname
      IMPORTING
        !iv_word TYPE string
        !it_keywords TYPE lty_zhtdbt_string_tab OPTIONAL
      RETURNING
        value(rv_valid) TYPE xfeld .
    METHODS parse_check_name
      IMPORTING
        !iv_word TYPE string
        !it_keywords TYPE lty_zhtdbt_string_tab OPTIONAL
      RETURNING
        value(rv_valid) TYPE xfeld .
    METHODS parse_check_value
      IMPORTING
        !iv_word TYPE string
      RETURNING
        value(rv_valid) TYPE xfeld .
    METHODS parse_fields
      EXCEPTIONS
        parse_error
        no_fields_found
        table_not_found
        field_not_found .
    METHODS parse_tables
      EXCEPTIONS
        parse_error
        no_tables_found
        table_not_exist .
    METHODS prepare_from_text
      CHANGING
        !cv_string TYPE string .
    METHODS prepare_sel_text
      CHANGING
        !cv_string TYPE string .
    METHODS rebuild_field_list
      CHANGING
        value(ct_srccode) TYPE lty_zhtdbt_string_tab
      EXCEPTIONS
        error
        no_auth_for_columns .
    METHODS remove_duplicates .
    METHODS check_inserted_orgcritdep
      IMPORTING
        !it_inserted TYPE REF TO data
      EXCEPTIONS
        no_auth_for_inserted_records
        assign_error .

    METHODS call_gen_form
      REDEFINITION .
    METHODS generate_srccode
      REDEFINITION .
    METHODS parse_keywords
      REDEFINITION .
ENDCLASS.                    "LCL_HTDB_CL_COMMAND_SELECT  DEFINITIO

*----------------------------------------------------------------------*
*       CLASS lcl_HTDB_CL_COMMAND_SELECT IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_htdb_cl_command_select IMPLEMENTATION.

  METHOD call_gen_form.

    DATA: lv_timestamp  TYPE timestamp,
          lv_tmp(15)    TYPE c,
          lv_released   TYPE c,
          lv_start_imd  TYPE flag,

          ls_param      TYPE rsparams,
          lt_paramtab   TYPE STANDARD TABLE OF rsparams.


    IF iv_bg_proc = space.   " execute command instantly
      TRY.
          PERFORM exec_command IN PROGRAM (iv_program)
            TABLES mt_vranges          " value ranges
            CHANGING er_result         " result set
                     ev_dbcnt          " sy-dbcnt
                     er_lock_argument  " lock argument
                     er_exc.           " exception object

          IF er_exc IS NOT INITIAL.
            RAISE error.
          ENDIF.

        CATCH cx_root.
          IF mv_log_handle IS INITIAL.
*         Message: Internal error: generated program could not be called
            MESSAGE e003 RAISING error.
          ELSE.
            CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = 003 ).
          ENDIF.
      ENDTRY.
    ENDIF.

  ENDMETHOD.                    "

  METHOD create_new.

    DATA: ls_keyword LIKE LINE OF mt_keywords.


    super->create_new(
      EXPORTING
        iv_command_id     = iv_command_id
        iv_command        = iv_command
        it_vranges        = it_vranges
        iv_log_handle     = iv_log_handle
        iv_test_from_file = iv_test_from_file
      EXCEPTIONS
        no_id             = 1
        OTHERS            = 2 ).

    IF sy-subrc = 1.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
              RAISING no_id.
    ENDIF.

* clear attributes
    CLEAR mt_fieldinfo.
    CLEAR mt_table_alias.
    CLEAR mt_adt_tables.
    CLEAR mt_table_fields.
    CLEAR mv_has_dupl_fields.
    CLEAR mv_sel_single.
    CLEAR mv_prog_id_str.
    CLEAR mt_query_depth.
    CLEAR mt_subqu_where.

    CLEAR mt_authorizations.

    mv_prog_id_str = mv_prog_id.

    CONCATENATE mc_type_name_tech_res mv_prog_id_str INTO mv_type_name_tech_res.
    mv_type_name_tech_res = mv_type_name_tech_res(30).
    CONCATENATE mc_type_name_res      mv_prog_id_str INTO mv_type_name_res.
    mv_type_name_res = mv_type_name_res(30).
    CONCATENATE mc_result_prefix      mv_prog_id_str INTO mv_result_name.
    mv_result_name = mv_result_name(30).

    CONCATENATE mc_prog_prefix        mv_prog_id_str INTO mv_program.
    mv_program = mv_program(30).

* set to editable as default
    mv_can_edit = 'X'.

* fill up keywords table
    ls_keyword-keyword   = 'SELECT'.
    ls_keyword-required  = 'X'.
    ls_keyword-order_pos = 1.
    APPEND ls_keyword TO mt_keywords.

    ls_keyword-keyword   = 'FROM'.
    ls_keyword-required  = 'X'.
    ls_keyword-order_pos = 2.
    APPEND ls_keyword TO mt_keywords.

    ls_keyword-keyword   = 'CLIENT SPECIFIED'.
    ls_keyword-required  = ' '.
    ls_keyword-order_pos = 2.
    APPEND ls_keyword TO mt_keywords.

    ls_keyword-keyword   = 'BYPASSING BUFFER'.
    ls_keyword-required  = ' '.
    ls_keyword-order_pos = 2.
    APPEND ls_keyword TO mt_keywords.

    ls_keyword-keyword   = 'UP TO'.
    ls_keyword-required  = ' '.
    ls_keyword-order_pos = 2.
    APPEND ls_keyword TO mt_keywords.

    ls_keyword-keyword   = 'WHERE'.
    ls_keyword-required  = ' '.
    ls_keyword-order_pos = 5.
    APPEND ls_keyword TO mt_keywords.

    ls_keyword-keyword   = 'GROUP BY'.
    ls_keyword-required  = ' '.
    ls_keyword-order_pos = 6.
    APPEND ls_keyword TO mt_keywords.

    ls_keyword-keyword   = 'HAVING'.
    ls_keyword-required  = ' '.
    ls_keyword-order_pos = 7.
    APPEND ls_keyword TO mt_keywords.

    ls_keyword-keyword   = 'ORDER BY'.
    ls_keyword-required  = ' '.
    ls_keyword-order_pos = 8.
    APPEND ls_keyword TO mt_keywords.

  ENDMETHOD.                    "

  METHOD generate_srccode.

    DATA: lv_program     TYPE programm,
          lv_line        TYPE string,
          ls_keyword     LIKE LINE OF mt_keywords,
          lv_shift       TYPE i.


    CONCATENATE 'PROGRAM' mv_program '.' INTO lv_line
      SEPARATED BY space.
    APPEND lv_line TO et_srccode.
    APPEND INITIAL LINE TO et_srccode.

* Type Pools
    APPEND '  TYPE-POOLS: rsds.' TO et_srccode.
    APPEND INITIAL LINE TO et_srccode.

* create local type for the result set
    create_type(
      EXPORTING
        iv_type_name        = mv_type_name_res
        it_fieldinfo        = mt_fieldinfo
        iv_with_tech_fields = ' '
      CHANGING
        ct_srccode   = et_srccode ).
    APPEND INITIAL LINE TO et_srccode.

* create local type for the result set with technical fields
    create_type(
      EXPORTING
        iv_type_name        = mv_type_name_tech_res
        it_fieldinfo        = mt_fieldinfo
        iv_with_tech_fields = 'X'
      CHANGING
        ct_srccode   = et_srccode ).
    APPEND INITIAL LINE TO et_srccode.

* create result set table
    CONCATENATE 'DATA' mv_result_name 'TYPE STANDARD TABLE OF' mv_type_name_tech_res '.'
      INTO lv_line SEPARATED BY space.
    APPEND lv_line TO et_srccode.
    APPEND INITIAL LINE TO et_srccode.


* create FORM routine
    APPEND 'FORM exec_command TABLES   pt_vranges'                  TO et_srccode.
    APPEND '                  CHANGING p_result'                    TO et_srccode.
    APPEND '                           p_dbcnt'                     TO et_srccode.
    APPEND '                           p_lock_argument'             TO et_srccode.
    APPEND '                           po_exc TYPE REF TO cx_root.' TO et_srccode.
    APPEND INITIAL LINE TO et_srccode.

* create value range tables
    IF mt_vranges IS NOT INITIAL.
      generate_vranges( IMPORTING et_srccode = et_srccode ).
    ENDIF.

    IF mv_sel_single = 'X'.
*   create result structure
      CONCATENATE '  DATA: ls_result LIKE LINE OF ' mv_result_name '.'
        INTO lv_line SEPARATED BY space.
      APPEND lv_line TO et_srccode.
      APPEND INITIAL LINE TO et_srccode.
    ENDIF.

    APPEND 'TRY.' TO et_srccode.

* create SELECT command
    READ TABLE mt_keywords INTO ls_keyword
      WITH KEY keyword = 'SELECT'.

    lv_line = 'SELECT'.
    IF ls_keyword-additions IS NOT INITIAL.
      CONCATENATE lv_line ls_keyword-additions INTO lv_line
        SEPARATED BY space.
    ENDIF.
    APPEND lv_line TO et_srccode.

* build field list (SELECT clause)
    rebuild_field_list(
      CHANGING
        ct_srccode = et_srccode
      EXCEPTIONS
        no_auth_for_columns = 1
        OTHERS              = 2 ).

    IF sy-subrc = 1.
      MESSAGE e148 RAISING no_auth_for_columns.
    ELSEIF sy-subrc = 2.
      IF mv_log_handle IS INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
                RAISING error.
      ELSE.
        CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno
          iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).
        RAISE error.
      ENDIF.
    ENDIF.

* insert addition INTO ...
    IF mv_sel_single = 'X'.
      APPEND '  INTO CORRESPONDING FIELDS OF ls_result' TO et_srccode.
    ELSE.
      CONCATENATE '  INTO CORRESPONDING FIELDS OF TABLE ' mv_result_name INTO lv_line
        SEPARATED BY space.
      APPEND lv_line TO et_srccode.
    ENDIF.

* append the rest: 'FROM ...'
    READ TABLE mt_keywords INTO ls_keyword
      WITH KEY keyword = 'FROM'.
    lv_shift = ls_keyword-begins_at - 1.
    CONCATENATE mv_command+lv_shift '.' INTO lv_line.

* split line by 100
    CALL METHOD lcl_toolbox=>split_string
      EXPORTING
        iv_string     = lv_line
        iv_maxlen     = 100
      IMPORTING
        et_string_tab = et_srccode.

* save SY-DBCNT
    lv_line = 'p_dbcnt = sy-dbcnt.'.
    APPEND lv_line TO et_srccode.

    IF mv_sel_single = 'X'.
*   append result structure to result tab
      APPEND ' IF sy-subrc EQ 0.' TO et_srccode.
      CONCATENATE '   APPEND ls_result TO ' mv_result_name '.' INTO lv_line
        SEPARATED BY space.
      APPEND lv_line TO et_srccode.
      APPEND ' ENDIF.' TO et_srccode.
    ENDIF.

* return reference on result set
    CONCATENATE ' GET REFERENCE OF ' mv_result_name 'INTO p_result.' INTO lv_line
      SEPARATED BY space.
    APPEND lv_line TO et_srccode.


    APPEND 'CATCH cx_root INTO po_exc.' TO et_srccode.
    APPEND 'ENDTRY.'                    TO et_srccode.

    lv_line = 'ENDFORM.'.
    APPEND lv_line TO et_srccode.

  ENDMETHOD.                    "

  METHOD parse_keywords.
* extracts keywords of the command and fills up the MT_KEYWORDS table

    FIELD-SYMBOLS: <ls_keyword> LIKE LINE OF mt_keywords.


* extract keywords
    super->parse_keywords(
      EXCEPTIONS
        missing_keyword = 1
        wrong_position  = 2 ).

    IF sy-subrc = 1.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
              RAISING missing_keyword.
    ELSEIF sy-subrc = 2.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
              RAISING wrong_position.
    ENDIF.

* check the SELECT keyword
    READ TABLE mt_keywords ASSIGNING <ls_keyword>
      WITH KEY keyword = 'SELECT'.

    IF STRLEN( <ls_keyword>-text ) >= 8.
      IF <ls_keyword>-text(8) = 'DISTINCT'.
        SHIFT <ls_keyword>-text LEFT BY 8 PLACES.
        <ls_keyword>-additions = 'DISTINCT'.
*     <ls_keyword>-ends_at   =  <ls_keyword>-ends_at + 8.
      ENDIF.
    ENDIF.

    IF STRLEN( <ls_keyword>-text ) >= 6.
      IF <ls_keyword>-text(6) = 'SINGLE'.
        SHIFT <ls_keyword>-text LEFT BY 6 PLACES.
        <ls_keyword>-additions = 'SINGLE'.
*     <ls_keyword>-ends_at   = <ls_keyword>-ends_at + 6.
        mv_sel_single = 'X'.
      ENDIF.
    ENDIF.

    SEARCH <ls_keyword>-text FOR '. FOR UPDATE .'.
    IF sy-subrc = 0.
      IF mv_log_handle IS INITIAL.
        MESSAGE e068 RAISING wrong_keyword.
      ELSE.
        CALL METHOD add_message( iv_msgty = 'W' iv_msgid = 'ZSQL_FREE' iv_msgno = '068' ).
        RAISE wrong_keyword.
      ENDIF.
    ENDIF.

  ENDMETHOD.                    "

  METHOD parse.

    IF mv_parsed = 'X'.
      RETURN.
    ENDIF.

* make search for keywords easier - start and end with SPACE
    SHIFT mv_command RIGHT BY 1 PLACES.
    CONCATENATE mv_command space INTO mv_command
      SEPARATED BY space.

* elemtary check of command (apostrophes, dots, keywords)
    super->parse( EXCEPTIONS OTHERS = 1 ).

    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
              RAISING parse_error.
    ENDIF.

* clear attributes
    CLEAR mt_fieldinfo.
    CLEAR mt_table_alias.
    CLEAR mv_has_dupl_fields.

* set to editable as default
    mv_can_edit = 'X'.

* get tables involved
    CALL METHOD parse_tables
      EXCEPTIONS
        OTHERS = 1.

    IF sy-subrc <> 0.
      IF mv_log_handle IS INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
                RAISING parse_error.
      ELSE.
        CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno
          iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).
        RAISE parse_error.
      ENDIF.
    ENDIF.

* get field list
    CALL METHOD parse_fields
      EXCEPTIONS
        OTHERS = 1.

    IF sy-subrc <> 0.
      IF mv_log_handle IS INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
                RAISING parse_error.
      ELSE.
        CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno
          iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).
        RAISE parse_error.
      ENDIF.
    ENDIF.

  ENDMETHOD.                    "parse

  METHOD extend_where_clause.

    DATA: lv_where_cauth   TYPE string,
          lv_where_orgcrit TYPE string,

          ls_keywords      LIKE LINE OF mt_keywords,
          lv_tabix         TYPE i,
          lv_len           TYPE i,
          lv_shift         TYPE i,
          lv_tmp           TYPE i.


    IF iv_where_addition IS NOT INITIAL.

      READ TABLE mt_keywords INTO ls_keywords WITH KEY keyword = 'WHERE'.

      IF sy-subrc EQ 0.   " extend WHERE clause

        lv_tabix = sy-tabix.

*     add pre stuff to mv_command
        lv_shift = ls_keywords-begins_at + 4.
        lv_tmp   = lv_shift + 1.
        CONCATENATE mv_command(lv_shift) '(' iv_where_addition ') AND (' mv_command+lv_tmp
          INTO mv_command SEPARATED BY space.

*     add pre stuff to ls_keywords-text
        CONCATENATE '(' iv_where_addition ') AND (' ls_keywords-text
          INTO ls_keywords-text SEPARATED BY space.

        lv_len = STRLEN( ls_keywords-text ) - 1.

        IF ls_keywords-text+lv_len(1) = '.'.
*       add post stuff to mv_command
          lv_shift = ls_keywords-ends_at + STRLEN( ls_keywords-text ) - 1.
          CONCATENATE mv_command(lv_shift) ').' INTO mv_command SEPARATED BY space.
*       add post stuff to ls_keywords-text
          CONCATENATE ls_keywords-text(lv_len) ').' INTO ls_keywords-text SEPARATED BY space.
        ELSE.
*       add post stuff to ls_keywords-text
          CONCATENATE ls_keywords-text ')' INTO ls_keywords-text SEPARATED BY space.

          LOOP AT mt_keywords TRANSPORTING NO FIELDS
               WHERE order_pos > ls_keywords-order_pos.
            lv_shift = ls_keywords-ends_at + lv_len + 1.
            lv_tmp   = lv_shift + 1.
            CONCATENATE mv_command(lv_shift) ')' mv_command+lv_shift
              INTO mv_command SEPARATED BY space.
            EXIT.
          ENDLOOP.

          IF sy-subrc EQ 4.
*         add post stuff to mv_command
            CONCATENATE mv_command ')' INTO mv_command SEPARATED BY space.
          ENDIF.
        ENDIF.

        MODIFY mt_keywords FROM ls_keywords INDEX lv_tabix.

      ELSE.   " create WHERE clause

        LOOP AT mt_keywords INTO ls_keywords WHERE order_pos > 5. " WHERE keyword
          lv_shift = ls_keywords-begins_at - 1.
          CONCATENATE mv_command(lv_shift) 'WHERE' iv_where_addition mv_command+lv_shift
            INTO mv_command SEPARATED BY space.
          EXIT.
        ENDLOOP.

        IF sy-subrc EQ 4.
          CONCATENATE mv_command 'WHERE' iv_where_addition
            INTO mv_command SEPARATED BY space.
        ENDIF.

        ls_keywords-keyword   = 'WHERE'.
        ls_keywords-text      = iv_where_addition.
        ls_keywords-order_pos = 5.
        ls_keywords-begins_at = lv_shift.
        ls_keywords-ends_at   = lv_shift + 4.

        APPEND ls_keywords TO mt_keywords.

      ENDIF.

    ENDIF.

  ENDMETHOD.                    "extend_where_clause

  METHOD add_where_excl_all.

  ENDMETHOD.                    "ADD_WHERE_EXCL_ALL


  METHOD can_edit.

    ev_can_edit = mv_can_edit.

  ENDMETHOD.                    "can_edit

  METHOD create_type.
* create a type for the result set of the command

    DATA: lt_srccode   TYPE STANDARD TABLE OF string,
          lv_line      TYPE string,
          lv_alias     TYPE string,
          ls_fieldinfo LIKE LINE OF it_fieldinfo.


    IF it_fieldinfo IS INITIAL.
      RETURN.
    ENDIF.

    CONCATENATE 'TYPES: BEGIN OF' iv_type_name ',' INTO lv_line
      SEPARATED BY space.
    APPEND lv_line TO lt_srccode.

    IF iv_with_tech_fields EQ 'X'.
*   add system fields HTDB_ROWID and HTDB_SELECTED and HTDB_ICON
      lv_line = 'zenith_rowid TYPE i,'.
      SHIFT lv_line RIGHT BY 9 PLACES.
      APPEND lv_line TO lt_srccode.

      lv_line = 'zenith_selected TYPE c,'.
      SHIFT lv_line RIGHT BY 9 PLACES.
      APPEND lv_line TO lt_srccode.

*   add style field
      lv_line = 'zenith_style TYPE lvc_t_styl,'.
      SHIFT lv_line RIGHT BY 9 PLACES.
      APPEND lv_line TO lt_srccode.

*   add coloring field
      lv_line = 'zenith_color TYPE lvc_t_scol,'.
      SHIFT lv_line RIGHT BY 9 PLACES.
      APPEND lv_line TO lt_srccode.

*   who locked the row?
      lv_line = 'zenith_locked_by TYPE sy-uname,'.
      SHIFT lv_line RIGHT BY 9 PLACES.
      APPEND lv_line TO lt_srccode.
    ENDIF.

* for each entry in the field list there will be a field in the structure
    LOOP AT it_fieldinfo INTO ls_fieldinfo.
      TRANSLATE ls_fieldinfo-generated_field TO LOWER CASE.
      TRANSLATE ls_fieldinfo-field_alias     TO LOWER CASE.
      TRANSLATE ls_fieldinfo-orig_field      TO LOWER CASE.
      TRANSLATE ls_fieldinfo-table           TO LOWER CASE.
      TRANSLATE ls_fieldinfo-field           TO LOWER CASE.

      IF ls_fieldinfo-agg_function = 'COUNT'.
        CONCATENATE ls_fieldinfo-generated_field 'TYPE i,'
          INTO lv_line SEPARATED BY space.
*      ELSEIF ls_fieldinfo-agg_function = 'SUM'.
*        CONCATENATE ls_fieldinfo-generated_field 'TYPE f,'
*          INTO lv_line SEPARATED BY space.
      ELSEIF ls_fieldinfo-agg_function = 'AVG'.
        CONCATENATE ls_fieldinfo-generated_field 'TYPE p DECIMALS 4,'
          INTO lv_line SEPARATED BY space.
      ELSE.
        IF ls_fieldinfo-generated_field IS NOT INITIAL.
          CONCATENATE ls_fieldinfo-generated_field 'TYPE' ls_fieldinfo-table
            INTO lv_line SEPARATED BY space.
        ELSEIF ls_fieldinfo-field_alias IS INITIAL.
          CONCATENATE ls_fieldinfo-field_alias 'TYPE' ls_fieldinfo-table
            INTO lv_line SEPARATED BY space.
        ELSE.
          CONCATENATE ls_fieldinfo-orig_field 'TYPE' ls_fieldinfo-table
            INTO lv_line SEPARATED BY space.
        ENDIF.

        CONCATENATE lv_line '-' ls_fieldinfo-field ',' INTO lv_line.
      ENDIF.

      SHIFT lv_line RIGHT BY 9 PLACES.
      APPEND lv_line TO lt_srccode.
    ENDLOOP.

    CONCATENATE '       END OF' iv_type_name '.' INTO lv_line
      SEPARATED BY space.
    APPEND lv_line TO lt_srccode.

    APPEND LINES OF lt_srccode TO ct_srccode.

  ENDMETHOD.                    "

  METHOD expand_asterisk.
* get field list in case of SELECT *

    DATA: lv_lines       TYPE i,
          ls_table_field LIKE LINE OF mt_table_fields,
          ls_table_alias LIKE LINE OF mt_table_alias,
          ls_fieldinfo   LIKE LINE OF mt_fieldinfo.


    CLEAR mt_fieldinfo.

    LOOP AT mt_table_alias INTO ls_table_alias.

      ls_fieldinfo-table = ls_table_alias-table.

*   get table fields
      LOOP AT mt_table_fields INTO ls_table_field
           WHERE TABLE = LS_FIELDINFO-TABLE.

        ls_fieldinfo-orig_field = ls_table_field-field.
        ls_fieldinfo-field      = ls_table_field-field.
        ls_fieldinfo-is_key     = ls_table_field-keyflag.

*      READ TABLE mt_table_alias INTO ls_table_alias
*        WITH KEY table = ls_table_alias-table.

        IF ls_table_alias-alias IS INITIAL.
          ls_fieldinfo-table_alias = ls_table_alias-table.
        ELSE.
          ls_fieldinfo-table_alias = ls_table_alias-alias.
        ENDIF.

        READ TABLE mt_fieldinfo
          WITH KEY orig_field = ls_table_field-field
          TRANSPORTING NO FIELDS.

        IF sy-subrc EQ 0.
          mv_has_dupl_fields = 'X'.
        ENDIF.

        APPEND ls_fieldinfo TO mt_fieldinfo.

      ENDLOOP.

    ENDLOOP.

* result set can be edited, if there is only one table
    DESCRIBE TABLE mt_table_alias LINES lv_lines.
    IF lv_lines NE 1.
      CLEAR mv_can_edit.    " result set can't be edited
      CLEAR mv_can_insert.  " new records can't inserted to the result set
    ENDIF.

* clean field list from duplicates
    remove_duplicates( ).

  ENDMETHOD.                    "


  METHOD get_fieldinfo.
* returns the field list (from the SELECT clause)

    et_fieldinfo  = mt_fieldinfo.
    ev_can_edit   = mv_can_edit.
    ev_can_insert = mv_can_insert.

  ENDMETHOD.                    "

  METHOD get_program_name.

    ev_program_name = mv_program.

  ENDMETHOD.                    "get_program_name

  METHOD get_table_alias.
* returns the table list (from the FROM clause and subquerys)

    CLEAR et_table_alias.

    et_table_alias = mt_table_alias.                   " FROM clause
    APPEND LINES OF mt_adt_tables TO et_table_alias.   " subquerys

  ENDMETHOD.                    "

  METHOD get_texts.
* returns the SELECT, FROM, etc. clauses of the command

    DATA: ls_keyword LIKE LINE OF mt_keywords.


* get SELECT text
    READ TABLE mt_keywords INTO ls_keyword
      WITH KEY keyword = 'SELECT'.
    ev_select_text = ls_keyword-text.

* get FROM text
    CLEAR ls_keyword.
    READ TABLE mt_keywords INTO ls_keyword
      WITH KEY keyword = 'FROM'.
    ev_from_text = ls_keyword-text.

* ...
    CLEAR ls_keyword.
    READ TABLE mt_keywords INTO ls_keyword
      WITH KEY keyword = 'WHERE'.
    ev_where_text = ls_keyword-text.

    CLEAR ls_keyword.
    READ TABLE mt_keywords INTO ls_keyword
      WITH KEY keyword = 'GROUP BY'.
    ev_group_by_text = ls_keyword-text.

    CLEAR ls_keyword.
    READ TABLE mt_keywords INTO ls_keyword
      WITH KEY keyword = 'HAVING'.
    ev_having_text = ls_keyword-text.

    CLEAR ls_keyword.
    READ TABLE mt_keywords INTO ls_keyword
      WITH KEY keyword = 'ORDER BY'.
    ev_order_by_text = ls_keyword-text.

  ENDMETHOD.                    "


  METHOD parse_adt_tables.

    DATA: ls_keyword      LIKE LINE OF mt_keywords,
          lv_where        TYPE string,
          lt_aptph_pos    LIKE mt_aptph_pos,
          lt_paranth      LIKE mt_aptph_pos,
          ls_aptph        LIKE LINE OF mt_aptph_pos,

          lv_search_str   TYPE string,
          lv_offset       TYPE i,
          lv_found        TYPE flag,
          lv_reparse      TYPE flag,

          lv_subquery     TYPE string,
          ls_where        TYPE lty_zhtdb_keyword,
          lv_subq_begin   TYPE i,
          lv_subq_end     TYPE i,
          lv_subq_lgth    TYPE i,
          lv_new_lgth     TYPE i,
          lv_shift        TYPE i,
          lv_left         TYPE i,
          lv_right        TYPE i,

          lo_sel_cmd      TYPE REF TO lcl_htdb_cl_command_select,
          lt_table_alias  LIKE mt_table_alias.


* get WHERE text
    READ TABLE mt_keywords INTO ls_keyword
      WITH KEY keyword = 'WHERE'.

    IF sy-subrc <> 0.
      EXIT.
    ENDIF.

* WHERE text
    lv_where = ls_keyword-text.
* SPACE as the first character
    SHIFT lv_where RIGHT BY 1 PLACES.

* identify apostrophes and paranthesis
    CALL METHOD lcl_toolbox=>parse_aptph
      EXPORTING
        iv_log_handle = mv_log_handle
      IMPORTING
        et_aptph_pos  = lt_aptph_pos
        et_paranth    = lt_paranth
      CHANGING
        cv_string     = lv_where
      EXCEPTIONS
        OTHERS        = 1.

    IF sy-subrc <> 0.
      IF mv_log_handle IS INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
                RAISING parse_error.
      ELSE.
        CALL METHOD add_message( iv_msgty = 'E'
          iv_msgid = sy-msgid
          iv_msgno = sy-msgno
          iv_msgv1 = sy-msgv1
          iv_msgv2 = sy-msgv2
          iv_msgv3 = sy-msgv3
          iv_msgv4 = sy-msgv4 ).
        RAISE parse_error.
      ENDIF.
    ENDIF.

* create new instance for the subquery
    CREATE OBJECT lo_sel_cmd.

    DO.
      CLEAR lv_found.
      lv_offset = lv_subq_begin + 1.

*   search for subquerys
      SEARCH lv_where
        FOR '. IN ( SELECT .'
        STARTING AT lv_offset.

      IF sy-subrc = 0.
        IF sy-fdpos      < lv_subq_begin OR
           lv_subq_begin = 0.
          lv_subq_begin = sy-fdpos + 4.
          lv_found = 'X'.
        ENDIF.
      ENDIF.

      SEARCH lv_where
        FOR '. ALL ( SELECT .'
        STARTING AT lv_offset.

      IF sy-subrc = 0.
        IF sy-fdpos      < lv_subq_begin OR
           lv_subq_begin = 0.
          lv_subq_begin = sy-fdpos + 5.
          lv_found = 'X'.
        ENDIF.
      ENDIF.

      SEARCH lv_where
        FOR '. SOME ( SELECT .'
        STARTING AT lv_offset.

      IF sy-subrc = 0.
        IF sy-fdpos      < lv_subq_begin OR
           lv_subq_begin = 0.
          lv_subq_begin = sy-fdpos + 6.
          lv_found = 'X'.
        ENDIF.
      ENDIF.

      SEARCH lv_where
        FOR '. ANY ( SELECT .'
        STARTING AT lv_offset.

      IF sy-subrc = 0.
        IF sy-fdpos      < lv_subq_begin OR
           lv_subq_begin = 0.
          lv_subq_begin = sy-fdpos + 5.
          lv_found = 'X'.
        ENDIF.
      ENDIF.

      SEARCH lv_where
        FOR '. EXISTS ( SELECT .'
        STARTING AT lv_offset.

      IF sy-subrc = 0.
        IF sy-fdpos      < lv_subq_begin OR
           lv_subq_begin = 0.
          lv_subq_begin = sy-fdpos + 8.
          lv_found = 'X'.
        ENDIF.
      ENDIF.

      IF lv_found = 'X'.
        lv_reparse = 'X'.

*     absolute position
        lv_subq_begin = lv_subq_begin + lv_offset.

*     check, whether it's outside of apostrophes
        READ TABLE lt_aptph_pos INTO ls_aptph
          WITH KEY position = lv_subq_begin.

        IF ls_aptph-type = 'O'.  " outside apostrophes
*       identify the depth of the paranthesis in ' ### ( SELECT'
          READ TABLE lt_paranth INTO ls_aptph
            WITH KEY position = lv_subq_begin.

          IF sy-subrc = 0.
*         now ls_aptph-type is the depth of the (
*         find the closing paranthesis - the next with the same depth
            lv_subq_end = sy-tabix + 1.
            LOOP AT lt_paranth FROM lv_subq_end INTO ls_aptph
                 WHERE type = ls_aptph-type.
              lv_subq_end = ls_aptph-position.
              EXIT.
            ENDLOOP.

            IF sy-subrc = 0.
*           extract subquery from string
              lv_subq_lgth = lv_subq_end - lv_subq_begin - 1.
              lv_subquery  = lv_where+lv_subq_begin(lv_subq_lgth).

*           create new subquery
              CALL METHOD lo_sel_cmd->create_new
                EXPORTING
                  iv_command    = lv_subquery
                  iv_log_handle = mv_log_handle.

*           parse subquery
              CALL METHOD lo_sel_cmd->parse
                EXCEPTIONS
                  OTHERS = 1.

              IF sy-subrc <> 0.
                IF mv_log_handle IS INITIAL.
                  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
                          RAISING parse_error.
                ELSE.
                  CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno
                    iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).
                  RAISE parse_error.
                ENDIF.
              ENDIF.

*           extract tables from subquery
              lo_sel_cmd->get_table_alias( IMPORTING et_table_alias = lt_table_alias ).
              APPEND LINES OF lt_table_alias TO mt_adt_tables.

*           get modified command text
              lo_sel_cmd->get_command( RECEIVING ev_command = lv_subquery ).

*           new length of the subquery
              lv_new_lgth = STRLEN( lv_subquery ).

*           insert modified subquery into the original command
*             position of WHERE + rest of the word 'WHERE' + start of subq '('
              lv_left  = ls_keyword-begins_at + 4 + lv_subq_begin + lv_shift.
*             position of WHERE + rest of the word 'WHERE' + end of subq ')' - 1
              lv_right = ls_keyword-begins_at + 4 + lv_subq_end - 1 + lv_shift.
              CONCATENATE mv_command(lv_left) lv_subquery mv_command+lv_right
                INTO mv_command SEPARATED BY space.

*           offset due to the new length of the subquery
              lv_shift = lv_shift + lv_new_lgth - lv_subq_lgth + 2.

*           continue search on the same level!
              lv_subq_begin = lv_subq_begin + lv_subq_lgth.
            ENDIF.
          ENDIF.
        ELSE.                    " inside apostrophes -> ignore
          CONTINUE.
        ENDIF.

      ELSE.    " no more subquerys found
*     the command could have been changed due to authority checks
        IF lv_reparse = 'X'.
          parse_keywords( ).
        ENDIF.

        EXIT.
      ENDIF.

    ENDDO.

  ENDMETHOD.                    "

  METHOD parse_check_fieldname.
* checks if the string is a valid field name, including ~ for table alias

    CLEAR rv_valid.

    READ TABLE it_keywords WITH KEY table_line = iv_word
      TRANSPORTING NO FIELDS.

    IF sy-subrc = 0.                                       " 1 -> error
      RETURN.
    ELSE.
*    IF iv_word CO 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_~0123456789'.
      rv_valid = 'X'.
*    ENDIF.
    ENDIF.

  ENDMETHOD.                    "

  METHOD parse_check_name.
* checks if the string is a valid name for tables, fields or aliases

    rv_valid = 'X'.

*  CLEAR rv_valid.
*
*  READ TABLE it_keywords WITH KEY table_line = iv_word
*    TRANSPORTING NO FIELDS.
*
*  IF sy-subrc = 0.                                       " 1 -> error
*    RETURN.
*  ELSE.
*    IF iv_word CO 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_0123456789'.
*      rv_valid = 'X'.
*    ENDIF.
*  ENDIF.

  ENDMETHOD.                    "

  METHOD parse_check_value .
* checks the string if it is between apostrophes;
* the number of apostrophes is correct anyway

    rv_valid = 'X'.

*  DATA: lv_length TYPE i,
*        lv_word   LIKE iv_word.
*
*  CLEAR rv_valid.
*
*  lv_word = iv_word.
*
*  TRANSLATE lv_word TO UPPER CASE.
*
*  IF lv_word IS INITIAL.
*    RETURN.
*  ENDIF.
*
*  IF lv_word = 'SPACE'.
*    rv_valid = 'X'.
*  ENDIF.
*
*  IF lv_word CO '0123456789'.
*    rv_valid = 'X'.
*  ENDIF.
*
*  lv_length = strlen( lv_word ).
*  lv_length = lv_length - 1.
*
*  IF lv_length > 3.
*    IF lv_word(3) = 'SY-'.
*      rv_valid = 'X'.
*    ENDIF.
*  ENDIF.
*
*  IF lv_length > 5.
*    IF lv_word(5) = 'SYST-'.
*      rv_valid = 'X'.
*    ENDIF.
*  ENDIF.
*
*  IF lv_word(1)           = '''' AND
*     lv_word+lv_length(1) = ''''.
*    rv_valid = 'X'.
*  ENDIF.

  ENDMETHOD.                    "


  METHOD parse_fields.
* extracts field names from the SELECT clause
* and fills up the MT_FIELDINFO table

    DATA: lv_state        TYPE i,
          lv_error        TYPE xfeld,
          lv_lines        TYPE i,

          ls_keyword      LIKE LINE OF mt_keywords,
          lt_words        TYPE lty_zhtdbt_string_tab,
          lt_keywords     TYPE lty_zhtdbt_string_tab,
          lv_word         TYPE string,
          ls_fieldinfo    LIKE LINE OF mt_fieldinfo,
          ls_table_alias  LIKE LINE OF mt_table_alias,
          lv_fdpos        TYPE i,
          ls_table_field  LIKE LINE OF mt_table_fields.


* get words of select_text
    READ TABLE mt_keywords INTO ls_keyword
      WITH KEY keyword = 'SELECT'.

    prepare_sel_text( CHANGING cv_string = ls_keyword-text ).

    CALL METHOD split_string
      EXPORTING
        iv_string = ls_keyword-text
      IMPORTING
        et_words  = lt_words.

* list of possible keywords
    APPEND 'AS'       TO lt_keywords.
    APPEND 'MIN('     TO lt_keywords.
    APPEND 'MAX('     TO lt_keywords.
    APPEND 'AVG('     TO lt_keywords.
    APPEND 'SUM('     TO lt_keywords.
    APPEND 'COUNT('   TO lt_keywords.
    APPEND '*'        TO lt_keywords.
    APPEND 'DISTINCT' TO lt_keywords.
    APPEND ')'        TO lt_keywords.

    IF lt_words IS INITIAL.
      IF mv_log_handle IS INITIAL.
*     Message: Field list is missing
        MESSAGE e017 RAISING no_fields_found.
      ELSE.
        CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '017' ).
        RAISE no_fields_found.
      ENDIF.
    ENDIF.

* parse words

* The parser is a simple automat having 10 states defined as follows:

* <field_list>: 1  '*' 4                                                                    |
*               1  {fieldname} 2                                                            |
*               1  'MIN(' | 'MAX(' | 'AVG(' | 'SUM(' 5 ['DISTINCT'] 6 {fieldname } 7  ')' 8 |
*               1  'COUNT(' 9
*
*               2  'AS' 3 {name} 1
*               2  {fieldname} 2                        |
*               2  'MIN(' | 'MAX(' | 'AVG(' | 'SUM(' 5  |
*               2  'COUNT(' 9
*
*               8  'AS' 3 {name} 1                      |
*               8  {fieldname} 2                        |
*               8  'MIN(' | 'MAX(' | 'AVG(' | 'SUM(' 5  |
*               8  'COUNT(' 9
*
*               9  '*' 7         |
*               9  'DISTINCT' 10 |
*               9  {fieldname } 7
*
*               10 '*' 7          |
*               10 {fieldname } 7
*
* 1 is the START state, 2, 4 and 8 are END states.

    lv_state = 1.

    LOOP AT lt_words INTO lv_word
         WHERE table_line IS NOT INITIAL.

      CASE lv_state.

        WHEN 1. "************************************************

*       check wether it's a keyword
          CASE lv_word.
            WHEN '*'.                                       " 1 -> 4
              lv_state = 4.
              CONTINUE.
            WHEN 'MIN(' OR                                  " 1 -> 5
                 'MAX(' OR
                 'AVG(' OR
                 'SUM('.
              lv_state = 5.
              ls_fieldinfo-agg_function = lv_word(3).
              CONTINUE.
            WHEN 'COUNT('.                                  " 1 -> 9
              lv_state = 9.
              ls_fieldinfo-agg_function = lv_word(5).

*           if only one record will be returned
*           -> it's like a SELECT SINGLE
*           depends if there is a group by clause or  not
              READ TABLE mt_keywords TRANSPORTING NO FIELDS
                WITH KEY keyword = 'GROUP BY'.

              IF sy-subrc EQ 0.
                CLEAR mv_sel_single.
              ELSE.
                mv_sel_single = 'X'.
              ENDIF.

              CONTINUE.
          ENDCASE.

*       check wether it's a valid fieldname
          IF parse_check_fieldname(
               iv_word = lv_word
               it_keywords = lt_keywords ) = 'X'.           " 1 -> 2
            lv_state = 2.
            ls_fieldinfo-orig_field = lv_word.
            CONTINUE.
          ELSE.                                               " 1 -> error
            lv_error = 'X'.
            EXIT.
          ENDIF.

        WHEN 2. "************************************************

          CASE lv_word.
            WHEN 'AS'.                                      " 2 -> 3
              lv_state = 3.
              CONTINUE.
            WHEN 'MIN(' OR                                  " 2 -> 5
                 'MAX(' OR
                 'AVG(' OR
                 'SUM('.
              lv_state = 5.
              APPEND ls_fieldinfo TO mt_fieldinfo.
              CLEAR ls_fieldinfo.
              ls_fieldinfo-agg_function = lv_word(3).
              CONTINUE.
            WHEN 'COUNT('.                                  " 2 -> 9
              lv_state = 9.
              APPEND ls_fieldinfo TO mt_fieldinfo.
              CLEAR ls_fieldinfo.
              ls_fieldinfo-agg_function = lv_word(5).
*           if only one record will be returned
*           -> it's like a SELECT SINGLE
*           depends if there is a group by clause or  not
              READ TABLE mt_keywords TRANSPORTING NO FIELDS
                WITH KEY keyword = 'GROUP BY'.

              IF sy-subrc EQ 0.
                CLEAR mv_sel_single.
              ELSE.
                mv_sel_single = 'X'.
              ENDIF.

              CONTINUE.
          ENDCASE.

          IF parse_check_fieldname(
               iv_word     = lv_word
               it_keywords = lt_keywords ) = 'X'.           " 2 -> 2
            APPEND ls_fieldinfo TO mt_fieldinfo.
            CLEAR ls_fieldinfo.
            ls_fieldinfo-orig_field = lv_word.
            CONTINUE.
          ELSE.                                               " 2 -> error
            lv_error = 'X'.
            EXIT.
          ENDIF.

        WHEN 3. "************************************************

          IF parse_check_name(
               iv_word     = lv_word
               it_keywords = lt_keywords ) = 'X'.           " 3 -> 1
            lv_state = 1.
            ls_fieldinfo-field_alias = lv_word.
            APPEND ls_fieldinfo TO mt_fieldinfo.
            CLEAR ls_fieldinfo.
            CONTINUE.
          ELSE.                                               " 3 -> error
            lv_error = 'X'.
            EXIT.
          ENDIF.

        WHEN 4. "************************************************

          IF lv_word IS NOT INITIAL.                          " 4 -> error
            lv_error = 'X'.
            EXIT.
          ENDIF.

        WHEN 5. "************************************************

          IF lv_word = 'DISTINCT'.                          " 5 -> 6
            ls_fieldinfo-distinctf = 'X'.
            lv_state = 6.
            CONTINUE.
          ENDIF.

          IF parse_check_fieldname(
               iv_word     = lv_word
               it_keywords = lt_keywords ) = 'X'.           " 5 -> 7
            lv_state = 7.
            ls_fieldinfo-orig_field = lv_word.
            CONTINUE.
          ELSE.                                               " 5 -> error
            lv_error = 'X'.
            EXIT.
          ENDIF.

        WHEN 6. "************************************************

          IF parse_check_fieldname(
               iv_word     = lv_word
               it_keywords = lt_keywords ) = 'X'.           " 6 -> 7
            ls_fieldinfo-orig_field = lv_word.
            lv_state = 7.
            CONTINUE.
          ELSE.                                               " 6 -> error
            lv_error = 'X'.
            EXIT.
          ENDIF.

        WHEN 7. "************************************************

          IF lv_word = ')'.                                 " 7 -> 8
            lv_state = 8.
            CONTINUE.
          ENDIF.

          lv_error = 'X'.
          EXIT.

        WHEN 8. "************************************************

          CASE lv_word.
            WHEN 'AS'.                                      " 8 -> 3
              lv_state = 3.
              CONTINUE.
            WHEN 'MIN(' OR                                  " 8 -> 5
                 'MAX(' OR
                 'AVG(' OR
                 'SUM('.
              lv_state = 5.
              APPEND ls_fieldinfo TO mt_fieldinfo.
              CLEAR ls_fieldinfo.
              ls_fieldinfo-agg_function = lv_word(3).
              CONTINUE.
            WHEN 'COUNT('.                                  " 8 -> 9
              lv_state = 9.
              APPEND ls_fieldinfo TO mt_fieldinfo.
              CLEAR ls_fieldinfo.
              ls_fieldinfo-agg_function = lv_word(5).

*           if only one record will be returned
*           -> it's like a SELECT SINGLE
*           depends if there is a group by clause or  not
              READ TABLE mt_keywords TRANSPORTING NO FIELDS
                WITH KEY keyword = 'GROUP BY'.

              IF sy-subrc EQ 0.
                CLEAR mv_sel_single.
              ELSE.
                mv_sel_single = 'X'.
              ENDIF.

              CONTINUE.
          ENDCASE.

          IF parse_check_fieldname(
               iv_word     = lv_word
               it_keywords = lt_keywords ) = 'X'.           " 8 -> 2
            lv_state = 2.
            APPEND ls_fieldinfo TO mt_fieldinfo.
            CLEAR ls_fieldinfo.
            ls_fieldinfo-orig_field = lv_word.
            CONTINUE.
          ELSE.                                               " 8 -> error
            lv_error = 'X'.
            EXIT.
          ENDIF.

        WHEN 9. "************************************************

          CASE lv_word.
            WHEN '*'.                                       " 9 -> 7
              lv_state = 7.
              ls_fieldinfo-orig_field = '*'.
              CONTINUE.
            WHEN 'DISTINCT'.                                " 9 -> 10
              ls_fieldinfo-distinctf = 'X'.
              lv_state = 10.
              CONTINUE.
          ENDCASE.

          IF parse_check_fieldname(
               iv_word     = lv_word
               it_keywords = lt_keywords ) = 'X'.           " 9 -> 7
            lv_state = 7.
*         CLEAR ls_fieldinfo.
            ls_fieldinfo-orig_field = lv_word.
            CONTINUE.
          ELSE.                                               " 9 -> error
            lv_error = 'X'.
            EXIT.
          ENDIF.

        WHEN 10. "************************************************

          CASE lv_word.
            WHEN '*'.                                       " 10 -> 7
              lv_state = 7.
              ls_fieldinfo-orig_field = '*'.
              CONTINUE.
          ENDCASE.

          IF parse_check_fieldname(
               iv_word     = lv_word
               it_keywords = lt_keywords ) = 'X'.           " 10 -> 7
            lv_state = 7.
*         CLEAR ls_fieldinfo.
            ls_fieldinfo-orig_field = lv_word.
            CONTINUE.
          ELSE.                                               " 10 -> error
            lv_error = 'X'.
            EXIT.
          ENDIF.

      ENDCASE.

    ENDLOOP.


* check errors
    IF lv_error = 'X'.
      IF mv_log_handle IS INITIAL.
*     Message: '&1' was not expected in the field list
        MESSAGE e010 WITH lv_word
          RAISING parse_error.
      ELSE.
        CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '010' iv_msgv1 = lv_word ).
        RAISE parse_error.
      ENDIF.
    ENDIF.

* check END state
    IF lv_state <> 1 AND
       lv_state <> 2 AND
       lv_state <> 4 AND
       lv_state <> 8.

      IF mv_log_handle IS INITIAL.
*     Message: Field list ended unexpectedly with '&1'
        MESSAGE e011 WITH lv_word
          RAISING parse_error.
      ELSE.
        CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '011' iv_msgv1 = lv_word ).
        RAISE parse_error.
      ENDIF.
    ENDIF.

    IF lv_state = 4.
* SELECT * -> expand *
      expand_asterisk( EXCEPTIONS table_not_found = 1 ).

      IF sy-subrc <> 0.
        IF mv_log_handle IS INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
                  RAISING table_not_found.
        ELSE.
          CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno
            iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).
          RAISE table_not_found.
        ENDIF.
      ENDIF.

      RETURN.
    ENDIF.

    IF ls_fieldinfo IS NOT INITIAL.
*   an END state was reached -> save the last entry
      APPEND ls_fieldinfo TO mt_fieldinfo.
    ENDIF.

************************************************************************
* expand table aliases, fields

    LOOP AT mt_fieldinfo INTO ls_fieldinfo.

      SEARCH ls_fieldinfo-orig_field FOR '~'.

      IF sy-subrc EQ 0.
        lv_fdpos = sy-fdpos.

        MOVE ls_fieldinfo-orig_field(lv_fdpos) TO ls_fieldinfo-table_alias.
        TRANSLATE ls_fieldinfo-table_alias TO UPPER CASE.
        lv_fdpos = lv_fdpos + 1.
        MOVE ls_fieldinfo-orig_field+lv_fdpos TO ls_fieldinfo-field.
        TRANSLATE ls_fieldinfo-field TO UPPER CASE.

        MODIFY mt_fieldinfo FROM ls_fieldinfo.
      ELSE.
        MOVE ls_fieldinfo-orig_field TO ls_fieldinfo-field.
        TRANSLATE ls_fieldinfo-field TO UPPER CASE.
        MODIFY mt_fieldinfo FROM ls_fieldinfo.
      ENDIF.

      IF ls_fieldinfo-field EQ '*'.
        ls_fieldinfo-field = 'ALL'.
      ELSEIF ls_fieldinfo-table_alias IS NOT INITIAL.
        READ TABLE mt_table_alias
          INTO ls_table_alias
          WITH KEY alias = ls_fieldinfo-table_alias.

        IF sy-subrc <> 0.
          READ TABLE mt_table_alias
            INTO ls_table_alias
            WITH KEY table = ls_fieldinfo-table_alias.
        ENDIF.

        IF sy-subrc <> 0.
          IF mv_log_handle IS INITIAL.
*         Message: Field list: can not find table alias &1
            MESSAGE e012 WITH ls_fieldinfo-table_alias
              RAISING table_not_found.
          ELSE.
            CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '012' iv_msgv1 = ls_fieldinfo-table_alias ).
            RAISE table_not_found.
          ENDIF.
        ELSE.
          ls_fieldinfo-table = ls_table_alias-table.

          READ TABLE mt_table_fields INTO ls_table_field
            WITH KEY table = ls_table_alias-table
                     field = ls_fieldinfo-field.

          IF sy-subrc <> 0.
            IF mv_log_handle IS INITIAL.
*           Message: Field '&1' does not belong to tables '&2'
              MESSAGE e036 WITH ls_fieldinfo-field ls_table_alias-table
                RAISING field_not_found.
            ELSE.
              CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '036' iv_msgv1 = ls_fieldinfo-field iv_msgv2 = ls_table_alias-table ).
              RAISE field_not_found.
            ENDIF.
          ELSE.
            ls_fieldinfo-is_key = ls_table_field-keyflag.
          ENDIF.
        ENDIF.
      ELSE.
        READ TABLE mt_table_fields INTO ls_table_field
          WITH KEY field = ls_fieldinfo-field.

        IF sy-subrc <> 0.
          IF mv_log_handle IS INITIAL.
*         Message: Field '&1' does not belong to any of the tables
            MESSAGE e016 WITH ls_fieldinfo-field
              RAISING field_not_found.
          ELSE.
            CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '016' iv_msgv1 = ls_fieldinfo-field ).
            RAISE field_not_found.
          ENDIF.
        ELSE.
          ls_fieldinfo-table  = ls_table_field-table.
          ls_fieldinfo-is_key = ls_table_field-keyflag.
        ENDIF.
      ENDIF.

      MODIFY mt_fieldinfo FROM ls_fieldinfo.

    ENDLOOP.

* tackle with duplicated fields
    remove_duplicates( ).

* result set can be edited, if there is only one table and
* all key fields were selected

    DESCRIBE TABLE mt_table_alias LINES lv_lines.

    IF lv_lines = 1.
      LOOP AT mt_table_fields INTO ls_table_field
           WHERE keyflag = 'X'.
        READ TABLE mt_fieldinfo
          WITH KEY field = ls_table_field-field
          TRANSPORTING NO FIELDS.

        IF sy-subrc <> 0.
          CLEAR mv_can_edit.
          EXIT.
        ENDIF.
      ENDLOOP.
    ELSE.
      CLEAR mv_can_edit.
    ENDIF.

  ENDMETHOD.                    "

  METHOD parse_tables.
* extracts table names from the FROM clause
* and fills up the MT_TABLE_ALIAS table

    DATA: lv_state        TYPE i,
          lv_tabix        TYPE i,
          lv_error        TYPE xfeld,
          lv_viewgrant    TYPE dd25l-viewgrant,

          ls_keyword      LIKE LINE OF mt_keywords,
          lt_from_words   TYPE lty_zhtdbt_string_tab,
          lt_keywords     TYPE lty_zhtdbt_string_tab,
          lt_operators    TYPE lty_zhtdbt_string_tab,
          lv_word         TYPE string,
          ls_table_alias  LIKE LINE OF mt_table_alias.

    FIELD-SYMBOLS: <ls_table_alias> LIKE LINE OF mt_table_alias.


* get words from from_text
    READ TABLE mt_keywords INTO ls_keyword
      WITH KEY keyword = 'FROM'.

    prepare_from_text( CHANGING cv_string = ls_keyword-text ).

    CALL METHOD split_string
      EXPORTING
        iv_string = ls_keyword-text
      IMPORTING
        et_words  = lt_from_words.

    IF lt_from_words IS INITIAL.
      IF mv_log_handle IS INITIAL.
*     Message: No tables were found
        MESSAGE e013 RAISING no_tables_found.
      ELSE.
        CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '013' ).
        RAISE no_tables_found.
      ENDIF.
    ENDIF.

* list of possible keywords
    APPEND 'AS'      TO lt_keywords.
    APPEND 'INNER'   TO lt_keywords.
    APPEND 'LEFT'    TO lt_keywords.
    APPEND 'OUTER'   TO lt_keywords.
    APPEND 'JOIN'    TO lt_keywords.
    APPEND 'ON'      TO lt_keywords.
    APPEND 'IS'      TO lt_keywords.
    APPEND 'NOT'     TO lt_keywords.
    APPEND 'NULL'    TO lt_keywords.
    APPEND 'BETWEEN' TO lt_keywords.
    APPEND 'AND'     TO lt_keywords.

* list of possible operators
    APPEND '='       TO lt_operators.
    APPEND '<'       TO lt_operators.
    APPEND '>'       TO lt_operators.
    APPEND '<='      TO lt_operators.
    APPEND '>='      TO lt_operators.
    APPEND '=<'      TO lt_operators.
    APPEND '=>'      TO lt_operators.
    APPEND '<>'      TO lt_operators.
    APPEND '><'      TO lt_operators.
    APPEND 'EQ'      TO lt_operators.
    APPEND 'NE'      TO lt_operators.
    APPEND 'LT'      TO lt_operators.
    APPEND 'GT'      TO lt_operators.
    APPEND 'LE'      TO lt_operators.
    APPEND 'GE'      TO lt_operators.

* parse words

* The parser is a simple automat having 19 states defined as follows:

* <from_text>: 1 {dbtab} 2 [as 3 {alias}] 4 [[inner|[left] 5 outer ] 6 join 7 {dbtab} 8 [as 9 {alias}] 10 ON 11 <join_condition>]
* <join_condition>: {field} 12 (IS 13 NOT 14 NULL) | (BETWEEN 15 {value} 16 AND 17 {value}) | (<comp> 18 {field}) 19 [AND 20 <join_condition>]
* <comp>: =|<|>|<=|>=|EQ|NE|GT|LT|LE|GE

* 1 is the START state, 2, 4 and 19 are END states.

    lv_state = 1.

    LOOP AT lt_from_words INTO lv_word
         WHERE table_line IS NOT INITIAL.

      CASE lv_state.

        WHEN 1. "************************************************

*       check wether it is a valid table name (and no keyword)
          IF parse_check_name(
              iv_word = lv_word
              it_keywords = lt_keywords ) = 'X'.            " 1 -> 2
            lv_state = 2.
            ls_table_alias-table = lv_word.  " store table name
            CONTINUE.
          ELSE.                                               " 1 -> error
            lv_error = 'X'.
            EXIT.
          ENDIF.

        WHEN 2. "************************************************

*       check wether it is a keyword
          CASE lv_word.
            WHEN 'AS'.                                      " 2 -> 3
              lv_state = 3.
              CONTINUE.
            WHEN 'INNER'.                                   " 2 -> 6
              lv_state = 6.
*           store table
              APPEND ls_table_alias TO mt_table_alias.
              CLEAR ls_table_alias.
              CONTINUE.
            WHEN 'LEFT'.                                    " 2 -> 5
              lv_state = 5.
*           store table
              APPEND ls_table_alias TO mt_table_alias.
              CLEAR ls_table_alias.
              CONTINUE.
            WHEN 'OUTER'.                                   " 2 -> 6
              lv_state = 6.
*           store table
              APPEND ls_table_alias TO mt_table_alias.
              CLEAR ls_table_alias.
              CONTINUE.
            WHEN 'JOIN'.                                    " 2 -> 7
              lv_state = 7.
*           store table
              APPEND ls_table_alias TO mt_table_alias.
              CLEAR ls_table_alias.
              CONTINUE.
          ENDCASE.

*       check wether it is a valid table name (and no keyword)
          IF parse_check_name(
              iv_word = lv_word
              it_keywords = lt_keywords ) = 'X'.            " 2 -> 2
            ls_table_alias-table = lv_word.  " store table name
            CONTINUE.
          ELSE.                                               " 2 -> error
            lv_error = 'X'.
            EXIT.
          ENDIF.

        WHEN 3. "************************************************

*       check wether it is a valid table name (and no keyword)
          IF parse_check_name(
              iv_word = lv_word
              it_keywords = lt_keywords ) = 'X'.            " 3 -> 4
            lv_state = 4.
            ls_table_alias-alias = lv_word. " store table alias
*         store table
            APPEND ls_table_alias TO mt_table_alias.
            CLEAR ls_table_alias.
            CONTINUE.
          ELSE.                                               " 3 -> error
            lv_error = 'X'.
            EXIT.
          ENDIF.

        WHEN 4. "************************************************

          CASE lv_word.
            WHEN 'INNER'.                                   " 4 -> 6
              lv_state = 6.
              CONTINUE.
            WHEN 'LEFT'.                                    " 4 -> 5
              lv_state = 5.
              CONTINUE.
            WHEN 'OUTER'.                                   " 4 -> 6
              lv_state = 6.
              CONTINUE.
            WHEN 'JOIN'.                                    " 4 -> 7
              lv_state = 7.
              CONTINUE.
          ENDCASE.

*       check wether it is a valid table name (and no keyword)
          IF parse_check_name(
              iv_word = lv_word
              it_keywords = lt_keywords ) = 'X'.            " 4 -> 2
            lv_state = 2.
            ls_table_alias-table = lv_word.  " store table name
            CONTINUE.
          ELSE.                                               " 4 -> error
            lv_error = 'X'.
            EXIT.
          ENDIF.

        WHEN 5. "************************************************

          CASE lv_word.
            WHEN 'OUTER'.                                   " 5 -> 6
              lv_state = 6.
              CONTINUE.
            WHEN 'JOIN'.                                    " 5 -> 7
              lv_state = 7.
              CONTINUE.
            WHEN OTHERS.                                      " 5 -> error
              lv_error = 'X'.
              EXIT.
          ENDCASE.

        WHEN 6. "************************************************

          IF lv_word = 'JOIN'.                              " 6 -> 7
            lv_state = 7.
            CONTINUE.
          ELSE.                                               " 6 -> error
            lv_error = 'X'.
            EXIT.
          ENDIF.

        WHEN 7. "************************************************

*       check wether it is a valid table name (and no keyword)
          IF parse_check_name(
              iv_word = lv_word
              it_keywords = lt_keywords ) = 'X'.            " 7 -> 8
            lv_state = 8.
            ls_table_alias-table = lv_word. " store table name
            CONTINUE.
          ELSE.                                               " 7 -> error
            lv_error = 'X'.
            EXIT.
          ENDIF.

        WHEN 8. "************************************************

          CASE lv_word.
            WHEN 'AS'.                                      " 8 -> 9
              lv_state = 9.
              CONTINUE.
            WHEN 'ON'.                                      " 8 -> 11
              lv_state = 11.
*           store table
              APPEND ls_table_alias TO mt_table_alias.
              CLEAR ls_table_alias.
              CONTINUE.
          ENDCASE.

          lv_error = 'X'.                                     " 8 -> error
          EXIT.

        WHEN 9. "************************************************

*       check wether it is a valid table name (and no keyword)
          IF parse_check_name(
              iv_word = lv_word
              it_keywords = lt_keywords ) = 'X'.            " 9 -> 10
            lv_state = 10.
            ls_table_alias-alias = lv_word. " store table alias
*         store table
            APPEND ls_table_alias TO mt_table_alias.
            CLEAR ls_table_alias.
            CONTINUE.
          ELSE.                                               " 9 -> error
            lv_error = 'X'.
            EXIT.
          ENDIF.

        WHEN 10. "***********************************************

          IF lv_word =  'ON'.                               " 10 -> 11
            lv_state = 11.
            CONTINUE.
          ELSE.                                               " 10 -> error
            lv_error = 'X'.
            EXIT.
          ENDIF.

        WHEN 11. "***********************************************

*       check wether it is a valid field name (and no keyword)
          IF parse_check_fieldname(
              iv_word = lv_word
              it_keywords = lt_keywords ) = 'X'.            " 11 -> 12
            lv_state = 12.
            CONTINUE.
          ELSE.                                               " 11 -> error
            lv_error = 'X'.
            EXIT.
          ENDIF.

        WHEN 12. "***********************************************

          CASE lv_word.
            WHEN 'IS'.                                      " 12 -> 13
              lv_state = 13.
              CONTINUE.
            WHEN 'BETWEEN'.                                 " 12 -> 15
              lv_state = 15.
              CONTINUE.
          ENDCASE.

*       check wether it is an operator
          READ TABLE lt_operators WITH KEY table_line = lv_word
            TRANSPORTING NO FIELDS.

          IF sy-subrc = 0.                                  " 12 -> 18
            lv_state = 18.
            CONTINUE.
          ELSE.                                               " 12 -> error
            lv_error = 'X'.
            EXIT.
          ENDIF.

        WHEN 13. "***********************************************

          IF lv_word = 'NOT'.                               " 13 -> 14
            lv_state = 14.
            CONTINUE.
          ELSE.                                               " 13 -> error
            lv_error = 'X'.
            EXIT.
          ENDIF.

        WHEN 14. "***********************************************

          IF lv_word = 'NULL'.                              " 14 -> 19
            lv_state = 19.
            CONTINUE.
          ELSE.                                               " 14 -> error
            lv_error = 'X'.
            EXIT.
          ENDIF.

        WHEN 15. "***********************************************

*       check wether it's a valid value
          IF parse_check_value( lv_word ) = 'X'.            " 15 -> 16
            lv_state = 16.
            CONTINUE.
          ELSE.                                               " 15 -> error
            lv_error = 'X'.
            EXIT.
          ENDIF.

        WHEN 16. "***********************************************

          IF lv_word = 'AND'.                               " 16 -> 17
            lv_state = 17.
            CONTINUE.
          ELSE.                                               " 16 -> error
            lv_error = 'X'.
            EXIT.
          ENDIF.

        WHEN 17. "***********************************************

*       check wether it's a valid value
          IF parse_check_value( lv_word ) = 'X'.            " 17 -> 19
            lv_state = 19.
            CONTINUE.
          ELSE.                                               " 17 -> error
            lv_error = 'X'.
            EXIT.
          ENDIF.

        WHEN 18. "***********************************************

*       check wether it is a valid field name (and no keyword)
          IF parse_check_fieldname(
              iv_word = lv_word
              it_keywords = lt_keywords ) = 'X'.            " 18 -> 19
            lv_state = 19.
            CONTINUE.
          ELSE.
*         check wether it's a valid value
            IF parse_check_value( lv_word ) = 'X'.          " 18 -> 19
              lv_state = 19.
              CONTINUE.
            ELSE.                                             " 18 -> error
              lv_error = 'X'.
              EXIT.
            ENDIF.
          ENDIF.

        WHEN 19. "***********************************************

          CASE lv_word.
            WHEN 'AND'.                                     " 19 -> 11
              lv_state = 11.
              CONTINUE.
            WHEN 'INNER'.                                   " 19 -> 6
              lv_state = 6.
              CONTINUE.
            WHEN 'LEFT'.                                    " 19 -> 5
              lv_state = 5.
              CONTINUE.
            WHEN 'OUTER'.                                   " 19 -> 6
              lv_state = 6.
              CONTINUE.
            WHEN 'JOIN'.                                    " 19 -> 7
              lv_state = 7.
              CONTINUE.
          ENDCASE.

*       check wether it is a valid table name (and no keyword)
          IF parse_check_name(
              iv_word = lv_word
              it_keywords = lt_keywords ) = 'X'.            " 19 -> 2
            lv_state = 2.
            ls_table_alias-table = lv_word.  " store table name
            CONTINUE.
          ELSE.                                               " 19 -> error
            lv_error = 'X'.
            EXIT.
          ENDIF.

      ENDCASE.

    ENDLOOP.

* ERROR state
    IF lv_error = 'X'.
      IF mv_log_handle IS INITIAL.
*     Message: '&1' was not expected in the FROM clause
        MESSAGE e008 WITH lv_word
          RAISING parse_error.
      ELSE.
        CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '008' iv_msgv1 = lv_word ).
        RAISE parse_error.
      ENDIF.
    ENDIF.

* check END state
    IF lv_state <> 2  AND
       lv_state <> 4  AND
       lv_state <> 19.   " an END state was not reached

      IF mv_log_handle IS INITIAL.
*     Message: FROM clause ended unexpectedly with '&1'
        MESSAGE e009 WITH lv_word
          RAISING parse_error.
      ELSE.
        CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '009' iv_msgv1 = lv_word ).
        RAISE parse_error.
      ENDIF.
    ENDIF.

    IF ls_table_alias IS NOT INITIAL.
*   an END state was reached -> save last entry
      APPEND ls_table_alias TO mt_table_alias.
    ENDIF.

* get table fields from DDIC
    LOOP AT mt_table_alias INTO ls_table_alias.

      lv_tabix = sy-tabix.

*   check if already processed
      READ TABLE mt_table_fields
        WITH KEY table = ls_table_alias-table
        TRANSPORTING NO FIELDS.

      IF sy-subrc = 0.
        CONTINUE.
      ENDIF.

*   check if it is a transparent table
      SELECT tabname fieldname keyflag position
        FROM dd03vv
        APPENDING TABLE mt_table_fields
        WHERE tabname   = ls_table_alias-table    AND
              tabclass  = 'TRANSP'                AND
              as4local  = 'A'                     AND
              fieldname NOT LIKE '.%'             AND
              fieldname NOT LIKE '*%'             AND
              fieldname NOT LIKE '$_%' ESCAPE '$' AND
              fieldname NOT LIKE '$%%' ESCAPE '$'
        ORDER BY position.

*   not a transparent table
      IF sy-subrc EQ 4.

*     check if it is a view
*     viewfield instead of fieldname, field alias may be defined in a view!
        SELECT viewname AS tabname viewfield keyflag objpos AS position
          FROM dd27s
          APPENDING TABLE mt_table_fields
          WHERE viewname  = ls_table_alias-table AND
                as4local  = 'A' AND
*             possible to define * in views to include all fields from a table, and - to exclude a field
                viewfield <> '*'                    AND
                viewfield <> '-'                    AND
                fieldname NOT LIKE '.%'             AND
                fieldname NOT LIKE '*%'             AND
                fieldname NOT LIKE '$_%' ESCAPE '$' AND
                fieldname NOT LIKE '$%%' ESCAPE '$'
          ORDER BY position.

*     not a view
        IF sy-subrc EQ 4.

*       check if it is a Clustered table
          SELECT tabname fieldname keyflag position
            FROM dd03vv
            APPENDING TABLE mt_table_fields
            WHERE tabname   = ls_table_alias-table    AND
                  tabclass  = 'CLUSTER'               AND
                  as4local  = 'A'                     AND
                  fieldname NOT LIKE '.%'             AND
                  fieldname NOT LIKE '*%'             AND
                  fieldname NOT LIKE '$_%' ESCAPE '$' AND
                  fieldname NOT LIKE '$%%' ESCAPE '$'
            ORDER BY position.

*       not a Clustered table
          IF sy-subrc EQ 4.

*         check if it is a Pooled table
            SELECT tabname fieldname keyflag position
              FROM dd03vv
              APPENDING TABLE mt_table_fields
              WHERE tabname   = ls_table_alias-table    AND
                    tabclass  = 'POOL'                  AND
                    as4local  = 'A'                     AND
                    fieldname NOT LIKE '.%'             AND
                    fieldname NOT LIKE '*%'             AND
                    fieldname NOT LIKE '$_%' ESCAPE '$' AND
                    fieldname NOT LIKE '$%%' ESCAPE '$'
              ORDER BY position.

*         not a Pooled table
            IF sy-subrc EQ 4.
              IF mv_log_handle IS INITIAL.
*             Message: Table '&1' does not exist
                MESSAGE e014 WITH ls_table_alias-table
                  RAISING table_not_exist.
              ELSE.
                CALL METHOD add_message( iv_msgty = 'W' iv_msgid = 'ZSQL_FREE' iv_msgno = '014' iv_msgv1 = ls_table_alias-table ).
                RAISE table_not_exist.
              ENDIF.
*         it is a Pooled table
            ELSE.
              ls_table_alias-type = 'P'.
              CLEAR mv_can_edit.
            ENDIF.

*       it is a Clustered table
          ELSE.
            ls_table_alias-type = 'C'.
            CLEAR mv_can_edit.
          ENDIF.

*     it is a view
        ELSE.

          ls_table_alias-type = 'V'.

          SELECT SINGLE viewgrant FROM dd25l INTO lv_viewgrant
            WHERE viewname = ls_table_alias-table AND
                  as4local = 'A'.

          IF sy-subrc EQ 0.
            IF lv_viewgrant EQ 'R'.
              CLEAR mv_can_edit.
            ENDIF.
          ENDIF.

        ENDIF.

*   it is a transparent table
      ELSE.
        ls_table_alias-type = 'T'.
      ENDIF.

      MODIFY mt_table_alias FROM ls_table_alias INDEX lv_tabix.

    ENDLOOP.

* complete missing table types
    LOOP AT mt_table_alias ASSIGNING <ls_table_alias>
         WHERE TABLE is INITIAL.

*   read the first record with the same table name
      READ TABLE mt_table_alias
        WITH KEY table = <ls_table_alias>-table
        INTO ls_table_alias.

      <ls_table_alias>-type = ls_table_alias-type.
    ENDLOOP.

*  SORT mt_table_fields BY table field.
*  DELETE ADJACENT DUPLICATES FROM mt_table_fields COMPARING table field.

* parse other tables (subqueries in the WHERE clause)
    CALL METHOD parse_adt_tables
      EXCEPTIONS
        OTHERS = 1.

    IF sy-subrc <> 0.
      IF mv_log_handle IS INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
                RAISING parse_error.
      ELSE.
        CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno
          iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).
        RAISE parse_error.
      ENDIF.
    ENDIF.

  ENDMETHOD.                    "

  METHOD prepare_from_text.
* remove each '(' and ')'

    DATA: lv_length       TYPE i,
          lv_shift        TYPE i,
          lv_pos          TYPE i,
          lv_char(1)      TYPE c.

    SEARCH cv_string FOR '%_HINT'.

    IF sy-subrc EQ 0.
      lv_pos = sy-fdpos - 1.
      cv_string = cv_string(lv_pos).
    ENDIF.

    lv_shift = -1.
    lv_length = STRLEN( cv_string ).

    DO.
      lv_shift = lv_shift + 1.

      IF lv_shift = lv_length.
        EXIT.
      ENDIF.

      lv_char = cv_string+lv_shift(1).

      IF lv_char = '(' OR
         lv_char = ')'.
        lv_pos = lv_shift + 1.
        CONCATENATE cv_string(lv_shift) cv_string+lv_pos
          INTO cv_string SEPARATED BY space.
      ENDIF.
    ENDDO.

  ENDMETHOD.                    "

  METHOD prepare_sel_text.
* put a SPACE after each '(' and before each ')' so the parser
* can parse the words

    DATA: lv_length       TYPE i,
          lv_shift        TYPE i,
          lv_pos          TYPE i,
          lv_char(1)      TYPE c.


    lv_shift = -1.
    lv_length = STRLEN( cv_string ).

    DO.
      lv_shift = lv_shift + 1.

      IF lv_shift = lv_length.
        EXIT.
      ENDIF.

      lv_char = cv_string+lv_shift(1).

      IF lv_char = '('.
        lv_pos   =  lv_shift + 1.
        CONCATENATE cv_string(lv_pos) cv_string+lv_pos INTO cv_string
          SEPARATED BY space.
        lv_length = lv_length + 1.
        lv_shift = lv_shift + 1.
      ENDIF.

      IF lv_char = ')'.
        CONCATENATE cv_string(lv_shift) cv_string+lv_shift INTO cv_string
          SEPARATED BY space.
        lv_length = lv_length + 1.
        lv_shift = lv_shift + 1.
      ENDIF.
    ENDDO.

  ENDMETHOD.                    "


  METHOD rebuild_field_list.
* builds the field list of the SELECT clause into a string table

    DATA: ls_fieldinfo   LIKE LINE OF mt_fieldinfo,
          lv_string      TYPE string,
          lv_string2     TYPE string,
          lv_tabix       TYPE i,
          ls_table_alias LIKE LINE OF mt_table_alias,
          lv_fieldname   TYPE fieldname.


    IF mt_fieldinfo IS INITIAL.
      MESSAGE e148 RAISING no_auth_for_columns.
    ENDIF.

* check that fields exist
    LOOP AT mt_fieldinfo INTO ls_fieldinfo WHERE orig_field NE '*'.

      READ TABLE mt_table_alias INTO ls_table_alias
        WITH KEY table = ls_fieldinfo-table.

      IF sy-subrc NE 0.
        IF mv_log_handle IS INITIAL.
*       Could not find field &1 in table &2 (type &3)
          MESSAGE s038 DISPLAY LIKE 'E' WITH ls_fieldinfo-field ls_fieldinfo-table '?' RAISING error.
        ELSE.
          CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '038' iv_msgv1 = ls_fieldinfo-field iv_msgv2 = ls_fieldinfo-table ).
          RAISE error.
        ENDIF.
      ENDIF.

      CASE ls_table_alias-type.

        WHEN 'T'.

          SELECT SINGLE fieldname
          INTO lv_fieldname
          FROM dd03l
          WHERE tabname   = ls_fieldinfo-table AND
                fieldname = ls_fieldinfo-field AND
                as4local  = 'A' AND
                fieldname NOT LIKE '.%' AND
                fieldname NOT LIKE '*%' AND
                fieldname NOT LIKE '$_%' ESCAPE '$' AND
                fieldname NOT LIKE '$%%' ESCAPE '$'.

        WHEN 'V'.

          SELECT SINGLE viewfield
          INTO lv_fieldname
          FROM dd27s
            WHERE viewname  = ls_fieldinfo-table AND
                  viewfield = ls_fieldinfo-field AND
                  as4local  = 'A' AND
                  fieldname NOT LIKE '.%' AND
                  fieldname NOT LIKE '*%' AND
                  fieldname NOT LIKE '$_%' ESCAPE '$' AND
                  fieldname NOT LIKE '$%%' ESCAPE '$'.

*      WHEN 'P'.
*
*        SELECT SINGLE fieldname
*        INTO lv_fieldname
*        FROM dd03vv
*          WHERE tabname   = ls_fieldinfo-table AND
*                fieldname = ls_fieldinfo-field AND
**                in view already
**                AS4LOCAL = 'A' AND
*                fieldname NOT LIKE '.%' AND
*                fieldname NOT LIKE '*%' AND
*                fieldname NOT LIKE '$_%' ESCAPE '$' AND
*                fieldname NOT LIKE '$%%' ESCAPE '$'.

        WHEN 'C' OR 'P'.

*        SELECT SINGLE fieldname
*        INTO lv_fieldname
*        FROM dd16v
*          WHERE sqltab    = ls_fieldinfo-table AND
*                fieldname = ls_fieldinfo-field AND
**                in view already
**                AS4LOCAL = 'A' AND
*                fieldname NOT LIKE '.%' AND
*                fieldname NOT LIKE '*%' AND
*                fieldname NOT LIKE '$_%' ESCAPE '$' AND
*                fieldname NOT LIKE '$%%' ESCAPE '$'.

          SELECT SINGLE fieldname
          INTO lv_fieldname
          FROM dd03l
          WHERE tabname   = ls_fieldinfo-table AND
                fieldname = ls_fieldinfo-field AND
                as4local  = 'A' AND
                fieldname NOT LIKE '.%' AND
                fieldname NOT LIKE '*%' AND
                fieldname NOT LIKE '$_%' ESCAPE '$' AND
                fieldname NOT LIKE '$%%' ESCAPE '$'.


      ENDCASE.

      IF sy-subrc NE 0.
        IF mv_log_handle IS INITIAL.
*       Could not find field &1 in table &2 (type &3)
          MESSAGE s038 DISPLAY LIKE 'E' WITH ls_fieldinfo-field ls_fieldinfo-table ls_table_alias-type RAISING error.
        ELSE.
          CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '038' iv_msgv1 = ls_fieldinfo-field iv_msgv2 = ls_fieldinfo-table ).
          RAISE error.
        ENDIF.
      ENDIF.

    ENDLOOP.


    LOOP AT mt_fieldinfo INTO ls_fieldinfo.

      CLEAR: lv_string, lv_string2.

      IF ls_fieldinfo-agg_function IS INITIAL.    " aggragate function
        IF ls_fieldinfo-table_alias IS NOT INITIAL.
          CONCATENATE ls_fieldinfo-table_alias '~' ls_fieldinfo-field INTO lv_string2.
        ELSE.
          MOVE ls_fieldinfo-orig_field TO lv_string2.
        ENDIF.

        CONCATENATE lv_string lv_string2 INTO lv_string SEPARATED BY ' '.
      ELSE.
        CONCATENATE ls_fieldinfo-agg_function '(' INTO lv_string.

        IF ls_fieldinfo-distinctf = 'X'.
          CONCATENATE lv_string 'DISTINCT' INTO lv_string
            SEPARATED BY ' '.
        ENDIF.

        IF ls_fieldinfo-field = '*'.
          CONCATENATE lv_string '*' ')' INTO lv_string SEPARATED BY ' '.
        ELSE.
          IF ls_fieldinfo-table_alias IS NOT INITIAL.
            CONCATENATE ls_fieldinfo-table_alias '~' ls_fieldinfo-field INTO lv_string2.
          ELSE.
            MOVE ls_fieldinfo-orig_field TO lv_string2.
          ENDIF.
          CONCATENATE lv_string lv_string2 INTO lv_string SEPARATED BY ' '.
          CONCATENATE lv_string  ')' INTO lv_string SEPARATED BY ' '.
        ENDIF.
      ENDIF.

      CONCATENATE lv_string 'AS' ls_fieldinfo-generated_field INTO lv_string SEPARATED BY ' '.
      SHIFT lv_string RIGHT BY 3 PLACES.
      APPEND lv_string TO ct_srccode.

    ENDLOOP.

  ENDMETHOD.                    "


  METHOD remove_duplicates.
* tackles with duplicates in the field list

    DATA: ls_fieldinfo      LIKE LINE OF mt_fieldinfo,
          ls_fieldinfo_copy LIKE LINE OF mt_fieldinfo,
          lv_same_cnt       TYPE i,
          lv_tabix          TYPE i,
          lv_string         TYPE string,
          lt_fieldinfo_copy LIKE mt_fieldinfo.


    LOOP AT mt_fieldinfo INTO ls_fieldinfo.
      IF ls_fieldinfo-field_alias IS NOT INITIAL.
        ls_fieldinfo-generated_field = ls_fieldinfo-field_alias.
      ELSEIF ls_fieldinfo-agg_function IS NOT INITIAL.
        CONCATENATE ls_fieldinfo-agg_function ls_fieldinfo-field
          INTO ls_fieldinfo-generated_field SEPARATED BY '_'.
      ELSE.
        ls_fieldinfo-generated_field = ls_fieldinfo-field.
      ENDIF.

*   CONNECTION is a reserved word, will cause a syntax error
      IF ls_fieldinfo-generated_field = 'CONNECTION'.
        ls_fieldinfo-generated_field = 'CONNECTION_'.
      ENDIF.

      TRANSLATE ls_fieldinfo-generated_field TO UPPER CASE.
      MODIFY mt_fieldinfo FROM ls_fieldinfo INDEX sy-tabix.
    ENDLOOP.

    lt_fieldinfo_copy[] = mt_fieldinfo[].

    LOOP AT mt_fieldinfo INTO ls_fieldinfo.

      CLEAR lv_same_cnt.
      lv_tabix = sy-tabix.

      LOOP AT lt_fieldinfo_copy INTO ls_fieldinfo_copy
           FROM lv_tabix
           WHERE generated_field = ls_fieldinfo-generated_field.

        IF lv_tabix <> sy-tabix.

          IF ls_fieldinfo_copy-table = ls_fieldinfo-table.
            lv_same_cnt                 = lv_same_cnt + 1.
            ls_fieldinfo_copy-samecount = lv_same_cnt.

            CONCATENATE ls_fieldinfo_copy-table ls_fieldinfo_copy-generated_field
              INTO ls_fieldinfo_copy-generated_field SEPARATED BY '_'.

            lv_string = lv_same_cnt.

            CONCATENATE ls_fieldinfo_copy-generated_field lv_string
              INTO ls_fieldinfo_copy-generated_field SEPARATED BY '_'.

            MODIFY lt_fieldinfo_copy FROM ls_fieldinfo_copy INDEX sy-tabix.
          ENDIF.

          IF ls_fieldinfo_copy-table <> ls_fieldinfo-table.
            IF ls_fieldinfo_copy-field_alias IS NOT INITIAL.
              ls_fieldinfo_copy-generated_field = ls_fieldinfo_copy-field_alias.
            ELSE.
              CONCATENATE ls_fieldinfo_copy-table ls_fieldinfo_copy-generated_field
                INTO lv_string SEPARATED BY '_'.
              ls_fieldinfo_copy-generated_field = lv_string.
            ENDIF.

            MODIFY lt_fieldinfo_copy FROM ls_fieldinfo_copy INDEX sy-tabix.
          ENDIF.

        ENDIF.

      ENDLOOP.

    ENDLOOP.

    mt_fieldinfo[] = lt_fieldinfo_copy[].

  ENDMETHOD.                    "


  METHOD check_inserted_orgcritdep.

    FIELD-SYMBOLS: <lt_inserted> TYPE ANY TABLE,
                   <ls_inserted> TYPE ANY.

    ASSIGN it_inserted->* TO <lt_inserted>.

    IF sy-subrc NE 0.
      RAISE assign_error.
    ENDIF.



*             AUTHORITY-CHECK OBJECT 'S_TABU_LIN'
*             ID 'ORG_CRIT' FIELD ls_orgcrit_tabdep-org_crit
*             ID 'ACTVT' FIELD '02'
*             ID 'ORG_FIELD1' FIELD '__________'
*             ID 'ORG_FIELD2' FIELD '__________'
*             ID 'ORG_FIELD3' FIELD '__________'
*             ID 'ORG_FIELD4' FIELD '__________'
*             ID 'ORG_FIELD5' FIELD '__________'
*             ID 'ORG_FIELD6' FIELD '__________'
*             ID 'ORG_FIELD7' FIELD '__________'
*             ID 'ORG_FIELD8' FIELD '__________'.
*
*
*          IF sy-subrc = 1.
*            RAISE no_auth_for_inserted_records.
*          ENDIF.


  ENDMETHOD.                    "CHECK_INSERTED_ORGCRITDEP


ENDCLASS.                    "lcl_HTDB_CL_COMMAND_SELECT IMPLEMENTATION

*---------------------------------------------------------------------*
*       CLASS LCL_COMMAND DEFINITION
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
CLASS lcl_command DEFINITION ABSTRACT.

  PUBLIC SECTION.

    DATA: mo_pipacs_command      TYPE REF TO lcl_htdb_cl_command,
          mt_srccode             TYPE lty_zhtdbt_string_tab,

          mr_lock_argument       TYPE REF TO data,
          mr_lock_argument_temp  TYPE REF TO data,

          mv_last_display        TYPE lty_last_display_mode,
          mv_grid_modified_toggled TYPE c,
          mv_ref_check           TYPE c,
          mv_grid_modified       TYPE c,

          mv_current_page TYPE i,
          mv_from         TYPE i,
          mv_to           TYPE i,

          mv_colmn_header TYPE c,
          mv_key_colmn_type TYPE c,
          mv_command_type(2) TYPE n.

    METHODS: execute_parsed_sql
               IMPORTING
                 po_grid           TYPE REF TO cl_gui_alv_grid OPTIONAL
                 po_tree           TYPE REF TO cl_gui_alv_tree OPTIONAL
                 iv_simulation     TYPE char1 OPTIONAL
                 iv_bg_proc        TYPE char1 OPTIONAL
                 iv_bg_date        TYPE btcsdate OPTIONAL
                 iv_bg_time        TYPE btcstime OPTIONAL
                 iv_read_from_file TYPE flag OPTIONAL
               EXPORTING
                 er_exception      TYPE REF TO cx_root
                 et_srccode        TYPE lty_zhtdbt_string_tab
               EXCEPTIONS
                 table_not_found
                 parse_error
                 exec_error
                 error_occurred
                 unlock_error
                 arg_to_long
                 foreign_lock
                 foreign_lock_all_clients
                 job_submit_error
                 field_list_changed
                 file_open_error
                 no_auth_for_table,

* sima GET/SET cuccok
             set_commandtext IMPORTING p_commandtext TYPE gty_commandtext,
             get_type EXPORTING value(ep_command_type) TYPE lty_commandtype,

             parse_commandtext
               IMPORTING
                 p_on_load TYPE c OPTIONAL
                 p_bf_test TYPE c OPTIONAL
               EXCEPTIONS
                 error_occurred,

             constructor
               IMPORTING
                 p_copy_from TYPE REF TO lcl_command OPTIONAL.


* VRANGES
**** value range cuccok begin
    DATA:
          it_ranges TYPE lty_zhdb_vrange_tab,
          is_x030l  TYPE x030l.

    DATA: mt_alias_ranges TYPE TABLE OF gty_alias_ranges,
          mt_ranges TYPE TABLE OF gty_ranges.

**** value range cuccok end

* a jobb oldali fa itabja (tablanevek, value rangek) es node_key referencia table
    DATA: mt_outtab_tb TYPE TABLE OF lty_zhtdb_alv_tab,
          mt_tab_node_xref TYPE TABLE OF gty_tab_node_xref.


* command type: select/update/delete/LAWB/script/select fae
    DATA: command_type TYPE lty_commandtype,
          command_id TYPE lty_commandid,
* hany sort erintett a command
          mv_dbcnt TYPE i,
          mv_rowlen TYPE i,
          mv_bytes TYPE i,

* treeben node_key
          node_key TYPE lvc_nkey,
* tree hierarchianban melyik szinten van
          treelevel TYPE i,

* where text kulon
          where_text TYPE gty_commandtext,

* command text mint string
          commandtext TYPE gty_commandtext,
* generalt command text mint string
          gen_commandtext TYPE gty_commandtext,

* generalt text, obsolete lesz
          gen_text TYPE source_table,
* original text, obsolete lesz (?)
          text TYPE source_table,
          table_alias_tb TYPE lty_zhtdb_table_aliases_tt,

*    DATA:  mv_tot_upd TYPE i,
*           mv_tot_ins TYPE i,
*           mv_tot_del TYPE i,
*           mv_upd TYPE i,
*           mv_ins TYPE i,
*           mv_del TYPE i,
* hany byte volt a teljes athozott result set
           mv_filtered TYPE i,
           mv_pos TYPE i.

    DATA:  alv_state TYPE i.

    DATA:  mv_locked  TYPE c,
           mv_cansave TYPE c VALUE 'X',
*           mv_locked_count TYPE i,

           mv_ctext_changed TYPE c.

  PRIVATE SECTION.



ENDCLASS.                    "LCL_COMMAND DEFINITION

CLASS lcl_select_command DEFINITION DEFERRED.

*----------------------------------------------------------------------*
*       CLASS lcl_application DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_application DEFINITION.

  PUBLIC SECTION.

    DATA: mv_cccategory TYPE cccategory.

** brute force testing stuff

    TYPES: BEGIN OF mty_t_type,
       line(255),
*        LINE TYPE string,
     END OF mty_t_type.

    TYPES: mty_tt_type TYPE STANDARD TABLE OF mty_t_type WITH
                 NON-UNIQUE DEFAULT KEY INITIAL SIZE 500.


    DATA:
      mv_log_handle TYPE balloghndl,
      ms_s_log      TYPE bal_s_log,
      ms_s_msg      TYPE bal_s_msg,


      mt_replace_message          TYPE bal_t_rplv,
      mt_replace_context          TYPE bal_t_rplc,

      ms_object                   TYPE bal_s_obj,
      ms_extnumber                TYPE bal_s_extn,
      ms_log_filter               TYPE bal_s_lfil,
      mt_log_header               TYPE balhdr_t.

** brute force test end


    DATA: dragdrop_tree TYPE REF TO cl_dragdrop,
          g_dropeffect TYPE i,
          g_handle_tree TYPE i,
          mv_la_fs_was_result TYPE c VALUE 'X'.


    DATA: mt_permitted_commandtypes TYPE TABLE OF rsrange,

          mv_tree_tb_width TYPE i,
          mv_result_height TYPE i,

          mv_result_already_unlocked TYPE c.


    METHODS:

            remove_gen_programs,
            insert_stringtab_to_pos
              IMPORTING
                it_stringtab TYPE lty_zhtdbt_string_tab,

            check_s_tabu_dis
              IMPORTING
                iv_for_editing TYPE char1
                iv_tabname     TYPE tabname
              EXPORTING
                ev_auth        TYPE char1,

             issue_message
               IMPORTING
                 iv_msgty        TYPE symsgty
                 iv_msgno        TYPE symsgno
                 iv_to_log       TYPE char1 DEFAULT ' '
                 iv_msgid        TYPE symsgid DEFAULT sy-msgid
                 iv_display_like TYPE char1 OPTIONAL
                 iv_msgv1        TYPE any OPTIONAL
                 iv_msgv2        TYPE any OPTIONAL
                 iv_msgv3        TYPE any OPTIONAL
                 iv_msgv4        TYPE any OPTIONAL,

            constructor,

            get_selected_word
              EXPORTING
                ep_word TYPE string,

            show_abap_docu,
            show_syntax_diagram,

             read_checktables
               IMPORTING
                 sender TYPE c
                 i_ucomm TYPE sy-ucomm,

             create_txt_toolbar,

            handle_lq_ctx_sel
              IMPORTING
                sender TYPE c
                e_ucomm TYPE sy-ucomm,

            handle_context_menu
                 FOR EVENT context_menu OF cl_gui_abapedit "cl_gui_textedit
                   IMPORTING menu sender,

             handle_f1_textedit
                 FOR EVENT f1 OF cl_gui_abapedit, "cl_gui_textedit,


             handle_context_menu_selected
                 FOR EVENT context_menu_selected OF cl_gui_abapedit "cl_gui_textedit
                     IMPORTING fcode,

             handle_node_ctx_menu_sel_lq
                 FOR EVENT node_context_menu_selected OF cl_gui_alv_tree
                     IMPORTING fcode,

             handle_context_menu_tree_tb_n
                 FOR EVENT node_context_menu_request OF cl_gui_alv_tree
                     IMPORTING menu,

             handle_lq_context_menu
                     IMPORTING
                       sender TYPE c
                       e_object TYPE REF TO cl_ctmenu,


* tables tree
             handle_node_double_click
               FOR EVENT node_double_click OF cl_gui_alv_tree
                 IMPORTING node_key,

*new*
             handle_dropdown_clicked
               FOR EVENT dropdown_clicked OF cl_gui_toolbar
                 IMPORTING fcode posx posy.

    METHODS: refresh_status_indicators,
             display_table_grid,
             create_tb_tree_toolbar.

    METHODS:

      handle_function_selected
          FOR EVENT function_selected OF cl_gui_toolbar
              IMPORTING fcode,

      handle_function_selected_txt
          FOR EVENT function_selected OF cl_gui_toolbar
              IMPORTING fcode.
    METHODS:

         handle_context_menu_alv
             FOR EVENT context_menu_request OF cl_gui_alv_grid
                 IMPORTING e_object sender,

         handle_menu_button
            FOR EVENT menu_button OF cl_gui_alv_grid
                IMPORTING e_object e_ucomm,

         handle_toolbar
            FOR EVENT toolbar OF cl_gui_alv_grid
                IMPORTING e_object e_interactive sender,

         handle_user_command
            FOR EVENT user_command OF cl_gui_alv_grid
                IMPORTING e_ucomm sender,

         handle_double_click
            FOR EVENT double_click OF cl_gui_alv_grid
                IMPORTING e_column e_row sender,

         handle_after_refresh
            FOR EVENT data_changed OF cl_gui_alv_grid.

    METHODS:
             set_column_settings IMPORTING p_mode TYPE sy-ucomm,
             set_key_field_settings IMPORTING p_mode TYPE sy-ucomm,
             set_column_headings,
             set_key_display_attributes,
             refresh_display.


ENDCLASS.                    "lcl_application DEFINITION

*---------------------------------------------------------------------*
*       CLASS LCL_COMMANDS DEFINITION
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
CLASS lcl_commands DEFINITION.

  PUBLIC SECTION.

    CONSTANTS: gc_initial_mark TYPE string VALUE ' ',
               gc_initial_mark_xref TYPE string VALUE 'ZENITH_INITIAL_VALUE',
               gc_initial_mark_display TYPE string VALUE 'N/A'.

    TYPES: BEGIN OF gty_commands,
             seq_no TYPE i,
             command_id TYPE lty_commandid,
             treelevel TYPE i,
             command TYPE REF TO lcl_command,
           END OF gty_commands.


    TYPES: BEGIN OF mty_ctypes_exclude,
            fcode TYPE rsmpe-func,
          END OF mty_ctypes_exclude.

    DATA: mt_ctypes_exclude TYPE TABLE OF mty_ctypes_exclude,
          mv_create_auth_checked TYPE c.

    METHODS:
             transfer_text_to_command,

             generate_structure
               EXCEPTIONS
                 empty_fieldinfo_tb
                 command_is_not_select
                 field_not_found,

             display
               IMPORTING
                 po_grid TYPE REF TO cl_gui_alv_grid OPTIONAL
                 po_tree TYPE REF TO cl_gui_alv_tree OPTIONAL,

             create_new_command
               IMPORTING
                 p_command_type TYPE lty_commandtype
                 reference(p_copy_from) TYPE REF TO lcl_command OPTIONAL,
*                 p_during_initial_load TYPE c OPTIONAL,

             execute_command
               IMPORTING
                 iv_mode           TYPE sy-ucomm
                 iv_bg_proc        TYPE char1 OPTIONAL
                 iv_bg_date        TYPE btcsdate OPTIONAL
                 iv_bg_time        TYPE btcstime OPTIONAL
                 iv_read_from_file TYPE flag OPTIONAL,

             parse_only_command
               IMPORTING
                 p_on_load TYPE c OPTIONAL
               EXCEPTIONS
                 no_id
                 create_error
                 no_parent
                 parse_error,

             display_command,
             write_status_message.

    DATA:  command_count TYPE i VALUE 0.

    DATA:  command_list TYPE TABLE OF gty_commands,
           current_command TYPE REF TO lcl_command,
           prev_command TYPE REF TO lcl_command.


ENDCLASS.                    "LCL_COMMANDS DEFINITION





*---------------------------------------------------------------------*
*       CLASS LCL_SELECT_COMMAND DEFINITION
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
CLASS lcl_select_command DEFINITION INHERITING FROM lcl_command.

  PUBLIC SECTION.

* backup tablebol select
    DATA:    mo_parent_command TYPE REF TO lcl_select_command.

    DATA: mo_pipacs_select TYPE REF TO lcl_htdb_cl_command_select.

    METHODS: execute_parsed_sql REDEFINITION,

             parse_commandtext REDEFINITION.

    METHODS:

             calculate_mv_rowlen,

             constructor
               IMPORTING
                 p_copy_from TYPE REF TO lcl_select_command OPTIONAL.

    METHODS:
             assign_field_symbols.

    METHODS: assign_field_symbol
                IMPORTING p_fs TYPE c
                CHANGING value(p_table) TYPE REF TO data.


    DATA:  layo TYPE TABLE OF lvc_s_layo,
           fcat TYPE lvc_t_fcat,
           prev_fcat TYPE lvc_t_fcat,
           fieldinfo_tb TYPE TABLE OF gty_fieldinfo,
           ddic_references TYPE TABLE OF gty_ddicref,
           can_edit TYPE c,
           mv_key_fields_missing TYPE string,
           mv_tree_heading TYPE tv_heading,

*           lock_results TYPE c,
           has_table_alias TYPE c,
           has_duplicate_fields TYPE c,
           selected_node TYPE lvc_nkey,
           selected_rows TYPE lvc_t_row,
           selected_rows2 TYPE lvc_t_roid.


    DATA: select_text TYPE gty_commandtext,
          all_fields_selected TYPE c,
          from_text TYPE gty_commandtext,
          group_by_text TYPE gty_commandtext,
          having_text TYPE gty_commandtext,
          order_by_text TYPE gty_commandtext.
*          sort_text TYPE gty_commandtext.

    DATA: result_table TYPE REF TO data,
          display_table TYPE REF TO data,
          deleted_table TYPE REF TO data,
          updated_table TYPE REF TO data,
          inserted_table TYPE REF TO data,
          tree_table TYPE REF TO data,
          returned_table TYPE REF TO data,
          temp_table TYPE REF TO data,
          undo_table TYPE REF TO data,
          lawb_table TYPE REF TO data,
          selfae_table TYPE REF TO data,
          result_structure  TYPE REF TO data,
          updated_structure  TYPE REF TO data,
          deleted_structure  TYPE REF TO data,
          inserted_structure  TYPE REF TO data,
          temp_structure  TYPE REF TO data,
          undo_structure  TYPE REF TO data,
          lawb_structure  TYPE REF TO data,
          selfae_structure  TYPE REF TO data.

    DATA: show_all TYPE c.


    DATA: mv_fdpos_select TYPE i,
          mv_fdpos_from TYPE i,
          mv_fdpos_where TYPE i,
          mv_fdpos_gb TYPE i,
          mv_fdpos_having TYPE i,
          mv_fdpos_ob TYPE i,
          mv_fdpos_sb TYPE i.

    DATA: mv_read_from_file TYPE c.

*  PRIVATE SECTION.


ENDCLASS.                    "LCL_SELECT_COMMAND DEFINITION


DATA: g_application          TYPE REF TO lcl_application,
      g_commands             TYPE REF TO lcl_commands.

DATA: gv_max_rowid           TYPE i,
      status1(132)           TYPE c,
      status2(132)           TYPE c.

DATA: gt_dynpread            TYPE TABLE OF dynpread,
      gs_dynpread            TYPE dynpread.

DATA: w_okcode                    TYPE sy-ucomm.

DATA: gv_starttime                TYPE i,
      gv_endtime                  TYPE i,
      gv_deltatime                TYPE i.

DATA: g_cx_dynamic_check          TYPE REF TO cx_dynamic_check,
      g_root_exception            TYPE REF TO cx_root.

DATA: gv_node_count               TYPE i.

DATA: gv_copy_commandid           TYPE i,
      gv_copy_folderid            TYPE i.

DATA: gr_command_clipboard        TYPE REF TO lcl_command,
      gv_folder_clipboard         TYPE lvc_nkey,
      gr_clipboard_mode           TYPE c.

DATA: go_splitter_outer           TYPE REF TO cl_gui_splitter_container,
      go_splitter_inner           TYPE REF TO cl_gui_splitter_container,
      go_container_alv_tb         TYPE REF TO cl_gui_container,
      go_container_reklam         TYPE REF TO cl_gui_container,
      go_container_alv            TYPE REF TO cl_gui_container,
      go_container_navtree        TYPE REF TO cl_gui_container,
      go_container_textedit       TYPE REF TO cl_gui_container,
      go_container_for_inner_sp   TYPE REF TO cl_gui_container,
      go_container_main           TYPE REF TO cl_gui_custom_container,
      go_container_field_select   TYPE REF TO cl_gui_custom_container,
      go_container_selscr_field   TYPE REF TO cl_gui_custom_container.

DATA: g_comm_longtext             TYPE REF TO cl_gui_textedit,
      g_container_textedit        TYPE REF TO cl_gui_custom_container,
      gt_text_orig                TYPE TABLE OF ty_notes,
      gt_lines_comm_longtext      TYPE TABLE OF tline,
      g_comm_longtext_read        TYPE c,
      g_html_viewer               TYPE REF TO cl_gui_html_viewer.


DATA: g_visible TYPE c.

DATA: gt_selfae_jointext          TYPE source_table.
DATA: gt_result_select_text       TYPE source_table.


DATA: gc_nodekey_my_repository    TYPE lvc_nkey,
      gc_nodekey_current_commands TYPE lvc_nkey,
      gc_nodekey_appl_hier        TYPE lvc_nkey.

DATA: gv_toolbar_extended         TYPE c,
      gv_nodekey                  TYPE lvc_nkey.

DATA: gv_data_changed_finished    TYPE c,
      gv_undo_pressed             TYPE c.

DATA: g_selected_nodekey          TYPE lvc_nkey,
      gv_check_button             TYPE c.

DATA: gv_step_counter             TYPE i,
      gc_test_step_cnt            TYPE i VALUE 50,
      gt_testscript               TYPE TABLE OF sy-ucomm,
      gv_autotest                 TYPE c,
      gt_testselects              TYPE TABLE OF mty_tt_type,
      gv_testselect_cnt           TYPE i.

DATA: gt_outtab_tb                TYPE TABLE OF lty_zhtdb_alv_tab.

DATA: gv_app_hier_counter         TYPE i, " used to generate unique node keys for the tree
      gv_app_hier_parent_cnt      TYPE i. " used to generate unique node keys for the tree

CONSTANTS: gc_max_nodetext_length TYPE i VALUE 128.

DATA: g_folder_b                  TYPE REF TO cl_dragdrop,
      g_command_b                 TYPE REF TO cl_dragdrop.

DATA: gv_lawb_test_finished       TYPE c,
      gv_lawb_test_success        TYPE c.

DATA: gv_version                  TYPE c VALUE 'B'.

DATA: gv_parent_result_tx         TYPE string.

DATA: gv_sel_changed_load         TYPE c.

* changing the node style in the navtree
* tolnatej requirement
* must be global (in automation call)
DATA: gv_top_node_key             TYPE lvc_nkey,
      gt_nodes                    TYPE lvc_t_nkey.



*----------------------------------------------------------------------*
***INCLUDE ZHTDB_STATUS_0100O01 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.

  PERFORM status_0100.

ENDMODULE.                 " STATUS_0100  OUTPUT

*&---------------------------------------------------------------------*
*&      Form  STATUS_0100
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM status_0100.

  DATA: l_hierarchy_header_new TYPE treev_hhdr,
        lt_events_new          TYPE cntl_simple_events,
        ls_events_new          TYPE cntl_simple_event,

        node                   TYPE lvc_s_layn,
        l_new_node_key         TYPE lvc_nkey,

        l_hierarchy_header     TYPE treev_hhdr,
        lt_events              TYPE cntl_simple_events,
        ls_events              TYPE cntl_simple_event,

        events                 TYPE cntl_simple_events,
        event                  TYPE cntl_simple_event.


  IF gv_0100_first_run = 'X'.  " first call of the screen

    SET PF-STATUS '100_MAIN'.
    SET TITLEBAR  '100_TITLE' WITH 'Hovitaga OpenSQL Editor Free Edition - Upgrade at www.hovitaga.com'.

    gv_def_col_hdr = 'T'.
    gv_def_keycol_type = 'F'.

  ENDIF.

  IF g_application IS INITIAL.

    CREATE OBJECT g_application.

    CALL METHOD g_application->remove_gen_programs.

  ENDIF.


  IF go_splitter_outer IS INITIAL.

    g_application->mv_tree_tb_width = 25.
    g_application->mv_result_height = 50.



    CREATE OBJECT go_splitter_outer
      EXPORTING
        parent  = cl_gui_container=>default_screen " cl_gui_custom_container=>screen0 "go_container_main
        rows    = 2
        columns = 1.

    CALL METHOD go_splitter_outer->get_container
      EXPORTING
        row       = 1
        column    = 1
      RECEIVING
        container = go_container_for_inner_sp
      EXCEPTIONS
        OTHERS    = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
    ENDIF.

    CALL METHOD go_splitter_outer->get_container
      EXPORTING
        row       = 2
        column    = 1
      RECEIVING
        container = go_container_alv
      EXCEPTIONS
        OTHERS    = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
    ENDIF.

    CREATE OBJECT go_splitter_inner
      EXPORTING
        parent  = go_container_for_inner_sp
        rows    = 1
        columns = 3.

    CALL METHOD go_splitter_inner->get_container
      EXPORTING
        row       = 1
        column    = 1
      RECEIVING
        container = go_container_textedit
      EXCEPTIONS
        OTHERS    = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

    CALL METHOD go_splitter_inner->get_container
      EXPORTING
        row       = 1
        column    = 2
      RECEIVING
        container = go_container_alv_tb
      EXCEPTIONS
        OTHERS    = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.


    CALL METHOD go_splitter_inner->get_container
      EXPORTING
        row       = 1
        column    = 3
      RECEIVING
        container = go_container_reklam
      EXCEPTIONS
        OTHERS    = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

    CALL METHOD go_splitter_inner->set_column_width
      EXPORTING
        id    = 3
        width = 30.

    go_splitter_inner->set_row_mode( mode = go_splitter_inner->mode_absolute ).

    CALL METHOD go_splitter_inner->set_column_sash
         EXPORTING
           id                = 2
           type              = cl_gui_splitter_container=>type_movable
           value             = cl_gui_splitter_container=>false
*         IMPORTING
*           RESULT            =
          EXCEPTIONS
            cntl_error        = 1
            cntl_system_error = 2
            OTHERS            = 3.

    gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_refresh.
    APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

    gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_view_excel.
    APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

*   gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_sum.
*   APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

    gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_check.
    APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

    gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_loc_undo.
    APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

    gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_loc_append_row.
    APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

    gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_loc_insert_row.
    APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

    gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_loc_delete_row.
    APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

    gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_loc_cut.
    APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

    gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_loc_paste_new_row.
    APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

    gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_loc_paste.
    APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

    gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_loc_copy_row.
    APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

*   gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_subtot.
*   APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

    gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_info.
    APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

    gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_help.
    APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

    gs_layo-edit       = 'X'.
    gs_layo-zebra      = 'X'.
    gs_layo-stylefname = 'ZENITH_STYLE'.
    gs_layo-cwidth_opt = 'X'.
    gs_layo-ctab_fname = 'ZENITH_COLOR'.
    gs_layo-sel_mode   = 'D'.
    gs_layo-no_rowmove = 'X'.
    gs_layo-no_rowins  = 'X'.
    gs_layo-no_keyfix  = 'X'.
    gs_layo-smalltitle = 'X'.

    CREATE OBJECT g_alv
      EXPORTING
        i_parent = go_container_alv.

    CALL METHOD g_alv->set_ready_for_input
      EXPORTING
        i_ready_for_input = 0
      EXCEPTIONS
        OTHERS            = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

    SET HANDLER g_application->handle_toolbar               FOR ALL INSTANCES.
    SET HANDLER g_application->handle_user_command          FOR ALL INSTANCES.
    SET HANDLER g_application->handle_menu_button           FOR g_alv.
*    SET HANDLER g_application->handle_data_changed          FOR g_alv.
*    SET HANDLER g_application->handle_data_changed_finished FOR g_alv.
    SET HANDLER g_application->handle_double_click          FOR g_alv.
    SET HANDLER g_application->handle_context_menu_alv      FOR g_alv.

    gs_layo_tb-edit       = ' '.
    gs_layo_tb-cwidth_opt = 'X'.
    gs_layo_tb-sel_mode   = 'B'.

    CREATE OBJECT g_tree_tb
      EXPORTING
        parent                      = go_container_alv_tb
        node_selection_mode         = cl_gui_column_tree=>node_sel_mode_single
        item_selection              = ' '
        no_html_header              = 'X'
        no_toolbar                  = ''
      EXCEPTIONS
        cntl_error                  = 1
        cntl_system_error           = 2
        create_error                = 3
        lifetime_error              = 4
        illegal_node_selection_mode = 5
        failed                      = 6
        illegal_column_name         = 7.

    IF sy-subrc <> 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

    CALL METHOD g_tree_tb->set_screen_update
      EXPORTING
        i_update = ' '.


    DATA: ls_fcat_tb TYPE lvc_s_fcat.

    ls_fcat_tb-fieldname = 'DDTEXT'.
    ls_fcat_tb-inttype = 'C'.
    ls_fcat_tb-intlen  = '255'.
    APPEND ls_fcat_tb TO gt_fcat_tb.

    ls_fcat_tb-fieldname = 'TABLENAME'.
    ls_fcat_tb-rollname  = 'TABNAME'.
    APPEND ls_fcat_tb TO gt_fcat_tb.

    ls_fcat_tb-fieldname = 'FIELDNAME'.
    ls_fcat_tb-rollname  = 'FIELDNAME'.
    APPEND ls_fcat_tb TO gt_fcat_tb.

    ls_fcat_tb-fieldname = 'ALIAS'.
    ls_fcat_tb-rollname  = 'TABNAME'.
    APPEND ls_fcat_tb TO gt_fcat_tb.

    LOOP AT gt_fcat_tb INTO gs_fcat_tb.
      IF gs_fcat_tb-fieldname = 'TABLENAME' OR
         gs_fcat_tb-fieldname = 'FIELDNAME' OR
         gs_fcat_tb-fieldname = 'ALIAS'.
        gs_fcat_tb-tech   = 'X'.
        gs_fcat_tb-no_out = 'X'.
      ENDIF.

      IF gs_fcat_tb-fieldname = 'DDTEXT'.
        gs_fcat_tb-coltext   = text-145.
        gs_fcat_tb-tooltip   = text-145.
        gs_fcat_tb-reptext   = text-145.
        gs_fcat_tb-outputlen = 255.
        CLEAR: gs_fcat_tb-tech, gs_fcat_tb-no_out.
      ENDIF.

      MODIFY gt_fcat_tb FROM gs_fcat_tb.
    ENDLOOP.

    l_hierarchy_header-heading   = text-137.
    l_hierarchy_header-width     = 40.
    l_hierarchy_header-width_pix = ''.

    CALL METHOD g_tree_tb->set_table_for_first_display
      EXPORTING
        is_hierarchy_header = l_hierarchy_header
      CHANGING
        it_fieldcatalog     = gt_fcat_tb
        it_outtab           = gt_outtab_tb
      EXCEPTIONS
        OTHERS              = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

    CALL METHOD g_tree_tb->get_registered_events
      IMPORTING
        events     = lt_events
      EXCEPTIONS
        cntl_error = 1
        OTHERS     = 2.

    IF sy-subrc <> 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

    ls_events-appl_event = ' '.
    ls_events-eventid = cl_gui_column_tree=>eventid_node_context_menu_req.
    APPEND ls_events TO lt_events.
*
*   ls_events-eventid = cl_gui_column_tree=>eventid_item_context_menu_req.
*   APPEND ls_events TO lt_events.

    ls_events-eventid = cl_gui_column_tree=>eventid_node_double_click.
    APPEND ls_events TO lt_events.

    CALL METHOD g_tree_tb->set_registered_events
      EXPORTING
        events                    = lt_events
      EXCEPTIONS
        cntl_error                = 1
        cntl_system_error         = 2
        illegal_event_combination = 3
        OTHERS                    = 4.

    IF sy-subrc <> 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

*   SET HANDLER g_application->handle_function_selected      FOR g_toolbar_tb_tree.
    SET HANDLER g_application->handle_node_double_click      FOR g_tree_tb.
    SET HANDLER g_application->handle_node_ctx_menu_sel_lq   FOR g_tree_tb.
    SET HANDLER g_application->handle_context_menu_tree_tb_n FOR g_tree_tb.

    CREATE OBJECT g_html_viewer
      EXPORTING
        parent = go_container_reklam.

    DATA: lv_url(255) TYPE c.
*
*    CONCATENATE 'http://www.hovitaga.com/'
*    'oe_free_edition_reklam_tidy_20111028.php?h='
*    gc_hash    INTO lv_url.


    lv_url = 'http://www.ut163.com/'.

    CONDENSE lv_url NO-GAPS.

    g_html_viewer->show_url( url = lv_url ).

  ENDIF.

  IF g_textedit IS INITIAL.

    CREATE OBJECT g_textedit
      EXPORTING
        parent = go_container_textedit.

    SET HANDLER g_application->handle_context_menu FOR g_textedit.
    SET HANDLER g_application->handle_context_menu_selected FOR g_textedit.
    SET HANDLER g_application->handle_f1_textedit FOR g_textedit.

    event-eventid = cl_gui_textedit=>event_f1.
    APPEND event TO events.

    event-eventid = cl_gui_textedit=>event_context_menu_selected.
    APPEND event TO events.

    event-eventid = cl_gui_textedit=>event_context_menu.
    APPEND event TO events.

*REGISTER_EVENT_F1 ?

    CALL METHOD g_textedit->set_registered_events
      EXPORTING
        events                    = events
      EXCEPTIONS
        cntl_error                = 1
        cntl_system_error         = 2
        illegal_event_combination = 3.

    IF sy-subrc <> 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

  ENDIF.

* ZMI?
**  IF gt_dynpread IS NOT INITIAL.
**
**    CALL FUNCTION 'DYNP_UPDATE_FIELDS'
**      EXPORTING
**        dyname               = sy-repid
**        dynumb               = '0100'
**        request              = 'A'
**      TABLES
**        dynpfields           = gt_dynpread
**      EXCEPTIONS
**        invalid_abapworkarea = 1
**        invalid_dynprofield  = 2
**        invalid_dynproname   = 3
**        invalid_dynpronummer = 4
**        invalid_request      = 5
**        no_fielddescription  = 6
**        undefind_error       = 7
**        OTHERS               = 8.
**
**    IF sy-subrc <> 0.
**      IF sy-msgno IS NOT INITIAL.
**        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
**                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
**      ENDIF.
**    ENDIF.
**
**    CLEAR gt_dynpread.
**
**  ENDIF.

  IF gv_data_changed_finished EQ 'X'.

    CLEAR gv_data_changed_finished.

    CALL METHOD g_alv->set_focus
      EXPORTING
        control = g_alv
      EXCEPTIONS
        OTHERS  = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

  ELSE.

    CALL METHOD g_textedit->set_focus
      EXPORTING
        control = g_textedit
      EXCEPTIONS
        OTHERS  = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

  ENDIF.

  IF g_commands IS INITIAL.

    CREATE OBJECT g_commands.

    CALL METHOD g_application->create_tb_tree_toolbar.

    CALL METHOD g_commands->create_new_command
      EXPORTING
        p_command_type = 1.


  ENDIF.


ENDFORM.                    " STATUS_0100


*----------------------------------------------------------------------*
***INCLUDE ZHTDB_USER_COMMAND_0100I01 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*

MODULE user_command_0100 INPUT.

  PERFORM user_command_0100.

  CLEAR gv_0100_first_run.

ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*&      Form  USER_COMMAND_0100
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM user_command_0100.

  DATA: l_type TYPE i.

  DATA: l_s_c_100 TYPE REF TO lcl_select_command,
        lv_ucomm  LIKE LINE OF gt_testscript.

  CASE ok_code.


    WHEN 'SYNTAXD'.

*      PERFORM LOAD_DYNPRO USING '0100' sy-repid.
      CALL METHOD g_application->show_syntax_diagram.

    WHEN 'ABAPDOCU'.

      CALL METHOD g_application->show_abap_docu.

    WHEN 'EXEC' OR 'SIMULATE' OR 'EXEC_BG'.

      IF g_commands->current_command IS NOT INITIAL.


        DATA: lv_bg TYPE c.

        CLEAR autotrace.
        CALL METHOD g_commands->execute_command
          EXPORTING
            iv_mode = ok_code.

      ELSE.
        CALL METHOD g_application->issue_message
          EXPORTING
            iv_msgty        = 'I'
            iv_msgno        = '061'
            iv_display_like = 'E'.
*          message i061 DISPLAY LIKE 'E'.
      ENDIF.

  ENDCASE.

  CLEAR ok_code.

ENDFORM.                    " USER_COMMAND

*----------------------------------------------------------------------*
***INCLUDE ZHTDB_USER_COMMAND_0100_EXITI1 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100_EXIT  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100_exit INPUT.

  PERFORM user_command_0100_exit.

ENDMODULE.                 " USER_COMMAND_0100_EXIT  INPUT
*&---------------------------------------------------------------------*
*&      Form  USER_COMMAND_0100_EXIT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM user_command_0100_exit .

  CASE ok_code.

    WHEN 'BACK' OR 'CANCEL' OR 'EXIT'.

      LEAVE TO SCREEN 0.

  ENDCASE.

ENDFORM.                    " USER_COMMAND_0100_EXIT



*&---------------------------------------------------------------------*
*&  Include           ZHTDB_LCLAPPLICATION_I                           *
*&---------------------------------------------------------------------*


CLASS lcl_application IMPLEMENTATION.

  METHOD remove_gen_programs.

    DATA: lt_reports TYPE TABLE OF reposrc-progname,
          lv_report  TYPE reposrc-progname.

    SELECT progname
      INTO TABLE lt_reports
      FROM reposrc
      WHERE progname LIKE 'ZENITH_GEN%'.

    LOOP AT lt_reports INTO lv_report.

      CALL FUNCTION 'ENQUEUE_ES_PROG'
        EXPORTING
          mode_trdir     = 'E'
          name           = lv_report
        EXCEPTIONS
          foreign_lock   = 1
          system_failure = 2
          OTHERS         = 3.

      IF sy-subrc EQ 0.

*     delete program from the repository
        CALL FUNCTION 'RS_DELETE_PROGRAM'
          EXPORTING
            program            = lv_report
            suppress_checks    = 'X'
            suppress_popup     = 'X'
            with_includes      = ' '
            with_cua           = ' '
            with_documentation = ' '
            with_dynpro        = ' '
            with_textpool      = ' '
            skip_progress_ind  = 'X'
          EXCEPTIONS
            enqueue_lock       = 1
            object_not_found   = 2
            permission_failure = 3
            reject_deletion    = 4
            OTHERS             = 5.


        IF sy-subrc <> 0.

          CALL METHOD g_application->issue_message
            EXPORTING
              iv_msgty        = 'S'
              iv_display_like = 'W'
              iv_msgno        = sy-msgno
              iv_msgid        = sy-msgid.

        ELSE.

          CALL FUNCTION 'DEQUEUE_ES_PROG'
            EXPORTING
              mode_trdir = 'E'
              name       = lv_report.

        ENDIF.

      ENDIF.

    ENDLOOP.


  ENDMETHOD.                    "remove_gen_programs



  METHOD issue_message.

    IF iv_msgid IS INITIAL.
      ms_s_msg-msgid = 'ZSQL_FREE'.
    ELSE.
      ms_s_msg-msgid = iv_msgid.
    ENDIF.

    IF iv_to_log EQ 'X' OR gv_autotest = 'X'.

      CLEAR ms_s_msg.

      IF iv_msgno IS INITIAL.
        RETURN.
      ENDIF.

      IF     iv_msgid = 'SD' AND iv_msgno = 94.
        RETURN.
      ELSEIF iv_msgid = 'FL' AND iv_msgno = 714.
        RETURN.
      ENDIF.

      ms_s_msg-msgno = iv_msgno.

      ms_s_msg-msgv1 = iv_msgv1.
      ms_s_msg-msgv2 = iv_msgv2.
      ms_s_msg-msgv3 = iv_msgv3.
      ms_s_msg-msgv4 = iv_msgv4.

      IF ms_s_msg-msgid IS INITIAL.
        ms_s_msg-msgid = 'ZSQL_FREE'.
      ENDIF.

      CONDENSE: ms_s_msg-msgv1, ms_s_msg-msgv2, ms_s_msg-msgv3, ms_s_msg-msgv4.

      ms_s_msg-msgty = iv_msgty.
*      ms_s_msg-probclass = iv_probclass.

*      CALL FUNCTION 'BAL_LOG_MSG_CUMULATE'
*       EXPORTING
*         I_LOG_HANDLE               = mv_log_handle
*         I_S_MSG                    = ms_s_msg
*  *       I_COMPARE_ATTRIBUTES       = ' '
*  *       I_COMPARE_CONTEXT          = ' '
*  *       I_COMPARE_PARAMETERS       = ' '
*  *     IMPORTING
*  *       E_S_MSG_HANDLE             =
*  *       E_MSG_WAS_LOGGED           =
*  *       E_MSG_WAS_DISPLAYED        =
*       EXCEPTIONS
*         LOG_NOT_FOUND              = 1
*         MSG_INCONSISTENT           = 2
*         LOG_IS_FULL                = 3
*         OTHERS                     = 4
*                .
*      IF sy-subrc <> 0.
*       MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*               WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
*      ENDIF.
*

      CALL FUNCTION 'BAL_LOG_MSG_ADD'
        EXPORTING
          i_log_handle = mv_log_handle
          i_s_msg      = ms_s_msg
        EXCEPTIONS
          OTHERS       = 1.
      IF sy-subrc <> 0.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.

    ELSE.

      IF iv_msgno IS NOT INITIAL.
        MESSAGE ID     ms_s_msg-msgid
          TYPE         'S'
          NUMBER       iv_msgno
          DISPLAY LIKE iv_msgty " iv_display_like
          WITH         iv_msgv1 iv_msgv2 iv_msgv3 iv_msgv4 .
      ENDIF.

    ENDIF.

  ENDMETHOD.                    "issue_message




  METHOD get_selected_word.

    DATA: l_from      TYPE i,
          l_to        TYPE i,
          l_from_new  TYPE i,
          l_to_new    TYPE i,
          l_from_line TYPE i,
          l_to_line   TYPE i,
          l_len       TYPE i,
          lt_text     TYPE source_table,
          l_text      LIKE LINE OF lt_text,
          lstr        TYPE string.
*          l_area      TYPE thead-tdname,


    CALL METHOD g_textedit->get_selection_pos
      IMPORTING
        from_line              = l_from_line
        from_pos               = l_from
        to_line                = l_to_line
        to_pos                 = l_to
      EXCEPTIONS
        error_cntl_call_method = 1
        OTHERS                 = 2.

    IF sy-subrc <> 0.

      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.

    ENDIF.

*abaped    CALL METHOD g_textedit->get_text_as_r3table
    CALL METHOD g_textedit->get_text
      IMPORTING
        table               = lt_text
      EXCEPTIONS
*abaped        potential_data_loss = 1.
        OTHERS = 1.

    IF sy-subrc = 1.
      CALL METHOD g_application->issue_message
        EXPORTING
          iv_msgty = 'I'
          iv_msgno = '025'.
*      MESSAGE i025.
    ENDIF.

    READ TABLE lt_text INTO l_text INDEX l_from_line.

    lstr = l_text.

    CALL METHOD lcl_toolbox=>get_word_at_pos
      EXPORTING
        iv_string   = lstr
        iv_position = l_from
      IMPORTING
        ev_word     = ep_word.

  ENDMETHOD.                    "get_selected_word

  METHOD show_abap_docu.

    DATA: l_word      TYPE string.

    CALL METHOD get_selected_word
      IMPORTING
        ep_word = l_word.

    CHECK l_word IS NOT INITIAL.

    TRANSLATE l_word TO UPPER CASE.

    DATA: lt_search_results TYPE docu_search_abap,
          ls_search_results LIKE LINE OF lt_search_results.

    CALL FUNCTION 'ABAP_DOCU_SEARCH'
      EXPORTING
        keyword_or_text = l_word
      IMPORTING
        RESULT          = lt_search_results.

    IF lt_search_results IS NOT INITIAL.

      CALL METHOD g_application->issue_message
        EXPORTING
          iv_msgty = 'S'
          iv_msgno = '062'
          iv_msgv1 = l_word.
*      MESSAGE s062 WITH l_word.

      DATA: l_name      TYPE thead-tdname.

      READ TABLE lt_search_results INTO ls_search_results INDEX 1.
      l_name = ls_search_results-object.

      CALL FUNCTION 'ABAP_DOCU_SHOW'
        EXPORTING
          area  = l_name(4)
          name  = l_name+4
          langu = sy-langu.

    ELSE.
*      MESSAGE w063 WITH l_word.
      CALL METHOD g_application->issue_message
        EXPORTING
          iv_msgty = 'W'
          iv_msgno = '063'
          iv_msgv1 = l_word.
    ENDIF.

  ENDMETHOD.                    "show_abap_docu


  METHOD show_syntax_diagram.


    DATA: l_word      TYPE string.

    CALL METHOD get_selected_word
      IMPORTING
        ep_word = l_word.

    CHECK l_word IS NOT INITIAL.

    TRANSLATE l_word TO UPPER CASE.

    DATA: l_keyword TYPE sy-repid.

    l_keyword = l_word.

    CALL FUNCTION 'RS_DISPLAY_SYNTAX_DIAGRAM'
      EXPORTING
        keyword = l_keyword.


  ENDMETHOD.                    "show_syntax_diagram




  METHOD constructor.


  ENDMETHOD.                    "lcl_application



  METHOD set_key_field_settings.

    DATA:           l_select_command TYPE REF TO lcl_select_command.

    TRY.
        l_select_command ?= g_commands->current_command.
      CATCH cx_sy_move_cast_error.
    ENDTRY.


    CHECK l_select_command IS NOT INITIAL.

    IF p_mode = 'KEY_FIX'.
      l_select_command->mv_key_colmn_type = 'F'.
    ELSE.
      l_select_command->mv_key_colmn_type = 'N'.
    ENDIF.

  ENDMETHOD.                    "set_key_field_settings

  METHOD set_column_settings.

    DATA:
          l_select_command TYPE REF TO lcl_select_command.

    TRY.
        l_select_command ?= g_commands->current_command.
      CATCH cx_sy_move_cast_error.
    ENDTRY.


    CHECK l_select_command IS NOT INITIAL.

    CASE p_mode.
      WHEN 'TXT_SHTXT'.
        l_select_command->mv_colmn_header = 'S'.
      WHEN 'TXT_GENFLD'.
        l_select_command->mv_colmn_header = 'G'.
      WHEN 'TXT_ALIAS'.
        l_select_command->mv_colmn_header = 'A'.
      WHEN 'TXT_FLD'.
        l_select_command->mv_colmn_header = 'T'.
    ENDCASE.

  ENDMETHOD.                    "set_column_settings

  METHOD handle_f1_textedit.

    CALL METHOD show_abap_docu.

  ENDMETHOD.                    "lcl_application



  METHOD handle_context_menu.

    CALL METHOD menu->add_function
      EXPORTING
        fcode  = 'PRETTY'
        text   = text-023
      EXCEPTIONS
        OTHERS = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

    CALL METHOD menu->add_function
      EXPORTING
        fcode  = 'ABAPDOCU'
        text   = text-116
      EXCEPTIONS
        OTHERS = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

    CALL METHOD menu->add_function
      EXPORTING
        fcode  = 'SYNTAXD'
        text   = text-117
      EXCEPTIONS
        OTHERS = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.


  ENDMETHOD.                    "lcl_application

  METHOD handle_context_menu_selected.

    CASE fcode.
      WHEN 'ABAPDOCU'.

        CALL METHOD show_abap_docu.

      WHEN 'SYNTAXD'.

        CALL METHOD show_syntax_diagram.

      WHEN 'PRETTY'.

        DATA: "l_text TYPE source_table,
              l_text TYPE rswsourcet.

*abaped    CALL METHOD g_textedit->get_text_as_r3table
        CALL METHOD g_textedit->get_text
          IMPORTING
            table               = l_text
          EXCEPTIONS
*abaped            potential_data_loss = 1.
            OTHERS = 1.

        IF sy-subrc = 1.
          CALL METHOD g_application->issue_message
            EXPORTING
              iv_msgty = 'E'
              iv_msgno = '025'.
*          MESSAGE e025.
        ENDIF.

        IF l_text[] IS NOT INITIAL.


          CALL FUNCTION 'CREATE_PRETTY_PRINT_FORMAT'
            EXPORTING
              mode          = 'HIKEY'
            TABLES
              SOURCE        = l_text
            EXCEPTIONS
              syntax_errors = 1
              OTHERS        = 2.

          IF sy-subrc <> 0.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
          ENDIF.


*abaped    CALL METHOD g_textedit->set_text_as_r3table
          CALL METHOD g_textedit->set_text
            EXPORTING
              table  = l_text[]
            EXCEPTIONS
              OTHERS = 1.

          IF sy-subrc NE 0.
            IF sy-msgno IS NOT INITIAL.
              MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                      WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
            ENDIF.
          ENDIF.

        ENDIF.

    ENDCASE.

  ENDMETHOD.                    "lcl_application

  METHOD handle_context_menu_alv.


  ENDMETHOD.                    "lcl_application


  METHOD handle_node_ctx_menu_sel_lq.

    CALL METHOD handle_lq_ctx_sel
      EXPORTING
        sender  = 'T'
        e_ucomm = fcode
      EXCEPTIONS
        OTHERS  = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

  ENDMETHOD.                    "lcl_application

  METHOD handle_context_menu_tree_tb_n.

    CALL METHOD handle_lq_context_menu
      EXPORTING
        sender   = 'T'
        e_object = menu
      EXCEPTIONS
        OTHERS   = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

  ENDMETHOD.                    "lcl_application

  METHOD handle_lq_context_menu.

    DATA: lq_menu_inner TYPE REF TO cl_ctmenu,
          lq_menu_outer TYPE REF TO cl_ctmenu,
          lq_menu_selfae TYPE REF TO cl_ctmenu,
          lq_menu_subquery TYPE REF TO cl_ctmenu,
          lq_menu_table_i TYPE REF TO cl_ctmenu,
          lq_menu_table_o TYPE REF TO cl_ctmenu,
          lq_menu_table_selfae TYPE REF TO cl_ctmenu,
          lq_menu_table_subquery TYPE REF TO cl_ctmenu,
          lq_menu_table_i_prev TYPE REF TO cl_ctmenu,
          lq_menu_table_o_prev TYPE REF TO cl_ctmenu,
          lq_menu_table_selfae_prev TYPE REF TO cl_ctmenu,
          lq_menu_table_subquery_prev TYPE REF TO cl_ctmenu,
          ls_dd08l TYPE dd08l,
          l_fcode TYPE ui_func,
          lt_dd08l TYPE TABLE OF dd08l,
          ls_table_alias LIKE LINE OF g_commands->current_command->table_alias_tb,
          lstr(40) TYPE c,
          lstr4(40) TYPE c,
          lstr2 TYPE string,
          lstr3 TYPE string,
          lstr5 TYPE string,
          lint TYPE i,
          ls_prev_linkedquery LIKE gs_linkedquery,
          ls_linkedquery LIKE gs_linkedquery,
          lt_linkedquery LIKE gt_linkedquery,
*          l_prev_checktable TYPE dd08l-checktable,
*          l_prev_table TYPE dd08l-checktable,
*          l_prev_ddtext TYPE dd02t-ddtext,
*          l_prev_primpos TYPE dd05m-primpos,
          l_ddtext TYPE dd02t-ddtext,
          l_text(40) TYPE c,
          l_comp_text(40) TYPE c.

    DATA: dd08v_ia TYPE TABLE OF dd08v,
          dd05m_ia TYPE TABLE OF dd05m,
          wa_dd08v_ia TYPE dd08v,
          wa_dd05m_ia TYPE dd05m,
          state(1),
          l_tabname TYPE dd08l-tabname.

*    CHECK g_commands->current_command->mv_locked IS INITIAL.

    CLEAR gt_linkedquery.
    CLEAR lint.

    CALL METHOD e_object->add_separator
      EXCEPTIONS
        OTHERS = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

    CHECK g_commands->current_command->command_type EQ gc_ctype_select OR
          g_commands->current_command->command_type EQ gc_ctype_selfae.

    LOOP AT g_commands->current_command->table_alias_tb INTO ls_table_alias.

      CLEAR lt_dd08l.

      l_tabname = ls_table_alias-table.

      CALL FUNCTION 'DD_TBFK_GET'
           EXPORTING
*                FIELDNAME     = INCLFIELD
                get_state     = 'A'
                tabl_name     = l_tabname
                withtext      = 'X'
           IMPORTING
                got_state     = state
           TABLES
                dd05m_tab_a   = dd05m_ia
*                DD05M_TAB_N   = FK1_DD05M
                dd08v_tab_a   = dd08v_ia
*                DD08V_TAB_N   = FK1_DD08V
           EXCEPTIONS
                illegal_value = 01.

      IF sy-subrc NE 0.
        IF sy-msgno IS NOT INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
        ENDIF.

      ENDIF.

      LOOP AT dd05m_ia INTO wa_dd05m_ia WHERE checkfield NE 'MANDT' OR checktable EQ 'T000'.

        lint = lint + 1.

        SELECT SINGLE ddtext
        INTO l_ddtext
        FROM dd02t
        WHERE as4local = 'A'
              AND tabname = wa_dd05m_ia-checktable
              AND ddlanguage = sy-langu.

        IF sy-subrc NE 0.

          SELECT SINGLE ddtext
          INTO l_ddtext
          FROM dd02t
          WHERE as4local = 'A'
                AND tabname = wa_dd05m_ia-checktable.

          IF sy-subrc NE 0.
*            message 'ZENITH:sdfgdsf' type 'E'.
          ENDIF.

        ENDIF.

        CONCATENATE ls_table_alias-alias '~' wa_dd05m_ia-forkey INTO lstr2.
        CONDENSE lstr2 NO-GAPS.
        CONCATENATE wa_dd05m_ia-checktable '~' wa_dd05m_ia-checkfield INTO lstr3.
        CONDENSE lstr3 NO-GAPS.
        CONCATENATE 'ON' lstr3 '=' lstr2 INTO lstr2 SEPARATED BY ' '.

        MOVE lstr2 TO lstr.

        lstr2 = lint.
        CONCATENATE 'LA_' lstr2 INTO l_fcode.
        CONDENSE l_fcode NO-GAPS.

        CLEAR gs_linkedquery.
        gs_linkedquery-fcode       = l_fcode.
        gs_linkedquery-tabname     = ls_table_alias-alias.
        gs_linkedquery-checktable  = wa_dd05m_ia-checktable.
        gs_linkedquery-fieldname   = wa_dd05m_ia-forkey.
        gs_linkedquery-checkfield  = wa_dd05m_ia-checkfield.
        gs_linkedquery-primpos     = wa_dd05m_ia-primpos.
        gs_linkedquery-text        = lstr.
        gs_linkedquery-longtext    = lstr.
        gs_linkedquery-ddtext      = l_ddtext.

        APPEND gs_linkedquery TO gt_linkedquery.

      ENDLOOP.

    ENDLOOP.


    DATA: l_comp_count TYPE i,
          lt_primpos TYPE TABLE OF gty_linkedquery-primpos,
          l_primpos TYPE gty_linkedquery-primpos.

    CLEAR gt_linkedquery_comp.


    IF g_commands->current_command->mv_locked IS INITIAL.
      CREATE OBJECT lq_menu_inner.
      CREATE OBJECT lq_menu_outer.
      CREATE OBJECT lq_menu_subquery.
    ENDIF.

    CREATE OBJECT lq_menu_selfae.

    SORT gt_linkedquery BY checktable tabname primpos.

    LOOP AT gt_linkedquery INTO gs_linkedquery.

      IF ls_prev_linkedquery-checktable NE gs_linkedquery-checktable OR
           ls_prev_linkedquery-tabname NE gs_linkedquery-tabname.

        CLEAR: l_comp_count.
        CLEAR lt_primpos.
        CLEAR lstr2.

        lstr4 = '* ON'.

        LOOP AT gt_linkedquery INTO ls_linkedquery
          WHERE tabname         = ls_prev_linkedquery-tabname
                AND checktable  = ls_prev_linkedquery-checktable.
*                AND join_type   = ls_prev_linkedquery-join_type.


          READ TABLE lt_primpos TRANSPORTING NO FIELDS
            WITH KEY table_line = ls_linkedquery-primpos.

          IF sy-subrc EQ 4.

            CONCATENATE ls_linkedquery-tabname '~' ls_linkedquery-fieldname INTO lstr5.
            CONDENSE lstr5  NO-GAPS.

            CONCATENATE ls_linkedquery-checktable '~' ls_linkedquery-checkfield INTO lstr3.
            CONDENSE lstr3 NO-GAPS.

            CONCATENATE lstr4 lstr3 INTO lstr4 SEPARATED BY space.

            IF lstr2 IS INITIAL.
              CONCATENATE 'ON' lstr3 '=' lstr5 INTO lstr2 SEPARATED BY ' '.
            ELSE.
              CONCATENATE lstr2 'AND' lstr3 '=' lstr5 INTO lstr2 SEPARATED BY ' '.
            ENDIF.

*              CONCATENATE ls_linkedquery-table '~' ls_linkedquery-field INTO lstr5.
*              CONDENSE lstr5  NO-GAPS.
*              CONCATENATE lstr4 lstr5 INTO lstr4 SEPARATED BY SPACE.
*
*              CONCATENATE ls_linkedquery-checktable '~' ls_linkedquery-checkfield INTO lstr3.
*              CONDENSE lstr3 NO-GAPS.
*
*              if lstr2 IS INITIAL.
*                CONCATENATE 'ON' lstr3 '=' lstr5 INTO lstr2 SEPARATED BY ' '.
*              else.
*                CONCATENATE lstr2 'AND' lstr3 '=' lstr5 INTO lstr2 SEPARATED BY ' '.
*              endif.

            APPEND ls_linkedquery-primpos TO lt_primpos.

            l_comp_count = l_comp_count + 1.

          ENDIF.

        ENDLOOP.

        IF l_comp_count GT 1.

          READ TABLE gt_linkedquery_comp TRANSPORTING NO FIELDS
            WITH KEY tabname  = ls_linkedquery-tabname
                     checktable = ls_linkedquery-checktable
                     text   = lstr4.
*                     longtext   = lstr2.

          IF sy-subrc EQ 4.

            CONCATENATE gs_linkedquery-fcode '_COMP' INTO l_fcode.
*            CONCATENATE 'I_' gs_linkedquery-fcode '_COMP' INTO l_fcode.
***            l_fcode = gs_linkedquery-fcode.

            gs_linkedquery_comp-fcode      = l_fcode.
            gs_linkedquery_comp-tabname    = ls_linkedquery-tabname.
            gs_linkedquery_comp-checktable = ls_linkedquery-checktable.
            gs_linkedquery_comp-text       = lstr4.
            gs_linkedquery_comp-longtext   = lstr2.
            gs_linkedquery_comp-join_type  = ls_linkedquery-join_type.
            gs_linkedquery_comp-ddtext     = ls_linkedquery-ddtext.

            APPEND gs_linkedquery_comp TO gt_linkedquery_comp.

            CONCATENATE 'I_' gs_linkedquery-fcode '_COMP' INTO l_fcode.

            IF lq_menu_table_i_prev IS NOT INITIAL.

              CALL METHOD lq_menu_table_i_prev->add_function
                EXPORTING
                  fcode  = l_fcode
                  text   = gs_linkedquery_comp-text
                EXCEPTIONS
                  OTHERS = 1.

              IF sy-subrc NE 0.
                IF sy-msgno IS NOT INITIAL.
                  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
                ENDIF.
              ENDIF.

            ENDIF.

            CONCATENATE 'O_' gs_linkedquery-fcode '_COMP' INTO l_fcode.

            IF lq_menu_table_o_prev IS NOT INITIAL.

              CALL METHOD lq_menu_table_o_prev->add_function
                EXPORTING
                  fcode  = l_fcode
                  text   = gs_linkedquery_comp-text
                EXCEPTIONS
                  OTHERS = 1.

              IF sy-subrc NE 0.
                IF sy-msgno IS NOT INITIAL.
                  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
                ENDIF.
              ENDIF.

            ENDIF.

            CONCATENATE 'S_' gs_linkedquery-fcode '_COMP' INTO l_fcode.

            IF lq_menu_table_selfae_prev IS NOT INITIAL.

              CALL METHOD lq_menu_table_selfae_prev->add_function
                EXPORTING
                  fcode  = l_fcode
                  text   = gs_linkedquery_comp-text
                EXCEPTIONS
                  OTHERS = 1.

              IF sy-subrc NE 0.
                IF sy-msgno IS NOT INITIAL.
                  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
                ENDIF.
              ENDIF.

            ENDIF.

            CONCATENATE 'Q_' gs_linkedquery-fcode '_COMP' INTO l_fcode.

            IF lq_menu_table_subquery_prev IS NOT INITIAL.

              CALL METHOD lq_menu_table_subquery_prev->add_function
                EXPORTING
                  fcode  = l_fcode
                  text   = gs_linkedquery_comp-text
                EXCEPTIONS
                  OTHERS = 1.

              IF sy-subrc NE 0.
                IF sy-msgno IS NOT INITIAL.
                  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
                ENDIF.
              ENDIF.

            ENDIF.

            CLEAR l_fcode.

          ENDIF.

        ENDIF.

      ENDIF.

      IF ls_prev_linkedquery-checktable NE gs_linkedquery-checktable.

        IF g_commands->current_command->mv_locked IS INITIAL.
          CREATE OBJECT lq_menu_table_i.
          CREATE OBJECT lq_menu_table_o.
          CREATE OBJECT lq_menu_table_subquery.
        ENDIF.

        CREATE OBJECT lq_menu_table_selfae.

        CONCATENATE '(' gs_linkedquery-ddtext ')' INTO l_ddtext.
        CONCATENATE gs_linkedquery-checktable l_ddtext INTO lstr SEPARATED BY ' '.

        IF g_commands->current_command->mv_locked IS INITIAL.

          CALL METHOD lq_menu_inner->add_submenu
            EXPORTING
              menu   = lq_menu_table_i
              text   = lstr
            EXCEPTIONS
              OTHERS = 1.

          IF sy-subrc NE 0.
            IF sy-msgno IS NOT INITIAL.
              MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
            ENDIF.
          ENDIF.

          CALL METHOD lq_menu_outer->add_submenu
            EXPORTING
              menu   = lq_menu_table_o
              text   = lstr
            EXCEPTIONS
              OTHERS = 1.

          IF sy-subrc NE 0.
            IF sy-msgno IS NOT INITIAL.
              MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
            ENDIF.
          ENDIF.

          CALL METHOD lq_menu_subquery->add_submenu
            EXPORTING
              menu   = lq_menu_table_subquery
              text   = lstr
            EXCEPTIONS
              OTHERS = 1.

          IF sy-subrc NE 0.
            IF sy-msgno IS NOT INITIAL.
              MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
            ENDIF.
          ENDIF.

        ENDIF.

        CALL METHOD lq_menu_selfae->add_submenu
          EXPORTING
            menu   = lq_menu_table_selfae
            text   = lstr
          EXCEPTIONS
            OTHERS = 1.

        IF sy-subrc NE 0.
          IF sy-msgno IS NOT INITIAL.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
          ENDIF.
        ENDIF.

      ENDIF.

      IF g_commands->current_command->mv_locked IS INITIAL.

        CONCATENATE 'I_' gs_linkedquery-fcode INTO l_fcode.

        CALL METHOD lq_menu_table_i->add_function
          EXPORTING
            fcode  = l_fcode
            text   = gs_linkedquery-text
          EXCEPTIONS
            OTHERS = 1.

        IF sy-subrc NE 0.
          IF sy-msgno IS NOT INITIAL.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
          ENDIF.
        ENDIF.

        CONCATENATE 'O_' gs_linkedquery-fcode INTO l_fcode.

        CALL METHOD lq_menu_table_o->add_function
          EXPORTING
            fcode  = l_fcode
            text   = gs_linkedquery-text
          EXCEPTIONS
            OTHERS = 1.

        IF sy-subrc NE 0.
          IF sy-msgno IS NOT INITIAL.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
          ENDIF.
        ENDIF.

        CONCATENATE 'Q_' gs_linkedquery-fcode INTO l_fcode.

        CALL METHOD lq_menu_table_subquery->add_function
          EXPORTING
            fcode  = l_fcode
            text   = gs_linkedquery-text
          EXCEPTIONS
            OTHERS = 1.

        IF sy-subrc NE 0.
          IF sy-msgno IS NOT INITIAL.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
          ENDIF.
        ENDIF.

      ENDIF.

      CONCATENATE 'S_' gs_linkedquery-fcode INTO l_fcode.

      CALL METHOD lq_menu_table_selfae->add_function
        EXPORTING
          fcode  = l_fcode
          text   = gs_linkedquery-text
        EXCEPTIONS
          OTHERS = 1.

      IF sy-subrc NE 0.
        IF sy-msgno IS NOT INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
        ENDIF.
      ENDIF.

      ls_prev_linkedquery = gs_linkedquery.

      IF g_commands->current_command->mv_locked IS INITIAL.
        lq_menu_table_i_prev        = lq_menu_table_i.
        lq_menu_table_o_prev        = lq_menu_table_o.
        lq_menu_table_subquery_prev = lq_menu_table_subquery.
      ENDIF.

      lq_menu_table_selfae_prev   = lq_menu_table_selfae.

    ENDLOOP.

    IF sender = 'T'.

      IF g_commands->current_command->mv_locked IS INITIAL.

        CALL METHOD lq_menu_inner->add_function
          EXPORTING
            fcode  = 'RELAT_I'
            text   = text-028
          EXCEPTIONS
            OTHERS = 1.

        IF sy-subrc NE 0.
          IF sy-msgno IS NOT INITIAL.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
          ENDIF.
        ENDIF.

        CALL METHOD lq_menu_outer->add_function
          EXPORTING
            fcode  = 'RELAT_O'
            text   = text-028
          EXCEPTIONS
            OTHERS = 1.

        IF sy-subrc NE 0.
          IF sy-msgno IS NOT INITIAL.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
          ENDIF.
        ENDIF.

        CALL METHOD lq_menu_subquery->add_function
          EXPORTING
            fcode  = 'RELAT_Q'
            text   = text-028
          EXCEPTIONS
            OTHERS = 1.

        IF sy-subrc NE 0.
          IF sy-msgno IS NOT INITIAL.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
          ENDIF.
        ENDIF.

      ENDIF.

      CALL METHOD lq_menu_selfae->add_function
        EXPORTING
          fcode  = 'RELAT_S'
          text   = text-028
        EXCEPTIONS
          OTHERS = 1.

      IF sy-subrc NE 0.
        IF sy-msgno IS NOT INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
        ENDIF.
      ENDIF.

    ENDIF.
    lstr = text-024.

    IF g_commands->current_command->mv_locked IS INITIAL.

      CALL METHOD e_object->add_submenu
        EXPORTING
          menu   = lq_menu_inner
          text   = lstr
        EXCEPTIONS
          OTHERS = 1.

      IF sy-subrc NE 0.
        IF sy-msgno IS NOT INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
        ENDIF.
      ENDIF.

      lstr = text-025.

      CALL METHOD e_object->add_submenu
        EXPORTING
          menu   = lq_menu_outer
          text   = lstr
        EXCEPTIONS
          OTHERS = 1.

      IF sy-subrc NE 0.
        IF sy-msgno IS NOT INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
        ENDIF.
      ENDIF.

      lstr = text-149.

      CALL METHOD e_object->add_submenu
        EXPORTING
          menu   = lq_menu_subquery
          text   = lstr
        EXCEPTIONS
          OTHERS = 1.

      IF sy-subrc NE 0.
        IF sy-msgno IS NOT INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
        ENDIF.
      ENDIF.

    ENDIF.

  ENDMETHOD.                    "lcl_application


  METHOD handle_function_selected_txt.

    CASE fcode.

      WHEN 'PRETTY'.

        IF g_commands->current_command->text IS NOT INITIAL.

**          CALL METHOD LCL_TOOLBOX=>pretty_printer
**            CHANGING
**              ct_source = g_commands->current_command->text.

          CALL FUNCTION 'PRETTY_PRINTER'
            EXPORTING
              inctoo             = ' '
            TABLES
              ntext              = g_commands->current_command->text
              otext              = g_commands->current_command->text
            EXCEPTIONS
              enqueue_table_full = 1
              include_enqueued   = 2
              include_readerror  = 3
              include_writeerror = 4
              OTHERS             = 5.
          IF sy-subrc <> 0.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
          ENDIF.

        ENDIF.

    ENDCASE.

  ENDMETHOD.                    "lcl_application


  METHOD handle_double_click.

    DATA: l_s_c TYPE REF TO lcl_select_command,
          l_lawb TYPE REF TO lcl_lawb,
          ls_fcat TYPE lvc_s_fcat,
          lv_uname LIKE sy-uname.

    FIELD-SYMBOLS: <lv_icon> TYPE ANY.


    TRY.
        l_s_c ?= g_commands->current_command.

      CATCH cx_sy_move_cast_error.

    ENDTRY.

    READ TABLE l_s_c->fcat INTO ls_fcat
    WITH KEY fieldname = e_column.

    IF sy-subrc NE 0.
      EXIT.
    ENDIF.

    IF ls_fcat-rollname IS NOT INITIAL.
      CALL DIALOG 'RS_DD_DTEL_EDIT'
        EXPORTING
          MODE    from 'S'
          objname FROM ls_fcat-rollname.
    ELSE.
      CALL METHOD g_application->issue_message
        EXPORTING
          iv_msgty        = 'S'
          iv_msgno        = '115'
          iv_display_like = 'W'.
    ENDIF.

  ENDMETHOD.                    "lcl_application

*new*
  METHOD handle_dropdown_clicked.

    DATA: menu_dynamic TYPE REF TO cl_ctmenu.

    CREATE OBJECT menu_dynamic.

    CALL METHOD handle_lq_context_menu
      EXPORTING
        sender   = 'T'
        e_object = menu_dynamic.

    CALL METHOD g_toolbar_tb_tree->track_context_menu
      EXPORTING
        context_menu = menu_dynamic
        posx         = posx
        posy         = posy.

  ENDMETHOD.                    "lcl_my_event_handler

  METHOD handle_node_double_click.

    DATA: lstr TYPE string,
          l_text TYPE source_table,
          ls_table_alias TYPE lty_zhtdb_table_aliases.

    CALL METHOD g_tree_tb->get_outtab_line
      EXPORTING
        i_node_key     = node_key
      IMPORTING
        e_outtab_line  = gs_outtab_tb
      EXCEPTIONS
        node_not_found = 1
        OTHERS         = 2.

    IF sy-subrc EQ 0.
      IF gs_outtab_tb-fieldname IS INITIAL.
        EXIT.
      ENDIF.
    ELSE.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.

    ENDIF.

    READ TABLE g_commands->current_command->mt_ranges INTO gs_ranges
      WITH KEY table_alias = gs_outtab_tb-alias
               fieldname   = gs_outtab_tb-fieldname.

    IF sy-subrc NE 0.
*      MESSAGE e027.
      RETURN.
    ENDIF.

    CONCATENATE gs_ranges-fieldname 'IN' gs_ranges-node_text INTO lstr SEPARATED BY ' '.

    READ TABLE g_commands->current_command->table_alias_tb INTO ls_table_alias
      WITH KEY alias = gs_ranges-table_alias.

    IF sy-subrc EQ 0.
      IF ls_table_alias-alias IS NOT INITIAL.
        CONCATENATE ls_table_alias-alias '~' lstr INTO lstr.
      ENDIF.
    ELSE.
      CALL METHOD g_application->issue_message
        EXPORTING
          iv_msgty = 'E'
          iv_msgno = '027'.
*      MESSAGE e027.
    ENDIF.


    DATA: lt_vrange_text TYPE lty_zhtdbt_string_tab.

**    IF g_commands->current_command->where_text IS INITIAL.
**      CONCATENATE 'WHERE' lstr INTO lstr SEPARATED BY ' '.
**    ELSE.
**      CONCATENATE 'and' lstr INTO lstr SEPARATED BY ' '.
**    ENDIF.

    APPEND lstr TO lt_vrange_text.

    CALL METHOD insert_stringtab_to_pos
      EXPORTING
        it_stringtab = lt_vrange_text.

**    APPEND lstr TO l_text.

*abaped    CALL METHOD g_textedit->set_text_as_r3table
    CALL METHOD g_textedit->set_text
      EXPORTING
        table  = g_commands->current_command->text
      EXCEPTIONS
        OTHERS = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.


**
**    CALL METHOD cl_gui_cfw=>dispatch
**      EXCEPTIONS
**        OTHERS = 1.
**
**    IF sy-subrc NE 0.
**      IF sy-msgno IS NOT INITIAL.
**        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
**WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
**      ENDIF.
**    ENDIF.

  ENDMETHOD.                    "lcl_application


  METHOD insert_stringtab_to_pos.

    DATA: l_from            TYPE i,
          l_to              TYPE i,
          l_from_new        TYPE i,
          l_to_new          TYPE i,
          l_from_line       TYPE i,
          l_to_line         TYPE i,
          l_len             TYPE i,
          lv_lines          TYPE i,
          lv_middle_string  TYPE string,
          lt_text           TYPE source_table,
          lt_text_temp      TYPE source_table,
          l_text            LIKE LINE OF lt_text_temp,
          lstr              TYPE string,
          lstr2             TYPE string,
          lt_text_split     TYPE TABLE OF string,
          ls_sel_field_list TYPE string,
          lv_from_copy      TYPE i.

    CALL METHOD g_textedit->get_selection_pos
      IMPORTING
        from_line              = l_from_line
        from_pos               = l_from
        to_line                = l_to_line
        to_pos                 = l_to
      EXCEPTIONS
        error_cntl_call_method = 1
        OTHERS                 = 2.

    IF sy-subrc <> 0.

      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.

    ENDIF.

*abaped    CALL METHOD g_textedit->get_text_as_r3table
    CALL METHOD g_textedit->get_text
      IMPORTING
        table               = lt_text
      EXCEPTIONS
*abaped        potential_data_loss = 1.
        OTHERS = 1.

    IF sy-subrc = 1.
      CALL METHOD g_application->issue_message
        EXPORTING
          iv_msgty = 'I'
          iv_msgno = '025'.
*      MESSAGE i025.
    ENDIF.

    DESCRIBE TABLE it_stringtab LINES lv_lines.
    READ TABLE lt_text INTO l_text INDEX l_from_line.
    READ TABLE it_stringtab INTO ls_sel_field_list INDEX 1.

    l_from = l_from - 1.

    IF l_from EQ 0.
      lstr2 = l_text.
      CLEAR lstr.
    ELSE.
      lstr  = l_text(l_from).
    ENDIF.

    l_text = l_text+l_from.
    lstr2  = l_text.

    IF lv_lines = 1.
      CONCATENATE lstr ls_sel_field_list lstr2 INTO lv_middle_string SEPARATED BY space.
    ELSE.
      CONCATENATE lstr ls_sel_field_list INTO lv_middle_string SEPARATED BY space.
    ENDIF.

    IF l_from_line > 1.
      lv_from_copy = l_from_line - 1.

      LOOP AT lt_text INTO lstr FROM 1 TO lv_from_copy.
        l_text = lstr.
        APPEND l_text TO lt_text_temp.
      ENDLOOP.
    ENDIF.

    CALL METHOD lcl_toolbox=>split_string
      EXPORTING
        iv_string     = lv_middle_string
        iv_maxlen     = gc_line_length
      IMPORTING
        et_string_tab = lt_text_split.

    LOOP AT lt_text_split INTO lstr.
      l_text = lstr.
      APPEND l_text TO lt_text_temp.
    ENDLOOP.

    LOOP AT it_stringtab INTO ls_sel_field_list FROM 2.

      CLEAR lt_text_split.

      IF sy-tabix = lv_lines.
        CONCATENATE ls_sel_field_list lstr2 INTO ls_sel_field_list
          SEPARATED BY space.
      ENDIF.

      CALL METHOD lcl_toolbox=>split_string
        EXPORTING
          iv_string     = ls_sel_field_list
          iv_maxlen     = gc_line_length
        IMPORTING
          et_string_tab = lt_text_split.

      LOOP AT lt_text_split INTO lstr.
        l_text = lstr.
        APPEND l_text TO lt_text_temp.
      ENDLOOP.

    ENDLOOP.

    lv_from_copy = l_from_line + 1.

    LOOP AT lt_text INTO lstr FROM lv_from_copy.
      l_text = lstr.
      APPEND l_text TO lt_text_temp.
    ENDLOOP.

    g_commands->current_command->text[] = lt_text_temp[].


  ENDMETHOD.                    "insert_stringtab_to_pos

  METHOD create_tb_tree_toolbar.

    DATA: lv_auth_ok TYPE c.

    CALL METHOD g_tree_tb->get_toolbar_object
      IMPORTING
        er_toolbar = g_toolbar_tb_tree
      EXCEPTIONS
        OTHERS     = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

    CHECK NOT g_toolbar_tb_tree IS INITIAL.

*new*
    SET HANDLER g_application->handle_dropdown_clicked  FOR g_toolbar_tb_tree.
    SET HANDLER g_application->handle_function_selected FOR g_toolbar_tb_tree.

    IF g_commands IS NOT INITIAL AND g_commands->current_command IS NOT INITIAL.

      lv_auth_ok = 'X'.

    ENDIF.


    CALL METHOD g_toolbar_tb_tree->delete_all_buttons
      EXCEPTIONS
        OTHERS = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.


***    IF g_commands IS NOT INITIAL AND g_commands->current_command IS NOT INITIAL.
***      CHECK g_commands->current_command->mv_locked IS INITIAL.
***    ENDIF.

    DATA: lv_icontext TYPE iconquick.

    IF lv_auth_ok = 'X' AND ( g_commands->current_command->mv_locked = ' ' ).

      lv_icontext = text-147.
      CALL METHOD g_toolbar_tb_tree->add_button
        EXPORTING
          fcode     = 'GET_TABLES'
          icon      = '@42@'
          butn_type = cntb_btype_button
          text      = ''
          quickinfo = lv_icontext
        EXCEPTIONS
          OTHERS    = 1.

      IF sy-subrc NE 0.
        IF sy-msgno IS NOT INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
        ENDIF.
      ENDIF.

    ENDIF.

    lv_icontext = text-050.
    CALL METHOD g_toolbar_tb_tree->add_button
      EXPORTING
        fcode     = 'DISPLAY'
        icon      = '@B_DISP@'
        butn_type = cntb_btype_button
        text      = ''
        quickinfo = lv_icontext
      EXCEPTIONS
        OTHERS    = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

    lv_icontext = text-051.
    CALL METHOD g_toolbar_tb_tree->add_button
      EXPORTING
        fcode     = 'INDEXES'
        icon      = '@USEREL@'
        butn_type = cntb_btype_button
        text      = ''
        quickinfo = lv_icontext
      EXCEPTIONS
        OTHERS    = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

    lv_icontext = text-052.
    CALL METHOD g_toolbar_tb_tree->add_button
      EXPORTING
        fcode     = 'TECH'
        icon      = '@B_DETL@'
        butn_type = cntb_btype_button
        text      = ''
        quickinfo = lv_icontext
      EXCEPTIONS
        OTHERS    = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

    lv_icontext = text-053.
    CALL METHOD g_toolbar_tb_tree->add_button
      EXPORTING
        fcode     = 'GRAPH'
        icon      = '@56@'
        butn_type = cntb_btype_button
        text      = ''
        quickinfo = lv_icontext
      EXCEPTIONS
        OTHERS    = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

    lv_icontext = text-054.
    CALL METHOD g_toolbar_tb_tree->add_button
      EXPORTING
        fcode     = 'TEXTTAB'
        icon      = '@B_TXDP@'
        butn_type = cntb_btype_button
        text      = ''
        quickinfo = lv_icontext
      EXCEPTIONS
        OTHERS    = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

    lv_icontext = text-055.
    CALL METHOD g_toolbar_tb_tree->add_button
      EXPORTING
        fcode     = 'RUNTIMEOBJ'
        icon      = '@OBJELI@'
        butn_type = cntb_btype_button
        text      = ''
        quickinfo = lv_icontext
      EXCEPTIONS
        OTHERS    = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

    lv_icontext = text-056.
    CALL METHOD g_toolbar_tb_tree->add_button
      EXPORTING
        fcode     = 'WHERE'
        icon      = '@B_BOOK@'
        butn_type = cntb_btype_button
        text      = ''
        quickinfo = lv_icontext
      EXCEPTIONS
        OTHERS    = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

    lv_icontext = text-057.
    CALL METHOD g_toolbar_tb_tree->add_button
      EXPORTING
        fcode     = 'CONTENTS'
        icon      = '@B_LIST@'
        butn_type = cntb_btype_button
        text      = ''
        quickinfo = lv_icontext
      EXCEPTIONS
        OTHERS    = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

    IF lv_auth_ok = 'X' AND ( g_commands->current_command->mv_locked = ' ' ).
      lv_icontext = text-058.
      CALL METHOD g_toolbar_tb_tree->add_button
        EXPORTING
          fcode     = 'VRANGES'
          icon      = '@BGMORE@'
          butn_type = cntb_btype_button
          text      = ''
          quickinfo = lv_icontext
        EXCEPTIONS
          OTHERS    = 1.

      IF sy-subrc NE 0.
        IF sy-msgno IS NOT INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
        ENDIF.
      ENDIF.
    ENDIF.

*new*

    lv_icontext = text-169.
    CALL METHOD g_toolbar_tb_tree->add_button
      EXPORTING
        fcode     = 'LQA'
        icon      = '@B_TREE@'
        butn_type = cntb_btype_dropdown
        text      = ''
        quickinfo = lv_icontext
      EXCEPTIONS
        OTHERS    = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.


  ENDMETHOD.                    "lcl_application

  METHOD create_txt_toolbar.

* nincs ilyen vaze

  ENDMETHOD.                    "lcl_application



  METHOD display_table_grid.

    DATA: ls_tb_alias_tb TYPE gty_table_aliases,
          l_command      TYPE REF TO lcl_command,
          ls_table       TYPE lty_zhtdb_alv_tab,
          l_node_text    TYPE lvc_value,
          l_new_node_key TYPE lvc_nkey,
          ls_node_style  TYPE lvc_s_layn,
          ls_rangename   TYPE lvc_value,
          ls_alias_range LIKE LINE OF l_command->mt_alias_ranges,
          ls_dd25l       TYPE dd25l.


    l_command = g_commands->current_command.

*   CHECK l_command->mt_tab_node_xref IS INITIAL.
*   CLEAR l_command->mt_outtab_tb.

*   miert a where feltetel??
    DELETE l_command->mt_outtab_tb
      WHERE fieldname IS INITIAL.

*   CLEAR l_command->mt_outtab_tb.
    CLEAR l_command->mt_tab_node_xref.

    IF g_tree_tb IS INITIAL.
      RETURN.
    ENDIF.

    CALL METHOD g_tree_tb->delete_all_nodes
      EXCEPTIONS
        OTHERS = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

    LOOP AT l_command->table_alias_tb INTO ls_tb_alias_tb.

      CLEAR ls_table.

      SELECT SINGLE ddtext
        INTO ls_table-ddtext
        FROM dd02t
        WHERE as4local   = 'A'                  AND
              tabname    = ls_tb_alias_tb-table AND
              ddlanguage = sy-langu.

      IF sy-subrc EQ 4.

        SELECT SINGLE ddtext
          INTO ls_table-ddtext
          FROM dd02t
          WHERE as4local = 'A'      AND
                tabname = ls_tb_alias_tb-table.

      ENDIF.

      IF ls_tb_alias_tb-alias IS NOT INITIAL.
        ls_table-alias     = ls_tb_alias_tb-alias.
      ELSE.
        ls_table-alias     = ls_tb_alias_tb-table.
      ENDIF.

      ls_table-tablename = ls_tb_alias_tb-table.

      APPEND ls_table TO l_command->mt_outtab_tb.

      READ TABLE l_command->mt_alias_ranges
      WITH KEY table_alias = ls_table-alias
      TRANSPORTING NO FIELDS.

      IF sy-subrc NE 0.
        CLEAR ls_alias_range.
        ls_alias_range-table_alias = ls_table-alias.

        APPEND ls_alias_range TO l_command->mt_alias_ranges.
      ENDIF.

    ENDLOOP.

*   add tables to tree
    LOOP AT l_command->mt_outtab_tb INTO gs_outtab_tb
         WHERE fieldname IS INITIAL.

      READ TABLE l_command->table_alias_tb INTO ls_tb_alias_tb
        WITH KEY alias = gs_outtab_tb-alias.

      IF ls_tb_alias_tb-table NE ls_tb_alias_tb-alias.
        CONCATENATE ls_tb_alias_tb-table 'as' ls_tb_alias_tb-alias INTO l_node_text SEPARATED BY ' '.
      ELSE.
        l_node_text = ls_tb_alias_tb-table.
      ENDIF.

*      SELECT SINGLE viewname
*      FROM dd25l
*      INTO ls_dd25l-viewname
*      WHERE AS4LOCAL = 'A'
*            and viewname = ls_tb_alias_tb-table.

      CASE ls_tb_alias_tb-type.
        WHEN 'T'.
          ls_node_style-exp_image = '@PO@'.
          ls_node_style-n_image = '@PO@'.
        WHEN 'V'.
          ls_node_style-exp_image = '@A2@'.
          ls_node_style-n_image = '@A2@'.
        WHEN 'C'.
          ls_node_style-exp_image = '@AP@'.
          ls_node_style-n_image = '@AP@'.
        WHEN 'P'.
          ls_node_style-n_image = '@AQ@'.
          ls_node_style-exp_image = '@AQ@'.
      ENDCASE.

      CALL METHOD g_tree_tb->add_node
        EXPORTING
          i_relat_node_key = ''
          i_relationship   = cl_gui_column_tree=>relat_last_child
          is_outtab_line   = gs_outtab_tb
          i_node_text      = l_node_text
          is_node_layout   = ls_node_style
        IMPORTING
          e_new_node_key   = l_new_node_key
        EXCEPTIONS
          OTHERS           = 1.

      IF sy-subrc NE 0.
        IF sy-msgno IS NOT INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
        ENDIF.
      ENDIF.

      gs_tab_node_xref-tablename = gs_outtab_tb-tablename.
      gs_tab_node_xref-alias     = gs_outtab_tb-alias.
      gs_tab_node_xref-node_key  = l_new_node_key.
      APPEND gs_tab_node_xref TO l_command->mt_tab_node_xref.

    ENDLOOP.

    ls_node_style-n_image = '@1E@'.

*   add fields
    LOOP AT l_command->mt_outtab_tb INTO gs_outtab_tb
         WHERE fieldname IS NOT INITIAL.

      READ TABLE l_command->mt_tab_node_xref
        INTO gs_tab_node_xref
        WITH KEY alias = gs_outtab_tb-alias.
*      WITH KEY tablename = gs_outtab_tb-tablename.

      IF sy-subrc NE 0.
*        MESSAGE i027.
        CONTINUE.
      ENDIF.

      IF gs_outtab_tb-tablename NE gs_outtab_tb-alias.
        CONCATENATE 'R_' gs_outtab_tb-alias '_' gs_outtab_tb-fieldname INTO ls_rangename SEPARATED BY ''.
      ELSE.
        CONCATENATE 'R_' gs_outtab_tb-tablename '_' gs_outtab_tb-fieldname INTO ls_rangename SEPARATED BY ''.
      ENDIF.

*      CONCATENATE 'R_' gs_outtab_tb-tablename '_' gs_outtab_tb-fieldname INTO ls_rangename SEPARATED BY ''.
      REPLACE ' ' WITH '' INTO ls_rangename.
      CONDENSE ls_rangename NO-GAPS.

      CALL METHOD g_tree_tb->add_node
        EXPORTING
          i_relat_node_key = gs_tab_node_xref-node_key
          i_relationship   = cl_gui_column_tree=>relat_last_child
          is_outtab_line   = gs_outtab_tb
          i_node_text      = ls_rangename
          is_node_layout   = ls_node_style
        IMPORTING
          e_new_node_key   = l_new_node_key
        EXCEPTIONS
          OTHERS           = 1.

      IF sy-subrc NE 0.
        IF sy-msgno IS NOT INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
        ENDIF.
      ENDIF.

      CALL METHOD g_tree_tb->expand_node
        EXPORTING
          i_node_key = gs_tab_node_xref-node_key
        EXCEPTIONS
          OTHERS     = 1.

      IF sy-subrc NE 0.
        IF sy-msgno IS NOT INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
        ENDIF.
      ENDIF.

    ENDLOOP.

    CALL METHOD g_tree_tb->frontend_update
      EXCEPTIONS
        OTHERS = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

  ENDMETHOD.                    "lcl_application

  METHOD refresh_status_indicators.

    DATA: lstr TYPE string,
*            l_s_c TYPE REF TO lcl_select_command,
          lstr2 TYPE string,
          l_command_type TYPE lty_commandtype,
          l_int TYPE i.

*      try.
*        l_s_c ?= g_commands->current_command.
*
*      catch cx_sy_move_cast_error.
*        EXIT.
*      endtry.

    CALL METHOD g_commands->current_command->get_type
      IMPORTING
        ep_command_type = l_command_type
      EXCEPTIONS
        OTHERS          = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
    ENDIF.

    CASE l_command_type.
      WHEN gc_ctype_select OR
           gc_ctype_selfae OR
           gc_ctype_lawb.

      WHEN OTHERS.
        EXIT.
    ENDCASE.

    CLEAR gt_dynpread.

*      CLEAR: lstr, lstr2.
*
*      lstr2 = g_commands->current_command->mv_dbcnt.
*      CONCATENATE lstr 'Rows fetched:' lstr2 INTO lstr SEPARATED BY ' '.

    DATA: lv_cnt_fetched TYPE i,
          lv_cnt_updated TYPE i,
          lv_cnt_inserted TYPE i,
          lv_cnt_deleted TYPE i.

    MESSAGE i030 WITH g_commands->current_command->mv_dbcnt lv_cnt_updated lv_cnt_inserted lv_cnt_deleted INTO lstr.

****    MESSAGE i137 WITH lstr g_commands->current_command->mv_from g_commands->current_command->mv_to INTO lstr.

*new*
    DATA: lv_title TYPE lvc_title.

    lv_title = lstr.

    CALL METHOD g_alv->set_gridtitle
      EXPORTING
        i_gridtitle = lv_title.

*    gs_dynpread-fieldname = 'STATUS1'.
*    gs_dynpread-fieldvalue = lstr.
*    APPEND gs_dynpread TO gt_dynpread.
*
*    IF g_alv IS NOT INITIAL AND g_commands->current_command->mv_grid_modified IS NOT INITIAL.
*      CALL METHOD g_alv->set_toolbar_interactive
*        EXCEPTIONS
*          OTHERS = 1.
*
*      IF sy-subrc NE 0.
*        IF sy-msgno IS NOT INITIAL.
*          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
*                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
*        ENDIF.
*      ENDIF.
*    ENDIF.
*
*    CALL METHOD cl_gui_cfw=>set_new_ok_code
*      EXPORTING
*        new_code = 'ENT'
*      IMPORTING
*        rc       = l_int
*      EXCEPTIONS
*        OTHERS   = 1.
*
*    IF sy-subrc NE 0.
*      IF sy-msgno IS NOT INITIAL.
*        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
*                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
*      ENDIF.
*    ENDIF.

  ENDMETHOD.                    "lcl_application


  METHOD handle_after_refresh.

  ENDMETHOD.                    "lcl_application

  METHOD check_s_tabu_dis.

    DATA: x030l_wa        TYPE x030l,
          activity(2)     TYPE c,
          client_indep    TYPE c,
          lv_tddat        TYPE tddat,
          lv_tabname      TYPE tabname.

    CLEAR client_indep.

    lv_tabname = iv_tabname.
    TRANSLATE lv_tabname TO UPPER CASE.

*   determine activity
    IF iv_for_editing IS INITIAL.
      activity = '03'.
    ELSE.
      activity = '02'.
    ENDIF.

*   client independent?
    CALL FUNCTION 'DDIF_FIELDINFO_GET'
      EXPORTING
        tabname        = lv_tabname
      IMPORTING
        x030l_wa       = x030l_wa
      EXCEPTIONS
        not_found      = 1
        internal_error = 2
        OTHERS         = 3.

    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
         WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.

    IF x030l_wa-clpos = 0.
      client_indep = 'X'.
    ENDIF.

*   check normal table maintenace authority
    SELECT SINGLE * FROM tddat INTO lv_tddat
                    WHERE tabname = lv_tabname.

    IF sy-subrc <> 0  OR lv_tddat-cclass IS INITIAL.
      lv_tddat-cclass = '&NC&'.        " 'non classified table'
    ENDIF.

    ev_auth = 'X'.

    AUTHORITY-CHECK OBJECT 'S_TABU_DIS'
                    ID     'ACTVT'      FIELD activity
                    ID     'DICBERCLS'  FIELD lv_tddat-cclass.

    IF sy-subrc <> 0.
      CLEAR ev_auth.
    ENDIF.

*   check authority for client independent changes
    IF client_indep   = 'X' AND
       iv_for_editing = 'X'.

      AUTHORITY-CHECK OBJECT 'S_TABU_CLI'
                      ID     'CLIIDMAINT' FIELD 'X'.

      IF sy-subrc <> 0.
        CLEAR ev_auth.
      ENDIF.

    ENDIF.

  ENDMETHOD.                    " check_s_tabu_dis


  METHOD handle_toolbar.

    DATA: ls_toolbar           TYPE stb_button,
          lv_not_modified      TYPE c,
          lv_display_only      TYPE c,
          lv_hide_undo         TYPE c,
          lv_undo_not_empty    TYPE c,
          lv_auth_change_res   TYPE c,
          lv_read_from_file    TYPE c,
          l_lawb               TYPE REF TO lcl_lawb,
          lv_tabname           TYPE tabname,
          l_select             TYPE REF TO lcl_select_command,
          lv_add_save_btn      TYPE c.


    IF sender NE g_alv.
      EXIT.
    ENDIF.

    TRY.
        l_select ?= g_commands->current_command.

        lv_read_from_file = l_select->mv_read_from_file.

        IF l_select->alv_state EQ 0.
          lv_display_only = 'X'.
        ELSE.
          lv_display_only = ' '.
        ENDIF.

      CATCH cx_sy_move_cast_error.
*      message 'ZENITH:Casting error5' TYPE 'E'.
    ENDTRY.

    IF <gt_undo> IS ASSIGNED AND <gt_undo> IS NOT INITIAL.
      lv_undo_not_empty = 'X'.
    ENDIF.

    IF g_commands->current_command->mv_grid_modified EQ 'X'.
      lv_not_modified = ' '.
    ELSE.
      lv_not_modified = 'X'.
    ENDIF.

    CLEAR ls_toolbar.
    MOVE 3 TO ls_toolbar-butn_type.
    INSERT ls_toolbar INTO e_object->mt_toolbar INDEX 1.

    CLEAR ls_toolbar.
    MOVE cl_gui_alv_grid=>mc_fc_select_all TO ls_toolbar-function.
    MOVE icon_select_all TO ls_toolbar-icon.
    MOVE text-061 TO ls_toolbar-quickinfo.
    APPEND ls_toolbar TO e_object->mt_toolbar.

    CLEAR ls_toolbar.
    MOVE cl_gui_alv_grid=>mc_fc_deselect_all TO ls_toolbar-function.
    MOVE icon_deselect_all TO ls_toolbar-icon.
    MOVE text-062 TO ls_toolbar-quickinfo.
    APPEND ls_toolbar TO e_object->mt_toolbar.

    CLEAR ls_toolbar.
    MOVE 3 TO ls_toolbar-butn_type.
    APPEND ls_toolbar TO e_object->mt_toolbar.

    CLEAR ls_toolbar.
    MOVE 'TXT_MENU' TO ls_toolbar-function.
    MOVE icon_display_text TO ls_toolbar-icon.
    MOVE text-063 TO ls_toolbar-quickinfo.
    MOVE 2 TO ls_toolbar-butn_type.
    MOVE space TO ls_toolbar-disabled.
    APPEND ls_toolbar TO e_object->mt_toolbar.

    CLEAR ls_toolbar.
    MOVE 3 TO ls_toolbar-butn_type.
    APPEND ls_toolbar TO e_object->mt_toolbar.



  ENDMETHOD.                    "lcl_application


  METHOD handle_function_selected.

    DATA: l_tabname         TYPE tabname,
          l_aliasname       TYPE string,
          l_texttabname     TYPE dd08v-tabname,
          lstr              TYPE string,
          fpopup            TYPE c,
          l_ok_code         TYPE sy-ucomm,
          l_selected_node   TYPE lvc_nkey,
          l_fieldname       TYPE lvc_fname,
          ls_selected_nodes TYPE lvc_s_nkey,
          lt_selected_nodes TYPE lvc_t_nkey,
          l_node_key        TYPE lvc_nkey,
          l_new_node_key    TYPE lvc_nkey,
          l_nodetext        TYPE lvc_value,
          l_command         TYPE REF TO lcl_command,
          ls_table_alias_tb LIKE LINE OF l_command->table_alias_tb.


    CHECK g_commands->current_command IS NOT INITIAL.

*new*
    IF fcode+2(3) EQ 'LA_' OR fcode(5) EQ 'RELAT'.

      CALL METHOD handle_lq_ctx_sel
        EXPORTING
          sender  = 'T'
          e_ucomm = fcode
        EXCEPTIONS
          OTHERS  = 1.

      IF sy-subrc NE 0.
        IF sy-msgno IS NOT INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
        ENDIF.
      ENDIF.

    ELSEIF fcode = 'GET_TABLES'.

      CALL METHOD g_commands->parse_only_command
        EXCEPTIONS
          no_id        = 1
          create_error = 2
          no_parent    = 3
          parse_error  = 4
          OTHERS       = 5.

      CASE sy-subrc.
        WHEN 1.
*          message s077 DISPLAY LIKE 'E'.
          CALL METHOD g_application->issue_message
            EXPORTING
              iv_msgty        = 'S'
              iv_msgno        = '077'
              iv_display_like = 'E'.
          RETURN.
        WHEN 2.
*          message s076 DISPLAY LIKE 'E'.
          CALL METHOD g_application->issue_message
            EXPORTING
              iv_msgty        = 'S'
              iv_msgno        = '076'
              iv_display_like = 'E'.
          RETURN.
        WHEN 3.
*          MESSAGE s050 DISPLAY LIKE 'E'.
          CALL METHOD g_application->issue_message
            EXPORTING
              iv_msgty        = 'S'
              iv_msgno        = '050'
              iv_display_like = 'E'.
          RETURN.
        WHEN 4.
*  this would override detailed information
*          message s079 DISPLAY LIKE 'E'.
          RETURN.
        WHEN 5.
          RETURN.

      ENDCASE.

      RETURN.

    ENDIF.

    CALL METHOD g_tree_tb->get_selected_nodes
      CHANGING
        ct_selected_nodes = lt_selected_nodes
      EXCEPTIONS
        cntl_system_error = 1
        dp_error          = 2
        failed            = 3
        OTHERS            = 4.

    IF sy-subrc <> 0.
      CALL METHOD g_application->issue_message
        EXPORTING
          iv_msgty = 'E'
          iv_msgno = '031'.
*      MESSAGE e031.
    ENDIF.

    READ TABLE lt_selected_nodes INTO ls_selected_nodes INDEX 1.

    IF sy-subrc EQ 0.

      l_node_key = ls_selected_nodes-node_key.

      CLEAR gs_outtab_tb.

      CALL METHOD g_tree_tb->get_outtab_line
        EXPORTING
          i_node_key     = l_node_key
        IMPORTING
*         E_NODE_TEXT    = l_nodetext
          e_outtab_line  = gs_outtab_tb
        EXCEPTIONS
          node_not_found = 1
          OTHERS         = 2.

      IF sy-subrc <> 0.
        IF sy-msgno IS NOT INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
        ENDIF.
      ENDIF.

      IF gs_outtab_tb IS INITIAL AND fcode NE 'VRANGES'.
        EXIT.
      ENDIF.

*     MOVE gs_outtab_tb-tablename TO l_aliasname.
*     MOVE ls_table_alias_tb-alias TO l_aliasname.
      MOVE gs_outtab_tb-alias TO l_aliasname.

      l_command = g_commands->current_command.

      READ TABLE l_command->table_alias_tb INTO ls_table_alias_tb
        WITH KEY alias = l_aliasname.

      IF sy-subrc NE 0.
        RETURN.
      ENDIF.

      IF fcode = 'VRANGES'             AND
         ls_table_alias_tb-type NE 'T' AND
         ls_table_alias_tb-type NE 'V'.
        MESSAGE i121 DISPLAY LIKE 'W' WITH ls_table_alias_tb-table.
        RETURN.
      ENDIF.

      MOVE ls_table_alias_tb-table TO l_tabname.

*      IF l_aliasname IS INITIAL AND fcode EQ 'VRANGES'.
*        EXIT.
*      ENDIF.

    ELSE.
      RETURN.
    ENDIF.

    CASE fcode.

      WHEN 'GRAPH'.

        TYPE-POOLS: sdg1.
        DATA: obj_tab TYPE sdg1_obj,
              obj_def TYPE sdg1_obj1.

        CHECK gs_outtab_tb-fieldname IS INITIAL.

        obj_def-obj_name = l_tabname.
        obj_def-type     = 'TABL'.
        CLEAR obj_tab.
        APPEND obj_def TO obj_tab.

        CLEAR sy-msgno.
        CALL FUNCTION 'REPOSITORY_STRUCTURE_GRAPH'
          EXPORTING
            type    = 'TABL'
          TABLES
            OBJECTS = obj_tab
          EXCEPTIONS
            OTHERS  = 1.

        IF sy-subrc NE 0.
          IF sy-msgno IS NOT INITIAL.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
          ENDIF.
        ENDIF.

      WHEN 'DISPLAY'.

        DATA: lv_type TYPE string.

        CASE ls_table_alias_tb-type.

          WHEN 'T'.
            lv_type = 'TABL'.

          WHEN 'V'.
            lv_type = 'VIEW'.

          WHEN 'C'.
            lv_type = 'SQLT'.

          WHEN 'P'.
            lv_type = 'SQLT'.

        ENDCASE.

        CALL FUNCTION 'RS_TOOL_ACCESS'
          EXPORTING
            operation                 = 'SHOW'
            object_name               = l_tabname
            object_type               = lv_type
*           ENCLOSING_OBJECT          =
*           POSITION                  = ' '
*           DEVCLASS                  =
*           INCLUDE                   =
*           VERSION                   = ' '
*           MONITOR_ACTIVATION        = 'X'
*           WB_MANAGER                =
*           IN_NEW_WINDOW             =
*           WITH_OBJECTLIST           = ' '
*           WITH_WORKLIST             = ' '
*         IMPORTING
*           NEW_NAME                  =
*           WB_TODO_REQUEST           =
*         TABLES
*           OBJLIST                   =
         EXCEPTIONS
           not_executed              = 1
           invalid_object_type       = 2
           OTHERS                    = 3
                  .
        IF sy-subrc <> 0.
          IF sy-msgno IS NOT INITIAL.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
          ENDIF.
        ENDIF.


      WHEN 'TECH'.

        CHECK gs_outtab_tb-fieldname IS INITIAL.

        PERFORM mem_export.
        SET PARAMETER ID 'DTB' FIELD l_tabname.
        CALL TRANSACTION 'SE13' AND SKIP FIRST SCREEN.

      WHEN 'INDEXES'.

*       if ddxx-tabclass ne 'TRANSP'.
*         Indexpflege nur für transparente Tabellen m?glich
*         message s807.
*       else.

        CHECK gs_outtab_tb-fieldname IS INITIAL.

        CALL FUNCTION 'DD_LIST_INDEX'
          EXPORTING
            objname = l_tabname
          IMPORTING
            fcode   = l_ok_code.


      WHEN 'RUNTIMEOBJ'.

        CHECK gs_outtab_tb-fieldname IS INITIAL.

        SUBMIT rutdbdsp AND RETURN WITH objname EQ l_tabname
                                   WITH display EQ 2.

*        SUBMIT rutntchk AND RETURN WITH tabname EQ l_tabname
*                                   WITH ttype   EQ 'TABL'
*                                   WITH status  EQ 'A'
*                                   WITH showonly EQ 'X'.

      WHEN 'TEXTTAB'.

        CHECK gs_outtab_tb-fieldname IS INITIAL.

        CALL FUNCTION 'DDUT_TEXTTABLE_GET'
          EXPORTING
            tabname   = l_tabname
          IMPORTING
            texttable = l_texttabname.

        IF l_texttabname IS INITIAL.
          CALL METHOD g_application->issue_message
            EXPORTING
              iv_msgty = 'I'
              iv_msgno = '032'
              iv_msgv1 = l_tabname.
*          MESSAGE i032 WITH l_tabname.
        ELSE.
          CLEAR fpopup.
          CALL DIALOG 'RS_DD_FIEL_SHOW'
            EXPORTING
              objname FROM l_texttabname.
        ENDIF.


      WHEN 'CONTENTS'.

        CHECK gs_outtab_tb-fieldname IS INITIAL.

        CALL FUNCTION 'RS_NAVIGATION_BREAK'.

        CLEAR sy-msgno.
        CALL FUNCTION 'RS_TOOL_ACCESS'
             EXPORTING
                  operation   = 'TAB_CONT'
                  object_name = l_tabname
                  object_type = 'TABL'
             EXCEPTIONS
                  not_executed.

        IF sy-subrc NE 0.
          IF sy-msgno IS NOT INITIAL.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
          ENDIF.

        ENDIF.

        CALL FUNCTION 'RS_NAVIGATION_BREAK_RESET'.


      WHEN 'WHERE'.

        CHECK gs_outtab_tb-fieldname IS INITIAL.

        CALL FUNCTION 'RS_NAVIGATION_BREAK'.

        CLEAR sy-msgno.
        CALL FUNCTION 'RS_TOOL_ACCESS'
          EXPORTING
            operation          = 'CROSSREF'
            object_name        = l_tabname
            object_type        = 'DT'
            monitor_activation = 'X'
          EXCEPTIONS
            OTHERS             = 01.

        IF sy-subrc NE 0.
          IF sy-msgno IS NOT INITIAL.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
          ENDIF.
        ENDIF.

        CALL FUNCTION 'RS_NAVIGATION_BREAK_RESET'.
* VRANGES
      WHEN 'VRANGES'.

        DATA: it_fdiff       TYPE TABLE OF field_dif,
              it_dfies       TYPE TABLE OF dfies,
              is_dfies       TYPE dfies,
              is_fdiff       TYPE field_dif,
              lt_tables      TYPE TABLE OF rsdstabs,
              is_tables      TYPE rsdstabs,
              lt_ranges      TYPE rsds_trange,
              ls_range2      LIKE LINE OF lt_ranges, " TYPE rsds_range, "lty_zhdb_vrange-rsds_range,
              it_ranges2     TYPE rsds_trange,
              is_ranges2     LIKE LINE OF it_ranges2,
              is_ranges      LIKE LINE OF l_command->it_ranges,
              l_tabix        TYPE i,
              it_frange      TYPE rsds_frange_t,
              is_frange      LIKE LINE OF it_frange,
              ls_frange2     LIKE LINE OF it_frange,
              it_where       TYPE rsds_twhere,
              is_where       TYPE rsds_where,
              l_where_text   TYPE string,
              ls_alias_range LIKE LINE OF l_command->mt_alias_ranges,
              ls_rangename   TYPE lvc_value,
              lt_where       TYPE rsds_twhere,
              ls_where       TYPE rsds_where,
              ls_range       LIKE LINE OF l_command->mt_ranges,
              l_line         LIKE LINE OF ls_where-where_tab,
              ls_node_style  TYPE lvc_s_layn,

              lt_field_desc  TYPE TABLE OF fldconvert,
              ls_field_desc  TYPE fldconvert,

              lt_fields      TYPE TABLE OF rsdsfields,
              ls_fields      TYPE rsdsfields.

        CLEAR lt_tables.

        CHECK l_command IS NOT INITIAL.

        READ TABLE l_command->mt_alias_ranges INTO ls_alias_range
          WITH KEY table_alias = l_aliasname.

        IF sy-subrc EQ 0.

*          if ls_table_alias_tb-type = 'C' or ls_table_alias_tb-type = 'P'.
*
*            LOOP AT l
*
*          endif.

          l_tabix = sy-tabix.

          READ TABLE l_command->it_ranges INTO is_ranges
          WITH KEY alias = l_aliasname.

          IF sy-subrc EQ 0.

            CLEAR lt_ranges.

            APPEND is_ranges-rsds_range TO lt_ranges.

            CALL FUNCTION 'FREE_SELECTIONS_RANGE_2_EX'
              EXPORTING
                field_ranges = lt_ranges
              IMPORTING
                expressions  = ls_alias_range-expr.

            LOOP AT lt_ranges INTO is_ranges2.

              LOOP AT is_ranges2-frange_t INTO is_frange.

                ls_fields-tablename = l_tabname.
                ls_fields-fieldname = is_frange-fieldname.

                APPEND ls_fields TO lt_fields.

              ENDLOOP.

            ENDLOOP.

          ENDIF.

        ENDIF.

        REFRESH: it_fdiff.
        is_fdiff-tabname = l_tabname.

        CLEAR it_dfies.
        CLEAR sy-msgno.

        CALL FUNCTION 'DDIF_NAMETAB_GET'
          EXPORTING
            tabname   = l_tabname
          IMPORTING
            x030l_wa  = l_command->is_x030l
          TABLES
            dfies_tab = it_dfies
          EXCEPTIONS
            OTHERS    = 1.

        IF sy-subrc NE 0.
          IF sy-msgno IS NOT INITIAL.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
          ENDIF.
        ENDIF.

        IF l_command->is_x030l IS INITIAL.
          CALL METHOD g_application->issue_message
            EXPORTING
              iv_msgty = 'E'
              iv_msgno = '033'
              iv_msgv1 = l_tabname.
*          MESSAGE e033 WITH l_tabname.
*       ELSEIF l_command->is_x030l-tabtype NE 'T'.
*         message 'ZENITH:is not selectable' TYPE 'E'.
*       ELSEIF l_command->is_x030l-align NE 0.
*         message 'ZENITH:has alignment - cannot continue' TYPE 'E'.
        ENDIF.

        is_tables-prim_tab = ls_table_alias_tb-table.
        APPEND is_tables TO lt_tables.

        IF ls_alias_range-sel_id IS INITIAL.
*         Init free selection dialog
          CLEAR sy-msgno.
          CALL FUNCTION 'FREE_SELECTIONS_INIT'
            EXPORTING
              expressions  = ls_alias_range-expr
            IMPORTING
              selection_id = ls_alias_range-sel_id
              expressions  = ls_alias_range-expr
            TABLES
              tables_tab   = lt_tables
              fields_tab   = lt_fields
              field_desc   = lt_field_desc
            EXCEPTIONS
              OTHERS       = 1.

          IF sy-subrc NE 0.
            IF sy-msgno IS NOT INITIAL.
              MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                      WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
            ENDIF.
          ENDIF.
        ENDIF.

*       Display free selection dialog
        CLEAR sy-msgno.
        CALL FUNCTION 'FREE_SELECTIONS_DIALOG'
          EXPORTING
            selection_id            = ls_alias_range-sel_id
            title                   = text-077
            as_window               = 'X'
          IMPORTING
            expressions             = ls_alias_range-expr
            field_ranges            = lt_ranges
            number_of_active_fields = ls_alias_range-active
          TABLES
            fields_tab              = ls_alias_range-fields
          EXCEPTIONS
            OTHERS                  = 1.

        IF sy-subrc NE 0.
          IF sy-msgno IS NOT INITIAL.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
          ENDIF.
          EXIT.
        ENDIF.

        LOOP AT lt_ranges INTO ls_range2.
          DELETE l_command->it_ranges WHERE alias = l_aliasname.

          is_ranges-alias      = l_aliasname.
          is_ranges-rsds_range = ls_range2.
          APPEND is_ranges TO l_command->it_ranges.
        ENDLOOP.

        IF sy-subrc EQ 4.
          CLEAR l_command->it_ranges.
        ENDIF.

        ls_node_style-n_image = '@1E@'.

        MODIFY l_command->mt_alias_ranges FROM ls_alias_range INDEX l_tabix.

        READ TABLE lt_ranges INTO ls_range2 INDEX 1.

        it_frange = ls_range2-frange_t.

        LOOP AT l_command->mt_outtab_tb INTO gs_outtab_tb
             WHERE alias = l_aliasname    AND
                   fieldname IS NOT INITIAL.

          READ TABLE it_frange INTO is_frange
            WITH KEY fieldname = gs_outtab_tb-fieldname.

          IF sy-subrc NE 0.
            DELETE l_command->mt_outtab_tb
              WHERE alias     = l_aliasname              AND
                    fieldname = gs_outtab_tb-fieldname.

            DELETE l_command->mt_ranges
              WHERE table_alias = l_aliasname            AND
                    fieldname   = gs_outtab_tb-fieldname.
          ENDIF.

        ENDLOOP.

        LOOP AT it_frange INTO is_frange.

          CLEAR: it_ranges2, is_ranges2.
          is_ranges2-tablename = is_ranges-rsds_range-tablename.
          CLEAR ls_frange2.
          APPEND is_frange TO is_ranges2-frange_t.
          APPEND is_ranges2 TO it_ranges2.

          CALL FUNCTION 'FREE_SELECTIONS_RANGE_2_WHERE'
            EXPORTING
              field_ranges  = it_ranges2
            IMPORTING
              where_clauses = lt_where.

          READ TABLE lt_where INTO ls_where INDEX 1.

          CLEAR l_where_text.
          LOOP AT ls_where-where_tab INTO l_line.
            CONCATENATE l_where_text l_line-line INTO l_where_text SEPARATED BY ' '.
          ENDLOOP.

          CONDENSE l_where_text.

          IF l_where_text IS INITIAL.
            DELETE l_command->mt_outtab_tb
              WHERE alias       = l_aliasname AND
                    fieldname   = is_frange-fieldname.

            DELETE l_command->mt_ranges
              WHERE table_alias = l_aliasname AND
                    fieldname   = is_frange-fieldname.

            EXIT.
          ENDIF.

          READ TABLE l_command->mt_outtab_tb INTO gs_outtab_tb
            WITH KEY tablename = l_tabname
                     fieldname = is_frange-fieldname.

          IF sy-subrc NE 0.

            MOVE l_where_text TO gs_outtab_tb-ddtext.
*           CLEAR gs_outtab_tb-ddtext.
            gs_outtab_tb-alias     = l_aliasname.
            gs_outtab_tb-fieldname = is_frange-fieldname.

            CONCATENATE 'R_' l_aliasname '_' gs_outtab_tb-fieldname INTO ls_rangename SEPARATED BY ''.
            REPLACE ' ' WITH '' INTO ls_rangename.
            CONDENSE ls_rangename NO-GAPS.

            APPEND gs_outtab_tb TO l_command->mt_outtab_tb.

            READ TABLE l_command->mt_tab_node_xref INTO gs_tab_node_xref
              WITH KEY alias = l_aliasname.
*              WITH KEY tablename = l_tabname.

            CLEAR l_new_node_key.
            CALL METHOD g_tree_tb->add_node
              EXPORTING
                i_relat_node_key = gs_tab_node_xref-node_key
                i_relationship   = cl_gui_column_tree=>relat_last_child
                is_outtab_line   = gs_outtab_tb
                i_node_text      = ls_rangename
                is_node_layout   = ls_node_style
              IMPORTING
                e_new_node_key   = l_new_node_key
              EXCEPTIONS
                OTHERS           = 1.

            IF sy-subrc NE 0.
              IF sy-msgno IS NOT INITIAL.
                MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
              ENDIF.
            ENDIF.

*          READ TABLE l_command->mt_ranges INTO gs_ranges
*          WITH KEY tablename = is_ranges-tablename fieldname = is_frange-fieldname.
**            gs_ranges-node_text = ls_rangename.
*          MODIFY l_command->mt_ranges FROM gs_ranges INDEX sy-tabix.

*          CALL METHOD g_tree_tb->EXPAND_NODE
*            EXPORTING
*              I_NODE_KEY = gs_tab_node_xref-node_key.

          ELSE.
            MOVE l_where_text TO gs_outtab_tb-ddtext.
            MODIFY l_command->mt_outtab_tb FROM gs_outtab_tb INDEX sy-tabix.
          ENDIF.

          READ TABLE l_command->mt_ranges INTO gs_ranges
            WITH KEY table_alias = l_aliasname
                     fieldname   = is_frange-fieldname.

          IF sy-subrc EQ 0.
            gs_ranges-where_text = l_where_text.
            gs_ranges-range      = is_frange-selopt_t.

            MODIFY l_command->mt_ranges FROM gs_ranges INDEX sy-tabix.
          ELSE.
            CLEAR gs_ranges.
*           gs_ranges-node_key    = l_new_node_key.
            gs_ranges-table_alias = l_aliasname.
            gs_ranges-fieldname   = is_frange-fieldname.
            gs_ranges-where_text  = l_where_text.
            gs_ranges-node_text   = ls_rangename.
            gs_ranges-range       = is_frange-selopt_t.

            APPEND gs_ranges TO l_command->mt_ranges.
          ENDIF.

        ENDLOOP.

        CLEAR sy-msgno.
        CALL METHOD g_tree_tb->frontend_update
          EXCEPTIONS
            OTHERS = 1.

        IF sy-subrc NE 0.
          IF sy-msgno IS NOT INITIAL.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
          ENDIF.
        ENDIF.

        CLEAR sy-msgno.
        CALL METHOD cl_gui_cfw=>dispatch
          EXCEPTIONS
            OTHERS = 1.

        IF sy-subrc NE 0.
          IF sy-msgno IS NOT INITIAL.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
          ENDIF.
        ENDIF.

        CLEAR sy-msgno.
        CALL METHOD display_table_grid
          EXCEPTIONS
            OTHERS = 1.

        IF sy-subrc NE 0.
          IF sy-msgno IS NOT INITIAL.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
          ENDIF.
        ENDIF.

    ENDCASE.

  ENDMETHOD.                    "lcl_application



  METHOD handle_user_command.

    DATA: lt_rows          TYPE lvc_t_row,
          l_select_command TYPE REF TO lcl_select_command,
          lv_valid         TYPE c,
          lv_bool          TYPE c,
          l_lines          TYPE i,
          lt_index_rows    TYPE lvc_t_row,
          ls_index_rows    TYPE lvc_s_row,
          l_index          TYPE i,

          l_s_c            TYPE REF TO lcl_select_command,
          l_lawb           TYPE REF TO lcl_lawb,
          l_select         TYPE REF TO lcl_select_command,

          ls_celltab       TYPE lvc_s_styl,
          lt_cells         TYPE lvc_t_cell,

          ls_row           TYPE lvc_s_row,
          ls_column_id     TYPE lvc_s_col,
          ls_row_no        TYPE lvc_s_roid,

          lv_from          TYPE i,
          lv_to            TYPE i,
          lv_mod           TYPE i,
          lv_max_page      TYPE i,

          lt_col           TYPE lvc_t_col,
          ls_col           TYPE lvc_s_col,
          lv_lines         TYPE i,
          ls_fcat          TYPE lvc_s_fcat,
          lv_tabix         TYPE i,

          ls_fieldinfo_tb  LIKE LINE OF l_s_c->fieldinfo_tb,

          lv_tabname       TYPE tabname,
          l_ans            TYPE c,

          lv_subrc         TYPE i,

          ls_fieldinfo     TYPE lty_zhtdb_fieldinfo,
          lt_fieldinfo     TYPE TABLE OF lty_zhtdb_fieldinfo,

          ls_table_alias   LIKE LINE OF l_select->table_alias_tb.

    FIELD-SYMBOLS: <lt_style> TYPE lvc_t_styl,
                   <lt_icon> TYPE ANY.


    TRY.
        l_select_command ?= g_commands->current_command.
      CATCH cx_sy_move_cast_error.
*      message 'ZENITH:Casting error33' TYPE 'E'.
    ENDTRY.

    CALL METHOD g_alv->get_selected_cells
      IMPORTING
        et_cell = lt_cells
      EXCEPTIONS
        OTHERS  = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

    CALL METHOD g_alv->get_current_cell
      IMPORTING
        es_row_id = ls_row
        es_col_id = ls_column_id
        es_row_no = ls_row_no
      EXCEPTIONS
        OTHERS    = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

    CASE e_ucomm.

      WHEN 'TXT_SHTXT'  OR
           'TXT_GENFLD' OR
           'TXT_ALIAS'  OR
           'TXT_FLD'.

        CALL METHOD me->set_column_settings
          EXPORTING
            p_mode = e_ucomm.

        CALL METHOD me->set_column_headings.
        CALL METHOD me->refresh_display.

      WHEN 'KEY_NONE' OR
           'KEY_FIX'.

        CALL METHOD me->set_key_field_settings
          EXPORTING
            p_mode = e_ucomm.

        CALL METHOD me->set_key_display_attributes.
        CALL METHOD me->refresh_display.

    ENDCASE.

    TRY.
        l_select ?= g_commands->current_command.

        IF l_select->mv_last_display EQ 'G'.
          CALL METHOD g_alv->set_selected_cells
            EXPORTING
              it_cells = lt_cells
            EXCEPTIONS
              OTHERS   = 1.

          IF sy-subrc NE 0.
            IF sy-msgno IS NOT INITIAL.
              MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                      WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
            ENDIF.
          ENDIF.

          CALL METHOD g_alv->set_current_cell_via_id
            EXPORTING
              is_row_id    = ls_row
              is_column_id = ls_column_id
              is_row_no    = ls_row_no
            EXCEPTIONS
              OTHERS       = 1.

          IF sy-subrc NE 0.
            IF sy-msgno IS NOT INITIAL.
              MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                      WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
            ENDIF.
          ENDIF.

        ENDIF.

      CATCH cx_sy_move_cast_error.
    ENDTRY.

  ENDMETHOD.                    "lcl_application



  METHOD read_checktables.


    DATA: dd08v_ia TYPE TABLE OF dd08v,
          dd05m_ia TYPE TABLE OF dd05m,
          wa_dd08v_ia TYPE dd08v,
          wa_dd05m_ia TYPE dd05m,
          state(1),
          l_tabname TYPE dd08l-tabname,

          ls_dd08l TYPE dd08l,
          lt_dd08l TYPE TABLE OF dd08l,
          ls_table_alias LIKE LINE OF g_commands->current_command->table_alias_tb,
          lstr(40) TYPE c,
          lstr4(40) TYPE c,
          lstr2 TYPE string,
          lstr3 TYPE string,
          lstr5 TYPE string,
          lint TYPE i,
          ls_prev_linkedquery LIKE gs_linkedquery,
          ls_linkedquery LIKE gs_linkedquery,
          lt_linkedquery LIKE gt_linkedquery,
          l_ddtext TYPE dd02t-ddtext,
          l_text(40) TYPE c,
          l_comp_text(40) TYPE c.


    DATA: ls_info_tablf TYPE lty_zhtdb_checktable_struc,
          lt_info_tablf TYPE TABLE OF lty_zhtdb_checktable_struc,

          ls_info_tablf_out TYPE lty_zhtdb_checktable_struc_alv,
          lt_info_tablf_out TYPE TABLE OF lty_zhtdb_checktable_struc_alv,

          ls_selected_nodes TYPE lvc_s_nkey,
          lt_selected_nodes TYPE lvc_t_nkey,
          l_node_key TYPE lvc_nkey,
          l_new_node_key TYPE lvc_nkey,
          l_nodetext TYPE lvc_value,

          l_command TYPE REF TO lcl_command,
          ls_table_alias_tb LIKE LINE OF l_command->table_alias_tb.


    IF sender = 'T'.

      CALL METHOD g_tree_tb->get_selected_nodes
        CHANGING
          ct_selected_nodes = lt_selected_nodes
        EXCEPTIONS
          cntl_system_error = 1
          dp_error          = 2
          failed            = 3
          OTHERS            = 4.
      IF sy-subrc <> 0.
        CALL METHOD g_application->issue_message
          EXPORTING
            iv_msgty = 'E'
            iv_msgno = '031'.
*        MESSAGE e031.
      ENDIF.


      READ TABLE lt_selected_nodes INTO ls_selected_nodes INDEX 1.

      l_node_key = ls_selected_nodes-node_key.

      CALL METHOD g_tree_tb->get_outtab_line
        EXPORTING
          i_node_key     = l_node_key
        IMPORTING
*          E_NODE_TEXT    = l_nodetext
          e_outtab_line  = gs_outtab_tb
        EXCEPTIONS
          node_not_found = 1
          OTHERS         = 2.

      l_tabname = gs_outtab_tb-tablename.

    ELSEIF sender = 'G'.
* obsolete
      RETURN.
    ENDIF.

    CLEAR gt_linkedquery.
    CLEAR lint.

    CLEAR lt_dd08l.

    READ TABLE g_commands->current_command->table_alias_tb INTO ls_table_alias
    WITH KEY table = l_tabname.

    SELECT info_tablf~tabname info_tablf~fieldname info_tablf~forkey info_tablf~primpos
    INTO CORRESPONDING FIELDS OF TABLE lt_info_tablf
    FROM info_tablf INNER JOIN dd02l ON info_tablf~tabname = dd02l~tabname
    WHERE info_tablf~checktable = l_tabname AND dd02l~tabclass = 'TRANSP'.

    LOOP AT lt_info_tablf INTO ls_info_tablf.

      CLEAR: dd05m_ia, dd08v_ia.

      CALL FUNCTION 'DD_TBFK_GET'
           EXPORTING
                fieldname     = '*'
                get_state     = 'A'
                tabl_name     = ls_info_tablf-tabname
                withtext      = 'X'
           IMPORTING
                got_state     = state
           TABLES
                dd05m_tab_a   = dd05m_ia
*                DD05M_TAB_N   = FK1_DD05M
                dd08v_tab_a   = dd08v_ia
*                DD08V_TAB_N   = FK1_DD08V
           EXCEPTIONS
                illegal_value = 01.

      IF sy-subrc NE 0.
        IF sy-msgno IS NOT INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
        ENDIF.
      ENDIF.

      LOOP AT dd05m_ia INTO wa_dd05m_ia WHERE checktable = l_tabname.

        lint = lint + 1.

        SELECT SINGLE ddtext
        INTO l_ddtext
        FROM dd02t
        WHERE tabname = wa_dd05m_ia-tabname
              AND ddlanguage = sy-langu.

        IF sy-subrc NE 0.

          SELECT SINGLE ddtext
          INTO l_ddtext
          FROM dd02t
          WHERE as4local = 'A'
                AND tabname = wa_dd05m_ia-tabname.

          IF sy-subrc NE 0.
*            message 'ZENITH:sdfgdsf' type 'E'.
          ENDIF.

        ENDIF.

        CONCATENATE wa_dd05m_ia-tabname '~' wa_dd05m_ia-checkfield INTO lstr2.
        CONDENSE lstr2 NO-GAPS.
        CONCATENATE ls_table_alias-alias '~' wa_dd05m_ia-forkey INTO lstr3.
        CONDENSE lstr3 NO-GAPS.
        CONCATENATE 'ON' lstr3 '=' lstr2 INTO lstr2 SEPARATED BY ' '.

        MOVE lstr2 TO lstr.

        lstr2 = lint.

        CLEAR gs_linkedquery.
        gs_linkedquery-tabname     = ls_table_alias-alias.
        gs_linkedquery-checktable  = wa_dd05m_ia-tabname.
        gs_linkedquery-fieldname   = wa_dd05m_ia-forkey.
        gs_linkedquery-checkfield  = wa_dd05m_ia-checkfield.
        gs_linkedquery-primpos     = wa_dd05m_ia-primpos.
        gs_linkedquery-text        = lstr.
        gs_linkedquery-longtext    = lstr.
        gs_linkedquery-ddtext      = l_ddtext.

        APPEND gs_linkedquery TO gt_linkedquery.

      ENDLOOP.

    ENDLOOP.


    DATA: l_comp_count TYPE i,
          lt_primpos TYPE TABLE OF gty_linkedquery-primpos,
          l_primpos TYPE gty_linkedquery-primpos.

    CLEAR gt_linkedquery_comp.

    SORT gt_linkedquery BY checktable tabname primpos fieldname checkfield .
    DELETE ADJACENT DUPLICATES FROM gt_linkedquery COMPARING checktable tabname primpos fieldname checkfield.

    LOOP AT gt_linkedquery INTO gs_linkedquery.

*      if ls_prev_linkedquery-checktable NE gs_linkedquery-checktable OR
*           ls_prev_linkedquery-tabname NE gs_linkedquery-tabname.

      AT END OF checktable.

        CLEAR: l_comp_count.
        CLEAR lt_primpos.
        CLEAR lstr2.

        lstr4 = '* ON'.

        LOOP AT gt_linkedquery INTO ls_linkedquery
          WHERE tabname         = ls_prev_linkedquery-tabname
                AND checktable  = ls_prev_linkedquery-checktable.
*                AND join_type   = ls_prev_linkedquery-join_type.


          READ TABLE lt_primpos TRANSPORTING NO FIELDS
            WITH KEY table_line = ls_linkedquery-primpos.

          IF sy-subrc EQ 4.

            CONCATENATE ls_linkedquery-tabname '~' ls_linkedquery-checkfield INTO lstr5.
            CONDENSE lstr5  NO-GAPS.

            CONCATENATE ls_linkedquery-checktable '~' ls_linkedquery-fieldname INTO lstr3.
            CONDENSE lstr3 NO-GAPS.

            CONCATENATE lstr4 lstr3 INTO lstr4 SEPARATED BY space.

            IF lstr2 IS INITIAL.
              CONCATENATE 'ON' lstr3 '=' lstr5 INTO lstr2 SEPARATED BY ' '.
            ELSE.
              CONCATENATE lstr2 'AND' lstr3 '=' lstr5 INTO lstr2 SEPARATED BY ' '.
            ENDIF.

            APPEND ls_linkedquery-primpos TO lt_primpos.

            l_comp_count = l_comp_count + 1.

          ENDIF.

        ENDLOOP.

        IF l_comp_count GT 0.

          READ TABLE gt_linkedquery_comp TRANSPORTING NO FIELDS
            WITH KEY tabname    = ls_linkedquery-tabname
                     checktable = ls_linkedquery-checktable
                     text   = lstr4.
*                     longtext   = lstr2.

          IF sy-subrc EQ 4.

            gs_linkedquery_comp-tabname    = ls_linkedquery-tabname.
            gs_linkedquery_comp-checktable = ls_linkedquery-checktable.
            gs_linkedquery_comp-text       = lstr4.
            gs_linkedquery_comp-longtext   = lstr2.
            gs_linkedquery_comp-join_type  = ls_linkedquery-join_type.
            gs_linkedquery_comp-ddtext     = ls_linkedquery-ddtext.

            APPEND gs_linkedquery_comp TO gt_linkedquery_comp.

          ENDIF.

        ENDIF.

      ENDAT.

      ls_prev_linkedquery = gs_linkedquery.

*      if ls_prev_linkedquery-checktable NE gs_linkedquery-checktable.
*
*        CONCATENATE '(' gs_linkedquery-ddtext ')' INTO l_ddtext.
*        CONCATENATE gs_linkedquery-checktable l_ddtext INTO lstr SEPARATED BY ' '.
*
*      endif.

    ENDLOOP.


    LOOP AT gt_linkedquery_comp INTO gs_linkedquery_comp.

      CLEAR ls_info_tablf_out.

      MOVE-CORRESPONDING gs_linkedquery_comp TO ls_info_tablf_out.

      ls_info_tablf_out-tabname = gs_linkedquery_comp-checktable.

      APPEND ls_info_tablf_out TO lt_info_tablf_out.

    ENDLOOP.

*    CONCATENATE 'Checktable Relationships for ' l_tabname INTO lstr SEPARATED BY ' '.
    MESSAGE i037 WITH l_tabname INTO lstr.

    DELETE lt_info_tablf_out WHERE tabname = l_tabname.

    DATA: ls_selfield TYPE slis_selfield,
          lt_fcat_slis TYPE slis_t_fieldcat_alv,
          ls_fcat_slis TYPE slis_fieldcat_alv.

    ls_fcat_slis-col_pos       = 1.
    ls_fcat_slis-fieldname     = 'TABNAME'.
    ls_fcat_slis-rollname      = 'AS4TAB'.
    ls_fcat_slis-reptext_ddic  = 'Table name'.
    ls_fcat_slis-outputlen = 20.
    APPEND ls_fcat_slis TO lt_fcat_slis.

    ls_fcat_slis-col_pos       = 2.
    ls_fcat_slis-fieldname     = 'DDTEXT'.
    ls_fcat_slis-rollname      = 'AS4TEXT'.
    ls_fcat_slis-reptext_ddic  = 'Short text'.
    ls_fcat_slis-outputlen = 50.
    APPEND ls_fcat_slis TO lt_fcat_slis.

    ls_fcat_slis-col_pos       = 3.
    ls_fcat_slis-fieldname     = 'LONGTEXT'.
    ls_fcat_slis-rollname      = 'CHAR_512'.
    ls_fcat_slis-reptext_ddic  = 'Join condition'.
    ls_fcat_slis-outputlen = 512.
    APPEND ls_fcat_slis TO lt_fcat_slis.


    CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
      EXPORTING
       i_title                       = lstr
*       I_SELECTION                   = 'X'
*       I_ALLOW_NO_SELECTION          =
       i_zebra                       = ' '
       i_screen_start_column         = 3
       i_screen_start_line           = 2
       i_screen_end_column           = 200
       i_screen_end_line             = 30
*       I_CHECKBOX_FIELDNAME          =
*       I_LINEMARK_FIELDNAME          =
*       I_SCROLL_TO_SEL_LINE          = 'X'
       it_fieldcat                   = lt_fcat_slis
       i_tabname                     = 'L+FASY'
*       IT_EXCLUDING                  =
*       I_CALLBACK_PROGRAM            =
*       I_CALLBACK_USER_COMMAND       =
*       IS_PRIVATE                    =
     IMPORTING
       es_selfield                   = ls_selfield
*       E_EXIT                        =
      TABLES
        t_outtab                      = lt_info_tablf_out
     EXCEPTIONS
       program_error                 = 1
       OTHERS                        = 2
              .
    IF sy-subrc <> 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

    IF ls_selfield-tabindex IS NOT INITIAL.

      DATA:
            l_len TYPE i,
            l_jointext TYPE string,
            lt_jointext TYPE lty_zhtdbt_string_tab,
*            lt_jointext TYPE source_table,
            l_tablename TYPE gty_linkedquery-checktable,
            l_alias TYPE gty_linkedquery-checktable,
            l_jointype TYPE c,
            l_select TYPE REF TO lcl_select_command,
            l_selfae TYPE REF TO lcl_select_fae_command,
            l_from_text TYPE string,
            l_where_text TYPE string,
            l_gb_text TYPE string,
            l_ob_text TYPE string,
            l_new_from_text TYPE string,
            l_fdpos TYPE i,
            l_tabix TYPE i,
            l_ucomm TYPE sy-ucomm,
            l_selfae_alias TYPE string,
            ls_linkedquery_comp LIKE gs_linkedquery_comp.


      READ TABLE lt_info_tablf_out INTO ls_info_tablf_out
      INDEX ls_selfield-tabindex.

      IF sy-subrc NE 0.
        CALL METHOD g_application->issue_message
          EXPORTING
            iv_msgty = 'I'
            iv_msgno = '027'.
*        MESSAGE i027.
      ENDIF.

      READ TABLE gt_linkedquery_comp INTO ls_linkedquery_comp
      WITH KEY checktable = ls_info_tablf_out-tabname.

      IF sy-subrc NE 0.
        CALL METHOD g_application->issue_message
          EXPORTING
            iv_msgty = 'I'
            iv_msgno = '027'.
*        MESSAGE i027.
      ELSE.
        l_tablename    = ls_linkedquery_comp-checktable.
        l_jointext     = ls_linkedquery_comp-longtext.
        l_selfae_alias = ls_linkedquery_comp-tabname.
      ENDIF.

      TRY.

          l_select ?= g_commands->current_command.

          l_from_text   = l_select->from_text.
          l_gb_text     = l_select->group_by_text.
          l_ob_text     = l_select->order_by_text.
          l_where_text  = l_select->where_text.

        CATCH cx_sy_move_cast_error.

      ENDTRY.

      CHECK l_from_text IS NOT INITIAL.

      IF l_where_text IS NOT INITIAL.

        SEARCH g_commands->current_command->text FOR l_where_text.

        IF sy-fdpos GT 0.
          l_fdpos = sy-fdpos.
          l_tabix = sy-tabix.
        ENDIF.

      ELSEIF l_gb_text IS NOT INITIAL AND l_fdpos IS INITIAL.

        SEARCH g_commands->current_command->text FOR l_gb_text.

        IF sy-fdpos GT 0.
          l_fdpos = sy-fdpos.
          l_tabix = sy-tabix.
        ENDIF.

      ELSEIF l_ob_text IS NOT INITIAL AND l_fdpos IS INITIAL.

        SEARCH g_commands->current_command->text FOR l_ob_text.

        IF sy-fdpos GT 0.
          l_fdpos = sy-fdpos.
          l_tabix = sy-tabix.
        ENDIF.

      ENDIF.

*      LOOP AT g_commands->current_command->table_alias_tb INTO ls_table_alias_tb WHERE TABLE = L_TABLENAME.
*
*      ENDLOOP.
      READ TABLE g_commands->current_command->table_alias_tb TRANSPORTING NO FIELDS
      WITH KEY table = l_tablename.

      IF sy-subrc EQ 4.
        l_alias = l_tablename.
      ELSE.
        lstr = sy-tabix + 1.
        CONCATENATE l_tablename lstr INTO l_alias.

        CONCATENATE l_tablename '~' INTO lstr.
        CONCATENATE l_alias '~' INTO lstr2.
        REPLACE ALL OCCURRENCES OF lstr IN l_jointext WITH lstr2.
      ENDIF.

      CASE i_ucomm.

        WHEN 'RELAT_I'.
          CONCATENATE 'INNER JOIN' l_tablename 'AS' l_alias l_jointext INTO l_jointext SEPARATED BY ' '.

        WHEN 'RELAT_O'.
          CONCATENATE 'LEFT OUTER JOIN' l_tablename 'AS' l_alias l_jointext INTO l_jointext SEPARATED BY ' '.

        WHEN 'RELAT_Q'.
          CONCATENATE '( SELECT' l_tablename 'AS' l_alias l_jointext ')' INTO l_jointext SEPARATED BY ' '.

        WHEN 'RELAT_S'.

          MOVE l_jointext+3 TO l_jointext.

          CONCATENATE l_selfae_alias '~' INTO l_selfae_alias.
          CONDENSE l_selfae_alias NO-GAPS.

          REPLACE ALL OCCURRENCES OF l_selfae_alias IN l_jointext WITH 'ZSQL_OUTER_TABLE-' IGNORING CASE.

          CONCATENATE 'SELECT * FROM' l_tablename INTO lstr2 SEPARATED BY ' '.
          APPEND lstr2 TO lt_jointext.

          lstr2 = 'FOR ALL ENTRIES IN ZSQL_OUTER_TABLE'.
          APPEND lstr2 TO lt_jointext.

          DATA: lt_jointext_temp LIKE lt_jointext.

          CONCATENATE 'WHERE' l_jointext INTO lstr2 SEPARATED BY ' '.

          CALL METHOD lcl_toolbox=>split_string
            EXPORTING
              iv_string     = lstr2
              iv_maxlen     = gc_line_length
            IMPORTING
              et_string_tab = lt_jointext_temp.

*          CALL METHOD split_string_to_itab
*            EXPORTING
*              p_string = lstr2
*            IMPORTING
*              p_itab   = lt_jointext_temp.
*
          APPEND LINES OF lt_jointext_temp TO lt_jointext.

      ENDCASE.


      IF i_ucomm EQ 'RELAT_S'.

        CALL METHOD cl_gui_cfw=>set_new_ok_code
          EXPORTING
            new_code = 'NEWSELFOR'
          EXCEPTIONS
            OTHERS   = 1.

        IF sy-subrc NE 0.
          IF sy-msgno IS NOT INITIAL.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
          ENDIF.
        ENDIF.

        gt_selfae_jointext[] = lt_jointext[].

        RETURN.

      ELSE.

        IF STRLEN( l_jointext ) < gc_line_length.
          APPEND l_jointext TO lt_jointext.
        ELSE.

          CALL METHOD lcl_toolbox=>split_string
            EXPORTING
              iv_string     = l_jointext
              iv_maxlen     = gc_line_length
            IMPORTING
              et_string_tab = lt_jointext.

*          CALL METHOD split_string_to_itab
*            EXPORTING
*              p_string = l_jointext
*            IMPORTING
*              p_itab   = lt_jointext.
*
        ENDIF.

      ENDIF.

*      IF l_fdpos IS NOT INITIAL.
*
*        INSERT LINES OF lt_jointext INTO g_commands->current_command->text INDEX l_tabix.
*
*      ELSE.
*
*        APPEND LINES OF lt_jointext TO g_commands->current_command->text.
*
*      ENDIF.

      CALL METHOD insert_stringtab_to_pos
        EXPORTING
          it_stringtab = lt_jointext.

      CALL METHOD g_commands->display_command.

    ENDIF.



  ENDMETHOD.                    "lcl_application


  METHOD handle_lq_ctx_sel.

    CALL METHOD g_commands->transfer_text_to_command.

    IF e_ucomm(5) EQ 'RELAT'.

      CALL METHOD read_checktables
        EXPORTING
          sender  = sender
          i_ucomm = e_ucomm.


    ENDIF.

    IF e_ucomm+2(3) EQ 'LA_'.

      DATA: lstr TYPE string,
            lstr2 TYPE string,
            lstr3 TYPE string,
            l_len TYPE i,
            l_jointext TYPE string,
            lt_jointext TYPE lty_zhtdbt_string_tab,
*            lt_jointext TYPE source_table,
            l_tablename TYPE gty_linkedquery-checktable,
            l_alias TYPE gty_linkedquery-checktable,
            l_jointype(3) TYPE c,
            l_select TYPE REF TO lcl_select_command,
            l_selfae TYPE REF TO lcl_select_fae_command,
            l_from_text TYPE string,
            l_where_text TYPE string,
            l_gb_text TYPE string,
            l_ob_text TYPE string,
            l_new_from_text TYPE string,
            l_fdpos TYPE i,
            l_tabix TYPE i,
            l_ucomm TYPE sy-ucomm,
            l_selfae_alias TYPE string,
            ls_linkedquery_comp LIKE gs_linkedquery_comp,
            ls_linkedquery LIKE gs_linkedquery,
            ls_table_alias_tb LIKE LINE OF g_commands->current_command->table_alias_tb.


      l_ucomm = e_ucomm.

**      SEARCH l_ucomm FOR '_COMP'.
**
**      IF sy-fdpos EQ 0.

      REPLACE ALL OCCURRENCES OF 'I_' IN l_ucomm WITH ''.
      IF sy-subrc EQ 0.
        l_jointype = 'I'.
      ENDIF.

      REPLACE ALL OCCURRENCES OF 'O_' IN l_ucomm WITH ''.
      IF sy-subrc EQ 0.
        l_jointype = 'O'.
      ENDIF.

      REPLACE ALL OCCURRENCES OF 'S_' IN l_ucomm WITH ''.
      IF sy-subrc EQ 0.
        l_jointype = 'S'.
      ENDIF.

      REPLACE ALL OCCURRENCES OF 'Q_' IN l_ucomm WITH ''.
      IF sy-subrc EQ 0.
        l_jointype = 'Q'.
      ENDIF.

      SEARCH l_ucomm FOR '_COMP'.

      IF sy-fdpos EQ 0.

        READ TABLE gt_linkedquery INTO ls_linkedquery
        WITH KEY fcode = l_ucomm.

        IF sy-subrc NE 0.
          CALL METHOD g_application->issue_message
            EXPORTING
              iv_msgty = 'I'
              iv_msgno = '027'.
*            MESSAGE i027.
        ELSE.
          l_tablename    = ls_linkedquery-checktable.
          l_jointext     = ls_linkedquery-longtext.
          l_selfae_alias = ls_linkedquery-tabname.
        ENDIF.

      ELSE.

        READ TABLE gt_linkedquery_comp INTO ls_linkedquery_comp
        WITH KEY fcode = l_ucomm.

        IF sy-subrc NE 0.
          CALL METHOD g_application->issue_message
            EXPORTING
              iv_msgty = 'I'
              iv_msgno = '027'.
*            MESSAGE i027.
        ELSE.
          l_tablename    = ls_linkedquery_comp-checktable.
          l_jointext     = ls_linkedquery_comp-longtext.
          l_selfae_alias = ls_linkedquery_comp-tabname.
        ENDIF.

      ENDIF.


      LOOP AT g_commands->current_command->table_alias_tb INTO ls_table_alias_tb WHERE TABLE = L_TABLENAME.

      ENDLOOP.

      IF sy-subrc EQ 4.
        l_alias = l_tablename.
      ELSE.
        lstr = sy-tabix + 1.
        CONCATENATE l_tablename lstr INTO l_alias.

        CONCATENATE l_tablename '~' INTO lstr.
        CONCATENATE l_alias '~' INTO lstr2.
        REPLACE ALL OCCURRENCES OF lstr IN l_jointext WITH lstr2.
      ENDIF.

      TRY.

          l_select ?= g_commands->current_command.

          l_from_text   = l_select->from_text.
          l_gb_text     = l_select->group_by_text.
          l_ob_text     = l_select->order_by_text.
          l_where_text  = l_select->where_text.

        CATCH cx_sy_move_cast_error.

      ENDTRY.

      CHECK l_from_text IS NOT INITIAL.

      IF l_where_text IS NOT INITIAL.

        SEARCH g_commands->current_command->text FOR l_where_text.

        IF sy-fdpos GT 0.
          l_fdpos = sy-fdpos.
          l_tabix = sy-tabix.
        ENDIF.

      ELSEIF l_gb_text IS NOT INITIAL AND l_fdpos IS INITIAL.

        SEARCH g_commands->current_command->text FOR l_gb_text.

        IF sy-fdpos GT 0.
          l_fdpos = sy-fdpos.
          l_tabix = sy-tabix.
        ENDIF.

      ELSEIF l_ob_text IS NOT INITIAL AND l_fdpos IS INITIAL.

        SEARCH g_commands->current_command->text FOR l_ob_text.

        IF sy-fdpos GT 0.
          l_fdpos = sy-fdpos.
          l_tabix = sy-tabix.
        ENDIF.

      ENDIF.

      CASE l_jointype.

        WHEN 'I'.
          CONCATENATE 'INNER JOIN' l_tablename 'AS' l_alias l_jointext INTO l_jointext SEPARATED BY ' '.

        WHEN 'O'.
          CONCATENATE 'LEFT OUTER JOIN' l_tablename 'AS' l_alias l_jointext INTO l_jointext SEPARATED BY ' '.

        WHEN 'S'.

          MOVE l_jointext+3 TO l_jointext.

          CONCATENATE l_selfae_alias '~' INTO l_selfae_alias.
          CONDENSE l_selfae_alias NO-GAPS.

          REPLACE ALL OCCURRENCES OF l_selfae_alias IN l_jointext WITH 'ZSQL_OUTER_TABLE-' IGNORING CASE.

          CONCATENATE 'SELECT * FROM' l_tablename INTO lstr2 SEPARATED BY ' '.
          APPEND lstr2 TO lt_jointext.

          lstr2 = 'FOR ALL ENTRIES IN ZSQL_OUTER_TABLE'.
          APPEND lstr2 TO lt_jointext.

          DATA: lt_jointext_temp LIKE lt_jointext.

          CONCATENATE 'WHERE' l_jointext INTO lstr2 SEPARATED BY ' '.

          CALL METHOD lcl_toolbox=>split_string
            EXPORTING
              iv_string     = lstr2
              iv_maxlen     = gc_line_length
            IMPORTING
              et_string_tab = lt_jointext_temp.

*          CALL METHOD split_string_to_itab
*            EXPORTING
*              p_string = lstr2
*            IMPORTING
*              p_itab   = lt_jointext_temp.
*
          APPEND LINES OF lt_jointext_temp TO lt_jointext.

        WHEN 'Q'.

          MOVE l_jointext+3 TO l_jointext.

*          CONCATENATE l_selfae_alias '~' INTO l_selfae_alias.
*          CONDENSE l_selfae_alias NO-GAPS.
*
*          REPLACE ALL OCCURRENCES OF l_selfae_alias IN l_jointext WITH l_tablename IGNORING CASE.

          CONCATENATE '( SELECT * FROM' l_tablename 'WHERE' l_jointext ')' INTO l_jointext SEPARATED BY ' '.

      ENDCASE.

      IF l_jointype NE 'S'.

        IF STRLEN( l_jointext ) < gc_line_length.
          APPEND l_jointext TO lt_jointext.
        ELSE.

          CALL METHOD lcl_toolbox=>split_string
            EXPORTING
              iv_string     = l_jointext
              iv_maxlen     = gc_line_length
            IMPORTING
              et_string_tab = lt_jointext.

        ENDIF.

      ELSE.

        CALL METHOD cl_gui_cfw=>set_new_ok_code
          EXPORTING
            new_code = 'NEWSELFOR'
          EXCEPTIONS
            OTHERS   = 1.

        IF sy-subrc NE 0.
          IF sy-msgno IS NOT INITIAL.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
          ENDIF.
        ENDIF.

        gt_selfae_jointext[] = lt_jointext[].

        RETURN.

      ENDIF.

      CALL METHOD insert_stringtab_to_pos
        EXPORTING
          it_stringtab = lt_jointext.

      CALL METHOD g_commands->display_command.

    ENDIF.

  ENDMETHOD.                    "lcl_application


  METHOD refresh_display.

    DATA: ls_fcat          TYPE lvc_s_fcat,
          lt_fcat          TYPE lvc_t_fcat,
          ls_fieldinfo     TYPE gty_fieldinfo,
          l_lawb           TYPE REF TO lcl_lawb,
          lv_tabix         TYPE i,
          l_selfae         TYPE REF TO lcl_select_fae_command,
          l_select_command TYPE REF TO lcl_select_command.

    TRY.
        l_select_command ?= g_commands->current_command.
      CATCH cx_sy_move_cast_error.
    ENDTRY.

    CHECK l_select_command IS NOT INITIAL.
    CHECK <gt_result> IS ASSIGNED.

    CALL METHOD g_alv->set_frontend_fieldcatalog
      EXPORTING
        it_fieldcatalog = l_select_command->fcat
      EXCEPTIONS
        OTHERS          = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

    CALL METHOD g_alv->refresh_table_display
      EXCEPTIONS
        OTHERS = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

  ENDMETHOD.                    "refresh_display


  METHOD set_column_headings.

    DATA: ls_fcat          TYPE lvc_s_fcat,
          lt_fcat          TYPE lvc_t_fcat,
          ls_fieldinfo     TYPE gty_fieldinfo,
          l_lawb           TYPE REF TO lcl_lawb,
          lv_tabix         TYPE i,
          l_selfae         TYPE REF TO lcl_select_fae_command,
          l_select_command TYPE REF TO lcl_select_command.

    TRY.
        l_select_command ?= g_commands->current_command.
      CATCH cx_sy_move_cast_error.
    ENDTRY.

    CHECK l_select_command IS NOT INITIAL.
    CHECK <gt_result> IS ASSIGNED.

    TRY.
        LOOP AT l_select_command->fcat INTO ls_fcat
             WHERE fieldname <> 'ZENITH_ROWID'    AND
                   fieldname <> 'ZENITH_SELECTED' AND
                   fieldname <> 'ZENITH_STYLE'    AND
                   fieldname <> 'ZENITH_COLOR'    AND
                   fieldname <> 'ZENITH_LOCKED_BY'.

          lv_tabix = sy-tabix.

          READ TABLE l_select_command->fieldinfo_tb INTO ls_fieldinfo
            WITH KEY generated_field = ls_fcat-fieldname.

          IF sy-subrc NE 0.
            CALL METHOD g_application->issue_message
              EXPORTING
                iv_msgty = 'E'
                iv_msgno = '027'.
          ENDIF.

          CASE l_select_command->mv_colmn_header.
            WHEN 'S'.

              IF l_select_command->mv_last_display = 'G'.
                CLEAR: ls_fcat-coltext,
                       ls_fcat-scrtext_l,
                       ls_fcat-scrtext_m,
                       ls_fcat-scrtext_s,
                       ls_fcat-reptext.
              ELSE.
                ls_fcat-coltext   = ls_fcat-reptext.
                ls_fcat-scrtext_l = ls_fcat-reptext.
                ls_fcat-scrtext_m = ls_fcat-reptext.
                ls_fcat-scrtext_s = ls_fcat-reptext.
                ls_fcat-reptext   = ls_fcat-reptext.
              ENDIF.

            WHEN 'G'.
              ls_fcat-coltext = ls_fieldinfo-generated_field.

            WHEN 'A'.

              IF ls_fieldinfo-field_alias IS NOT INITIAL.
                ls_fcat-coltext = ls_fieldinfo-field_alias.
              ELSE.
                ls_fcat-coltext = ls_fieldinfo-generated_field.
              ENDIF.

            WHEN 'T'.
              ls_fcat-coltext = ls_fieldinfo-orig_field.

          ENDCASE.

          MODIFY l_select_command->fcat FROM ls_fcat INDEX lv_tabix.
        ENDLOOP.


      CATCH cx_sy_move_cast_error.

    ENDTRY.

  ENDMETHOD.                    "lcl_application


  METHOD set_key_display_attributes.

    DATA: ls_fcat          TYPE lvc_s_fcat,
          l_char           TYPE c,
          l_select_command TYPE REF TO lcl_select_command.

    TRY.
        l_select_command ?= g_commands->current_command.

      CATCH cx_sy_move_cast_error.
        RETURN.
    ENDTRY.

    CHECK l_select_command IS NOT INITIAL.
    CHECK <gt_result> IS ASSIGNED.
    CHECK l_select_command->mv_last_display = 'G'.

*   set this property so it can be saved with the command

*   modify field catalog
    LOOP AT l_select_command->fcat INTO ls_fcat WHERE key_sel EQ 'X'.
      CASE l_select_command->mv_key_colmn_type.
        WHEN 'N'.
          CLEAR ls_fcat-key.
        WHEN 'F'.
          ls_fcat-key = 'X'.
      ENDCASE.

      MODIFY l_select_command->fcat FROM ls_fcat.
    ENDLOOP.

    gs_layo-no_keyfix = 'X'.

    CALL METHOD g_alv->set_frontend_layout
      EXPORTING
        is_layout = gs_layo
      EXCEPTIONS
        OTHERS    = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

  ENDMETHOD.                    " set_key_display_attributes


  METHOD handle_menu_button.

    DATA: lv_display_only TYPE c.


    IF g_alv->is_ready_for_input( ) EQ 0.
      lv_display_only = 'X'.
    ELSE.
      lv_display_only = ' '.
    ENDIF.


    IF e_ucomm = 'TXT_MENU'.
      CALL METHOD e_object->add_function
        EXPORTING
          fcode  = 'TXT_ALIAS'
          text   = text-081
        EXCEPTIONS
          OTHERS = 1.

      IF sy-subrc NE 0.
        IF sy-msgno IS NOT INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
        ENDIF.
      ENDIF.

      CALL METHOD e_object->add_function
        EXPORTING
          fcode  = 'TXT_FLD'
          text   = text-090
        EXCEPTIONS
          OTHERS = 1.

      IF sy-subrc NE 0.
        IF sy-msgno IS NOT INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
        ENDIF.
      ENDIF.

      CALL METHOD e_object->add_function
        EXPORTING
          fcode  = 'TXT_GENFLD'
          text   = text-091
        EXCEPTIONS
          OTHERS = 1.

      IF sy-subrc NE 0.
        IF sy-msgno IS NOT INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
        ENDIF.
      ENDIF.

      CALL METHOD e_object->add_function
        EXPORTING
          fcode  = 'TXT_SHTXT'
          text   = text-092
        EXCEPTIONS
          OTHERS = 1.

      IF sy-subrc NE 0.
        IF sy-msgno IS NOT INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
        ENDIF.
      ENDIF.

      CALL METHOD e_object->add_separator
        EXCEPTIONS
          OTHERS = 1.

      CALL METHOD e_object->add_function
        EXPORTING
          fcode  = 'KEY_FIX'
          text   = text-089
        EXCEPTIONS
          OTHERS = 1.

      IF sy-subrc NE 0.
        IF sy-msgno IS NOT INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
        ENDIF.
      ENDIF.

      CALL METHOD e_object->add_function
        EXPORTING
          fcode  = 'KEY_NONE'
          text   = text-078
        EXCEPTIONS
          OTHERS = 1.

      IF sy-subrc NE 0.
        IF sy-msgno IS NOT INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
        ENDIF.
      ENDIF.

    ENDIF.

  ENDMETHOD.                    "lcl_application

ENDCLASS.                    "lcl_application IMPLEMENTATION

*&---------------------------------------------------------------------*
*&  Include           ZHTDB_LCLCOMMAND_I                               *
*&---------------------------------------------------------------------*


CLASS lcl_command IMPLEMENTATION.



  METHOD constructor.

    IF p_copy_from IS NOT INITIAL.

      it_ranges        = p_copy_from->it_ranges.
      is_x030l         = p_copy_from->is_x030l.

      mt_alias_ranges  = p_copy_from->mt_alias_ranges.
      mt_ranges        = p_copy_from->mt_ranges.
      mt_outtab_tb     = p_copy_from->mt_outtab_tb.
      mt_tab_node_xref = p_copy_from->mt_tab_node_xref.

      command_type     = p_copy_from->command_type.
      where_text       = p_copy_from->where_text.
      mv_dbcnt         = p_copy_from->mv_dbcnt.
      mv_bytes         = p_copy_from->mv_bytes.

      commandtext      = p_copy_from->commandtext.
      gen_commandtext  = p_copy_from->gen_commandtext.
      gen_text         = p_copy_from->gen_text.
      text             = p_copy_from->text.
      table_alias_tb   = p_copy_from->table_alias_tb.

    ENDIF.

  ENDMETHOD.                    "LCL_COMMAND



  METHOD execute_parsed_sql.

  ENDMETHOD.                    "LCL_COMMAND


  METHOD get_type.
    ep_command_type = me->command_type.
  ENDMETHOD.                    "LCL_COMMAND


  METHOD parse_commandtext.

  ENDMETHOD.                    "LCL_COMMAND


  METHOD set_commandtext.

    me->commandtext = p_commandtext.
    CONDENSE me->commandtext.
    CONCATENATE '' me->commandtext INTO me->commandtext SEPARATED BY ' '.

  ENDMETHOD.                    "LCL_COMMAND

ENDCLASS.                    "LCL_COMMAND IMPLEMENTATION



*&---------------------------------------------------------------------*
*&  Include           ZHTDB_LCLSELECT_I                                *
*&---------------------------------------------------------------------*


CLASS lcl_select_command IMPLEMENTATION.


  METHOD calculate_mv_rowlen.

    DATA: ls_fcat TYPE lvc_s_fcat.

    CLEAR mv_rowlen.

    LOOP AT fcat INTO ls_fcat
         WHERE fieldname NE 'ZENITH_ROWID'    AND
               fieldname NE 'ZENITH_SELECTED' AND
               fieldname NE 'ZENITH_STYLE'    AND
               fieldname NE 'ZENITH_COLOR'    AND
               fieldname NE 'ZENITH_LOCKED_BY'.
      mv_rowlen = mv_rowlen + ls_fcat-intlen.
    ENDLOOP.

  ENDMETHOD.                    " calculate_mv_rowlen


  METHOD constructor.

    CALL METHOD super->constructor
      EXPORTING
        p_copy_from = p_copy_from.

    CREATE OBJECT mo_pipacs_select.
    mo_pipacs_command = mo_pipacs_select.

    IF p_copy_from IS NOT INITIAL.

      select_text = p_copy_from->select_text.
      from_text = p_copy_from->from_text.
      group_by_text = p_copy_from->group_by_text.
      having_text = p_copy_from->having_text.
      order_by_text = p_copy_from->order_by_text.

      can_edit = p_copy_from->can_edit.

      has_table_alias = p_copy_from->has_table_alias.
      group_by_text = p_copy_from->group_by_text.
      alv_state = p_copy_from->alv_state.
      has_duplicate_fields = p_copy_from->has_duplicate_fields.

      ddic_references = p_copy_from->ddic_references.
      fieldinfo_tb = p_copy_from->fieldinfo_tb.
      prev_fcat = p_copy_from->prev_fcat.
      fcat = p_copy_from->fcat.

    ENDIF.

  ENDMETHOD.                    " constructor



  METHOD assign_field_symbols.

    UNASSIGN: <gt_result>,
              <gt_temp>,
              <gt_undo>,

              <gs_result>,
              <gs_temp>,
              <gs_undo>.

    CALL METHOD me->assign_field_symbol
      EXPORTING
        p_fs    = 'R'
      CHANGING
        p_table = me->result_table.
****    CALL METHOD me->assign_field_symbol
****      EXPORTING
****        p_fs    = 'X'
****      CHANGING
****        p_table = me->display_table.
    CALL METHOD me->assign_field_symbol
      EXPORTING
        p_fs    = 'D'
      CHANGING
        p_table = me->deleted_table.
    CALL METHOD me->assign_field_symbol
      EXPORTING
        p_fs    = 'I'
      CHANGING
        p_table = me->inserted_table.
    CALL METHOD me->assign_field_symbol
      EXPORTING
        p_fs    = 'U'
      CHANGING
        p_table = me->updated_table.
    CALL METHOD me->assign_field_symbol
      EXPORTING
        p_fs    = 'T'
      CHANGING
        p_table = me->temp_table.
    CALL METHOD me->assign_field_symbol
      EXPORTING
        p_fs    = 'N'
      CHANGING
        p_table = me->undo_table.
    CALL METHOD me->assign_field_symbol
      EXPORTING
        p_fs    = 'L'
      CHANGING
        p_table = me->lawb_table.
    CALL METHOD me->assign_field_symbol
      EXPORTING
        p_fs    = 'S'
      CHANGING
        p_table = me->selfae_table.

  ENDMETHOD.                    " assign_field_symbols


  METHOD assign_field_symbol.

    CASE p_fs.
****      WHEN 'X'.
****        ASSIGN p_table->* TO <gt_display>.
*****        ASSIGN me->deleted_structure->* TO <gs_deleted>.

      WHEN 'R'.
        ASSIGN p_table->* TO <gt_result>.
        ASSIGN me->result_structure->* TO <gs_result>.

      WHEN 'T'.
        ASSIGN p_table->* TO <gt_temp>.
        ASSIGN me->temp_structure->* TO <gs_temp>.

      WHEN 'N'.
        ASSIGN p_table->* TO <gt_undo>.
        ASSIGN me->undo_structure->* TO <gs_undo>.

    ENDCASE.

  ENDMETHOD.                    " assign_field_symbol


  METHOD parse_commandtext.

    DATA: ls_table_alias LIKE LINE OF me->table_alias_tb,
          lv_idx TYPE string.


    CALL METHOD super->parse_commandtext
      EXPORTING
        p_on_load      = p_on_load
      EXCEPTIONS
        error_occurred = 1
        OTHERS         = 2.

    CASE sy-subrc.
      WHEN 1.
        RAISE error_occurred.
      WHEN 2.
        RAISE error_occurred.
    ENDCASE.

    CLEAR table_alias_tb.

    CALL METHOD mo_pipacs_command->parse
      EXCEPTIONS
        parse_error = 1
        OTHERS      = 2.

    IF sy-subrc <> 0.
      IF sy-msgno IS NOT INITIAL AND p_on_load IS INITIAL.
        IF p_bf_test IS INITIAL.
          MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno DISPLAY LIKE 'E'
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
        ELSE.
*          CALL METHOD g_application->add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno
*            iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).
        ENDIF.

        RAISE error_occurred.
      ELSE.
        RAISE error_occurred.
      ENDIF.

    ENDIF.

    CALL METHOD mo_pipacs_select->get_texts
      IMPORTING
        ev_select_text   = select_text
        ev_from_text     = from_text
        ev_where_text    = where_text
        ev_group_by_text = group_by_text
        ev_having_text   = having_text
        ev_order_by_text = order_by_text.

    CALL METHOD mo_pipacs_select->get_fieldinfo
      IMPORTING
        et_fieldinfo = me->fieldinfo_tb.

    CALL METHOD mo_pipacs_select->get_table_alias
      IMPORTING
        et_table_alias = me->table_alias_tb.

    SORT me->table_alias_tb BY table alias.

    DELETE ADJACENT DUPLICATES FROM me->table_alias_tb COMPARING TABLE alias.

    can_edit = mo_pipacs_select->can_edit( ).

    LOOP AT me->table_alias_tb INTO ls_table_alias.
      IF ls_table_alias-alias IS INITIAL.
        ls_table_alias-alias = ls_table_alias-table.

        MODIFY me->table_alias_tb FROM ls_table_alias INDEX sy-tabix.
      ENDIF.
    ENDLOOP.

  ENDMETHOD.                    " parse_commandtext



  METHOD execute_parsed_sql.

    DATA: l_root_exception               TYPE REF TO cx_root,
          lstr                           TYPE string,
          lstr3(10)                      TYPE c,
          lv_job_name                    TYPE btcjob,
          lv_job_count                   TYPE btcjobcnt,
          g_cx_dynamic_check             TYPE REF TO cx_dynamic_check,
          g_cx_sy_sql_error              TYPE REF TO cx_sy_sql_error,
          g_cx_sy_open_sql_error         TYPE REF TO cx_sy_open_sql_error,
          g_cx_sy_open_sql_db            TYPE REF TO cx_sy_open_sql_db,
          g_cx_sy_dynamic_osql_error     TYPE REF TO cx_sy_dynamic_osql_error,
          g_cx_sy_dynamic_osql_syntax    TYPE REF TO cx_sy_dynamic_osql_syntax,
          g_cx_sy_dynamic_osql_semantics TYPE REF TO cx_sy_dynamic_osql_semantics,
          l_bool                         TYPE c,
          l_sfae                         TYPE REF TO lcl_select_fae_command,
          lx_root                        TYPE REF TO cx_root,
          lv_message                     TYPE string,
          lt_fieldinfo                   TYPE lty_zhtdb_fieldinfo_tt,
          lt_data                        TYPE REF TO data,
          ls_celltab                     TYPE lvc_s_styl,
          ls_fcat                        TYPE lvc_s_fcat.

    FIELD-SYMBOLS: <lt_style> TYPE lvc_t_styl.

    CALL METHOD super->execute_parsed_sql
      EXPORTING
        iv_simulation    = iv_simulation
        iv_bg_proc       = iv_bg_proc
        iv_bg_date       = iv_bg_date
        iv_bg_time       = iv_bg_time
      EXCEPTIONS
        table_not_found  = 1
        parse_error      = 2
        exec_error       = 3
        error_occurred   = 4
        unlock_error     = 5
        arg_to_long      = 6
        foreign_lock     = 7
        job_submit_error = 8
        OTHERS           = 9.

    CASE sy-subrc.
      WHEN 1.
        RAISE table_not_found.
      WHEN 2.
        RAISE parse_error.
      WHEN 3.
        RAISE exec_error.
      WHEN 4.
        RAISE error_occurred.
      WHEN 5.
        RAISE unlock_error.
      WHEN 6.
        RAISE arg_to_long.
      WHEN 7.
        RAISE foreign_lock.
      WHEN 8.
        RAISE job_submit_error.
      WHEN 9.
        RAISE error_occurred.
    ENDCASE.

    CALL METHOD mo_pipacs_command->execute
      EXPORTING
        iv_simulation    = iv_simulation
        iv_bg_proc       = iv_bg_proc
        iv_bg_date       = iv_bg_date
        iv_bg_time       = iv_bg_time
      IMPORTING
        er_result        = returned_table
        ev_dbcnt         = mv_dbcnt
        er_lock_argument = mr_lock_argument_temp
        er_exc           = lx_root
        ev_job_name      = lv_job_name
        ev_job_count     = lv_job_count
        et_srccode       = et_srccode
      EXCEPTIONS
        parse_error      = 1
        exec_error       = 2
        job_submit_error = 3
        OTHERS           = 4.

    CASE sy-subrc.
      WHEN 1.
        RAISE parse_error.
      WHEN 3.
        RAISE job_submit_error.
      WHEN 2 OR 4.
        er_exception = lx_root.
        RAISE exec_error.
    ENDCASE.

    IF iv_simulation IS INITIAL AND
       iv_bg_proc    IS INITIAL.

      FIELD-SYMBOLS: <lt_returned> TYPE ANY TABLE, <ls_lock_arg> TYPE ANY.

      ASSIGN mr_lock_argument_temp->* TO <ls_lock_arg>.

      IF sy-subrc EQ 0.
        CREATE DATA me->mr_lock_argument LIKE <ls_lock_arg>.
      ENDIF.

      ASSIGN returned_table->* TO <lt_returned>.

      CREATE DATA me->result_table LIKE <lt_returned>.
      ASSIGN result_table->* TO <gt_result>.

      <gt_result>[] = <lt_returned>[].

      CREATE DATA me->display_table LIKE <gt_result>.
      ASSIGN display_table->* TO <gt_display>.

      CREATE DATA me->temp_table LIKE <gt_result>.
      ASSIGN temp_table->* TO <gt_temp>.

      CREATE DATA me->temp_table LIKE <gt_result>.
      ASSIGN temp_table->* TO <gt_temp>.

      CREATE DATA me->undo_table LIKE <gt_result>.
      ASSIGN undo_table->* TO <gt_undo>.

      CREATE DATA me->tree_table LIKE <gt_result>.
      ASSIGN tree_table->* TO <gt_tree>.


      CREATE DATA me->result_structure LIKE LINE OF <gt_result>.
      ASSIGN me->result_structure->* TO <gs_result>.

      CREATE DATA me->temp_structure LIKE LINE OF <gt_temp>.
      ASSIGN me->temp_structure->* TO <gs_temp>.

      CREATE DATA me->undo_structure LIKE LINE OF <gt_undo>.
      ASSIGN me->undo_structure->* TO <gs_undo>.

      ls_celltab-style = cl_gui_alv_grid=>mc_style_disabled.

      LOOP AT <gt_result> ASSIGNING <gs_result>.
        ASSIGN COMPONENT 'ZENITH_ROWID' OF STRUCTURE <gs_result> TO <gf_result>.
        <gf_result> = sy-tabix.

        ASSIGN COMPONENT 'ZENITH_STYLE' OF STRUCTURE <gs_result> TO <lt_style>.
        CLEAR <lt_style>.

        LOOP AT me->fcat INTO ls_fcat
             WHERE fieldname <> 'ZENITH_ROWID'    AND
                   fieldname <> 'ZENITH_SELECTED' AND
                   fieldname <> 'ZENITH_STYLE'    AND
                   fieldname <> 'ZENITH_COLOR'    AND
                   fieldname <> 'ZENITH_LOCKED_BY'.
          ls_celltab-fieldname = ls_fcat-fieldname.
          INSERT ls_celltab INTO TABLE <lt_style>.
        ENDLOOP.

        MODIFY <gt_result> FROM <gs_result>.
        gv_max_rowid = sy-tabix.
      ENDLOOP.

      CALL METHOD calculate_mv_rowlen.

      mv_bytes = mv_rowlen * mv_dbcnt.
    ENDIF.

  ENDMETHOD.                    " execute_parsed_sql

ENDCLASS.                    "LCL_SELECT_COMMAND IMPLEMENTATION




*&---------------------------------------------------------------------*
*&  Include           ZHTDB_LCLCOMMANDS_I                              *
*&---------------------------------------------------------------------*


CLASS lcl_commands IMPLEMENTATION.


  METHOD generate_structure.

    DATA: ls_fcat           TYPE lvc_s_fcat,
          ls_fieldinfo      TYPE lty_zhtdb_fieldinfo,
          lt_fieldinfo      TYPE lty_zhtdb_fieldinfo_tt,
*         ls_fieldinfo_copy LIKE LINE OF me->fieldinfo_tb,
*         lt_fieldinfo_copy LIKE me->fieldinfo_tb,
          lt_comp           TYPE abap_compdescr_tab,
          ls_comp           TYPE abap_compdescr,
          l_edescr          TYPE REF TO cl_abap_elemdescr,
          l_tdescr          TYPE REF TO cl_abap_typedescr,
          l_select          TYPE REF TO lcl_select_command,
          lstr              TYPE string,
          lstr2             TYPE string,
          length            TYPE i,
          oref              TYPE REF TO cx_root,
          ls_ref            TYPE gty_ddicref,
          ls_table_alias_tb LIKE LINE OF l_select->table_alias_tb,
          descr_struc_ref   TYPE REF TO cl_abap_structdescr.

    TRY.
        l_select ?= current_command.

        CLEAR l_select->fcat.
        CLEAR l_select->ddic_references.

*       build fieldcatalog

*      CALL METHOD l_select->mo_pipacs->get_fieldinfo
*        IMPORTING
*          et_fieldinfo = l_select->fieldinfo_tb.
*
        LOOP AT l_select->fieldinfo_tb INTO ls_fieldinfo.

          READ TABLE l_select->table_alias_tb INTO ls_table_alias_tb
            WITH KEY table = ls_fieldinfo-table.

          CLEAR ls_fcat.

          ls_fcat-col_opt = 'X'.

          IF ls_fieldinfo-agg_function IS NOT INITIAL.

            IF ls_fieldinfo-agg_function EQ 'COUNT'.
              ls_fcat-rollname = 'INT4'.
            ELSEIF ls_fieldinfo-agg_function EQ 'AVG'.
              ls_fcat-rollname = 'FLTP'.
            ENDIF.

            ls_fcat-fieldname = ls_fieldinfo-generated_field.
            TRANSLATE ls_fcat-fieldname TO UPPER CASE.

            IF ls_fieldinfo-field_alias IS NOT INITIAL.

              length = STRLEN( ls_fieldinfo-field_alias ) - 1.

              IF ls_fieldinfo-field_alias(1) = '''' AND ls_fieldinfo-field_alias+length = ''''.
                length = length - 1.
                MOVE ls_fieldinfo-field_alias+1(length) TO ls_fieldinfo-field_alias.
                MODIFY l_select->fieldinfo_tb FROM ls_fieldinfo INDEX sy-tabix.
              ENDIF.

              lstr = ls_fieldinfo-field_alias.
            ELSE.
              lstr = ls_fieldinfo-generated_field.
            ENDIF.

            TRANSLATE ls_fieldinfo-agg_function TO UPPER CASE.

            TRANSLATE ls_fieldinfo-field TO UPPER CASE.
            TRANSLATE ls_fieldinfo-table TO UPPER CASE.

            ls_fcat-ref_table = ls_fieldinfo-table.
            ls_fcat-ref_field = ls_fieldinfo-field.

          ELSE.    " agg_function is not initial

            ls_fcat-fieldname = ls_fieldinfo-generated_field.
            TRANSLATE ls_fcat-fieldname TO UPPER CASE.

            IF ls_fieldinfo-field_alias IS NOT INITIAL.

              length = STRLEN( ls_fieldinfo-field_alias ) - 1.

              IF ls_fieldinfo-field_alias(1) = '''' AND ls_fieldinfo-field_alias+length = ''''.
                length = length - 1.
                MOVE ls_fieldinfo-field_alias+1(length) TO ls_fieldinfo-field_alias.
                MODIFY l_select->fieldinfo_tb FROM ls_fieldinfo INDEX sy-tabix.
              ENDIF.

              lstr = ls_fieldinfo-field_alias.
            ELSE.
              lstr = ls_fieldinfo-generated_field.
            ENDIF.

            TRANSLATE ls_fieldinfo-field TO UPPER CASE.
            TRANSLATE ls_fieldinfo-table TO UPPER CASE.

            ls_fcat-ref_field = ls_fieldinfo-field.
            ls_fcat-ref_table = ls_fieldinfo-table.
*           ls_fcat-f4availabl = 'X'.

          ENDIF.   " agg_function is not initial

          CASE l_select->mv_colmn_header.
            WHEN 'S'.
              CLEAR: ls_fcat-coltext, ls_fcat-scrtext_l, ls_fcat-scrtext_m, ls_fcat-scrtext_s, ls_fcat-reptext.
            WHEN 'G'.
              ls_fcat-coltext = ls_fieldinfo-generated_field.
            WHEN 'A'.
              IF ls_fieldinfo-field_alias IS NOT INITIAL.
                ls_fcat-coltext = ls_fieldinfo-field_alias.
              ELSE.
                ls_fcat-coltext = ls_fieldinfo-generated_field.
              ENDIF.
            WHEN 'T'.
              ls_fcat-coltext = ls_fieldinfo-orig_field.
          ENDCASE.

          IF ls_fcat-ref_field IS NOT INITIAL AND
             ls_fcat-ref_table IS NOT INITIAL.

            CASE ls_table_alias_tb-type.

              WHEN 'T'.

                SELECT SINGLE keyflag AS fix_column keyflag AS key datatype intlen inttype domname rollname
                  INTO CORRESPONDING FIELDS OF ls_fcat
                  FROM dd03l
                  WHERE tabname   = ls_fcat-ref_table AND
                        fieldname = ls_fcat-ref_field AND
                        as4local  = 'A'.

              WHEN 'V'.

                SELECT SINGLE rollname keyflag AS fix_column keyflag AS key
                  INTO CORRESPONDING FIELDS OF ls_fcat
                  FROM dd27s
                    WHERE viewname  = ls_fcat-ref_table AND
                          viewfield = ls_fcat-ref_field AND
                          as4local  = 'A'.
*                          fieldname NOT LIKE '.%' AND
*                          fieldname NOT LIKE '*%' AND
*                          fieldname NOT LIKE '$_%' ESCAPE '$' AND
*                          fieldname NOT LIKE '$%%' ESCAPE '$'

              WHEN 'C' OR 'P'.

*                SELECT SINGLE keyflag AS fix_column keyflag AS key datatype intlen inttype
*                INTO CORRESPONDING FIELDS OF ls_fcat
*                FROM dd16v
*                  WHERE sqltab    = ls_fcat-ref_table AND
*                        fieldname = ls_fcat-ref_field.

                SELECT SINGLE keyflag AS fix_column keyflag AS key datatype intlen inttype domname rollname
                  INTO CORRESPONDING FIELDS OF ls_fcat
                  FROM dd03l
                  WHERE tabname   = ls_fcat-ref_table AND
                        fieldname = ls_fcat-ref_field AND
                        as4local  = 'A'.

*                        in view already
*                        AS4LOCAL = 'A' AND
*                        fieldname NOT LIKE '.%' AND
*                        fieldname NOT LIKE '*%' AND
*                        fieldname NOT LIKE '$_%' ESCAPE '$' AND
*                        fieldname NOT LIKE '$%%' ESCAPE '$'

            ENDCASE.

            IF sy-subrc NE 0.
              MESSAGE s038 DISPLAY LIKE 'E' WITH ls_fcat-ref_field ls_fcat-ref_table ls_table_alias_tb-type RAISING field_not_found.
            ENDIF.

            CONCATENATE text-143 ls_fcat-domname text-144 ls_fcat-intlen INTO lstr
              SEPARATED BY space.

            ls_fcat-tooltip = lstr.

            CLEAR ls_fcat-fix_column.

            ls_ref-fieldname  = ls_fcat-fieldname.
            ls_ref-checktable = ls_fcat-checktable.
            ls_ref-ref_table  = ls_fcat-ref_table.
            ls_ref-ref_field  = ls_fcat-ref_field.
            ls_ref-key        = ls_fcat-key.

            APPEND ls_ref TO l_select->ddic_references.

            DATA: ls_dfies TYPE dfies,
                  lt_dfies TYPE TABLE OF dfies.

            CALL FUNCTION 'DDIF_FIELDINFO_GET'
              EXPORTING
                tabname        = ls_fcat-ref_table
                fieldname      = ls_fcat-ref_field
                langu          = sy-langu
              TABLES
                dfies_tab      = lt_dfies
              EXCEPTIONS
                not_found      = 1
                internal_error = 2
                OTHERS         = 3.

            IF sy-subrc <> 0.
              MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                      WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
            ELSE.
              READ TABLE lt_dfies INTO ls_dfies INDEX 1.

              IF sy-subrc EQ 0.
                MOVE ls_dfies-convexit TO ls_fcat-convexit.
                MOVE ls_dfies-scrtext_m TO ls_fcat-coltext.
                MOVE ls_dfies-scrtext_l TO  ls_fcat-scrtext_l.
                MOVE ls_dfies-scrtext_m TO  ls_fcat-scrtext_m.
                MOVE ls_dfies-scrtext_s TO  ls_fcat-scrtext_s.
                MOVE ls_dfies-reptext TO ls_fcat-reptext.
              ENDIF.

            ENDIF.

          ENDIF.

*        ls_fcat-no_convext = 'X'.

          IF ls_fcat-key EQ 'X'.
            ls_fcat-key_sel = 'X'.
            ls_fcat-edit = ' '.
          ENDIF.

          APPEND ls_fcat TO l_select->fcat.

        ENDLOOP.

        IF sy-subrc EQ 4.
          RAISE empty_fieldinfo_tb.
        ENDIF.

      CATCH cx_sy_move_cast_error.
        RAISE command_is_not_select.
    ENDTRY.

  ENDMETHOD.                    " generate_structure



  METHOD display.

    DATA: l_select         TYPE REF TO lcl_select_command,
          lv_show_grid     TYPE c,
          lo_result_tree   TYPE REF TO cl_gui_alv_tree,
          lt_fcat          TYPE lvc_t_fcat,
          ls_fcat          TYPE lvc_s_fcat,
          lo_alv           TYPE REF TO cl_gui_alv_grid.


    TRY.
        l_select ?= current_command.

      CATCH cx_sy_move_cast_error.
        RETURN.
    ENDTRY.

    IF po_grid IS INITIAL AND
       po_tree IS INITIAL.
      IF l_select->mv_last_display = 'T'.
        lv_show_grid = ' '.
      ELSE.
        lv_show_grid = 'X'.
      ENDIF.
    ELSE.
      IF po_grid IS INITIAL.
        lv_show_grid = ' '.
      ELSE.
        lv_show_grid = 'X'.
      ENDIF.
    ENDIF.

    IF po_grid IS SUPPLIED.
      lo_alv = po_grid.
    ELSE.
      lo_alv = g_alv.
    ENDIF.

    IF <gt_result> IS ASSIGNED.

      CALL METHOD g_application->set_column_headings.
      CALL METHOD g_application->set_key_display_attributes.

      CALL METHOD lo_alv->set_table_for_first_display
        EXPORTING
          is_layout            = gs_layo
          it_toolbar_excluding = gt_toolbar_exclude
        CHANGING
          it_outtab            = <gt_result>
          it_fieldcatalog      = l_select->fcat
        EXCEPTIONS
          OTHERS               = 1.

      IF sy-subrc NE 0.
        IF sy-msgno IS NOT INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
        ENDIF.
      ENDIF.
    ENDIF.

    IF lo_result_tree IS NOT INITIAL.
      CALL METHOD lo_result_tree->set_visible
        EXPORTING
          visible = ' '
        EXCEPTIONS
          OTHERS  = 1.

      IF sy-subrc NE 0.
        IF sy-msgno IS NOT INITIAL.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
        ENDIF.
      ENDIF.
    ENDIF.

    CALL METHOD lo_alv->set_ready_for_input
      EXPORTING
        i_ready_for_input = l_select->alv_state
      EXCEPTIONS
        OTHERS            = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
    ENDIF.

    CALL METHOD lo_alv->set_selected_rows
      EXPORTING
        it_index_rows = l_select->selected_rows
        it_row_no     = l_select->selected_rows2
      EXCEPTIONS
        OTHERS        = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
    ENDIF.

  ENDMETHOD.                    "LCL_COMMANDS


  METHOD display_command.

    DATA: l_command_type TYPE lty_commandtype,
          l_prev_select_command TYPE REF TO lcl_select_command,
          l_selfae TYPE REF TO lcl_select_fae_command,
          l_lawb TYPE REF TO lcl_lawb,
          l_select_command TYPE REF TO lcl_select_command,
          lv_tree_tb_width TYPE i,
          lv_result_height TYPE i,
          lv_tree_tb_visible TYPE c,
          lv_done TYPE c.


    CHECK current_command IS NOT INITIAL.

    CALL METHOD current_command->get_type
      IMPORTING
        ep_command_type = l_command_type.


    IF l_command_type EQ gc_ctype_lawb.

      lv_tree_tb_width = 0.
      lv_result_height = g_application->mv_result_height.

      lv_tree_tb_visible = ' '.

    ELSEIF l_command_type EQ gc_ctype_select OR l_command_type EQ gc_ctype_selfae.

      lv_tree_tb_width = g_application->mv_tree_tb_width.
      lv_result_height = g_application->mv_result_height.

      lv_tree_tb_visible = 'X'.

    ENDIF.

    CALL METHOD go_splitter_inner->set_column_width
      EXPORTING
        id     = 2
        width  = lv_tree_tb_width
      EXCEPTIONS
        OTHERS = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

    CALL METHOD go_splitter_outer->set_row_height
      EXPORTING
        id     = 2
        height = lv_result_height
      EXCEPTIONS
        OTHERS = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

    CALL METHOD g_tree_tb->set_visible
      EXPORTING
        visible = lv_tree_tb_visible.

*abaped    CALL METHOD g_textedit->set_text_as_r3table
    CALL METHOD g_textedit->set_text
      EXPORTING
        table  = current_command->text[]
      EXCEPTIONS
        OTHERS = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.


    IF lv_done IS INITIAL.
      TRY.
          l_select_command ?= current_command.

          CALL METHOD l_select_command->assign_field_symbols.

          IF l_select_command->fcat[] IS NOT INITIAL AND <gt_result> IS ASSIGNED.

            CALL METHOD g_alv->set_visible
              EXPORTING
                visible = 'X'
              EXCEPTIONS
                OTHERS  = 1.

            IF sy-subrc NE 0.
              IF sy-msgno IS NOT INITIAL.
                MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
              ENDIF.
            ENDIF.

            IF <gt_result> IS ASSIGNED.
              CALL METHOD me->display.
            ENDIF.

          ELSE.

            IF command_count NE 1.

              CALL METHOD g_alv->set_visible
                EXPORTING
                  visible = ' '
                EXCEPTIONS
                  OTHERS  = 1.

              IF sy-subrc NE 0.
                IF sy-msgno IS NOT INITIAL.
                  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
                ENDIF.
              ENDIF.

            ENDIF.

          ENDIF.

        CATCH cx_sy_move_cast_error.
*        CALL METHOD l_select_command->display.
      ENDTRY.

    ENDIF.

    IF l_command_type NE gc_ctype_lawb AND l_command_type NE gc_ctype_script.
      CALL METHOD g_application->display_table_grid.
    ENDIF.

    CALL METHOD cl_gui_cfw=>set_new_ok_code
      EXPORTING
        new_code = 'KAMU'
      EXCEPTIONS
        OTHERS   = 1.

    IF sy-subrc NE 0.
      IF sy-msgno IS NOT INITIAL.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
      ENDIF.
    ENDIF.

  ENDMETHOD.                    "LCL_COMMANDS


  METHOD create_new_command.

    DATA: l_update          TYPE REF TO lcl_update_command,
          l_select          TYPE REF TO lcl_select_command,
          lsc               TYPE REF TO lcl_select_command,
          l_delete          TYPE REF TO lcl_delete_command,
          l_selfae          TYPE REF TO lcl_select_fae_command,
          l_lawb            TYPE REF TO lcl_lawb,
          ls_text           LIKE LINE OF l_select->text,
          ls_commands       TYPE gty_commands,
          l_int             TYPE i,
          lstr              TYPE string,
          l_nodekey         TYPE lvc_nkey,
          l_subitem         TYPE c,

          lt_selected_nodes TYPE lvc_t_nkey,

          l_copy_sc         TYPE REF TO lcl_select_command,
          l_copy_uc         TYPE REF TO lcl_update_command,
          l_copy_dc         TYPE REF TO lcl_delete_command,

          l_copy_lawb       TYPE REF TO lcl_lawb,
          l_command_id      TYPE lty_commandid,
          lv_random         TYPE i,

          lv_command_id_str(10) TYPE n.

    IF sy-subrc NE 0.
      g_selected_nodekey = gc_nodekey_current_commands.
    ENDIF.

    CASE p_command_type.

      WHEN gc_ctype_select.

        TRY.

            l_copy_sc ?= p_copy_from.

            CREATE OBJECT l_select
              EXPORTING
                p_copy_from = l_copy_sc.

          CATCH cx_sy_move_cast_error.
            CREATE OBJECT l_select.
        ENDTRY.

        l_select->command_type = p_command_type.
        ls_commands-command = l_select.

        CLEAR g_selected_nodekey.

        ls_text =  'SELECT *'.
        APPEND ls_text TO l_select->text.
        ls_text =  'FROM '.
        APPEND ls_text TO l_select->text.
        ls_text =  'UP TO 200 ROWS'.
        APPEND ls_text TO l_select->text.


        l_select->mv_colmn_header   = gv_def_col_hdr.
        l_select->mv_key_colmn_type = gv_def_keycol_type.

        l_select->mv_last_display = 'G'.
        current_command = l_select.

        l_select->mv_command_type = l_select->command_type.


    ENDCASE.

    CALL METHOD g_textedit->set_readonly_mode
      EXPORTING
        readonly_mode = '0'.

    current_command->command_id = l_command_id.
    ls_commands-command_id = l_command_id.

    command_count = command_count + 1.
    ls_commands-seq_no = command_count.
    ls_commands-treelevel = current_command->treelevel.
    APPEND ls_commands TO command_list.

    IF command_count EQ 1.

      CLEAR prev_command.
    ENDIF.

    CALL METHOD g_commands->display_command.
**    CALL METHOD g_application->refresh_status_indicators.

    CALL METHOD g_application->create_tb_tree_toolbar.

    lv_command_id_str = current_command->command_id.

  ENDMETHOD.                    "LCL_COMMANDS


  METHOD execute_command.

    DATA: l_text                TYPE source_table,
          l_owm                 TYPE i VALUE 1,
          ls_text               LIKE LINE OF l_text,
          l_str                 TYPE string,
          l_str2                TYPE string,
          l_update_command      TYPE REF TO lcl_update_command,
          l_delete_command      TYPE REF TO lcl_delete_command,
          l_select_command      TYPE REF TO lcl_select_command,
          l_selfae              TYPE REF TO lcl_select_fae_command,
          l_lawb                TYPE REF TO lcl_lawb,
          l_prev_select_command TYPE REF TO lcl_select_command,
          l_c_type              TYPE lty_commandtype,
          l_lines               TYPE i,

          lo_tree               TYPE REF TO cl_gui_alv_tree,
          lx_root               TYPE REF TO cx_root,

          lv_message            TYPE string,
          lv_read_auth          TYPE c,
          ls_table_alias_tb     LIKE LINE OF current_command->table_alias_tb,

          stracsum_tab          TYPE stracsumtab,
          sqlstatful_tab        TYPE TABLE OF sqlstatful,
          ls_stracsum_tab       TYPE stracsum,
          ls_sqlstatful         TYPE sqlstatful,
          lstr                  TYPE string,
          l_gen_text            LIKE LINE OF l_select_command->gen_text.


    GET RUN TIME FIELD gv_starttime.

    IF sy-tcode = 'ZSQL_TEST'.
      IF current_command->command_type NE gc_ctype_select.
        RETURN.
      ENDIF.
    ENDIF.

    CALL METHOD transfer_text_to_command.

    TRY.
        l_select_command ?= current_command.

*          message 'ZENITH:Casting error3' TYPE 'E'.

        DATA: lv_log_handle LIKE g_application->mv_log_handle.

        IF gv_autotest = 'X'.
          lv_log_handle = g_application->mv_log_handle.
        ENDIF.

*CALL METHOD l_select_command->assign_field_symbols.

        CALL METHOD l_select_command->mo_pipacs_select->create_new
          EXPORTING
            iv_command_id = current_command->command_id
            iv_command    = current_command->commandtext
            it_vranges    = current_command->it_ranges
            iv_log_handle = lv_log_handle
          EXCEPTIONS
            no_id         = 1
            OTHERS        = 2.

        CASE sy-subrc.

          WHEN 1.
            CALL METHOD g_application->issue_message
              EXPORTING
                iv_msgty        = 'S'
                iv_msgno        = '077'
                iv_display_like = 'E'.
*                message s077 DISPLAY LIKE 'E'.
            RETURN.
          WHEN 2.
            CALL METHOD g_application->issue_message
              EXPORTING
                iv_msgty        = 'S'
                iv_msgno        = '076'
                iv_display_like = 'E'.
*                message s076 DISPLAY LIKE 'E'.
            RETURN.

        ENDCASE.

        l_select_command->mo_pipacs_command = l_select_command->mo_pipacs_select.


      CATCH cx_sy_move_cast_error.
*        message 'ZENITH:Casting error3' TYPE 'E'.
    ENDTRY.

    CALL METHOD current_command->parse_commandtext
      EXCEPTIONS
        error_occurred = 1
        OTHERS         = 2.

    CASE sy-subrc.

      WHEN 1.
*        message s079 DISPLAY LIKE 'E'.
        RETURN.
      WHEN 2.
*        message s079 DISPLAY LIKE 'E'.
        CALL METHOD g_application->issue_message
          EXPORTING
            iv_msgty        = 'S'
            iv_msgno        = '079'
            iv_display_like = 'E'.
        RETURN.

    ENDCASE.


    TRY.
        l_select_command ?= current_command.

        CALL METHOD l_select_command->assign_field_symbols.

        CALL METHOD me->generate_structure
          EXCEPTIONS
            empty_fieldinfo_tb    = 1
            command_is_not_select = 2
            OTHERS                = 3.

        CASE sy-subrc.
          WHEN 1.
            CALL METHOD g_application->issue_message
              EXPORTING
                iv_msgty        = 'S'
                iv_msgno        = '078'
                iv_display_like = 'E'.
*            message s078 DISPLAY LIKE 'E'.
            RETURN.

          WHEN 2.
            CALL METHOD g_application->issue_message
              EXPORTING
                iv_msgty        = 'S'
                iv_msgno        = '080'
                iv_display_like = 'E'.
*            message s080 DISPLAY LIKE 'E'.
            RETURN.

          WHEN 3.
            CALL METHOD g_application->issue_message
              EXPORTING
                iv_msgty        = 'S'
                iv_msgno        = '081'
                iv_display_like = 'E'.
*            message s081 DISPLAY LIKE 'E'.
            RETURN.
        ENDCASE.

        CLEAR:

          l_select_command->mv_dbcnt,
          l_select_command->mv_bytes,
          l_select_command->mv_filtered,
          l_select_command->mv_pos,
          l_select_command->alv_state.

      CATCH cx_sy_move_cast_error.
    ENDTRY.

    LOOP AT current_command->table_alias_tb INTO ls_table_alias_tb.

      CALL METHOD g_application->check_s_tabu_dis
        EXPORTING
          iv_for_editing = ' '
          iv_tabname     = ls_table_alias_tb-table
        IMPORTING
          ev_auth        = lv_read_auth.

      IF lv_read_auth IS INITIAL.
        MESSAGE s125 DISPLAY LIKE 'E' WITH ls_table_alias_tb-table.
        RETURN.
      ENDIF.

    ENDLOOP.

    DATA: lv_simulation TYPE c.

    IF iv_mode = 'SIMULATE'.
      lv_simulation = 'X'.
    ELSE.
      CLEAR lv_simulation.
    ENDIF.



    CALL METHOD current_command->execute_parsed_sql
      EXPORTING
        po_grid                  = g_alv
        po_tree                  = lo_tree
        iv_simulation            = lv_simulation
        iv_bg_proc               = iv_bg_proc
        iv_bg_date               = iv_bg_date
        iv_bg_time               = iv_bg_time
        iv_read_from_file        = iv_read_from_file
      IMPORTING
        er_exception             = lx_root
        et_srccode               = current_command->mt_srccode
      EXCEPTIONS
        table_not_found          = 1
        parse_error              = 2
        exec_error               = 3
        error_occurred           = 4
        unlock_error             = 5
        arg_to_long              = 6
        foreign_lock             = 7
        foreign_lock_all_clients = 8
        job_submit_error         = 9
        field_list_changed       = 10
        file_open_error          = 11
        no_auth_for_table        = 12
        OTHERS                   = 13.

    CASE sy-subrc.
      WHEN 0.

      WHEN 1.
        CALL METHOD g_application->issue_message
          EXPORTING
            iv_msgty        = 'S'
            iv_msgno        = '082'
            iv_display_like = 'E'.
*          message s082 DISPLAY LIKE 'E'.
        RETURN.

      WHEN 2.
        CALL METHOD g_application->issue_message
          EXPORTING
            iv_msgty        = 'S'
            iv_msgno        = '079'
            iv_display_like = 'E'.
*          message s079 DISPLAY LIKE 'E'.
        RETURN.

      WHEN 3.
        IF lx_root IS INITIAL.
          CALL METHOD g_application->issue_message
            EXPORTING
              iv_msgty        = 'S'
              iv_msgno        = '083'
              iv_display_like = 'E'.
        ELSE.
          CALL METHOD lx_root->if_message~get_longtext
            RECEIVING
              result = lv_message.
          MESSAGE lv_message TYPE 'S' DISPLAY LIKE 'E'.
        ENDIF.

        RETURN.

      WHEN 4.
        CALL METHOD g_application->issue_message
          EXPORTING
            iv_msgty        = 'S'
            iv_msgno        = '083'
            iv_display_like = 'E'.
*          message s083 DISPLAY LIKE 'E'.
        RETURN.

      WHEN 5.
        MESSAGE i073 DISPLAY LIKE 'W' WITH sy-msgv1.
        RETURN.

      WHEN 6.
        MESSAGE i069 DISPLAY LIKE 'E'.
        RETURN.

      WHEN 7.
        MESSAGE i071 DISPLAY LIKE 'E' WITH sy-msgv1 sy-msgv2 sy-msgv3.
        RETURN.

      WHEN 8.
        MESSAGE i070 DISPLAY LIKE 'E' WITH sy-msgv1 sy-msgv2.
        RETURN.

      WHEN 9.
        MESSAGE i134 DISPLAY LIKE 'E'. " WITH sy-msgv1 sy-msgv2.
        RETURN.

      WHEN 10.
        MESSAGE i144 DISPLAY LIKE 'E'.
        RETURN.

      WHEN 11.
        MESSAGE i145 DISPLAY LIKE 'E'.
        RETURN.

      WHEN 12.
        MESSAGE s125 DISPLAY LIKE 'E' WITH sy-msgv1.
        RETURN.

      WHEN 13.
        CALL METHOD g_application->issue_message
          EXPORTING
            iv_msgty        = 'S'
            iv_msgno        = '084'
            iv_display_like = 'W'.
*          message s084 DISPLAY LIKE 'W'.
    ENDCASE.

    TRY.
        l_select_command ?= current_command.

        IF lv_simulation IS INITIAL AND
           iv_bg_proc    IS INITIAL.
          CALL METHOD me->display.
        ENDIF.

        l_select_command->mv_read_from_file = iv_read_from_file.

        IF iv_read_from_file EQ 'X'.
          CALL METHOD g_alv->set_toolbar_interactive.
        ENDIF.

        current_command->mv_grid_modified = ' '.

        IF lv_simulation IS INITIAL.
          CALL METHOD g_application->refresh_status_indicators.
        ENDIF.

        IF lv_simulation = 'X'.
          CLEAR l_select_command->fcat.
        ELSE.
          l_select_command->prev_fcat = l_select_command->fcat.
        ENDIF.

      CATCH cx_sy_move_cast_error.
*      message 'ZENITH:Casting error4' TYPE 'E'.
    ENDTRY.

    CALL METHOD current_command->get_type
      IMPORTING
        ep_command_type = l_c_type.

    IF l_c_type NE gc_ctype_lawb.
      CALL METHOD g_application->display_table_grid.
    ENDIF.

    IF iv_bg_proc IS INITIAL.
      IF lv_simulation = 'X'.
        MESSAGE s120.
      ELSE.
        CALL METHOD me->write_status_message.
      ENDIF.
    ENDIF.

  ENDMETHOD.                    "LCL_COMMANDS


  METHOD write_status_message.

    DATA: lstr             TYPE string,
          lstr2            TYPE string,
          lstr3(20)        TYPE c,
          lv_float         TYPE f,
          lv_p             TYPE p DECIMALS 3,
          l_bytes          TYPE i,
          l_select_command TYPE REF TO lcl_select_command,
          l_update_command TYPE REF TO lcl_update_command,
          l_delete_command TYPE REF TO lcl_delete_command,
          l_lawb           TYPE REF TO lcl_lawb.


    GET RUN TIME FIELD gv_endtime.
    gv_deltatime = ( gv_endtime - gv_starttime ) DIV 1000.

    lv_float = gv_deltatime / 1000.

    lv_p = lv_float.
    MOVE lv_p TO lstr2.

    TRY.
        l_select_command ?= current_command.

        CALL METHOD g_application->issue_message
          EXPORTING
            iv_msgty = 'S'
            iv_msgno = '047'
            iv_msgv1 = l_select_command->mv_dbcnt
            iv_msgv2 = lstr2
            iv_msgv3 = l_select_command->mv_bytes.

      CATCH cx_sy_move_cast_error.
    ENDTRY.

  ENDMETHOD.                    " write_status_message


  METHOD transfer_text_to_command.

    DATA: l_text TYPE source_table,
          ls_text LIKE LINE OF l_text,
          l_str TYPE string.

    IF sy-tcode = 'ZSQL_TEST'.
      l_text[] = current_command->text[].
    ELSE.
      CALL METHOD g_textedit->get_text
        IMPORTING
          table  = l_text[]
        EXCEPTIONS
          OTHERS = 1.

      IF sy-subrc = 1.
*        MESSAGE i025.
      ENDIF.
    ENDIF.

    IF current_command->text[] NE l_text[].
      IF current_command->mv_ctext_changed IS INITIAL.
        current_command->mv_ctext_changed = 'X'.
      ENDIF.
    ENDIF.

    current_command->text[] = l_text[].

    IF l_text IS NOT INITIAL.
      CALL METHOD lcl_toolbox=>pretty_printer
        CHANGING
          ct_source = l_text.

      LOOP AT l_text INTO ls_text.
        IF ls_text(1) NE '*'.
          CONCATENATE l_str ls_text INTO l_str SEPARATED BY ' '.
        ENDIF.
      ENDLOOP.

      CALL METHOD current_command->set_commandtext
        EXPORTING
          p_commandtext = l_str.
    ENDIF.

  ENDMETHOD.                    "transfer_text_to_command

  METHOD parse_only_command.

    DATA: l_update_command TYPE REF TO lcl_update_command,
          l_delete_command TYPE REF TO lcl_delete_command,
          l_select_command TYPE REF TO lcl_select_command,
          l_lawb           TYPE REF TO lcl_lawb,
          l_selfae         TYPE REF TO lcl_select_fae_command,
          l_parent_selfae  TYPE REF TO lcl_select_fae_command.

    IF p_on_load EQ ' '.
      CALL METHOD transfer_text_to_command.
    ENDIF.
    TRY.
        l_select_command ?= current_command.

        DATA: lv_log_handle LIKE g_application->mv_log_handle.

        IF gv_autotest = 'X'.
          lv_log_handle = g_application->mv_log_handle.
        ENDIF.

        CALL METHOD l_select_command->mo_pipacs_select->create_new
          EXPORTING
            iv_command_id = current_command->command_id
            iv_command    = current_command->commandtext
            it_vranges    = current_command->it_ranges
            iv_log_handle = lv_log_handle
          EXCEPTIONS
            no_id         = 1
            OTHERS        = 2.

        CASE sy-subrc.
          WHEN 1.
            RAISE no_id.
          WHEN 2.
            RAISE create_error.
        ENDCASE.

        l_select_command->mo_pipacs_command = l_select_command->mo_pipacs_select.


      CATCH cx_sy_move_cast_error.

    ENDTRY.

    IF p_on_load EQ ' '.
****      CALL METHOD g_application->refresh_curr_tree_node_caption.
    ENDIF.

    CALL METHOD current_command->parse_commandtext
      EXPORTING
        p_on_load      = p_on_load
      EXCEPTIONS
        error_occurred = 1
        OTHERS         = 2.

    CASE sy-subrc.
      WHEN 1.
        RAISE parse_error.
      WHEN 2.
        RAISE parse_error.
    ENDCASE.

    IF p_on_load EQ ' '.
      CALL METHOD g_application->display_table_grid.
    ENDIF.

  ENDMETHOD.                    " parse_only_command

ENDCLASS.                    "LCL_COMMANDS IMPLEMENTATION

*&---------------------------------------------------------------------*
*&      Form  mem_export
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM mem_export .

  DATA: BEGIN OF mode,                 " Schnittstelle für SE13
         show(1),
         edit(1),
         END OF mode.

  mode-show = 'X'.
  mode-edit = ' '.
  EXPORT mode TO MEMORY ID 'MOD'.


ENDFORM.                    " mem_export
*&---------------------------------------------------------------------*
*&      Form  INSTALL
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM install.

  DATA: lt_eg TYPE dyn_flowlist,
        lt_fg TYPE TABLE OF d021s,
        lt_mg TYPE TABLE OF d023s,
        lt_htext TYPE TABLE OF d023s,
        ls_fg TYPE d021s,
        ls_htext TYPE d023s,
        ls_d020s TYPE d020s,
        lstr TYPE string.

  SELECT SINGLE *
    FROM d020s
    INTO ls_d020s
    WHERE prog = sy-repid.

  IF sy-subrc <> 0.

    CALL FUNCTION 'ENQUEUE_ES_PROG'
      EXPORTING
        mode_trdir     = 'E'
        name           = sy-repid
      EXCEPTIONS
        foreign_lock   = 1
        system_failure = 2
        OTHERS         = 3.

    IF sy-subrc <> 0.

      CONCATENATE 'Report' sy-repid 'cannot be locked for installation. Please do not edit it.' INTO lstr SEPARATED BY space.

      MESSAGE i085 WITH lstr.

      LEAVE PROGRAM.
    ENDIF.

    CALL FUNCTION 'DEQUEUE_ES_PROG'
      EXPORTING
        name = sy-repid.

    APPEND 'PROCESS BEFORE OUTPUT.' TO lt_eg.
    APPEND 'MODULE status_0100.' TO lt_eg.
    APPEND INITIAL LINE TO lt_eg.
    APPEND 'PROCESS AFTER INPUT.' TO lt_eg.
    APPEND 'MODULE user_command_0100_exit.' TO lt_eg.
    APPEND 'MODULE user_command_0100.' TO lt_eg.


    ls_fg-fnam =  'OK_CODE'.
    ls_fg-flg1 =  '80'.
    ls_fg-flg2 =  '10'.
    ls_fg-leng =  '14'.
    ls_fg-line =  'FF'.
    ls_fg-coln =  '01'.
    ls_fg-ltyp =  'O'.
    ls_fg-type =  'CHAR'.
    ls_fg-stxt = '____________________'.
    APPEND ls_fg TO lt_fg.

*    ls_htext-PROG = sy-repid.
*    ls_htext-DYNR = '0100'.
*    ls_htext-LANG = sy-langu.
*    ls_htext-DTXT = 'Main screen'.
*    APPEND ls_htext TO lt_htext.

*    CALL FUNCTION 'RS_SCREEN_CREATE'

    ls_d020s-prog =  sy-repid.
    ls_d020s-dnum =  '0100'.
    ls_d020s-fnum =  '0100'.
    ls_d020s-bzmx =  '0'.
    ls_d020s-bzbr =  '0'.
    ls_d020s-mili =  '192'.
    ls_d020s-mico =  '37'.
    ls_d020s-mali =  '0'.
    ls_d020s-maco =  '0'.
    ls_d020s-noli =  '27'.
    ls_d020s-noco =  '120'.
    ls_d020s-valp =  '0'.
    ls_d020s-cuan =  'G'.
    ls_d020s-spra =  sy-langu.
    ls_d020s-dgen =  sy-datum.
    ls_d020s-tgen =  sy-uzeit.

    CALL FUNCTION 'RS_SCREEN_EXPORT'
      EXPORTING
        dynnr                 = '0100'
        progname              = sy-repid
        h_export              = ls_d020s
        save_without_question = 'X'
        without_corr_insert   = 'X'
      TABLES
        e_g                   = lt_eg
        f_g                   = lt_fg
        m_g                   = lt_mg
      EXCEPTIONS
        already_exists        = 1
        not_executed          = 2
        OTHERS                = 3.

    IF sy-subrc <> 0.
*      ???
    ENDIF.

    TABLES trkey.

    TYPES: BEGIN OF ty_tit,
            code TYPE rsoldleng-title,
            text TYPE title-text_line,
           END OF ty_tit.

    DATA: tit    TYPE STANDARD TABLE OF ty_tit.
*     Release ab  4.6
    DATA: fun4   TYPE STANDARD TABLE OF rsmpe_funt WITH HEADER LINE.
    DATA: ctx4   TYPE STANDARD TABLE OF rsmpe_ctx WITH HEADER LINE.
    DATA: mtx4   TYPE STANDARD TABLE OF rsmpe_mnlt WITH HEADER LINE.
    DATA: men4   TYPE STANDARD TABLE OF rsmpe_men WITH HEADER LINE.
    DATA: act4   TYPE STANDARD TABLE OF rsmpe_act WITH HEADER LINE.
    DATA: doc4   TYPE STANDARD TABLE OF rsmpe_atrt WITH HEADER LINE.
    DATA: sta4   TYPE STANDARD TABLE OF rsmpe_stat WITH HEADER LINE.
    DATA: set4   TYPE STANDARD TABLE OF rsmpe_staf WITH HEADER LINE.
    DATA: pfk4   TYPE STANDARD TABLE OF rsmpe_pfk WITH HEADER LINE.
    DATA: but4   TYPE STANDARD TABLE OF rsmpe_but WITH HEADER LINE.
    DATA: tit4   TYPE STANDARD TABLE OF rsmpe_titt WITH HEADER LINE.
    DATA: stx4   TYPE STANDARD TABLE OF rsmptexts WITH HEADER LINE.
    DATA: adm4   TYPE rsmpe_adm.
*     Release ab  4.6c
    DATA: biv46c TYPE STANDARD TABLE OF rsmpe_buts.

    DATA: i_adm4 TYPE STANDARD TABLE OF rsmpe_adm.

*    trkey-devclass = '$TMP'.
    trkey-obj_type = 'PROG'.
    trkey-obj_name = sy-repid.
    trkey-sub_type = 'CUAD'.
    trkey-sub_name = sy-repid.

    adm4-actcode = '000003'.
    adm4-pfkcode = '000003'.

    sta4-code     = '100_MAIN'.
    sta4-modal    = 'D'.
    sta4-actcode  = '000001'.
    sta4-pfkcode  = '000001'.
    sta4-butcode  = '0001'.
    sta4-int_note = 'MAIN'.

    APPEND sta4.

    fun4-code      = 'BACK'.
    fun4-textno    = '001'.
    fun4-text_type = 'S'.
    fun4-fun_text  = 'BACK'.

    APPEND fun4.
    fun4-code      = 'CANCEL'.
    APPEND fun4.
    fun4-code      = 'EXIT'.
    APPEND fun4.
    fun4-code      = 'EXEC'.
    fun4-text_name = 'ICON_EXECUTE_OBJECT'.
    fun4-fun_text  = 'Execute'.
    fun4-info_text = 'Execute'.
    fun4-icon_id   = '@15@'.

    APPEND fun4.
    fun4-code      = 'SIMULATE'.
    fun4-text_name = 'ICON_SIMULATE'.
    fun4-fun_text  = 'Simulate'.
    fun4-info_text = 'Simulate'.
    fun4-icon_id   = '@8Z@'.
    APPEND fun4.

    but4-pfk_code = '000001'.
    but4-code     = '0001'.
    but4-no       = '01'.
    but4-pfno     = '08'.

    APPEND but4.

    but4-no       = '02'.
    but4-pfno     = '20'.
    APPEND but4.

    pfk4-code    = '000001'.
    pfk4-pfno    = '03'.
    pfk4-funcode = 'BACK'.
    pfk4-funno   = '001'.

    APPEND pfk4.

    pfk4-pfno    = '08'.
    pfk4-funcode = 'EXEC'.
    APPEND pfk4.

    pfk4-pfno    = '12'.
    pfk4-funcode = 'CANCEL'.
    APPEND pfk4.

    pfk4-pfno    = '15'.
    pfk4-funcode = 'EXIT'.
    APPEND pfk4.

    pfk4-pfno    = '20'.
    pfk4-funcode = 'SIMULATE'.
    APPEND pfk4.

    set4-status   = '100_MAIN'.
    set4-function = 'BACK'.

    APPEND set4.

    set4-function = 'CANCEL'.
    APPEND set4.

    set4-function = 'EXIT'.
    APPEND set4.

    set4-function = 'SIMULATE'.
    APPEND set4.

    set4-function = 'EXEC'.
    APPEND set4.

    doc4-obj_type = 'A'.
    doc4-obj_code = '000001'.
    doc4-modal    = 'D'.
    doc4-int_note = 'MAIN'.

    APPEND doc4.

    doc4-obj_type = 'P'.
    doc4-obj_code = '000001'.
    doc4-modal    = 'D'.
    doc4-int_note = 'MAIN'.

    APPEND doc4.

    doc4-obj_type = 'B'.
    doc4-obj_code = '000001'.
    doc4-modal    = 'D'.
    doc4-norm     = '0001'.
    doc4-int_note = 'MAIN'.

    APPEND doc4.

    tit4-code = '100_TITLE'.
    tit4-text = '&'.

    APPEND tit4.

    CALL FUNCTION 'RS_CUA_INTERNAL_WRITE'
      EXPORTING
        program   = sy-repid
        language  = sy-langu
        tr_key    = trkey
        adm       = adm4
        state     = 'I'
      TABLES
        sta       = sta4
        fun       = fun4
        men       = men4
        mtx       = mtx4
        act       = act4
        but       = but4
        pfk       = pfk4
        set       = set4
        doc       = doc4
        tit       = tit4
        biv       = biv46c
      EXCEPTIONS
        not_found = 1
        OTHERS    = 2.


    DATA: lt_text TYPE TABLE OF textpool,
          ls_text TYPE textpool.

    ls_text-id = 'I'.

    ls_text-entry = 'Domain Definitions'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Data Element Definitions'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Lock Object Definitions'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Indexes'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Table Definitions'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Table Technical Attriibutes'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Table Type definitions'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Text Component Table Type definitions'. APPEND ls_text TO lt_text.
    ls_text-entry = 'View definitions'. APPEND ls_text TO lt_text.
    ls_text-entry = 'View Technical Attributes'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Domains'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Domain definitions'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Data Elements'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Lock Objects'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Logical Databases'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Number Ranges'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Tables'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Table Contents'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Table Types'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Data Models'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Entity Types'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Views'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Pretty Printer'. APPEND ls_text TO lt_text.
    ls_text-entry = '(...) INNER JOIN Checktable'. APPEND ls_text TO lt_text.
    ls_text-entry = '(...) LEFT OUTER JOIN Checktable'. APPEND ls_text TO lt_text.
    ls_text-entry = '(...) SELECT FOR ALL ENTRIES Checktable'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Delete Folder'. APPEND ls_text TO lt_text.
    ls_text-entry = '(...) Foreign Key Relations'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Delete All'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Create New Folder'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Paste'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Rename Folder'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Create New Folder'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Cut'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Paste'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Delete All Commands'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Display'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Delete'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Properties'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Execute'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Do you want to move the commands in the Repository'. APPEND ls_text TO lt_text.
    ls_text-entry = 'to the Current commands after emptying the Repository?'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Confirm deletion'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Do you really want to delete all current commands?'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Do you want to move the commands in the selected folder'. APPEND ls_text TO lt_text.
    ls_text-entry = 'to the Current commands after Deleting the Folder?'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Enter Folder Name'. APPEND ls_text TO lt_text.
    ls_text-entry = 'and all of its subcommands'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Do you really want to delete the command'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Display table definition'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Display indexes'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Display technical settings'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Display foreign key relations'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Display text table'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Display runtime object'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Where Used List'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Display contents'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Use Value Ranges'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Toggle Display/Change mode'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Display Tree'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Select All Rows'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Deselect All Rows'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Column display settings'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Toggle automatic check'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Append row'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Insert row'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Delete row'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Copy row'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Updated/Inserted/Deleted rows'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Update DB table'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Insert lines to DB table'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Modify DB table'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Delete visible lines from DB'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Delete deleted lines from DB'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Undo all changes'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Enter Table Name'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Dynamic Selection'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Key fields as normal'. APPEND ls_text TO lt_text.
    ls_text-entry = 'To edit the result sets, key fields &1 have to be included in the field list.'. APPEND ls_text TO lt_text.
*     GAP HANDLED IN LOOP
    ls_text-entry = 'Display alias'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Modify source table'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Modify other table'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Insert into source table'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Insert into other table'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Create table'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Update source table'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Update other table'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Fix key columns'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Display original field name'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Display generated field name'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Diaplay short text'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Display All records'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Display Updated records'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Display Inserted records'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Display Deleted records'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Total'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Structure'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Script'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Select for All Entries'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Loop-at Workbench'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Delete SQL'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Update SQL'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Select SQL'. APPEND ls_text TO lt_text.
    ls_text-entry = '* field symbols for the work area and for a specific field'. APPEND ls_text TO lt_text.
    ls_text-entry = '* the table name MUST be p_itab'. APPEND ls_text TO lt_text.
    ls_text-entry = '* replace XYZ with the field name in UPPERCASE'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Create table and insert'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Refresh'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Display Options'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Display Grid'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Data has changed'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Do you really want to quit without saving?'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Yes'. APPEND ls_text TO lt_text.
    ls_text-entry = 'No'. APPEND ls_text TO lt_text.
    ls_text-entry = 'ABAP Documentation'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Syntax Diagram'. APPEND ls_text TO lt_text.
    ls_text-entry = 'You have unsaved modifications of the result list.'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Do you really want to cancel editing?'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Warning'. APPEND ls_text TO lt_text.
    ls_text-entry = 'You have unsaved modifications of the result list of a command'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Do you really want to exit?'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Exif from the application'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Lock records'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Unlock records'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Deleted records'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Updated records'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Inserted records'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Simulate'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Move Result Set'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Update other table'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Insert into other table'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Modify other table'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Current Commands'. APPEND ls_text TO lt_text.
    ls_text-entry = 'My Repository'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Application Components'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Table/Value range'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Select'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Update'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Delete'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Loop at Workbench'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Select for all entries...'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Domain:'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Length:'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Description'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Navigation Tree'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Recognize tables'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Advanced Paste'. APPEND ls_text TO lt_text.
    ls_text-entry = '(...) SUBQUERY for Checktable'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Field Selector'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Check'. APPEND ls_text TO lt_text.
    ls_text-entry = '* Original command text:'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Delete backup table'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Column options'. APPEND ls_text TO lt_text.
    ls_text-entry = 'First page'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Previous page'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Next page'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Last page'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Do you really wanto to display all records?'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Show all records'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Confirmation'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Report generated by Hovitaga Report Generator'. APPEND ls_text TO lt_text.
    ls_text-entry = 'at'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Report title:'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Created by:'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Created on:'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Fields for the selection screen'. APPEND ls_text TO lt_text.
    ls_text-entry = 'You have unsaved modifications of a command text'. APPEND ls_text TO lt_text.
    ls_text-entry = 'Linked Query Assistant'. APPEND ls_text TO lt_text.

    ls_text-id = 'R'.
    ls_text-entry = 'Hovitaga OpenSQL Editor free edition'. APPEND ls_text TO lt_text.

    LOOP AT lt_text INTO ls_text.

      IF sy-tabix > 79.
        ls_text-key    = sy-tabix + 1.
      ELSE.
        ls_text-key    = sy-tabix.
      ENDIF.

      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input  = ls_text-key
        IMPORTING
          output = ls_text-key.

      ls_text-key = ls_text-key+5(3).

      ls_text-length = STRLEN( ls_text-entry ).

      MODIFY lt_text FROM ls_text INDEX sy-tabix.

    ENDLOOP.

    INSERT textpool sy-repid FROM lt_text LANGUAGE sy-langu.

    DATA: lv_transaction TYPE sy-tcode.

    lv_transaction = sy-repid.

    CALL FUNCTION 'RPY_TRANSACTION_INSERT'
      EXPORTING
        transaction                   = lv_transaction
        program                       = sy-repid
        dynpro                        = '0100'
        shorttext                     = 'Hovitaga OpenSQL Editor Free Edition'
        easy_web_transaction          = ' '
        professionel_user_transaction = 'X'
        html_enabled                  = 'X'
        java_enabled                  = 'X'
        wingui_enabled                = 'X'
        genflag                       = 'X'
        suppress_authority_check      = 'X'
        suppress_corr_insert          = 'X'
      EXCEPTIONS
        cancelled                     = 1
        already_exist                 = 2
        permission_error              = 3
        name_not_allowed              = 4
        name_conflict                 = 5
        illegal_type                  = 6
        object_inconsistent           = 7
        db_access_error               = 8
        OTHERS                        = 9.

    IF sy-subrc <> 0.
    ENDIF.


    DATA: ls_t100a TYPE t100a,
          lt_t100a TYPE TABLE OF t100a,
          lv_msgclass TYPE t100a-arbgb.

    lv_msgclass = 'ZSQL_FREE'.

    SELECT SINGLE arbgb FROM t100a
      INTO ls_t100a-arbgb
      WHERE arbgb = lv_msgclass.

    IF sy-subrc EQ 4.

      ls_t100a-arbgb      = lv_msgclass.
      ls_t100a-masterlang = sy-langu.
*      ls_t100a-APPLCLASS
      ls_t100a-respuser = sy-uname.
      ls_t100a-lastuser = sy-uname.
      ls_t100a-ldate    = sy-datum.
      ls_t100a-ltime    = sy-uzeit.
      ls_t100a-stext    = 'Hovitaga OpenSQL Editor Free Edition'.

      INSERT t100a FROM ls_t100a.

      DATA: ls_t100t TYPE t100t,
            lt_t100t TYPE TABLE OF t100t.

      ls_t100t-arbgb      = lv_msgclass.
      ls_t100t-sprsl      = sy-langu.
      ls_t100t-stext    = 'Hovitaga OpenSQL Editor Free Edition'.

      INSERT t100t FROM ls_t100t.

      DATA: ls_t100 TYPE t100,
            lt_t100 TYPE TABLE OF t100.

      ls_t100-arbgb = lv_msgclass.
      ls_t100-sprsl = sy-langu.

      ls_t100-text = '    *** Core Classes ***'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Don''t write any commands after the closing dot'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Internal error during syntax check'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Internal error: generated program could not be called'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'The command cannot be interpreted'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'An ending quotation mark is missing'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Keyword ''&1'' is missing'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Field ''&1'' not found in table ''&2'''. APPEND ls_t100 TO lt_t100.
      ls_t100-text = '''&1'' was not expected in the FROM clause'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'FROM clause ended unexpectedly with ''&1'''. APPEND ls_t100 TO lt_t100.
      ls_t100-text = '''&1'' was not expected in the field list'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Field list ended unexpectedly with ''&1'''. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Field list: can not find table alias &1'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'No tables were found'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Table ''&1'' does not exist or is not active'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = '''&1'' is not a table'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Field ''&1'' does not belong to any of the tables'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Field list is missing'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Wrong order of keywords: &1 on wrong position'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'A syntax error occured'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'The command must have the FOR ALL ENTRIES clause'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'The command must have the WHERE clause'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Not an update command'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Not a delete command'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Only one table name can be entered for a DELETE/UPDATE command'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Zenith: textedit get_text Potential data loss'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Zenith: node xref not found'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Please adopt changes to the command by pressing the Simulate button'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Command copied to Clipboard'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Folder copied to Clipboard'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Rows fetched: &1 Updated: &2 Inserted: &3 Deleted: &4'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Zenith: tree get node error'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'No text table for &1'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Table &1 does not exist or is not active'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'No errors were found'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'To edit the result set, key fields &1 must be included in the field list'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Field ''&1'' does not belong to tables ''&2'''. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Checktable Relationships for &1'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Could not find field &1 in table &2 (type &3)'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Domain: &1  Length: &2'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Empty fieldcatalog'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Copy of Table &1 for ZSQL Command &2'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'ZENITH Generated Table for Command &1'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Transparent table succesfully created and activated'. APPEND ls_t100 TO lt_t100.
*     GAP HANDLED IN LOOP
      ls_t100-text = 'First execute the parent command'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'At least one record was not found in the DB with the primary key'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = '&1 records fetched in &2 seconds &3 bytes transferred'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = '&1 records updated in &2 seconds'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = '&1 records deleted in &2 seconds'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Parent command not found'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = '&1 records inserted'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'At least one record was not inserted'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'At least one record was not deleted'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'All lines were successfully inserted or updated'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'One or more lines could not be inserted or updated'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Key incomplete, update not allowed'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Table &1 already exists'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Maximum records must be at least 1'. APPEND ls_t100 TO lt_t100.
*     GAP HANDLED IN LOOP
      ls_t100-text = 'Command cannot be displayed'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'You don''t have the authority to execute this command type'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'ABAP documentation launched for keyword &1'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Nothing found in the ABAP documentation for keyword &1'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Command is locked by &1'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Error when locking the selected command'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = '&1 records updated &2 inserted &3 deleted in &4 seconds'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Error while updating table'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Do not use the ''FOR UPDATE'' addition'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Lock argument too long'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Table &1 locked by &2'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Table &1 client &2 locked by &3'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Error when locking table &1'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Error when unlocking table &1'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Some inserted rows were locked, update cancelled'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Record locked by &1'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Unable to create command'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Cannot assign a command ID'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Field list empty'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Error parsing the command'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Command is not a select command'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Error generating the structure for the result list'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Table list empty'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Error executing the command'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Error unlocking the table'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = '&1 &2 &3 &4 &5 &6'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Nothing to display'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Some records cannot be written to the database'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Command does not beging with the keyword ''&1'''. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Record not found or action resulted in duplicate primary keys'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Field &1 missing from result set, please adjust tree settings'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = '&1 records updated in table &2'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = '&1 records inserted into table &2'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = '&1 records modified in table &2'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = '&1 reports being processed'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Loop-at Workbench executed in &1 seconds'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'CALL METHOD lo_select->mo_pipacs_select->create_new: NO_ID exception'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'CALL METHOD lo_select->mo_pipacs_select->create_new: OTHERS exception'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Parsing statement in program &1 at line &2 resulted in errors'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'General Error'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = '&1 statements processed'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Executing statement in program &1 at line &2 resulted in errors'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Could not remove previously generated programs'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Updating result of statement in program &1 at line &2 resulted in errors'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Generated program name: &1'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Error generating structure for statement in program &1 at line &2'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Editing result sets is not allowed. See longtext for further help'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Error unlocking table &1 in generated program &2'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Argument too long when locking table &1 in generated program &2'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Error when locking table &1 in generated program &2'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Error generating lock argument for table &1 in &2, generated program &3'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Unable to get lock argument in &1'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Could not find field &2 in table &1'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Test entry already locked for table &1 in &2, generated program &3'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Unable to create lock argument in &1'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Unable to display data element'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'NUMBER_GET_NEXT returncode = &1'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Synchronize the Loop-at Workbench with its parent command first'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Table structures are different. Possible field type mismatch.'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Table &1 already exists'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'No syntax errors found'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Value Ranges are not available for Pooled and Clustered tables'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'You don''t have authorization to use keyword CLIENT SPECIFIED'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Aggregate functions in the field list are not supported'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'At least one key field must be included in the field list'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'You have no authorization to access data in table &1'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'All records must be locked before executing a Loop-at Workbench'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'The command must be executed first'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = '* Results from command &1 executed at &2 &3'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = '* &1 records saved, &2 bytes transferred'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'No table exists for the selected command'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Really delete the command and the underlying backup table &1?'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Backup table &1 successfully deleted'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Exactly one column must be selected to invoke the Column Options dialog'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Background job could not be started'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Background job &1 successfully started'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Output file &1 could not be created'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = '&1 Displaying records from &2 to &3'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'There result contains &1 records'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'The query returned &1 record(s)'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Output file &1 successfully created'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = '&1 records successfully updated/deleted'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Cannot open file &1'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Result set could not be imported from file &1'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Field list has changed, cannot display the results'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Unable to open file on the application server'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Table could not be locked'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'No records were updated/deleted'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'You have no authorization to display any of the selected fields'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'Report succesfully generated'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'The command must be parsed successfully before generating a report'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = 'You have no authorization to create records with the specified keys'. APPEND ls_t100 TO lt_t100.
      ls_t100-text = '&1 records read from the database'. APPEND ls_t100 TO lt_t100.

      LOOP AT lt_t100 INTO ls_t100.

        IF sy-tabix < 45.
          ls_t100-msgnr = sy-tabix - 1.
        ELSEIF ( sy-tabix > 44 ) AND ( sy-tabix < 59 ).
          ls_t100-msgnr = sy-tabix.
        ELSEIF sy-tabix > 58.
          ls_t100-msgnr = sy-tabix + 1.
        ENDIF.

        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
          EXPORTING
            input  = ls_t100-msgnr
          IMPORTING
            output = ls_t100-msgnr.

        MODIFY lt_t100 FROM ls_t100 INDEX sy-tabix.

      ENDLOOP.

      INSERT t100 FROM TABLE lt_t100.

      DATA: ls_t100u TYPE t100u,
            ls_tadir TYPE tadir.

      LOOP AT lt_t100 INTO ls_t100.

        ls_t100u-arbgb   = lv_msgclass.
        ls_t100u-msgnr   = ls_t100-msgnr.
        ls_t100u-name    = sy-uname.
        ls_t100u-datum   = sy-datum.
        ls_t100u-selfdef = '3'.

        INSERT t100u FROM ls_t100u.

      ENDLOOP.

      ls_tadir-pgmid      = 'R3TR'.
      ls_tadir-object     = 'MSAG'.
      ls_tadir-devclass   = '$TMP'.
      ls_tadir-obj_name   = lv_msgclass.
      ls_tadir-cproject   = ' L'.
      ls_tadir-srcsystem  = sy-sysid.
      ls_tadir-author     = sy-uname.
      ls_tadir-masterlang = sy-langu.

      INSERT tadir FROM ls_tadir.

    ENDIF.

    CALL FUNCTION 'RS_TOOL_ACCESS'
      EXPORTING
        operation       = 'ACTIVATE'
        object_name     = sy-repid
        object_type     = 'PROG'
        with_objectlist = 'X'
        with_worklist   = 'X'
      EXCEPTIONS
        OTHERS          = 1.

    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.

    DATA: lv_str TYPE string.

    CONCATENATE 'Now you can use transaction ' sy-repid '.' INTO lv_str SEPARATED BY ''.

    CALL FUNCTION 'POPUP_TO_INFORM'
      EXPORTING
        titel = 'Installation completed'
        txt1  = lv_str
        txt2  = 'If you like this application, please share it with your '
        txt3  = 'friends on social networks, forums and blogs.'
        txt4  = 'Thank you! This message will not pop up again.'.

    LEAVE PROGRAM.

  ENDIF.

ENDFORM.                    " INSTALL

*&---------------------------------------------------------------------*
*&      Form  update
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM update.

  DATA: uri              TYPE saeuri,
        content_txt      TYPE  soli_tab,
        lv_latestversion LIKE LINE OF content_txt,
        lv_latestver_int TYPE i.


  uri = 'http://www.hovitaga.com/files/oe_latestversion_700.txt'.
  PERFORM get_file USING uri CHANGING content_txt.

  CHECK content_txt IS NOT INITIAL.

  READ TABLE content_txt INTO lv_latestversion INDEX 1.

  IF sy-subrc EQ 0.

    lv_latestver_int = lv_latestversion.

    IF lv_latestversion GT gc_version.

      DATA: lv_current TYPE string,
            lv_latest  TYPE string,
            lv_answer  TYPE c.

      DATA: lv_url(255) TYPE c.
      DATA: content_bin_255 TYPE  solix_tab.

      CONCATENATE 'Current version:' gc_version INTO lv_current SEPARATED BY space.
      CONCATENATE 'Latest version:' lv_latestversion INTO lv_latest SEPARATED BY space.

      CALL FUNCTION 'POPUP_TO_DECIDE'
        EXPORTING
*         DEFAULTOPTION           = '1'
          textline1               = 'An newer version is available.'
          textline2               = lv_current
          textline3               = lv_latest
          text_option1            = 'Update'
          text_option2            = 'No thanks'
*         ICON_TEXT_OPTION1       = ' '
*         ICON_TEXT_OPTION2       = ' '
          titel                   = 'Update forund'
*         START_COLUMN            = 25
*         START_ROW               = 6
          cancel_display          = ' '
        IMPORTING
          answer                  = lv_answer.

      IF lv_answer EQ '1'.

        uri = 'http://www.hovitaga.com/files/oe_source_700.txt'.
        PERFORM get_file USING uri CHANGING content_txt.

        DATA: lv_msg      TYPE string,
              lv_line     TYPE n,
              lv_word     TYPE char50,
              lv_replace  TYPE string.

        CONCATENATE 'gc_hash(32) TYPE c VALUE ''' gc_hash '''' INTO lv_replace.
        REPLACE ALL OCCURRENCES OF 'gc_hash(32) TYPE c VALUE ''e130d57ba1c629c83107bce22ae5f594''' IN TABLE content_txt WITH lv_replace.

        SYNTAX-CHECK FOR content_txt
          MESSAGE lv_msg
          LINE lv_line
          WORD lv_word
          PROGRAM sy-repid.

        IF sy-subrc NE 0.
          MESSAGE 'Syntax check failed. Please download the update manually from hovitaga.com' TYPE 'I'.

          CONCATENATE 'http://www.hovitaga.com/'
          'updated.php?h='
          gc_hash
          '&oldversion='
          gc_version
          '&newversion='
          lv_latestversion
          '&statuscode=SyntaxCheckFailed'
          INTO lv_url.

          CONDENSE lv_url NO-GAPS.

          CALL FUNCTION 'DP_GET_STREAM_FROM_URL'
            EXPORTING
              url            = lv_url
            TABLES
              data           = content_bin_255
            EXCEPTIONS
              dp_fail        = 1
              dp_failed_init = 2
              OTHERS         = 3.

          IF sy-subrc <> 0.
*            RETURN.
          ENDIF.

          RETURN.
        ENDIF.

        INSERT REPORT sy-repid FROM content_txt.

        IF sy-subrc EQ 0.

          CONCATENATE 'http://www.hovitaga.com/'
          'updated.php?h='
          gc_hash
          '&oldversion='
          gc_version
          '&newversion='
          lv_latestversion
          '&statuscode=Success'
          INTO lv_url.

          CONDENSE lv_url NO-GAPS.

          CALL FUNCTION 'DP_GET_STREAM_FROM_URL'
            EXPORTING
              url            = lv_url
            TABLES
              data           = content_bin_255
            EXCEPTIONS
              dp_fail        = 1
              dp_failed_init = 2
              OTHERS         = 3.

          IF sy-subrc <> 0.
*            RETURN.
          ENDIF.

          CALL FUNCTION 'POPUP_TO_DECIDE'
            EXPORTING
*             DEFAULTOPTION           = '1'
              textline1               = 'In order to make the changes effective,'
              textline2               = 'the program has to be restarted.'
              text_option1            = 'Exit'
              text_option2            = 'Show changelog'
*             ICON_TEXT_OPTION1       = ' '
*             ICON_TEXT_OPTION2       = ' '
              titel                   = 'Update successful'
*             START_COLUMN            = 25
*             START_ROW               = 6
              cancel_display          = ' '
            IMPORTING
              answer                  = lv_answer.

          IF lv_answer EQ '2'.

            DATA: lv_string TYPE string.

            lv_string = 'http://www.hovitaga.com/files/oe_changelog_700.txt'.

            CALL METHOD cl_gui_frontend_services=>execute
              EXPORTING
                document = lv_string.

          ENDIF.

          LEAVE PROGRAM.
        ELSE.
          MESSAGE 'Update failed (INSERT REPORT subrc NE 0)' TYPE 'I'.

          CONCATENATE 'http://www.hovitaga.com/'
          'updated.php?h='
          gc_hash
          '&oldversion='
          gc_version
          '&newversion='
          lv_latestversion
          '&statuscode=InsertReportFailed'
          INTO lv_url.

          CONDENSE lv_url NO-GAPS.

          CALL FUNCTION 'DP_GET_STREAM_FROM_URL'
            EXPORTING
              url            = lv_url
            TABLES
              data           = content_bin_255
            EXCEPTIONS
              dp_fail        = 1
              dp_failed_init = 2
              OTHERS         = 3.

          IF sy-subrc <> 0.
*            RETURN.
          ENDIF.

        ENDIF.

      ELSE.
        RETURN.
      ENDIF.

    ENDIF.

  ENDIF.

ENDFORM.                    "update

*&---------------------------------------------------------------------*
*&      Form  get_file
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->URL        text
*      -->CONTENT    text
*----------------------------------------------------------------------*
FORM get_file USING url TYPE saeuri CHANGING content TYPE soli_tab.

  DATA: content_bin_255 TYPE  solix_tab.

  CALL FUNCTION 'DP_GET_STREAM_FROM_URL'
    EXPORTING
      url            = url
    TABLES
      data           = content_bin_255
    EXCEPTIONS
      dp_fail        = 1
      dp_failed_init = 2
      OTHERS         = 3.

  IF sy-subrc <> 0.
    RETURN.
  ENDIF.

  CHECK content_bin_255 IS NOT INITIAL.

  DATA: lv_string TYPE string.

  CALL FUNCTION 'SCMS_BINARY_TO_STRING'
    EXPORTING
      input_length  = 999999999
    IMPORTING
      text_buffer   = lv_string
*      output_length = lv_len_out
    TABLES
      binary_tab    = content_bin_255.

  CLEAR content.
  SPLIT lv_string AT cl_abap_char_utilities=>cr_lf INTO TABLE content.


ENDFORM.                    "get_file

*&---------------------------------------------------------------------*
*&      Form  CHECK_MESSAGE_001
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM check_message_001.

  DATA: ls_t100  TYPE t100.

  CHECK sy-langu = 'E'.

  SELECT SINGLE * FROM t100 INTO ls_t100
    WHERE sprsl = 'E'  AND
          arbgb = '00' AND
          msgnr = '001'.

  IF ls_t100-text = 'No vendor specified'.
*   This message has not been translated correctly to English
*   and causes many OpenSQL Editor messages to be displayed incorrectly

    CALL FUNCTION 'POPUP_TO_INFORM'
      EXPORTING
        titel = 'Error in standard message class 00'
        txt1  = 'The English text of message 001 of message class 00 is wrong.'
        txt2  = 'Correct the message text to ''&1&2&3&4&5&6&7&8'''
        txt3  = 'or contact Hovitaga for support'.

    LEAVE PROGRAM.
  ENDIF.

ENDFORM.                    " CHECK_MESSAGE_001

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

354

355

356

357

358

359

360

361

362

363

364

365

366

367

368

369

370

371

372

373

374

375

376

377

378

379

380

381

382

383

384

385

386

387

388

389

390

391

392

393

394

395

396

397

398

399

400

401

402

403

404

405

406

407

408

409

410

411

412

413

414

415

416

417

418

419

420

421

422

423

424

425

426

427

428

429

430

431

432

433

434

435

436

437

438

439

440

441

442

443

444

445

446

447

448

449

450

451

452

453

454

455

456

457

458

459

460

461

462

463

464

465

466

467

468

469

470

471

472

473

474

475

476

477

478

479

480

481

482

483

484

485

486

487

488

489

490

491

492

493

494

495

496

497

498

499

500

501

502

503

504

505

506

507

508

509

510

511

512

513

514

515

516

517

518

519

520

521

522

523

524

525

526

527

528

529

530

531

532

533

534

535

536

537

538

539

540

541

542

543

544

545

546

547

548

549

550

551

552

553

554

555

556

557

558

559

560

561

562

563

564

565

566

567

568

569

570

571

572

573

574

575

576

577

578

579

580

581

582

583

584

585

586

587

588

589

590

591

592

593

594

595

596

597

598

599

600

601

602

603

604

605

606

607

608

609

610

611

612

613

614

615

616

617

618

619

620

621

622

623

624

625

626

627

628

629

630

631

632

633

634

635

636

637

638

639

640

641

642

643

644

645

646

647

648

649

650

651

652

653

654

655

656

657

658

659

660

661

662

663

664

665

666

667

668

669

670

671

672

673

674

675

676

677

678

679

680

681

682

683

684

685

686

687

688

689

690

691

692

693

694

695

696

697

698

699

700

701

702

703

704

705

706

707

708

709

710

711

712

713

714

715

716

717

718

719

720

721

722

723

724

725

726

727

728

729

730

731

732

733

734

735

736

737

738

739

740

741

742

743

744

745

746

747

748

749

750

751

752

753

754

755

756

757

758

759

760

761

762

763

764

765

766

767

768

769

770

771

772

773

774

775

776

777

778

779

780

781

782

783

784

785

786

787

788

789

790

791

792

793

794

795

796

797

798

799

800

801

802

803

804

805

806

807

808

809

810

811

812

813

814

815

816

817

818

819

820

821

822

823

824

825

826

827

828

829

830

831

832

833

834

835

836

837

838

839

840

841

842

843

844

845

846

847

848

849

850

851

852

853

854

855

856

857

858

859

860

861

862

863

864

865

866

867

868

869

870

871

872

873

874

875

876

877

878

879

880

881

882

883

884

885

886

887

888

889

890

891

892

893

894

895

896

897

898

899

900

901

902

903

904

905

906

907

908

909

910

911

912

913

914

915

916

917

918

919

920

921

922

923

924

925

926

927

928

929

930

931

932

933

934

935

936

937

938

939

940

941

942

943

944

945

946

947

948

949

950

951

952

953

954

955

956

957

958

959

960

961

962

963

964

965

966

967

968

969

970

971

972

973

974

975

976

977

978

979

980

981

982

983

984

985

986

987

988

989

990

991

992

993

994

995

996

997

998

999

1000

1001

1002

1003

1004

1005

1006

1007

1008

1009

1010

1011

1012

1013

1014

1015

1016

1017

1018

1019

1020

1021

1022

1023

1024

1025

1026

1027

1028

1029

1030

1031

1032

1033

1034

1035

1036

1037

1038

1039

1040

1041

1042

1043

1044

1045

1046

1047

1048

1049

1050

1051

1052

1053

1054

1055

1056

1057

1058

1059

1060

1061

1062

1063

1064

1065

1066

1067

1068

1069

1070

1071

1072

1073

1074

1075

1076

1077

1078

1079

1080

1081

1082

1083

1084

1085

1086

1087

1088

1089

1090

1091

1092

1093

1094

1095

1096

1097

1098

1099

1100

1101

1102

1103

1104

1105

1106

1107

1108

1109

1110

1111

1112

1113

1114

1115

1116

1117

1118

1119

1120

1121

1122

1123

1124

1125

1126

1127

1128

1129

1130

1131

1132

1133

1134

1135

1136

1137

1138

1139

1140

1141

1142

1143

1144

1145

1146

1147

1148

1149

1150

1151

1152

1153

1154

1155

1156

1157

1158

1159

1160

1161

1162

1163

1164

1165

1166

1167

1168

1169

1170

1171

1172

1173

1174

1175

1176

1177

1178

1179

1180

1181

1182

1183

1184

1185

1186

1187

1188

1189

1190

1191

1192

1193

1194

1195

1196

1197

1198

1199

1200

1201

1202

1203

1204

1205

1206

1207

1208

1209

1210

1211

1212

1213

1214

1215

1216

1217

1218

1219

1220

1221

1222

1223

1224

1225

1226

1227

1228

1229

1230

1231

1232

1233

1234

1235

1236

1237

1238

1239

1240

1241

1242

1243

1244

1245

1246

1247

1248

1249

1250

1251

1252

1253

1254

1255

1256

1257

1258

1259

1260

1261

1262

1263

1264

1265

1266

1267

1268

1269

1270

1271

1272

1273

1274

1275

1276

1277

1278

1279

1280

1281

1282

1283

1284

1285

1286

1287

1288

1289

1290

1291

1292

1293

1294

1295

1296

1297

1298

1299

1300

1301

1302

1303

1304

1305

1306

1307

1308

1309

1310

1311

1312

1313

1314

1315

1316

1317

1318

1319

1320

1321

1322

1323

1324

1325

1326

1327

1328

1329

1330

1331

1332

1333

1334

1335

1336

1337

1338

1339

1340

1341

1342

1343

1344

1345

1346

1347

1348

1349

1350

1351

1352

1353

1354

1355

1356

1357

1358

1359

1360

1361

1362

1363

1364

1365

1366

1367

1368

1369

1370

1371

1372

1373

1374

1375

1376

1377

1378

1379

1380

1381

1382

1383

1384

1385

1386

1387

1388

1389

1390

1391

1392

1393

1394

1395

1396

1397

1398

1399

1400

1401

1402

1403

1404

1405

1406

1407

1408

1409

1410

1411

1412

1413

1414

1415

1416

1417

1418

1419

1420

1421

1422

1423

1424

1425

1426

1427

1428

1429

1430

1431

1432

1433

1434

1435

1436

1437

1438

1439

1440

1441

1442

1443

1444

1445

1446

1447

1448

1449

1450

1451

1452

1453

1454

1455

1456

1457

1458

1459

1460

1461

1462

1463

1464

1465

1466

1467

1468

1469

1470

1471

1472

1473

1474

1475

1476

1477

1478

1479

1480

1481

1482

1483

1484

1485

1486

1487

1488

1489

1490

1491

1492

1493

1494

1495

1496

1497

1498

1499

1500

1501

1502

1503

1504

1505

1506

1507

1508

1509

1510

1511

1512

1513

1514

1515

1516

1517

1518

1519

1520

1521

1522

1523

1524

1525

1526

1527

1528

1529

1530

1531

1532

1533

1534

1535

1536

1537

1538

1539

1540

1541

1542

1543

1544

1545

1546

1547

1548

1549

1550

1551

1552

1553

1554

1555

1556

1557

1558

1559

1560

1561

1562

1563

1564

1565

1566

1567

1568

1569

1570

1571

1572

1573

1574

1575

1576

1577

1578

1579

1580

1581

1582

1583

1584

1585

1586

1587

1588

1589

1590

1591

1592

1593

1594

1595

1596

1597

1598

1599

1600

1601

1602

1603

1604

1605

1606

1607

1608

1609

1610

1611

1612

1613

1614

1615

1616

1617

1618

1619

1620

1621

1622

1623

1624

1625

1626

1627

1628

1629

1630

1631

1632

1633

1634

1635

1636

1637

1638

1639

1640

1641

1642

1643

1644

1645

1646

1647

1648

1649

1650

1651

1652

1653

1654

1655

1656

1657

1658

1659

1660

1661

1662

1663

1664

1665

1666

1667

1668

1669

1670

1671

1672

1673

1674

1675

1676

1677

1678

1679

1680

1681

1682

1683

1684

1685

1686

1687

1688

1689

1690

1691

1692

1693

1694

1695

1696

1697

1698

1699

1700

1701

1702

1703

1704

1705

1706

1707

1708

1709

1710

1711

1712

1713

1714

1715

1716

1717

1718

1719

1720

1721

1722

1723

1724

1725

1726

1727

1728

1729

1730

1731

1732

1733

1734

1735

1736

1737

1738

1739

1740

1741

1742

1743

1744

1745

1746

1747

1748

1749

1750

1751

1752

1753

1754

1755

1756

1757

1758

1759

1760

1761

1762

1763

1764

1765

1766

1767

1768

1769

1770

1771

1772

1773

1774

1775

1776

1777

1778

1779

1780

1781

1782

1783

1784

1785

1786

1787

1788

1789

1790

1791

1792

1793

1794

1795

1796

1797

1798

1799

1800

1801

1802

1803

1804

1805

1806

1807

1808

1809

1810

1811

1812

1813

1814

1815

1816

1817

1818

1819

1820

1821

1822

1823

1824

1825

1826

1827

1828

1829

1830

1831

1832

1833

1834

1835

1836

1837

1838

1839

1840

1841

1842

1843

1844

1845

1846

1847

1848

1849

1850

1851

1852

1853

1854

1855

1856

1857

1858

1859

1860

1861

1862

1863

1864

1865

1866

1867

1868

1869

1870

1871

1872

1873

1874

1875

1876

1877

1878

1879

1880

1881

1882

1883

1884

1885

1886

1887

1888

1889

1890

1891

1892

1893

1894

1895

1896

1897

1898

1899

1900

1901

1902

1903

1904

1905

1906

1907

1908

1909

1910

1911

1912

1913

1914

1915

1916

1917

1918

1919

1920

1921

1922

1923

1924

1925

1926

1927

1928

1929

1930

1931

1932

1933

1934

1935

1936

1937

1938

1939

1940

1941

1942

1943

1944

1945

1946

1947

1948

1949

1950

1951

1952

1953

1954

1955

1956

1957

1958

1959

1960

1961

1962

1963

1964

1965

1966

1967

1968

1969

1970

1971

1972

1973

1974

1975

1976

1977

1978

1979

1980

1981

1982

1983

1984

1985

1986

1987

1988

1989

1990

1991

1992

1993

1994

1995

1996

1997

1998

1999

2000

2001

2002

2003

2004

2005

2006

2007

2008

2009

2010

2011

2012

2013

2014

2015

2016

2017

2018

2019

2020

2021

2022

2023

2024

2025

2026

2027

2028

2029

2030

2031

2032

2033

2034

2035

2036

2037

2038

2039

2040

2041

2042

2043

2044

2045

2046

2047

2048

2049

2050

2051

2052

2053

2054

2055

2056

2057

2058

2059

2060

2061

2062

2063

2064

2065

2066

2067

2068

2069

2070

2071

2072

2073

2074

2075

2076

2077

2078

2079

2080

2081

2082

2083

2084

2085

2086

2087

2088

2089

2090

2091

2092

2093

2094

2095

2096

2097

2098

2099

2100

2101

2102

2103

2104

2105

2106

2107

2108

2109

2110

2111

2112

2113

2114

2115

2116

2117

2118

2119

2120

2121

2122

2123

2124

2125

2126

2127

2128

2129

2130

2131

2132

2133

2134

2135

2136

2137

2138

2139

2140

2141

2142

2143

2144

2145

2146

2147

2148

2149

2150

2151

2152

2153

2154

2155

2156

2157

2158

2159

2160

2161

2162

2163

2164

2165

2166

2167

2168

2169

2170

2171

2172

2173

2174

2175

2176

2177

2178

2179

2180

2181

2182

2183

2184

2185

2186

2187

2188

2189

2190

2191

2192

2193

2194

2195

2196

2197

2198

2199

2200

2201

2202

2203

2204

2205

2206

2207

2208

2209

2210

2211

2212

2213

2214

2215

2216

2217

2218

2219

2220

2221

2222

2223

2224

2225

2226

2227

2228

2229

2230

2231

2232

2233

2234

2235

2236

2237

2238

2239

2240

2241

2242

2243

2244

2245

2246

2247

2248

2249

2250

2251

2252

2253

2254

2255

2256

2257

2258

2259

2260

2261

2262

2263

2264

2265

2266

2267

2268

2269

2270

2271

2272

2273

2274

2275

2276

2277

2278

2279

2280

2281

2282

2283

2284

2285

2286

2287

2288

2289

2290

2291

2292

2293

2294

2295

2296

2297

2298

2299

2300

2301

2302

2303

2304

2305

2306

2307

2308

2309

2310

2311

2312

2313

2314

2315

2316

2317

2318

2319

2320

2321

2322

2323

2324

2325

2326

2327

2328

2329

2330

2331

2332

2333

2334

2335

2336

2337

2338

2339

2340

2341

2342

2343

2344

2345

2346

2347

2348

2349

2350

2351

2352

2353

2354

2355

2356

2357

2358

2359

2360

2361

2362

2363

2364

2365

2366

2367

2368

2369

2370

2371

2372

2373

2374

2375

2376

2377

2378

2379

2380

2381

2382

2383

2384

2385

2386

2387

2388

2389

2390

2391

2392

2393

2394

2395

2396

2397

2398

2399

2400

2401

2402

2403

2404

2405

2406

2407

2408

2409

2410

2411

2412

2413

2414

2415

2416

2417

2418

2419

2420

2421

2422

2423

2424

2425

2426

2427

2428

2429

2430

2431

2432

2433

2434

2435

2436

2437

2438

2439

2440

2441

2442

2443

2444

2445

2446

2447

2448

2449

2450

2451

2452

2453

2454

2455

2456

2457

2458

2459

2460

2461

2462

2463

2464

2465

2466

2467

2468

2469

2470

2471

2472

2473

2474

2475

2476

2477

2478

2479

2480

2481

2482

2483

2484

2485

2486

2487

2488

2489

2490

2491

2492

2493

2494

2495

2496

2497

2498

2499

2500

2501

2502

2503

2504

2505

2506

2507

2508

2509

2510

2511

2512

2513

2514

2515

2516

2517

2518

2519

2520

2521

2522

2523

2524

2525

2526

2527

2528

2529

2530

2531

2532

2533

2534

2535

2536

2537

2538

2539

2540

2541

2542

2543

2544

2545

2546

2547

2548

2549

2550

2551

2552

2553

2554

2555

2556

2557

2558

2559

2560

2561

2562

2563

2564

2565

2566

2567

2568

2569

2570

2571

2572

2573

2574

2575

2576

2577

2578

2579

2580

2581

2582

2583

2584

2585

2586

2587

2588

2589

2590

2591

2592

2593

2594

2595

2596

2597

2598

2599

2600

2601

2602

2603

2604

2605

2606

2607

2608

2609

2610

2611

2612

2613

2614

2615

2616

2617

2618

2619

2620

2621

2622

2623

2624

2625

2626

2627

2628

2629

2630

2631

2632

2633

2634

2635

2636

2637

2638

2639

2640

2641

2642

2643

2644

2645

2646

2647

2648

2649

2650

2651

2652

2653

2654

2655

2656

2657

2658

2659

2660

2661

2662

2663

2664

2665

2666

2667

2668

2669

2670

2671

2672

2673

2674

2675

2676

2677

2678

2679

2680

2681

2682

2683

2684

2685

2686

2687

2688

2689

2690

2691

2692

2693

2694

2695

2696

2697

2698

2699

2700

2701

2702

2703

2704

2705

2706

2707

2708

2709

2710

2711

2712

2713

2714

2715

2716

2717

2718

2719

2720

2721

2722

2723

2724

2725

2726

2727

2728

2729

2730

2731

2732

2733

2734

2735

2736

2737

2738

2739

2740

2741

2742

2743

2744

2745

2746

2747

2748

2749

2750

2751

2752

2753

2754

2755

2756

2757

2758

2759

2760

2761

2762

2763

2764

2765

2766

2767

2768

2769

2770

2771

2772

2773

2774

2775

2776

2777

2778

2779

2780

2781

2782

2783

2784

2785

2786

2787

2788

2789

2790

2791

2792

2793

2794

2795

2796

2797

2798

2799

2800

2801

2802

2803

2804

2805

2806

2807

2808

2809

2810

2811

2812

2813

2814

2815

2816

2817

2818

2819

2820

2821

2822

2823

2824

2825

2826

2827

2828

2829

2830

2831

2832

2833

2834

2835

2836

2837

2838

2839

2840

2841

2842

2843

2844

2845

2846

2847

2848

2849

2850

2851

2852

2853

2854

2855

2856

2857

2858

2859

2860

2861

2862

2863

2864

2865

2866

2867

2868

2869

2870

2871

2872

2873

2874

2875

2876

2877

2878

2879

2880

2881

2882

2883

2884

2885

2886

2887

2888

2889

2890

2891

2892

2893

2894

2895

2896

2897

2898

2899

2900

2901

2902

2903

2904

2905

2906

2907

2908

2909

2910

2911

2912

2913

2914

2915

2916

2917

2918

2919

2920

2921

2922

2923

2924

2925

2926

2927

2928

2929

2930

2931

2932

2933

2934

2935

2936

2937

2938

2939

2940

2941

2942

2943

2944

2945

2946

2947

2948

2949

2950

2951

2952

2953

2954

2955

2956

2957

2958

2959

2960

2961

2962

2963

2964

2965

2966

2967

2968

2969

2970

2971

2972

2973

2974

2975

2976

2977

2978

2979

2980

2981

2982

2983

2984

2985

2986

2987

2988

2989

2990

2991

2992

2993

2994

2995

2996

2997

2998

2999

3000

3001

3002

3003

3004

3005

3006

3007

3008

3009

3010

3011

3012

3013

3014

3015

3016

3017

3018

3019

3020

3021

3022

3023

3024

3025

3026

3027

3028

3029

3030

3031

3032

3033

3034

3035

3036

3037

3038

3039

3040

3041

3042

3043

3044

3045

3046

3047

3048

3049

3050

3051

3052

3053

3054

3055

3056

3057

3058

3059

3060

3061

3062

3063

3064

3065

3066

3067

3068

3069

3070

3071

3072

3073

3074

3075

3076

3077

3078

3079

3080

3081

3082

3083

3084

3085

3086

3087

3088

3089

3090

3091

3092

3093

3094

3095

3096

3097

3098

3099

3100

3101

3102

3103

3104

3105

3106

3107

3108

3109

3110

3111

3112

3113

3114

3115

3116

3117

3118

3119

3120

3121

3122

3123

3124

3125

3126

3127

3128

3129

3130

3131

3132

3133

3134

3135

3136

3137

3138

3139

3140

3141

3142

3143

3144

3145

3146

3147

3148

3149

3150

3151

3152

3153

3154

3155

3156

3157

3158

3159

3160

3161

3162

3163

3164

3165

3166

3167

3168

3169

3170

3171

3172

3173

3174

3175

3176

3177

3178

3179

3180

3181

3182

3183

3184

3185

3186

3187

3188

3189

3190

3191

3192

3193

3194

3195

3196

3197

3198

3199

3200

3201

3202

3203

3204

3205

3206

3207

3208

3209

3210

3211

3212

3213

3214

3215

3216

3217

3218

3219

3220

3221

3222

3223

3224

3225

3226

3227

3228

3229

3230

3231

3232

3233

3234

3235

3236

3237

3238

3239

3240

3241

3242

3243

3244

3245

3246

3247

3248

3249

3250

3251

3252

3253

3254

3255

3256

3257

3258

3259

3260

3261

3262

3263

3264

3265

3266

3267

3268

3269

3270

3271

3272

3273

3274

3275

3276

3277

3278

3279

3280

3281

3282

3283

3284

3285

3286

3287

3288

3289

3290

3291

3292

3293

3294

3295

3296

3297

3298

3299

3300

3301

3302

3303

3304

3305

3306

3307

3308

3309

3310

3311

3312

3313

3314

3315

3316

3317

3318

3319

3320

3321

3322

3323

3324

3325

3326

3327

3328

3329

3330

3331

3332

3333

3334

3335

3336

3337

3338

3339

3340

3341

3342

3343

3344

3345

3346

3347

3348

3349

3350

3351

3352

3353

3354

3355

3356

3357

3358

3359

3360

3361

3362

3363

3364

3365

3366

3367

3368

3369

3370

3371

3372

3373

3374

3375

3376

3377

3378

3379

3380

3381

3382

3383

3384

3385

3386

3387

3388

3389

3390

3391

3392

3393

3394

3395

3396

3397

3398

3399

3400

3401

3402

3403

3404

3405

3406

3407

3408

3409

3410

3411

3412

3413

3414

3415

3416

3417

3418

3419

3420

3421

3422

3423

3424

3425

3426

3427

3428

3429

3430

3431

3432

3433

3434

3435

3436

3437

3438

3439

3440

3441

3442

3443

3444

3445

3446

3447

3448

3449

3450

3451

3452

3453

3454

3455

3456

3457

3458

3459

3460

3461

3462

3463

3464

3465

3466

3467

3468

3469

3470

3471

3472

3473

3474

3475

3476

3477

3478

3479

3480

3481

3482

3483

3484

3485

3486

3487

3488

3489

3490

3491

3492

3493

3494

3495

3496

3497

3498

3499

3500

3501

3502

3503

3504

3505

3506

3507

3508

3509

3510

3511

3512

3513

3514

3515

3516

3517

3518

3519

3520

3521

3522

3523

3524

3525

3526

3527

3528

3529

3530

3531

3532

3533

3534

3535

3536

3537

3538

3539

3540

3541

3542

3543

3544

3545

3546

3547

3548

3549

3550

3551

3552

3553

3554

3555

3556

3557

3558

3559

3560

3561

3562

3563

3564

3565

3566

3567

3568

3569

3570

3571

3572

3573

3574

3575

3576

3577

3578

3579

3580

3581

3582

3583

3584

3585

3586

3587

3588

3589

3590

3591

3592

3593

3594

3595

3596

3597

3598

3599

3600

3601

3602

3603

3604

3605

3606

3607

3608

3609

3610

3611

3612

3613

3614

3615

3616

3617

3618

3619

3620

3621

3622

3623

3624

3625

3626

3627

3628

3629

3630

3631

3632

3633

3634

3635

3636

3637

3638

3639

3640

3641

3642

3643

3644

3645

3646

3647

3648

3649

3650

3651

3652

3653

3654

3655

3656

3657

3658

3659

3660

3661

3662

3663

3664

3665

3666

3667

3668

3669

3670

3671

3672

3673

3674

3675

3676

3677

3678

3679

3680

3681

3682

3683

3684

3685

3686

3687

3688

3689

3690

3691

3692

3693

3694

3695

3696

3697

3698

3699

3700

3701

3702

3703

3704

3705

3706

3707

3708

3709

3710

3711

3712

3713

3714

3715

3716

3717

3718

3719

3720

3721

3722

3723

3724

3725

3726

3727

3728

3729

3730

3731

3732

3733

3734

3735

3736

3737

3738

3739

3740

3741

3742

3743

3744

3745

3746

3747

3748

3749

3750

3751

3752

3753

3754

3755

3756

3757

3758

3759

3760

3761

3762

3763

3764

3765

3766

3767

3768

3769

3770

3771

3772

3773

3774

3775

3776

3777

3778

3779

3780

3781

3782

3783

3784

3785

3786

3787

3788

3789

3790

3791

3792

3793

3794

3795

3796

3797

3798

3799

3800

3801

3802

3803

3804

3805

3806

3807

3808

3809

3810

3811

3812

3813

3814

3815

3816

3817

3818

3819

3820

3821

3822

3823

3824

3825

3826

3827

3828

3829

3830

3831

3832

3833

3834

3835

3836

3837

3838

3839

3840

3841

3842

3843

3844

3845

3846

3847

3848

3849

3850

3851

3852

3853

3854

3855

3856

3857

3858

3859

3860

3861

3862

3863

3864

3865

3866

3867

3868

3869

3870

3871

3872

3873

3874

3875

3876

3877

3878

3879

3880

3881

3882

3883

3884

3885

3886

3887

3888

3889

3890

3891

3892

3893

3894

3895

3896

3897

3898

3899

3900

3901

3902

3903

3904

3905

3906

3907

3908

3909

3910

3911

3912

3913

3914

3915

3916

3917

3918

3919

3920

3921

3922

3923

3924

3925

3926

3927

3928

3929

3930

3931

3932

3933

3934

3935

3936

3937

3938

3939

3940

3941

3942

3943

3944

3945

3946

3947

3948

3949

3950

3951

3952

3953

3954

3955

3956

3957

3958

3959

3960

3961

3962

3963

3964

3965

3966

3967

3968

3969

3970

3971

3972

3973

3974

3975

3976

3977

3978

3979

3980

3981

3982

3983

3984

3985

3986

3987

3988

3989

3990

3991

3992

3993

3994

3995

3996

3997

3998

3999

4000

4001

4002

4003

4004

4005

4006

4007

4008

4009

4010

4011

4012

4013

4014

4015

4016

4017

4018

4019

4020

4021

4022

4023

4024

4025

4026

4027

4028

4029

4030

4031

4032

4033

4034

4035

4036

4037

4038

4039

4040

4041

4042

4043

4044

4045

4046

4047

4048

4049

4050

4051

4052

4053

4054

4055

4056

4057

4058

4059

4060

4061

4062

4063

4064

4065

4066

4067

4068

4069

4070

4071

4072

4073

4074

4075

4076

4077

4078

4079

4080

4081

4082

4083

4084

4085

4086

4087

4088

4089

4090

4091

4092

4093

4094

4095

4096

4097

4098

4099

4100

4101

4102

4103

4104

4105

4106

4107

4108

4109

4110

4111

4112

4113

4114

4115

4116

4117

4118

4119

4120

4121

4122

4123

4124

4125

4126

4127

4128

4129

4130

4131

4132

4133

4134

4135

4136

4137

4138

4139

4140

4141

4142

4143

4144

4145

4146

4147

4148

4149

4150

4151

4152

4153

4154

4155

4156

4157

4158

4159

4160

4161

4162

4163

4164

4165

4166

4167

4168

4169

4170

4171

4172

4173

4174

4175

4176

4177

4178

4179

4180

4181

4182

4183

4184

4185

4186

4187

4188

4189

4190

4191

4192

4193

4194

4195

4196

4197

4198

4199

4200

4201

4202

4203

4204

4205

4206

4207

4208

4209

4210

4211

4212

4213

4214

4215

4216

4217

4218

4219

4220

4221

4222

4223

4224

4225

4226

4227

4228

4229

4230

4231

4232

4233

4234

4235

4236

4237

4238

4239

4240

4241

4242

4243

4244

4245

4246

4247

4248

4249

4250

4251

4252

4253

4254

4255

4256

4257

4258

4259

4260

4261

4262

4263

4264

4265

4266

4267

4268

4269

4270

4271

4272

4273

4274

4275

4276

4277

4278

4279

4280

4281

4282

4283

4284

4285

4286

4287

4288

4289

4290

4291

4292

4293

4294

4295

4296

4297

4298

4299

4300

4301

4302

4303

4304

4305

4306

4307

4308

4309

4310

4311

4312

4313

4314

4315

4316

4317

4318

4319

4320

4321

4322

4323

4324

4325

4326

4327

4328

4329

4330

4331

4332

4333

4334

4335

4336

4337

4338

4339

4340

4341

4342

4343

4344

4345

4346

4347

4348

4349

4350

4351

4352

4353

4354

4355

4356

4357

4358

4359

4360

4361

4362

4363

4364

4365

4366

4367

4368

4369

4370

4371

4372

4373

4374

4375

4376

4377

4378

4379

4380

4381

4382

4383

4384

4385

4386

4387

4388

4389

4390

4391

4392

4393

4394

4395

4396

4397

4398

4399

4400

4401

4402

4403

4404

4405

4406

4407

4408

4409

4410

4411

4412

4413

4414

4415

4416

4417

4418

4419

4420

4421

4422

4423

4424

4425

4426

4427

4428

4429

4430

4431

4432

4433

4434

4435

4436

4437

4438

4439

4440

4441

4442

4443

4444

4445

4446

4447

4448

4449

4450

4451

4452

4453

4454

4455

4456

4457

4458

4459

4460

4461

4462

4463

4464

4465

4466

4467

4468

4469

4470

4471

4472

4473

4474

4475

4476

4477

4478

4479

4480

4481

4482

4483

4484

4485

4486

4487

4488

4489

4490

4491

4492

4493

4494

4495

4496

4497

4498

4499

4500

4501

4502

4503

4504

4505

4506

4507

4508

4509

4510

4511

4512

4513

4514

4515

4516

4517

4518

4519

4520

4521

4522

4523

4524

4525

4526

4527

4528

4529

4530

4531

4532

4533

4534

4535

4536

4537

4538

4539

4540

4541

4542

4543

4544

4545

4546

4547

4548

4549

4550

4551

4552

4553

4554

4555

4556

4557

4558

4559

4560

4561

4562

4563

4564

4565

4566

4567

4568

4569

4570

4571

4572

4573

4574

4575

4576

4577

4578

4579

4580

4581

4582

4583

4584

4585

4586

4587

4588

4589

4590

4591

4592

4593

4594

4595

4596

4597

4598

4599

4600

4601

4602

4603

4604

4605

4606

4607

4608

4609

4610

4611

4612

4613

4614

4615

4616

4617

4618

4619

4620

4621

4622

4623

4624

4625

4626

4627

4628

4629

4630

4631

4632

4633

4634

4635

4636

4637

4638

4639

4640

4641

4642

4643

4644

4645

4646

4647

4648

4649

4650

4651

4652

4653

4654

4655

4656

4657

4658

4659

4660

4661

4662

4663

4664

4665

4666

4667

4668

4669

4670

4671

4672

4673

4674

4675

4676

4677

4678

4679

4680

4681

4682

4683

4684

4685

4686

4687

4688

4689

4690

4691

4692

4693

4694

4695

4696

4697

4698

4699

4700

4701

4702

4703

4704

4705

4706

4707

4708

4709

4710

4711

4712

4713

4714

4715

4716

4717

4718

4719

4720

4721

4722

4723

4724

4725

4726

4727

4728

4729

4730

4731

4732

4733

4734

4735

4736

4737

4738

4739

4740

4741

4742

4743

4744

4745

4746

4747

4748

4749

4750

4751

4752

4753

4754

4755

4756

4757

4758

4759

4760

4761

4762

4763

4764

4765

4766

4767

4768

4769

4770

4771

4772

4773

4774

4775

4776

4777

4778

4779

4780

4781

4782

4783

4784

4785

4786

4787

4788

4789

4790

4791

4792

4793

4794

4795

4796

4797

4798

4799

4800

4801

4802

4803

4804

4805

4806

4807

4808

4809

4810

4811

4812

4813

4814

4815

4816

4817

4818

4819

4820

4821

4822

4823

4824

4825

4826

4827

4828

4829

4830

4831

4832

4833

4834

4835

4836

4837

4838

4839

4840

4841

4842

4843

4844

4845

4846

4847

4848

4849

4850

4851

4852

4853

4854

4855

4856

4857

4858

4859

4860

4861

4862

4863

4864

4865

4866

4867

4868

4869

4870

4871

4872

4873

4874

4875

4876

4877

4878

4879

4880

4881

4882

4883

4884

4885

4886

4887

4888

4889

4890

4891

4892

4893

4894

4895

4896

4897

4898

4899

4900

4901

4902

4903

4904

4905

4906

4907

4908

4909

4910

4911

4912

4913

4914

4915

4916

4917

4918

4919

4920

4921

4922

4923

4924

4925

4926

4927

4928

4929

4930

4931

4932

4933

4934

4935

4936

4937

4938

4939

4940

4941

4942

4943

4944

4945

4946

4947

4948

4949

4950

4951

4952

4953

4954

4955

4956

4957

4958

4959

4960

4961

4962

4963

4964

4965

4966

4967

4968

4969

4970

4971

4972

4973

4974

4975

4976

4977

4978

4979

4980

4981

4982

4983

4984

4985

4986

4987

4988

4989

4990

4991

4992

4993

4994

4995

4996

4997

4998

4999

5000

5001

5002

5003

5004

5005

5006

5007

5008

5009

5010

5011

5012

5013

5014

5015

5016

5017

5018

5019

5020

5021

5022

5023

5024

5025

5026

5027

5028

5029

5030

5031

5032

5033

5034

5035

5036

5037

5038

5039

5040

5041

5042

5043

5044

5045

5046

5047

5048

5049

5050

5051

5052

5053

5054

5055

5056

5057

5058

5059

5060

5061

5062

5063

5064

5065

5066

5067

5068

5069

5070

5071

5072

5073

5074

5075

5076

5077

5078

5079

5080

5081

5082

5083

5084

5085

5086

5087

5088

5089

5090

5091

5092

5093

5094

5095

5096

5097

5098

5099

5100

5101

5102

5103

5104

5105

5106

5107

5108

5109

5110

5111

5112

5113

5114

5115

5116

5117

5118

5119

5120

5121

5122

5123

5124

5125

5126

5127

5128

5129

5130

5131

5132

5133

5134

5135

5136

5137

5138

5139

5140

5141

5142

5143

5144

5145

5146

5147

5148

5149

5150

5151

5152

5153

5154

5155

5156

5157

5158

5159

5160

5161

5162

5163

5164

5165

5166

5167

5168

5169

5170

5171

5172

5173

5174

5175

5176

5177

5178

5179

5180

5181

5182

5183

5184

5185

5186

5187

5188

5189

5190

5191

5192

5193

5194

5195

5196

5197

5198

5199

5200

5201

5202

5203

5204

5205

5206

5207

5208

5209

5210

5211

5212

5213

5214

5215

5216

5217

5218

5219

5220

5221

5222

5223

5224

5225

5226

5227

5228

5229

5230

5231

5232

5233

5234

5235

5236

5237

5238

5239

5240

5241

5242

5243

5244

5245

5246

5247

5248

5249

5250

5251

5252

5253

5254

5255

5256

5257

5258

5259

5260

5261

5262

5263

5264

5265

5266

5267

5268

5269

5270

5271

5272

5273

5274

5275

5276

5277

5278

5279

5280

5281

5282

5283

5284

5285

5286

5287

5288

5289

5290

5291

5292

5293

5294

5295

5296

5297

5298

5299

5300

5301

5302

5303

5304

5305

5306

5307

5308

5309

5310

5311

5312

5313

5314

5315

5316

5317

5318

5319

5320

5321

5322

5323

5324

5325

5326

5327

5328

5329

5330

5331

5332

5333

5334

5335

5336

5337

5338

5339

5340

5341

5342

5343

5344

5345

5346

5347

5348

5349

5350

5351

5352

5353

5354

5355

5356

5357

5358

5359

5360

5361

5362

5363

5364

5365

5366

5367

5368

5369

5370

5371

5372

5373

5374

5375

5376

5377

5378

5379

5380

5381

5382

5383

5384

5385

5386

5387

5388

5389

5390

5391

5392

5393

5394

5395

5396

5397

5398

5399

5400

5401

5402

5403

5404

5405

5406

5407

5408

5409

5410

5411

5412

5413

5414

5415

5416

5417

5418

5419

5420

5421

5422

5423

5424

5425

5426

5427

5428

5429

5430

5431

5432

5433

5434

5435

5436

5437

5438

5439

5440

5441

5442

5443

5444

5445

5446

5447

5448

5449

5450

5451

5452

5453

5454

5455

5456

5457

5458

5459

5460

5461

5462

5463

5464

5465

5466

5467

5468

5469

5470

5471

5472

5473

5474

5475

5476

5477

5478

5479

5480

5481

5482

5483

5484

5485

5486

5487

5488

5489

5490

5491

5492

5493

5494

5495

5496

5497

5498

5499

5500

5501

5502

5503

5504

5505

5506

5507

5508

5509

5510

5511

5512

5513

5514

5515

5516

5517

5518

5519

5520

5521

5522

5523

5524

5525

5526

5527

5528

5529

5530

5531

5532

5533

5534

5535

5536

5537

5538

5539

5540

5541

5542

5543

5544

5545

5546

5547

5548

5549

5550

5551

5552

5553

5554

5555

5556

5557

5558

5559

5560

5561

5562

5563

5564

5565

5566

5567

5568

5569

5570

5571

5572

5573

5574

5575

5576

5577

5578

5579

5580

5581

5582

5583

5584

5585

5586

5587

5588

5589

5590

5591

5592

5593

5594

5595

5596

5597

5598

5599

5600

5601

5602

5603

5604

5605

5606

5607

5608

5609

5610

5611

5612

5613

5614

5615

5616

5617

5618

5619

5620

5621

5622

5623

5624

5625

5626

5627

5628

5629

5630

5631

5632

5633

5634

5635

5636

5637

5638

5639

5640

5641

5642

5643

5644

5645

5646

5647

5648

5649

5650

5651

5652

5653

5654

5655

5656

5657

5658

5659

5660

5661

5662

5663

5664

5665

5666

5667

5668

5669

5670

5671

5672

5673

5674

5675

5676

5677

5678

5679

5680

5681

5682

5683

5684

5685

5686

5687

5688

5689

5690

5691

5692

5693

5694

5695

5696

5697

5698

5699

5700

5701

5702

5703

5704

5705

5706

5707

5708

5709

5710

5711

5712

5713

5714

5715

5716

5717

5718

5719

5720

5721

5722

5723

5724

5725

5726

5727

5728

5729

5730

5731

5732

5733

5734

5735

5736

5737

5738

5739

5740

5741

5742

5743

5744

5745

5746

5747

5748

5749

5750

5751

5752

5753

5754

5755

5756

5757

5758

5759

5760

5761

5762

5763

5764

5765

5766

5767

5768

5769

5770

5771

5772

5773

5774

5775

5776

5777

5778

5779

5780

5781

5782

5783

5784

5785

5786

5787

5788

5789

5790

5791

5792

5793

5794

5795

5796

5797

5798

5799

5800

5801

5802

5803

5804

5805

5806

5807

5808

5809

5810

5811

5812

5813

5814

5815

5816

5817

5818

5819

5820

5821

5822

5823

5824

5825

5826

5827

5828

5829

5830

5831

5832

5833

5834

5835

5836

5837

5838

5839

5840

5841

5842

5843

5844

5845

5846

5847

5848

5849

5850

5851

5852

5853

5854

5855

5856

5857

5858

5859

5860

5861

5862

5863

5864

5865

5866

5867

5868

5869

5870

5871

5872

5873

5874

5875

5876

5877

5878

5879

5880

5881

5882

5883

5884

5885

5886

5887

5888

5889

5890

5891

5892

5893

5894

5895

5896

5897

5898

5899

5900

5901

5902

5903

5904

5905

5906

5907

5908

5909

5910

5911

5912

5913

5914

5915

5916

5917

5918

5919

5920

5921

5922

5923

5924

5925

5926

5927

5928

5929

5930

5931

5932

5933

5934

5935

5936

5937

5938

5939

5940

5941

5942

5943

5944

5945

5946

5947

5948

5949

5950

5951

5952

5953

5954

5955

5956

5957

5958

5959

5960

5961

5962

5963

5964

5965

5966

5967

5968

5969

5970

5971

5972

5973

5974

5975

5976

5977

5978

5979

5980

5981

5982

5983

5984

5985

5986

5987

5988

5989

5990

5991

5992

5993

5994

5995

5996

5997

5998

5999

6000

6001

6002

6003

6004

6005

6006

6007

6008

6009

6010

6011

6012

6013

6014

6015

6016

6017

6018

6019

6020

6021

6022

6023

6024

6025

6026

6027

6028

6029

6030

6031

6032

6033

6034

6035

6036

6037

6038

6039

6040

6041

6042

6043

6044

6045

6046

6047

6048

6049

6050

6051

6052

6053

6054

6055

6056

6057

6058

6059

6060

6061

6062

6063

6064

6065

6066

6067

6068

6069

6070

6071

6072

6073

6074

6075

6076

6077

6078

6079

6080

6081

6082

6083

6084

6085

6086

6087

6088

6089

6090

6091

6092

6093

6094

6095

6096

6097

6098

6099

6100

6101

6102

6103

6104

6105

6106

6107

6108

6109

6110

6111

6112

6113

6114

6115

6116

6117

6118

6119

6120

6121

6122

6123

6124

6125

6126

6127

6128

6129

6130

6131

6132

6133

6134

6135

6136

6137

6138

6139

6140

6141

6142

6143

6144

6145

6146

6147

6148

6149

6150

6151

6152

6153

6154

6155

6156

6157

6158

6159

6160

6161

6162

6163

6164

6165

6166

6167

6168

6169

6170

6171

6172

6173

6174

6175

6176

6177

6178

6179

6180

6181

6182

6183

6184

6185

6186

6187

6188

6189

6190

6191

6192

6193

6194

6195

6196

6197

6198

6199

6200

6201

6202

6203

6204

6205

6206

6207

6208

6209

6210

6211

6212

6213

6214

6215

6216

6217

6218

6219

6220

6221

6222

6223

6224

6225

6226

6227

6228

6229

6230

6231

6232

6233

6234

6235

6236

6237

6238

6239

6240

6241

6242

6243

6244

6245

6246

6247

6248

6249

6250

6251

6252

6253

6254

6255

6256

6257

6258

6259

6260

6261

6262

6263

6264

6265

6266

6267

6268

6269

6270

6271

6272

6273

6274

6275

6276

6277

6278

6279

6280

6281

6282

6283

6284

6285

6286

6287

6288

6289

6290

6291

6292

6293

6294

6295

6296

6297

6298

6299

6300

6301

6302

6303

6304

6305

6306

6307

6308

6309

6310

6311

6312

6313

6314

6315

6316

6317

6318

6319

6320

6321

6322

6323

6324

6325

6326

6327

6328

6329

6330

6331

6332

6333

6334

6335

6336

6337

6338

6339

6340

6341

6342

6343

6344

6345

6346

6347

6348

6349

6350

6351

6352

6353

6354

6355

6356

6357

6358

6359

6360

6361

6362

6363

6364

6365

6366

6367

6368

6369

6370

6371

6372

6373

6374

6375

6376

6377

6378

6379

6380

6381

6382

6383

6384

6385

6386

6387

6388

6389

6390

6391

6392

6393

6394

6395

6396

6397

6398

6399

6400

6401

6402

6403

6404

6405

6406

6407

6408

6409

6410

6411

6412

6413

6414

6415

6416

6417

6418

6419

6420

6421

6422

6423

6424

6425

6426

6427

6428

6429

6430

6431

6432

6433

6434

6435

6436

6437

6438

6439

6440

6441

6442

6443

6444

6445

6446

6447

6448

6449

6450

6451

6452

6453

6454

6455

6456

6457

6458

6459

6460

6461

6462

6463

6464

6465

6466

6467

6468

6469

6470

6471

6472

6473

6474

6475

6476

6477

6478

6479

6480

6481

6482

6483

6484

6485

6486

6487

6488

6489

6490

6491

6492

6493

6494

6495

6496

6497

6498

6499

6500

6501

6502

6503

6504

6505

6506

6507

6508

6509

6510

6511

6512

6513

6514

6515

6516

6517

6518

6519

6520

6521

6522

6523

6524

6525

6526

6527

6528

6529

6530

6531

6532

6533

6534

6535

6536

6537

6538

6539

6540

6541

6542

6543

6544

6545

6546

6547

6548

6549

6550

6551

6552

6553

6554

6555

6556

6557

6558

6559

6560

6561

6562

6563

6564

6565

6566

6567

6568

6569

6570

6571

6572

6573

6574

6575

6576

6577

6578

6579

6580

6581

6582

6583

6584

6585

6586

6587

6588

6589

6590

6591

6592

6593

6594

6595

6596

6597

6598

6599

6600

6601

6602

6603

6604

6605

6606

6607

6608

6609

6610

6611

6612

6613

6614

6615

6616

6617

6618

6619

6620

6621

6622

6623

6624

6625

6626

6627

6628

6629

6630

6631

6632

6633

6634

6635

6636

6637

6638

6639

6640

6641

6642

6643

6644

6645

6646

6647

6648

6649

6650

6651

6652

6653

6654

6655

6656

6657

6658

6659

6660

6661

6662

6663

6664

6665

6666

6667

6668

6669

6670

6671

6672

6673

6674

6675

6676

6677

6678

6679

6680

6681

6682

6683

6684

6685

6686

6687

6688

6689

6690

6691

6692

6693

6694

6695

6696

6697

6698

6699

6700

6701

6702

6703

6704

6705

6706

6707

6708

6709

6710

6711

6712

6713

6714

6715

6716

6717

6718

6719

6720

6721

6722

6723

6724

6725

6726

6727

6728

6729

6730

6731

6732

6733

6734

6735

6736

6737

6738

6739

6740

6741

6742

6743

6744

6745

6746

6747

6748

6749

6750

6751

6752

6753

6754

6755

6756

6757

6758

6759

6760

6761

6762

6763

6764

6765

6766

6767

6768

6769

6770

6771

6772

6773

6774

6775

6776

6777

6778

6779

6780

6781

6782

6783

6784

6785

6786

6787

6788

6789

6790

6791

6792

6793

6794

6795

6796

6797

6798

6799

6800

6801

6802

6803

6804

6805

6806

6807

6808

6809

6810

6811

6812

6813

6814

6815

6816

6817

6818

6819

6820

6821

6822

6823

6824

6825

6826

6827

6828

6829

6830

6831

6832

6833

6834

6835

6836

6837

6838

6839

6840

6841

6842

6843

6844

6845

6846

6847

6848

6849

6850

6851

6852

6853

6854

6855

6856

6857

6858

6859

6860

6861

6862

6863

6864

6865

6866

6867

6868

6869

6870

6871

6872

6873

6874

6875

6876

6877

6878

6879

6880

6881

6882

6883

6884

6885

6886

6887

6888

6889

6890

6891

6892

6893

6894

6895

6896

6897

6898

6899

6900

6901

6902

6903

6904

6905

6906

6907

6908

6909

6910

6911

6912

6913

6914

6915

6916

6917

6918

6919

6920

6921

6922

6923

6924

6925

6926

6927

6928

6929

6930

6931

6932

6933

6934

6935

6936

6937

6938

6939

6940

6941

6942

6943

6944

6945

6946

6947

6948

6949

6950

6951

6952

6953

6954

6955

6956

6957

6958

6959

6960

6961

6962

6963

6964

6965

6966

6967

6968

6969

6970

6971

6972

6973

6974

6975

6976

6977

6978

6979

6980

6981

6982

6983

6984

6985

6986

6987

6988

6989

6990

6991

6992

6993

6994

6995

6996

6997

6998

6999

7000

7001

7002

7003

7004

7005

7006

7007

7008

7009

7010

7011

7012

7013

7014

7015

7016

7017

7018

7019

7020

7021

7022

7023

7024

7025

7026

7027

7028

7029

7030

7031

7032

7033

7034

7035

7036

7037

7038

7039

7040

7041

7042

7043

7044

7045

7046

7047

7048

7049

7050

7051

7052

7053

7054

7055

7056

7057

7058

7059

7060

7061

7062

7063

7064

7065

7066

7067

7068

7069

7070

7071

7072

7073

7074

7075

7076

7077

7078

7079

7080

7081

7082

7083

7084

7085

7086

7087

7088

7089

7090

7091

7092

7093

7094

7095

7096

7097

7098

7099

7100

7101

7102

7103

7104

7105

7106

7107

7108

7109

7110

7111

7112

7113

7114

7115

7116

7117

7118

7119

7120

7121

7122

7123

7124

7125

7126

7127

7128

7129

7130

7131

7132

7133

7134

7135

7136

7137

7138

7139

7140

7141

7142

7143

7144

7145

7146

7147

7148

7149

7150

7151

7152

7153

7154

7155

7156

7157

7158

7159

7160

7161

7162

7163

7164

7165

7166

7167

7168

7169

7170

7171

7172

7173

7174

7175

7176

7177

7178

7179

7180

7181

7182

7183

7184

7185

7186

7187

7188

7189

7190

7191

7192

7193

7194

7195

7196

7197

7198

7199

7200

7201

7202

7203

7204

7205

7206

7207

7208

7209

7210

7211

7212

7213

7214

7215

7216

7217

7218

7219

7220

7221

7222

7223

7224

7225

7226

7227

7228

7229

7230

7231

7232

7233

7234

7235

7236

7237

7238

7239

7240

7241

7242

7243

7244

7245

7246

7247

7248

7249

7250

7251

7252

7253

7254

7255

7256

7257

7258

7259

7260

7261

7262

7263

7264

7265

7266

7267

7268

7269

7270

7271

7272

7273

7274

7275

7276

7277

7278

7279

7280

7281

7282

7283

7284

7285

7286

7287

7288

7289

7290

7291

7292

7293

7294

7295

7296

7297

7298

7299

7300

7301

7302

7303

7304

7305

7306

7307

7308

7309

7310

7311

7312

7313

7314

7315

7316

7317

7318

7319

7320

7321

7322

7323

7324

7325

7326

7327

7328

7329

7330

7331

7332

7333

7334

7335

7336

7337

7338

7339

7340

7341

7342

7343

7344

7345

7346

7347

7348

7349

7350

7351

7352

7353

7354

7355

7356

7357

7358

7359

7360

7361

7362

7363

7364

7365

7366

7367

7368

7369

7370

7371

7372

7373

7374

7375

7376

7377

7378

7379

7380

7381

7382

7383

7384

7385

7386

7387

7388

7389

7390

7391

7392

7393

7394

7395

7396

7397

7398

7399

7400

7401

7402

7403

7404

7405

7406

7407

7408

7409

7410

7411

7412

7413

7414

7415

7416

7417

7418

7419

7420

7421

7422

7423

7424

7425

7426

7427

7428

7429

7430

7431

7432

7433

7434

7435

7436

7437

7438

7439

7440

7441

7442

7443

7444

7445

7446

7447

7448

7449

7450

7451

7452

7453

7454

7455

7456

7457

7458

7459

7460

7461

7462

7463

7464

7465

7466

7467

7468

7469

7470

7471

7472

7473

7474

7475

7476

7477

7478

7479

7480

7481

7482

7483

7484

7485

7486

7487

7488

7489

7490

7491

7492

7493

7494

7495

7496

7497

7498

7499

7500

7501

7502

7503

7504

7505

7506

7507

7508

7509

7510

7511

7512

7513

7514

7515

7516

7517

7518

7519

7520

7521

7522

7523

7524

7525

7526

7527

7528

7529

7530

7531

7532

7533

7534

7535

7536

7537

7538

7539

7540

7541

7542

7543

7544

7545

7546

7547

7548

7549

7550

7551

7552

7553

7554

7555

7556

7557

7558

7559

7560

7561

7562

7563

7564

7565

7566

7567

7568

7569

7570

7571

7572

7573

7574

7575

7576

7577

7578

7579

7580

7581

7582

7583

7584

7585

7586

7587

7588

7589

7590

7591

7592

7593

7594

7595

7596

7597

7598

7599

7600

7601

7602

7603

7604

7605

7606

7607

7608

7609

7610

7611

7612

7613

7614

7615

7616

7617

7618

7619

7620

7621

7622

7623

7624

7625

7626

7627

7628

7629

7630

7631

7632

7633

7634

7635

7636

7637

7638

7639

7640

7641

7642

7643

7644

7645

7646

7647

7648

7649

7650

7651

7652

7653

7654

7655

7656

7657

7658

7659

7660

7661

7662

7663

7664

7665

7666

7667

7668

7669

7670

7671

7672

7673

7674

7675

7676

7677

7678

7679

7680

7681

7682

7683

7684

7685

7686

7687

7688

7689

7690

7691

7692

7693

7694

7695

7696

7697

7698

7699

7700

7701

7702

7703

7704

7705

7706

7707

7708

7709

7710

7711

7712

7713

7714

7715

7716

7717

7718

7719

7720

7721

7722

7723

7724

7725

7726

7727

7728

7729

7730

7731

7732

7733

7734

7735

7736

7737

7738

7739

7740

7741

7742

7743

7744

7745

7746

7747

7748

7749

7750

7751

7752

7753

7754

7755

7756

7757

7758

7759

7760

7761

7762

7763

7764

7765

7766

7767

7768

7769

7770

7771

7772

7773

7774

7775

7776

7777

7778

7779

7780

7781

7782

7783

7784

7785

7786

7787

7788

7789

7790

7791

7792

7793

7794

7795

7796

7797

7798

7799

7800

7801

7802

7803

7804

7805

7806

7807

7808

7809

7810

7811

7812

7813

7814

7815

7816

7817

7818

7819

7820

7821

7822

7823

7824

7825

7826

7827

7828

7829

7830

7831

7832

7833

7834

7835

7836

7837

7838

7839

7840

7841

7842

7843

7844

7845

7846

7847

7848

7849

7850

7851

7852

7853

7854

7855

7856

7857

7858

7859

7860

7861

7862

7863

7864

7865

7866

7867

7868

7869

7870

7871

7872

7873

7874

7875

7876

7877

7878

7879

7880

7881

7882

7883

7884

7885

7886

7887

7888

7889

7890

7891

7892

7893

7894

7895

7896

7897

7898

7899

7900

7901

7902

7903

7904

7905

7906

7907

7908

7909

7910

7911

7912

7913

7914

7915

7916

7917

7918

7919

7920

7921

7922

7923

7924

7925

7926

7927

7928

7929

7930

7931

7932

7933

7934

7935

7936

7937

7938

7939

7940

7941

7942

7943

7944

7945

7946

7947

7948

7949

7950

7951

7952

7953

7954

7955

7956

7957

7958

7959

7960

7961

7962

7963

7964

7965

7966

7967

7968

7969

7970

7971

7972

7973

7974

7975

7976

7977

7978

7979

7980

7981

7982

7983

7984

7985

7986

7987

7988

7989

7990

7991

7992

7993

7994

7995

7996

7997

7998

7999

8000

8001

8002

8003

8004

8005

8006

8007

8008

8009

8010

8011

8012

8013

8014

8015

8016

8017

8018

8019

8020

8021

8022

8023

8024

8025

8026

8027

8028

8029

8030

8031

8032

8033

8034

8035

8036

8037

8038

8039

8040

8041

8042

8043

8044

8045

8046

8047

8048

8049

8050

8051

8052

8053

8054

8055

8056

8057

8058

8059

8060

8061

8062

8063

8064

8065

8066

8067

8068

8069

8070

8071

8072

8073

8074

8075

8076

8077

8078

8079

8080

8081

8082

8083

8084

8085

8086

8087

8088

8089

8090

8091

8092

8093

8094

8095

8096

8097

8098

8099

8100

8101

8102

8103

8104

8105

8106

8107

8108

8109

8110

8111

8112

8113

8114

8115

8116

8117

8118

8119

8120

8121

8122

8123

8124

8125

8126

8127

8128

8129

8130

8131

8132

8133

8134

8135

8136

8137

8138

8139

8140

8141

8142

8143

8144

8145

8146

8147

8148

8149

8150

8151

8152

8153

8154

8155

8156

8157

8158

8159

8160

8161

8162

8163

8164

8165

8166

8167

8168

8169

8170

8171

8172

8173

8174

8175

8176

8177

8178

8179

8180

8181

8182

8183

8184

8185

8186

8187

8188

8189

8190

8191

8192

8193

8194

8195

8196

8197

8198

8199

8200

8201

8202

8203

8204

8205

8206

8207

8208

8209

8210

8211

8212

8213

8214

8215

8216

8217

8218

8219

8220

8221

8222

8223

8224

8225

8226

8227

8228

8229

8230

8231

8232

8233

8234

8235

8236

8237

8238

8239

8240

8241

8242

8243

8244

8245

8246

8247

8248

8249

8250

8251

8252

8253

8254

8255

8256

8257

8258

8259

8260

8261

8262

8263

8264

8265

8266

8267

8268

8269

8270

8271

8272

8273

8274

8275

8276

8277

8278

8279

8280

8281

8282

8283

8284

8285

8286

8287

8288

8289

8290

8291

8292

8293

8294

8295

8296

8297

8298

8299

8300

8301

8302

8303

8304

8305

8306

8307

8308

8309

8310

8311

8312

8313

8314

8315

8316

8317

8318

8319

8320

8321

8322

8323

8324

8325

8326

8327

8328

8329

8330

8331

8332

8333

8334

8335

8336

8337

8338

8339

8340

8341

8342

8343

8344

8345

8346

8347

8348

8349

8350

8351

8352

8353

8354

8355

8356

8357

8358

8359

8360

8361

8362

8363

8364

8365

8366

8367

8368

8369

8370

8371

8372

8373

8374

8375

8376

8377

8378

8379

8380

8381

8382

8383

8384

8385

8386

8387

8388

8389

8390

8391

8392

8393

8394

8395

8396

8397

8398

8399

8400

8401

8402

8403

8404

8405

8406

8407

8408

8409

8410

8411

8412

8413

8414

8415

8416

8417

8418

8419

8420

8421

8422

8423

8424

8425

8426

8427

8428

8429

8430

8431

8432

8433

8434

8435

8436

8437

8438

8439

8440

8441

8442

8443

8444

8445

8446

8447

8448

8449

8450

8451

8452

8453

8454

8455

8456

8457

8458

8459

8460

8461

8462

8463

8464

8465

8466

8467

8468

8469

8470

8471

8472

8473

8474

8475

8476

8477

8478

8479

8480

8481

8482

8483

8484

8485

8486

8487

8488

8489

8490

8491

8492

8493

8494

8495

8496

8497

8498

8499

8500

8501

8502

8503

8504

8505

8506

8507

8508

8509

8510

8511

8512

8513

8514

8515

8516

8517

8518

8519

8520

8521

8522

8523

8524

8525

8526

8527

8528

8529

8530

8531

8532

8533

8534

8535

8536

8537

8538

8539

8540

8541

8542

8543

8544

8545

8546

8547

8548

8549

8550

8551

8552

8553

8554

8555

8556

8557

8558

8559

8560

8561

8562

8563

8564

8565

8566

8567

8568

8569

8570

8571

8572

8573

8574

8575

8576

8577

8578

8579

8580

8581

8582

8583

8584

8585

8586

8587

8588

8589

8590

8591

8592

8593

8594

8595

8596

8597

8598

8599

8600

8601

8602

8603

8604

8605

8606

8607

8608

8609

8610

8611

8612

8613

8614

8615

8616

8617

8618

8619

8620

8621

8622

8623

8624

8625

8626

8627

8628

8629

8630

8631

8632

8633

8634

8635

8636

8637

8638

8639

8640

8641

8642

8643

8644

8645

8646

8647

8648

8649

8650

8651

8652

8653

8654

8655

8656

8657

8658

8659

8660

8661

8662

8663

8664

8665

8666

8667

8668

8669

8670

8671

8672

8673

8674

8675

8676

8677

8678

8679

8680

8681

8682

8683

8684

8685

8686

8687

8688

8689

8690

8691

8692

8693

8694

8695

8696

8697

8698

8699

8700

8701

8702

8703

8704

8705

8706

8707

8708

8709

8710

8711

8712

8713

8714

8715

8716

8717

8718

8719

8720

8721

8722

8723

8724

8725

8726

8727

8728

8729

8730

8731

8732

8733

8734

8735

8736

8737

8738

8739

8740

8741

8742

8743

8744

8745

8746

8747

8748

8749

8750

8751

8752

8753

8754

8755

8756

8757

8758

8759

8760

8761

8762

8763

8764

8765

8766

8767

8768

8769

8770

8771

8772

8773

8774

8775

8776

8777

8778

8779

8780

8781

8782

8783

8784

8785

8786

8787

8788

8789

8790

8791

8792

8793

8794

8795

8796

8797

8798

8799

8800

8801

8802

8803

8804

8805

8806

8807

8808

8809

8810

8811

8812

8813

8814

8815

8816

8817

8818

8819

8820

8821

8822

8823

8824

8825

8826

8827

8828

8829

8830

8831

8832

8833

8834

8835

8836

8837

8838

8839

8840

8841

8842

8843

8844

8845

8846

8847

8848

8849

8850

8851

8852

8853

8854

8855

8856

8857

8858

8859

8860

8861

8862

8863

8864

8865

8866

8867

8868

8869

8870

8871

8872

8873

8874

8875

8876

8877

8878

8879

8880

8881

8882

8883

8884

8885

8886

8887

8888

8889

8890

8891

8892

8893

8894

8895

8896

8897

8898

8899

8900

8901

8902

8903

8904

8905

8906

8907

8908

8909

8910

8911

8912

8913

8914

8915

8916

8917

8918

8919

8920

8921

8922

8923

8924

8925

8926

8927

8928

8929

8930

8931

8932

8933

8934

8935

8936

8937

8938

8939

8940

8941

8942

8943

8944

8945

8946

8947

8948

8949

8950

8951

8952

8953

8954

8955

8956

8957

8958

8959

8960

8961

8962

8963

8964

8965

8966

8967

8968

8969

8970

8971

8972

8973

8974

8975

8976

8977

8978

8979

8980

8981

8982

8983

8984

8985

8986

8987

8988

8989

8990

8991

8992

8993

8994

8995

8996

8997

8998

8999

9000

9001

9002

9003

9004

9005

9006

9007

9008

9009

9010

9011

9012

9013

9014

9015

9016

9017

9018

9019

9020

9021

9022

9023

9024

9025

9026

9027

9028

9029

9030

9031

9032

9033

9034

9035

9036

9037

9038

9039

9040

9041

9042

9043

9044

9045

9046

9047

9048

9049

9050

9051

9052

9053

9054

9055

9056

9057

9058

9059

9060

9061

9062

9063

9064

9065

9066

9067

9068

9069

9070

9071

9072

9073

9074

9075

9076

9077

9078

9079

9080

9081

9082

9083

9084

9085

9086

9087

9088

9089

9090

9091

9092

9093

9094

9095

9096

9097

9098

9099

9100

9101

9102

9103

9104

9105

9106

9107

9108

9109

9110

9111

9112

9113

9114

9115

9116

9117

9118

9119

9120

9121

9122

9123

9124

9125

9126

9127

9128

9129

9130

9131

9132

9133

9134

9135

9136

9137

9138

9139

9140

9141

9142

9143

9144

9145

9146

9147

9148

9149

9150

9151

9152

9153

9154

9155

9156

9157

9158

9159

9160

9161

9162

9163

9164

9165

9166

9167

9168

9169

9170

9171

9172

9173

9174

9175

9176

9177

9178

9179

9180

9181

9182

9183

9184

9185

9186

9187

9188

9189

9190

9191

9192

9193

9194

9195

9196

9197

9198

9199

9200

9201

9202

9203

9204

9205

9206

9207

9208

9209

9210

9211

9212

9213

9214

9215

9216

9217

9218

9219

9220

9221

9222

9223

9224

9225

9226

9227

9228

9229

9230

9231

9232

9233

9234

9235

9236

9237

9238

9239

9240

9241

9242

9243

9244

9245

9246

9247

9248

9249

9250

9251

9252

9253

9254

9255

9256

9257

9258

9259

9260

9261

9262

9263

9264

9265

9266

9267

9268

9269

9270

9271

9272

9273

9274

9275

9276

9277

9278

9279

9280

9281

9282

9283

9284

9285

9286

9287

9288

9289

9290

9291

9292

9293

9294

9295

9296

9297

9298

9299

9300

9301

9302

9303

9304

9305

9306

9307

9308

9309

9310

9311

9312

9313

9314

9315

9316

9317

9318

9319

9320

9321

9322

9323

9324

9325

9326

9327

9328

9329

9330

9331

9332

9333

9334

9335

9336

9337

9338

9339

9340

9341

9342

9343

9344

9345

9346

9347

9348

9349

9350

9351

9352

9353

9354

9355

9356

9357

9358

9359

9360

9361

9362

9363

9364

9365

9366

9367

9368

9369

9370

9371

9372

9373

9374

9375

9376

9377

9378

9379

9380

9381

9382

9383

9384

9385

9386

9387

9388

9389

9390

9391

9392

9393

9394

9395

9396

9397

9398

9399

9400

9401

9402

9403

9404

9405

9406

9407

9408

9409

9410

9411

9412

9413

9414

9415

9416

9417

9418

9419

9420

9421

9422

9423

9424

9425

9426

9427

9428

9429

9430

9431

9432

9433

9434

9435

9436

9437

9438

9439

9440

9441

9442

9443

9444

9445

9446

9447

9448

9449

9450

9451

9452

9453

9454

9455

9456

9457

9458

9459

9460

9461

9462

9463

9464

9465

9466

9467

9468

9469

9470

9471

9472

9473

9474

9475

9476

9477

9478

9479

9480

9481

9482

9483

9484

9485

9486

9487

9488

9489

9490

9491

9492

9493

9494

9495

9496

9497

9498

9499

9500

9501

9502

9503

9504

9505

9506

9507

9508

9509

9510

9511

9512

9513

9514

9515

9516

9517

9518

9519

9520

9521

9522

9523

9524

9525

9526

9527

9528

9529

9530

9531

9532

9533

9534

9535

9536

9537

9538

9539

9540

9541

9542

9543

9544

9545

9546

9547

9548

9549

9550

9551

9552

9553

9554

9555

9556

9557

9558

9559

9560

9561

9562

9563

9564

9565

9566

9567

9568

9569

9570

9571

9572

9573

9574

9575

9576

9577

9578

9579

9580

9581

9582

9583

9584

9585

9586

9587

9588

9589

9590

9591

9592

9593

9594

9595

9596

9597

9598

9599

9600

9601

9602

9603

9604

9605

9606

9607

9608

9609

9610

9611

9612

9613

9614

9615

9616

9617

9618

9619

9620

9621

9622

9623

9624

9625

9626

9627

9628

9629

9630

9631

9632

9633

9634

9635

9636

9637

9638

9639

9640

9641

9642

9643

9644

9645

9646

9647

9648

9649

9650

9651

9652

9653

9654

9655

9656

9657

9658

9659

9660

9661

9662

9663

9664

9665

9666

9667

9668

9669

9670

9671

9672

9673

9674

9675

9676

9677

9678

9679

9680

9681

9682

9683

9684

9685

9686

9687

9688

9689

9690

9691

9692

9693

9694

9695

9696

9697

9698

9699

9700

9701

9702

9703

9704

9705

9706

9707

9708

9709

9710

9711

9712

9713

9714

9715

9716

9717

9718

9719

9720

9721

9722

9723

9724

9725

9726

9727

9728

9729

9730

9731

9732

9733

9734

9735

9736

9737

9738

9739

9740

9741

9742

9743

9744

9745

9746

9747

9748

9749

9750

9751

9752

9753

9754

9755

9756

9757

9758

9759

9760

9761

9762

9763

9764

9765

9766

9767

9768

9769

9770

9771

9772

9773

9774

9775

9776

9777

9778

9779

9780

9781

9782

9783

9784

9785

9786

9787

9788

9789

9790

9791

9792

9793

9794

9795

9796

9797

9798

9799

9800

9801

9802

9803

9804

9805

9806

9807

9808

9809

9810

9811

9812

9813

9814

9815

9816

9817

9818

9819

9820

9821

9822

9823

9824

9825

9826

9827

9828

9829

9830

9831

9832

9833

9834

9835

9836

9837

9838

9839

9840

9841

9842

9843

9844

9845

9846

9847

9848

9849

9850

9851

9852

9853

9854

9855

9856

9857

9858

9859

9860

9861

9862

9863

9864

9865

9866

9867

9868

9869

9870

9871

9872

9873

9874

9875

9876

9877

9878

9879

9880

9881

9882

9883

9884

9885

9886

9887

9888

9889

9890

9891

9892

9893

9894

9895

9896

9897

9898

9899

9900

9901

9902

9903

9904

9905

9906

9907

9908

9909

9910

9911

9912

9913

9914

9915

9916

9917

9918

9919

9920

9921

9922

9923

9924

9925

9926

9927

9928

9929

9930

9931

9932

9933

9934

9935

9936

9937

9938

9939

9940

9941

9942

9943

9944

9945

9946

9947

9948

9949

9950

9951

9952

9953

9954

9955

9956

9957

9958

9959

9960

9961

9962

9963

9964

9965

9966

9967

9968

9969

9970

9971

9972

9973

9974

9975

9976

9977

9978

9979

9980

9981

9982

9983

9984

9985

9986

9987

9988

9989

9990

9991

9992

9993

9994

9995

9996

9997

9998

9999

10000

10001

10002

10003

10004

10005

10006

10007

10008

10009

10010

10011

10012

10013

10014

10015

10016

10017

10018

10019

10020

10021

10022

10023

10024

10025

10026

10027

10028

10029

10030

10031

10032

10033

10034

10035

10036

10037

10038

10039

10040

10041

10042

10043

10044

10045

10046

10047

10048

10049

10050

10051

10052

10053

10054

10055

10056

10057

10058

10059

10060

10061

10062

10063

10064

10065

10066

10067

10068

10069

10070

10071

10072

10073

10074

10075

10076

10077

10078

10079

10080

10081

10082

10083

10084

10085

10086

10087

10088

10089

10090

10091

10092

10093

10094

10095

10096

10097

10098

10099

10100

10101

10102

10103

10104

10105

10106

10107

10108

10109

10110

10111

10112

10113

10114

10115

10116

10117

10118

10119

10120

10121

10122

10123

10124

10125

10126

10127

10128

10129

10130

10131

10132

10133

10134

10135

10136

10137

10138

10139

10140

10141

10142

10143

10144

10145

10146

10147

10148

10149

10150

10151

10152

10153

10154

10155

10156

10157

10158

10159

10160

10161

10162

10163

10164

10165

10166

10167

10168

10169

10170

10171

10172

10173

10174

10175

10176

10177

10178

10179

10180

10181

10182

10183

10184

10185

10186

10187

10188

10189

10190

10191

10192

10193

10194

10195

10196

10197

10198

10199

10200

10201

10202

10203

10204

10205

10206

10207

10208

10209

10210

10211

10212

10213

10214

10215

10216

10217

10218

10219

10220

10221

10222

10223

10224

10225

10226

10227

10228

10229

10230

10231

10232

10233

10234

10235

10236

10237

10238

10239

10240

10241

10242

10243

10244

10245

10246

10247

10248

10249

10250

10251

10252

10253

10254

10255

10256

10257

10258

10259

10260

10261

10262

10263

10264

10265

10266

10267

10268

10269

10270

10271

10272

10273

10274

10275

10276

10277

10278

10279

10280

10281

10282

10283

10284

10285

10286

10287

10288

10289

10290

10291

10292

10293

10294

10295

10296

10297

10298

10299

10300

10301

10302

10303

10304

10305

10306

10307

10308

10309

10310

10311

10312

10313

10314

10315

10316

10317

10318

10319

10320

10321

10322

10323

10324

10325

10326

10327

10328

10329

10330

10331

10332

10333

10334

10335

10336

10337

10338

10339

10340

10341

10342

10343

10344

10345

10346

10347

10348

10349

10350

10351

10352

10353

10354

10355

10356

10357

10358

10359

10360

10361

10362

10363

10364

10365

10366

10367

10368

10369

10370

10371

10372

10373

10374

10375

10376

10377

10378

10379

10380

10381

10382

10383

10384

10385

10386

10387

10388

10389

10390

10391

10392

10393

10394

10395

10396

10397

10398

10399

10400

10401

10402

10403

10404

10405

10406

10407

10408

10409

10410

10411

10412

10413

10414

10415

10416

10417

10418

10419

10420

10421

10422

10423

10424

10425

10426

10427

10428

10429

10430

10431

10432

10433

10434

10435

10436

10437

10438

10439

10440

10441

10442

10443

10444

10445

10446

10447

10448

10449

10450

10451

10452

10453

10454

10455

10456

10457

10458

10459

10460

10461

10462

10463

10464

10465

10466

10467

10468

10469

10470

10471

10472

10473

10474

10475

10476

10477

10478

10479

10480

10481

10482

10483

10484

10485

10486

10487

10488

10489

10490

10491

10492

10493

10494

10495

10496

10497

10498

10499

10500

10501

10502

10503

10504

10505

10506

10507

10508

10509

10510

10511

10512

10513

10514

10515

10516

10517

10518

10519

10520

10521

10522

10523

10524

10525

10526

10527

10528

10529

10530

10531

10532

10533

10534

10535

10536

10537

10538

10539

10540

10541

10542

10543

10544

10545

10546

10547

10548

10549

10550

10551

10552

10553

10554

10555

10556

10557

10558

10559

10560

10561

10562

10563

10564

10565

10566

10567

10568

10569

10570

10571

10572

10573

10574

10575

10576

10577

10578

10579

10580

10581

10582

10583

10584

10585

10586

10587

10588

10589

10590

10591

10592

10593

10594

10595

10596

10597

10598

10599

10600

10601

10602

10603

10604

10605

10606

10607

10608

10609

10610

10611

10612

10613

10614

10615

10616

10617

10618

10619

10620

10621

10622

10623

10624

10625

10626

10627

10628

10629

10630

10631

10632

10633

10634

10635

10636

10637

10638

10639

10640

10641

10642

10643

10644

10645

10646

10647

10648

10649

10650

10651

10652

10653

10654

10655

10656

10657

10658

10659

10660

10661

10662

10663

10664

10665

10666

10667

10668

10669

10670

10671

10672

10673

10674

10675

10676

10677

10678

10679

10680

10681

10682

10683

10684

10685

10686

10687

10688

10689

10690

10691

10692

10693

10694

10695

10696

10697

10698

10699

10700

10701

10702

10703

10704

10705

10706

10707

10708

10709

10710

10711

10712

10713

10714

10715

10716

10717

10718

10719

10720

10721

10722

10723

10724

10725

10726

10727

10728

10729

10730

10731

10732

10733

10734

10735

10736

10737

10738

10739

10740

10741

10742

10743

10744

10745

10746

10747

10748

10749

10750

10751

10752

10753

10754

10755

10756

10757

10758

10759

10760

10761

10762

10763

10764

10765

10766

10767

10768

10769

10770

10771

10772

10773

10774

10775

10776

10777

10778

10779

10780

10781

10782

10783

10784

10785

10786

10787

10788

10789

10790

10791

10792

10793

10794

10795

10796

10797

10798

10799

10800

10801

10802

10803

10804

10805

10806

10807

10808

10809

10810

10811

10812

10813

10814

10815

10816

10817

10818

10819

10820

10821

10822

10823

10824

10825

10826

10827

10828

10829

10830

10831

10832

10833

10834

10835

10836

10837

10838

10839

10840

10841

10842

10843

10844

10845

10846

10847

10848

10849

10850

10851

10852

10853

10854

10855

10856

10857

10858

10859

10860

10861

10862

10863

10864

10865

10866

10867

10868

10869

10870

10871

10872

10873

10874

10875

10876

10877

10878

10879

10880

10881

10882

10883

10884

10885

10886

10887

10888

10889

10890

10891

10892

10893

10894

10895

10896

10897

10898

10899

10900

10901

10902

10903

10904

10905

10906

10907

10908

10909

10910

10911

10912

10913

10914

10915

10916

10917

10918

10919

10920

10921

10922

10923

10924

10925

10926

10927

10928

10929

10930

10931

10932

10933

10934

10935

10936

10937

10938

10939

10940

10941

10942

10943

10944

10945

10946

10947

10948

10949

10950

10951

10952

10953

10954

10955

10956

10957

10958

10959

10960

10961

10962

10963

10964

10965

10966

10967

10968

10969

10970

10971

10972

10973

10974

10975

10976

10977

10978

10979

10980

10981

10982

10983

10984

10985

10986

10987

10988

10989

10990

10991

10992

10993

10994

10995

10996

10997

10998

10999

11000

11001

11002

11003

11004

11005

11006

11007

11008

11009

11010

11011

11012

11013

11014

11015

11016

11017

11018

11019

11020

11021

11022

11023

11024

11025

11026

11027

11028

11029

11030

11031

11032

11033

11034

11035

11036

11037

11038

11039

11040

11041

11042

11043

11044

11045

11046

11047

11048

11049

11050

11051

11052

11053

11054

11055

11056

11057

11058

11059

11060

11061

11062

11063

11064

11065

11066

11067

11068

11069

11070

11071

11072

11073

11074

11075

11076

11077

11078

11079

11080

11081

11082

11083

11084

11085

11086

11087

11088

11089

11090

11091

11092

11093

11094

11095

11096

11097

11098

11099

11100

11101

11102

11103

11104

11105

11106

11107

11108

11109

11110

11111

11112

11113

11114

11115

11116

11117

11118

11119

11120

11121

11122

11123

11124

11125

11126

11127

11128

11129

11130

11131

11132

11133

11134

11135

11136

11137

11138

11139

11140

11141

11142

11143

11144

11145

11146

11147

11148

11149

11150

11151

11152

11153

11154

11155

11156

11157

11158

11159

11160

11161

11162

11163

11164

11165

11166

11167

11168

11169

11170

11171

11172

11173

11174

11175

11176

11177

11178

11179

11180

11181

11182

11183

11184

11185

11186

11187

11188

11189

11190

11191

11192

11193

11194

11195

11196

11197

11198

11199

11200

11201

11202

11203

11204

11205

11206

11207

11208

11209

11210

11211

11212

11213

11214

11215

11216

11217

11218

11219

11220

11221

11222

11223

11224

11225

11226

11227

11228

11229

11230

11231

11232

11233

11234

11235

11236

11237

11238

11239

11240

11241

11242

11243

11244

11245

11246

11247

11248

11249

11250

11251

11252

11253

11254

11255

11256

11257

11258

11259

11260

11261

11262

11263

11264

11265

11266

11267

11268

11269

11270

11271

11272

11273

11274

11275

11276

11277

11278

11279

11280

11281

11282

11283

11284

11285

11286

11287

11288

11289

11290

11291

11292

11293

11294

11295

11296

11297

11298

11299

11300

11301

11302

11303

11304

11305

11306

11307

11308

11309

11310

11311

11312

11313

11314

11315

11316

11317

11318

11319

11320

11321

11322

11323

11324

11325

11326

11327

11328

11329

11330

11331

11332

11333

11334

11335

11336

11337

11338

11339

11340

11341

11342

11343

11344

11345

11346

11347

11348

11349

11350

11351

11352

11353

11354

11355

11356

11357

11358

11359

11360

11361

11362

11363

11364

11365

11366

11367

11368

11369

11370

11371

11372

11373

11374

11375

11376

11377

11378

11379

11380

11381

11382

11383

11384

11385

11386

11387

11388

11389

11390

11391

11392

11393

11394

11395

11396

11397

11398

11399

11400

11401

11402

11403

11404

11405

11406

11407

11408

11409

11410

11411

11412

11413

11414

11415

11416

11417

11418

11419

11420

11421

11422

11423

11424

11425

11426

11427

11428

11429

11430

11431

11432

11433

11434

11435

11436

11437

11438

11439

11440

11441

11442

11443

11444

11445

11446

11447

11448

11449

11450

11451

11452

11453

11454

11455

11456

11457

11458

11459

11460

11461

11462

11463

11464

11465

11466

11467

11468

11469

11470

11471

11472

11473

11474

11475

11476

11477

11478

11479

11480

11481

11482

11483

11484

11485

11486

11487

11488

11489

11490

11491

11492

11493

11494

11495

11496

11497

11498

11499

11500

11501

11502

11503

11504

11505

11506

11507

11508

11509

11510

11511

11512

11513

11514

11515

11516

11517

11518

11519

11520

11521

11522

11523

11524

11525

11526

11527

11528

11529

11530

11531

11532

11533

11534

11535

11536

11537

11538

11539

11540

11541

11542

11543

11544

11545

11546

11547

11548

11549

11550

11551

11552

11553

11554

11555

11556

11557

11558

11559

11560

11561

11562

11563

11564

11565

11566

11567

11568

11569

11570

11571

11572

11573

11574

11575

11576

11577

11578

11579

11580

11581

11582

11583

11584

11585

11586

11587

11588

11589

11590

11591

11592

11593

11594

11595

11596

11597

11598

11599

11600

11601

11602

11603

11604

11605

11606

11607

11608

11609

11610

11611

11612

11613

11614

11615

11616

11617

11618

11619

11620

11621

11622

11623

11624

11625

11626

11627

11628

11629

11630

11631

11632

11633

11634

11635

11636

11637

11638

11639

11640

11641

11642

11643

11644

11645

11646

11647

11648

11649

11650

11651

11652

11653

11654

11655

11656

11657

11658

11659

11660

11661

11662

11663

11664

11665

11666

11667

11668

11669

11670

11671

11672

11673

11674

11675

11676

11677

11678

11679

11680

11681

11682

11683

11684

11685

11686

11687

11688

11689

11690

11691

11692

11693

11694

11695

11696

11697

11698

11699

11700

11701

11702

11703

11704

11705

11706

11707

11708

11709

11710

11711

11712

11713

11714

11715

11716

11717

11718

11719

11720

11721

11722

11723

11724

11725

11726

11727

11728

11729

11730

11731

11732

11733

11734

11735

11736

11737

11738

11739

11740

11741

11742

11743

11744

11745

11746

11747

11748

11749

11750

11751

11752

11753

11754

11755

11756

11757

11758

11759

11760

11761

11762

11763

11764

11765

11766

11767

11768

11769

11770

11771

11772

11773

11774

11775

11776

11777

11778

11779

11780

11781

11782

11783

11784

11785

11786

11787

11788

11789

11790

11791

11792

11793

11794

11795

11796

11797

11798

11799

11800

11801

11802

11803

11804

11805

11806

11807

11808

11809

11810

11811

11812

11813

11814

11815

11816

11817

11818

11819

11820

11821

11822

11823

11824

11825

11826

11827

11828

11829

11830

11831

11832

11833

11834

11835

11836

11837

11838

11839

11840

11841

11842

11843

11844

11845

11846

11847

11848

11849

11850

11851

11852

11853

11854

11855

11856

11857

11858

11859

11860

11861

11862

11863

11864

11865

11866

11867

11868

11869

11870

11871

11872

11873

11874

11875

11876

11877

11878

11879

11880

11881

11882

11883

11884

11885

11886

11887

11888

11889

11890

11891

11892

11893

11894

11895

11896

11897

11898

11899

11900

11901

11902

11903

11904

11905

11906

11907

11908

11909

11910

11911

11912

11913

11914

11915

11916

11917

11918

11919

11920

11921

11922

11923

11924

11925

11926

11927

11928

11929

11930

11931

11932

11933

11934

11935

11936

11937

11938

11939

11940

11941

11942

11943

11944

11945

11946

11947

11948

11949

11950

11951

11952

11953

11954

11955

11956

11957

11958

11959

11960

11961

11962

11963

11964

11965

11966

11967

11968

11969

11970

11971

11972

11973

11974

11975

11976

11977

11978

11979

11980

11981

11982

11983

11984

11985

11986

11987

11988

11989

11990

11991

11992

11993

11994

11995

11996

11997

11998

11999

12000

12001

12002

12003

12004

12005

12006

12007

12008

12009

12010

12011

12012

12013

12014

12015

12016

12017

12018

12019

12020

12021

12022

12023

12024

12025

12026

12027

12028

12029

12030

12031

12032

12033

12034

12035

12036

12037

12038

12039

12040

12041

12042

12043

12044

12045

12046

12047

12048

12049

12050

12051

12052

12053

12054

12055

12056

12057

12058

12059

12060

12061

12062

12063

12064

12065

12066

12067

12068

12069

12070

12071

12072

12073

12074

12075

12076

12077

12078

12079

12080

12081

12082

12083

12084

12085

12086

12087

12088

12089

12090

12091

12092

12093

12094

12095

12096

12097

12098

12099

12100

12101

12102

12103

12104

12105

12106

12107

12108

12109

12110

12111

12112

12113

12114

12115

12116

12117

12118

12119

12120

12121

12122

12123

12124

12125

12126

12127

12128

12129

12130

12131

12132

12133

12134

12135

12136

12137

12138

12139

12140

12141

12142

12143

12144

12145

12146

12147

12148

12149

12150

12151

12152

12153

12154

12155

12156

12157

12158

12159

12160

12161

12162

12163

12164

12165

12166

12167

12168

12169

12170

12171

12172

12173

12174

12175

12176

12177

12178

12179

12180

12181

12182

12183

12184

12185

12186

12187

12188

12189

12190

12191

12192

12193

12194

12195

12196

12197

12198

12199

12200

12201

12202

12203

12204

12205

12206

12207

12208

12209

12210

12211

12212

12213

12214

12215

12216

12217

12218

12219

12220

12221

12222

12223

12224

12225

12226

12227

12228

12229

12230

12231

12232

12233

12234

12235

12236

12237

12238

12239

12240

12241

12242

12243

12244

12245

12246

12247

12248

12249

12250

12251

12252

12253

12254

12255

12256

12257

12258

12259

12260

12261

12262

12263

12264

12265

12266

12267

12268

12269

12270

12271

12272

12273

12274

12275

12276

12277

12278

12279

12280

12281

12282

12283

12284

12285

12286

12287

12288

12289

12290

12291

12292

12293

12294

12295

12296

12297

12298

12299

12300

12301

12302

12303

12304

12305

12306

12307

12308

12309

12310

12311

12312

12313

12314

12315

12316

12317

12318

12319

12320

12321

12322

12323

12324

12325

12326

12327

12328

12329

12330

12331

12332

12333

12334

12335

12336

12337

12338

12339

12340

12341

12342

12343

12344

12345

12346

12347

12348

12349

12350

12351

12352

12353

12354

12355

12356

12357

12358

12359

12360

12361

12362

12363

12364

12365

12366

12367

12368

12369

12370

12371

12372

12373

12374

12375

12376

12377

12378

12379

12380

12381

12382

12383

12384

12385

12386

12387

12388

12389

12390

12391

12392

12393

12394

12395

12396

12397

12398

12399

12400

12401

12402

12403

12404

12405

12406

12407

12408

12409

12410

12411

12412

12413

12414

12415

12416

12417

12418

12419

12420

12421

12422

12423

12424

12425

12426

12427

12428

12429

12430

12431

12432

12433

12434

12435

12436

12437

12438

12439

12440

12441

12442

12443

12444

12445

12446

12447

12448

12449

12450

12451

12452

12453

12454

12455

12456

12457

12458

12459

12460

12461

12462

12463

12464

12465

12466

12467

12468

12469

12470

12471

12472

12473

12474

12475

12476

12477

12478

12479

12480

12481

12482

12483

12484

12485

12486

12487

12488

12489

12490

12491

12492

12493

12494

12495

12496

12497

12498

12499

12500

12501

12502

12503

12504

12505

12506

12507

12508

12509

12510

12511

12512

12513

12514

12515

12516

12517

12518

12519

12520

12521

12522

12523

12524

12525

12526

12527

12528

12529

12530

12531

12532

12533

12534

12535

12536

12537

12538

12539

12540

12541

12542

12543

12544

12545

12546

12547

12548

12549

12550

12551

12552

12553

12554

12555

12556

12557

12558

12559

12560

12561

12562

12563

12564

12565

12566

12567

12568

12569

12570

12571

12572

12573

12574

12575

12576

12577

12578

12579

12580

12581

12582

12583

12584

12585

12586

12587

12588

12589

12590

12591

12592

12593

12594

12595

12596

12597

12598

12599

12600

12601

12602

12603

12604

12605

12606

12607

12608

12609

12610

12611

12612

12613

12614

12615

12616

12617

12618

12619

12620

12621

12622

12623

12624

12625

12626

12627

12628

12629

12630

12631

12632

12633

12634

12635

12636

12637

12638

12639

12640

12641

12642

12643

12644

12645

12646

12647

12648

12649

12650

12651

12652

12653

12654

12655

12656

12657

12658

12659

12660

12661

12662

12663

12664

12665

12666

12667

12668

12669

12670

12671

12672

12673

12674

12675

12676

12677

12678

12679

12680

12681

12682

12683

12684

12685

12686

12687

12688

12689

12690

12691

12692

12693

12694

12695

12696

12697

12698

12699

12700

12701

12702

12703

12704

12705

12706

12707

12708

12709

12710

12711

12712

12713

12714

12715

12716

12717

12718

12719

12720

12721

12722

12723

12724

12725

12726

12727

12728

12729

12730

12731

12732

12733

12734

12735

12736

12737

12738

12739

12740

12741

12742

12743

12744

12745

12746

12747

12748

12749

12750

12751

12752

12753

12754

12755

12756

12757

12758

12759

12760

12761

12762

12763

12764

12765

12766

12767

12768

12769

12770

12771

12772

12773

12774

12775

12776

12777

12778

12779

12780

12781

12782

12783

12784

12785

12786

12787

12788

12789

12790

12791

12792

12793

12794

12795

12796

12797

12798

12799

12800

12801

12802

12803

12804

12805

12806

12807

12808

12809

12810

12811

12812

12813

12814

12815

12816

12817

12818

12819

12820

12821

12822

12823

12824

12825

12826

12827

12828

12829

12830

12831

12832

12833

12834

12835

12836

12837

12838

12839

12840

12841

12842

12843

12844

12845

12846

12847

12848

12849

12850

12851

12852

12853

12854

12855

12856

12857

12858

12859

12860

12861

12862

12863

12864

12865

12866

12867

12868

12869

12870

12871

12872

12873

12874

12875

12876

12877

12878

12879

12880

12881

12882

12883

12884

12885

12886

12887

12888

12889

12890

12891

12892

12893

12894

12895

12896

12897

12898

12899

12900

12901

12902

12903

12904

12905

12906

12907

12908

12909

12910

12911

12912

12913

12914

12915

12916

12917

12918

12919

12920

12921

12922

12923

12924

12925

12926

12927

12928

12929

12930

12931

12932

12933

12934

12935

12936

12937

12938

12939

12940

12941

12942

12943

12944

12945

12946

12947

12948

12949

12950

12951

12952

12953

12954

12955

12956

12957

12958

12959

12960

12961

12962

12963

12964

12965

12966

12967

12968

12969

12970

12971

12972

12973

12974

12975

12976

12977

12978

12979

12980

12981

12982

12983

12984

12985

12986

12987

12988

12989

12990

12991

12992

12993

12994

12995

12996

12997

12998

12999

13000

13001

13002

13003

13004

13005

13006

13007

13008

13009

13010

13011

13012

13013

13014

13015

13016

13017

13018

13019

13020

13021

13022

13023

13024

13025

13026

13027

13028

13029

13030

13031

13032

13033

13034

13035

13036

13037

13038

13039

13040

13041

13042

13043

13044

13045

13046

13047

13048

13049

13050

13051

13052

13053

13054

13055

13056

13057

13058

13059

13060

13061

13062

13063

13064

13065

13066

13067

13068

13069

13070

13071

13072

13073

13074

13075

13076

13077

13078

13079

13080

13081

13082

13083

13084

13085

13086

13087

13088

13089

13090

13091

13092

13093

13094

13095

13096

13097

13098

13099

13100

13101

13102

13103

13104

13105

13106

13107

13108

13109

13110

13111

13112

13113

13114

13115

13116

13117

13118

13119

13120

13121

13122

13123

13124

13125

13126

13127

13128

13129

13130

13131

13132

13133

13134

13135

13136

13137

13138

13139

13140

13141

13142

13143

13144

13145

13146

13147

13148

13149

13150

13151

13152

13153

13154

13155

13156

13157

13158

13159

13160

13161

13162

13163

13164

13165

13166

13167

13168

13169

13170

13171

13172

13173

13174

13175

13176

13177

13178

13179

13180

13181

13182

13183

13184

13185

13186

13187

13188

13189

13190

13191

13192

13193

13194

13195

13196

13197

13198

13199

13200

13201

13202

13203

13204

13205

13206

13207

13208

13209

13210

13211

13212

13213

13214

13215

13216

13217

13218

13219

13220

13221

13222

13223

13224

13225

13226

13227

13228

13229

13230

13231

13232

13233

13234

13235

13236

13237

13238

13239

13240

13241

13242

13243

13244

13245

13246

13247

13248

13249

13250

13251

13252

13253

13254

13255

13256

13257

13258

13259

13260

13261

13262

13263

13264

13265

13266

13267

13268

13269

13270

13271

13272

13273

13274

13275

13276

13277

13278

13279

13280

13281

13282

13283

13284

13285

13286

13287

13288

13289

13290

13291

13292

13293

*&------------------------------------------------------------------------------------------------------------*

*& Report ZSQL_FREE

*&------------------------------------------------------------------------------------------------------------*

*& Hovitaga OpenSQL Editor

*& FREE EDITION for 7.00 basis release

*& upgrade to full version at www.hovitaga.com

*& The full version has additional features like:

*& - edit unlimited number of commands, save and load, can be organized to folders

*& - report generation based on a select command: generate 150-1000+ lines of code with a push of a button

*& - select for all entries syntax

*& - field selector wizard

*& - Tree display mode

*& - the result set is editable, easy modification of table contents possible (only with authorizations!)

*& - import data from Excel/Access (only with authorizations!)

*& - executing ABAP code on the result set of a query (only with authorizations!)

*& - record and column level authorizations

*& - Update, Delete commands (only with authorizations!)

*& INSTALL INSTRUCTIONS

*& 1, Just execute the report for the first time to install it

*& 2, Execute again to run it

*&-------------------------------------------------------------------------------------------------------------*

REPORT zsql_free MESSAGE-ID zsql_free.

TYPE-POOLS: abap, icon, rsds, sqlt, trdev, slis.

TYPES: lty_commandtype(2) TYPE n.

CONSTANTS: gc_version(2) TYPE c VALUE '10',

gc_hash(32) TYPE c VALUE 'e130d57ba1c629c83107bce22ae5f594',

gc_line_length TYPE i VALUE 132,

gc_ctype_select TYPE lty_commandtype VALUE 1,

gc_ctype_update TYPE lty_commandtype VALUE 2,

gc_ctype_delete TYPE lty_commandtype VALUE 3,

gc_ctype_lawb TYPE lty_commandtype VALUE 4,

gc_ctype_selfae TYPE lty_commandtype VALUE 5,

gc_ctype_script TYPE lty_commandtype VALUE 6,

gc_style_repo_folder TYPE i VALUE 101,

gc_style_obj_list TYPE i VALUE 103,

gc_style_my_repo TYPE i VALUE 104,

gc_style_curr_comm TYPE i VALUE 105,

gc_style_pkg_content TYPE i VALUE 106,

gc_style_pkg_name TYPE i VALUE 107,

gc_style_obj_list_elem TYPE i VALUE 108,

gc_style_native TYPE i VALUE 109,

gc_style_select_fae TYPE i VALUE 110,

gc_style_lawb TYPE i VALUE 111,

gc_style_script TYPE i VALUE 112,

gc_style_delete_command TYPE i VALUE 113,

gc_style_update_command TYPE i VALUE 114,

gc_style_select_command TYPE i VALUE 115,

gc_style_bo TYPE i VALUE 116,

gc_style_bo_folder TYPE i VALUE 117,

gc_style_rfc_select TYPE i VALUE 140,

gc_style_rfc_selfae TYPE i VALUE 141,

gc_style_param_displ TYPE i VALUE 142,

gc_style_lonakafasza TYPE i VALUE 118,

sem5_node_type_class TYPE n VALUE 0,

gc_result_page_size TYPE i VALUE 200,

gc_result_size_warning TYPE i VALUE 5000.

TYPES: lty_keycol_type TYPE c,

lty_last_display_mode TYPE c,

lty_commandid TYPE i,

lty_gen_prog_nro(10) TYPE n,

lty_zhtdb_table_type TYPE c,

lty_zhtdb_vrange_text(255) TYPE c,

BEGIN OF lty_zhtdb_alv_tab,

ddtext TYPE lty_zhtdb_vrange_text,

tablename TYPE tabname,

fieldname TYPE fieldname,

alias TYPE tabname,

END OF lty_zhtdb_alv_tab,

BEGIN OF lty_zhtdb_checktable_struc,

tabname TYPE tabname,

fieldname TYPE forfield,

forkey TYPE forkey,

cardleft TYPE cardleft,

card TYPE card,

checktable TYPE checktable,

END OF lty_zhtdb_checktable_struc,

lty_zhtdb_join_text(512) TYPE c,

BEGIN OF lty_zhtdb_checktable_struc_alv,

tabname TYPE tabname,

ddtext TYPE as4text,

longtext TYPE lty_zhtdb_join_text,

END OF lty_zhtdb_checktable_struc_alv,

BEGIN OF lty_zhtdb_fieldinfo,

table TYPE tabname,

field TYPE fieldname,

is_key TYPE flag,

orig_field TYPE char50,

field_alias TYPE char50,

table_alias TYPE char50,

agg_function TYPE char50,

distinctf TYPE flag,

generated_field TYPE char50,

samecount TYPE int4,

END OF lty_zhtdb_fieldinfo,

BEGIN OF lty_zhtdb_keyword,

keyword TYPE string,

required TYPE c,

order_pos TYPE i,

begins_at TYPE i,

ends_at TYPE i,

additions TYPE string,

text TYPE string,

END OF lty_zhtdb_keyword,

BEGIN OF lty_zhtdb_sign_pos,

position TYPE i,

type(3) TYPE c,

END OF lty_zhtdb_sign_pos,

BEGIN OF lty_zhtdb_table_aliases,

table TYPE tabname,

alias TYPE string,

explain_alias TYPE string,

type TYPE lty_zhtdb_table_type,

position TYPE i,

END OF lty_zhtdb_table_aliases,

lty_zhtdbt_string_tab TYPE TABLE OF string,

lty_zhtdb_fieldinfo_tt TYPE TABLE OF lty_zhtdb_fieldinfo,

lty_zhtdb_sign_pos_tt TYPE TABLE OF lty_zhtdb_sign_pos,

lty_zhtdb_table_aliases_tt TYPE TABLE OF lty_zhtdb_table_aliases,

BEGIN OF lty_zhdb_vrange,

alias TYPE tabname,

rsds_range TYPE rsds_range,

END OF lty_zhdb_vrange,

lty_zhdb_vrange_tab TYPE STANDARD TABLE OF lty_zhdb_vrange,

lty_colmn_header TYPE c,

BEGIN OF ty_notes,

line(gc_line_length) TYPE c,

END OF ty_notes,

gty_tb_name TYPE dd02d-dbtabname,

gty_fld_name TYPE dd03p-fieldname,

gty_fieldinfo TYPE lty_zhtdb_fieldinfo,

gty_table_aliases TYPE lty_zhtdb_table_aliases,

BEGIN OF gty_ddicref,

fieldname TYPE gty_fld_name,

checktable TYPE tabname,

ref_table TYPE gty_tb_name,

ref_field TYPE gty_fld_name,

key TYPE c,

END OF gty_ddicref,

BEGIN OF source,

line(gc_line_length) TYPE c,

END OF source,

source_table TYPE soli_tab,

gty_commandtext TYPE string,

BEGIN OF gty_linkedquery,

fcode TYPE ui_func,

tabname TYPE gty_tb_name,

checktable TYPE gty_tb_name,

fieldname TYPE gty_fld_name,

checkfield TYPE gty_fld_name,

text(40) TYPE c,

longtext(255) TYPE c,

join_type TYPE c,

ddtext TYPE dd02t-ddtext,

primpos TYPE dd05m-primpos,

END OF gty_linkedquery,

BEGIN OF gty_ranges,

table_alias TYPE string,

fieldname TYPE dd03p-fieldname,

range TYPE rsds_selopt_t,

node_text TYPE lvc_value,

node_key TYPE lvc_nkey,

where_text TYPE string,

END OF gty_ranges,

BEGIN OF gty_tab_node_xref,

node_key TYPE lvc_nkey,

tablename TYPE tabname,

alias TYPE string,

END OF gty_tab_node_xref,

BEGIN OF gty_alias_ranges,

table_alias TYPE string,

fields TYPE rsdsfields_t,

expr TYPE rsds_texpr,

sel_id TYPE rsdynsel-selid,

active TYPE i,

END OF gty_alias_ranges,

BEGIN OF mty_t_type,

line(255),

END OF mty_t_type,

mty_tt_type TYPE STANDARD TABLE OF mty_t_type WITH NON-UNIQUE DEFAULT KEY INITIAL SIZE 500.

DATA: gv_def_col_hdr TYPE lty_colmn_header,

gv_def_keycol_type TYPE lty_keycol_type,

gv_0100_first_run TYPE flag VALUE 'X',

gt_tab_node_xref TYPE TABLE OF gty_tab_node_xref,

gs_tab_node_xref TYPE gty_tab_node_xref,

gs_linkedquery TYPE gty_linkedquery,

gt_linkedquery TYPE TABLE OF gty_linkedquery,

gs_linkedquery_comp TYPE gty_linkedquery,

gt_linkedquery_comp TYPE TABLE OF gty_linkedquery,

gt_prev_table_aliases TYPE TABLE OF gty_table_aliases,

gs_ranges TYPE gty_ranges,

ok_code TYPE sy-ucomm,

ok_code_200 TYPE sy-ucomm,

ok_code_300 TYPE sy-ucomm,

ok_code_400 TYPE sy-ucomm,

ok_code_500 TYPE sy-ucomm,

ok_code_700 TYPE sy-ucomm,

ok_code_800 TYPE sy-ucomm,

ok_code_900 TYPE sy-ucomm,

ok_code_950 TYPE sy-ucomm,

ok_code_1000 TYPE sy-ucomm,

gv_dynnr(4) TYPE n VALUE '0101',

gv_dynnr2(4) TYPE n VALUE '0101',

g_textedit TYPE REF TO cl_gui_abapedit,

g_container_textedit_200 TYPE REF TO cl_gui_custom_container,

g_textedit_200 TYPE REF TO cl_gui_textedit,

g_alv TYPE REF TO cl_gui_alv_grid,

go_field_selector_alv TYPE REF TO cl_gui_alv_grid,

go_selscr_fields_alv TYPE REF TO cl_gui_alv_grid,

gs_fcat TYPE lvc_s_fcat,

gt_fcat TYPE lvc_t_fcat,

gs_layo TYPE lvc_s_layo,

gt_toolbar_exclude TYPE ui_functions,

gs_toolbar_exclude TYPE ui_func,

gt_toolbar_table TYPE ttb_button,

g_tree_tb TYPE REF TO cl_gui_alv_tree,

gs_fcat_tb TYPE lvc_s_fcat,

gt_fcat_tb TYPE lvc_t_fcat,

gs_layo_tb TYPE lvc_s_layo,

gt_toolbar_exclude_tb TYPE ui_functions,

gs_toolbar_exclude_tb TYPE ui_func,

gt_toolbar_table_tb TYPE ttb_button,

gs_outtab_tb TYPE lty_zhtdb_alv_tab,

g_toolbar_textedit TYPE REF TO cl_gui_toolbar,

g_toolbar_tb_tree TYPE REF TO cl_gui_toolbar,

g_toolbar_commands TYPE REF TO cl_gui_toolbar,

autotrace(1) TYPE c,

lockresults(1) TYPE c,

clientspecified(1) TYPE c,

clientspec_ud(1) TYPE c,

bypassingbuffer(1) TYPE c,

orderbypk(1) TYPE c,

rfc_destination TYPE rfcdest,

gv_styce_colname TYPE lvc_fname,

gt_prev_text TYPE source_table,

gv_prev_nodekey TYPE lvc_nkey,

gt_prev_fcat TYPE lvc_t_fcat.

FIELD-SYMBOLS: <gt_result> TYPE STANDARD TABLE,

<gt_display> TYPE STANDARD TABLE,

<gt_temp> TYPE STANDARD TABLE,

<gt_tree> TYPE STANDARD TABLE,

<gt_undo> TYPE STANDARD TABLE,

<gs_result>,

<gf_result>,

<gs_temp>,

<gs_undo>,

<gf_temp>,

<itab> TYPE STANDARD TABLE,

<ntab> TYPE STANDARD TABLE.

PERFORM install.

*PERFORM update.

PERFORM check_message_001.

CALL SCREEN 100.

*&---------------------------------------------------------------------*

*& Include ZHTDB_CLASSES *

*&---------------------------------------------------------------------*

CLASS lcl_toolbox DEFINITION.

*"* public components of class LCL_TOOLBOX

*"* do not include other source files here!!!

PUBLIC SECTION.

CLASS-METHODS split_string

IMPORTING

!iv_string TYPE string

!iv_maxlen TYPE i

!iv_log_handle TYPE balloghndl OPTIONAL

EXPORTING

!et_string_tab TYPE lty_zhtdbt_string_tab.

CLASS-METHODS get_word_at_pos

IMPORTING

!iv_string TYPE string

!iv_position TYPE i

EXPORTING

!ev_word TYPE string.

CLASS-METHODS parse_aptph

IMPORTING

!iv_condense TYPE flag DEFAULT 'X'

!iv_log_handle TYPE balloghndl OPTIONAL

EXPORTING

!et_aptph_pos TYPE lty_zhtdb_sign_pos_tt

!et_paranth TYPE lty_zhtdb_sign_pos_tt

CHANGING

!cv_string TYPE string

EXCEPTIONS

missing_aptph

missing_parnth .

CLASS-METHODS select_single_gen

IMPORTING

!is_key_value TYPE REF TO data

!iv_table_name TYPE strukname

!it_keyf_list TYPE lty_zhtdbt_string_tab

EXPORTING

!es_record TYPE REF TO data .

CLASS-METHODS convert_to_uppercase

CHANGING

!cv_string TYPE string .

CLASS-METHODS pretty_printer

CHANGING

!ct_source TYPE soli_tab .

CLASS-METHODS is_client_field

IMPORTING

!iv_tabname TYPE tabname

!iv_fieldname TYPE fieldname

RETURNING

value(ev_client_field) TYPE char1 .

CLASS-METHODS has_client_field

IMPORTING

!iv_tabname TYPE tabname

RETURNING

value(ev_has_client_field) TYPE char1 .

CLASS-METHODS pretty_printer_string

CHANGING

!ct_source TYPE lty_zhtdbt_string_tab .

CLASS-METHODS determinte_tab_type

IMPORTING

!iv_table TYPE tabname

RETURNING

value(ev_type) TYPE lty_zhtdb_table_type

EXCEPTIONS

table_not_exist .

ENDCLASS. "LCL_TOOLBOX DEFINITION

*----------------------------------------------------------------------*

* CLASS LCL_TOOLBOX IMPLEMENTATION

*----------------------------------------------------------------------*

CLASS lcl_toolbox IMPLEMENTATION.

METHOD get_word_at_pos.

DATA: lv_length TYPE i,

lv_char TYPE char1,

lv_shift TYPE i,

lv_start TYPE i,

lv_end TYPE i.

lv_length = STRLEN( iv_string ).

* check if position is valid

IF lv_length < iv_position OR

iv_position < 1.

RETURN.

ENDIF.

lv_shift = iv_position - 1.

lv_char = iv_string+lv_shift(1).

* space does not matter

IF lv_char = space.

RETURN.

ENDIF.

* determine start

DO.

lv_char = iv_string+lv_shift(1).

IF lv_char = space.

lv_start = lv_shift + 1.

EXIT.

ENDIF.

lv_shift = lv_shift - 1.

IF lv_shift < 0.

lv_start = lv_shift + 1.

EXIT.

ENDIF.

ENDDO.

* determine end

lv_shift = iv_position - 1.

DO.

lv_char = iv_string+lv_shift(1).

IF lv_char = space.

lv_end = lv_shift.

EXIT.

ENDIF.

lv_shift = lv_shift + 1.

IF lv_shift = lv_length.

lv_end = lv_shift.

EXIT.

ENDIF.

ENDDO.

lv_length = lv_end - lv_start.

ev_word = iv_string+lv_start(lv_length).

ENDMETHOD. "

METHOD split_string.

DATA: lt_aptph_pos TYPE lty_zhtdb_sign_pos_tt,

ls_aptph_pos TYPE lty_zhtdb_sign_pos,

lv_string TYPE string,

lv_newstr TYPE string,

lv_actstr TYPE string,

lv_char TYPE c,

lv_shift TYPE i,

lv_lastsp TYPE i,

lv_length TYPE i,

lv_strg_lgth TYPE i,

lv_index TYPE i.

IF iv_string IS INITIAL.

RETURN.

ENDIF.

lv_string = iv_string.

parse_aptph( EXPORTING iv_condense = space

iv_log_handle = iv_log_handle

IMPORTING et_aptph_pos = lt_aptph_pos

CHANGING cv_string = lv_string

EXCEPTIONS OTHERS = 1 ).

lv_shift = -1.

lv_strg_lgth = STRLEN( lv_string ).

DO.

lv_shift = lv_shift + 1.

IF lv_shift >= lv_strg_lgth.

EXIT.

ENDIF.

lv_char = lv_string+lv_shift(1). " current character

IF lv_char = space.

CONCATENATE lv_actstr lv_char INTO lv_actstr

SEPARATED BY space. " otherwise the SPACE will be lost ...

lv_length = lv_length + 1.

* check, if the SPACE is inside of apostrophes

lv_index = lv_shift + 1.

READ TABLE lt_aptph_pos INDEX lv_index INTO ls_aptph_pos.

IF ls_aptph_pos-type = 'O'. " outside of apostrophes

IF lv_length > iv_maxlen.

* the length of actual line is bigger than the maximum allowed

IF lv_lastsp <> 0. " there is a right position to cut

* cut string at the last SPACE to get the current line

lv_newstr = lv_actstr(lv_lastsp).

IF lv_newstr(1) = '*'.

SHIFT lv_newstr RIGHT BY 1 PLACES.

ENDIF.

* the rest is the new line

lv_actstr = lv_actstr+lv_lastsp.

lv_length = lv_length - lv_lastsp.

lv_lastsp = lv_length.

APPEND lv_newstr TO et_string_tab.

* the new line might be already longer, than allowed

IF lv_length >= iv_maxlen.

IF lv_actstr(1) = '*'.

SHIFT lv_actstr RIGHT BY 1 PLACES.

ENDIF.

APPEND lv_actstr TO et_string_tab.

CLEAR lv_actstr.

lv_length = 0.

ENDIF.

ELSE. " there is no right position to cut

IF lv_actstr(1) = '*'.

SHIFT lv_actstr RIGHT BY 1 PLACES.

ENDIF.

APPEND lv_actstr TO et_string_tab.

CLEAR lv_actstr.

lv_length = 0.

ENDIF.

ELSE.

* this is the position of the last SPACE, where the string can be cut,

* if no better position will be found

lv_lastsp = lv_length.

ENDIF.

ELSE. " not a SPACE

CONCATENATE lv_actstr lv_char INTO lv_actstr.

lv_length = lv_length + 1.

ENDIF.

ENDDO.

IF lv_actstr IS NOT INITIAL.

IF lv_length > iv_maxlen.

* the length of actual line is bigger than the maximum allowed

IF lv_lastsp <> 0. " there is a right position to cut

* cut string at the last SPACE to get the current line

lv_newstr = lv_actstr(lv_lastsp).

IF lv_newstr(1) = '*'.

SHIFT lv_newstr RIGHT BY 1 PLACES.

ENDIF.

APPEND lv_newstr TO et_string_tab.

* the rest is the new line

lv_actstr = lv_actstr+lv_lastsp.

IF lv_actstr(1) = '*'.

SHIFT lv_actstr RIGHT BY 1 PLACES.

ENDIF.

APPEND lv_actstr TO et_string_tab.

ELSE. " there is no right position to cut

IF lv_actstr(1) = '*'.

SHIFT lv_actstr RIGHT BY 1 PLACES.

ENDIF.

APPEND lv_actstr TO et_string_tab.

ENDIF.

ELSE. " length OK

IF lv_actstr(1) = '*'.

SHIFT lv_actstr RIGHT BY 1 PLACES.

ENDIF.

APPEND lv_actstr TO et_string_tab.

ENDIF.

ENDMETHOD. "

METHOD parse_aptph.

* fills up the et_aptph_pos table: for each character of the command

* it sets the following flag:

* - O - if the character is not part of a text

* - A - if it is an apostrophe

* - I - if it is part of a text

* fills up the et_paranth table with the positions of paranthesis

* executes a kind of CONDENSE, but outside of apostrophes only

DATA: ls_aptph LIKE LINE OF et_aptph_pos,

ls_paranth LIKE LINE OF et_aptph_pos,

lv_strg_lgth TYPE i,

lv_char TYPE c,

lv_shift TYPE i,

lv_shift_sp TYPE i,

lv_shift_end TYPE i,

lv_next TYPE i,

lv_in_apostr TYPE xfeld,

lv_par_cnt TYPE i.

IF cv_string IS INITIAL.

RETURN.

ENDIF.

lv_shift = -1.

lv_strg_lgth = STRLEN( cv_string ).

DO.

lv_shift = lv_shift + 1.

IF lv_shift >= lv_strg_lgth.

EXIT.

ENDIF.

lv_char = cv_string+lv_shift(1). " current character

IF lv_char = ''''.

IF lv_in_apostr = ' '.

* => beginning of a text

lv_in_apostr = 'X'. " mark, that we are within a text

ls_aptph-position = lv_shift + 1.

ls_aptph-type = 'A'.

APPEND ls_aptph TO et_aptph_pos.

CONTINUE.

ENDIF.

* we are within a text

* the next apostrophe closes the text, if it isn't doubled!

* then both will be ignored

* => the next character must be checked

lv_next = lv_shift + 1.

IF lv_next < lv_strg_lgth.

IF cv_string+lv_next(1) = ''''.

* these two apostrophes will be ignored

ls_aptph-position = lv_shift + 1.

ls_aptph-type = 'I'.

APPEND ls_aptph TO et_aptph_pos.

ls_aptph-position = lv_shift + 2.

APPEND ls_aptph TO et_aptph_pos.

lv_shift = lv_shift + 1. " skip next character

ELSE.

* this apostrophe closes the text

IF lv_in_apostr = 'X'.

lv_in_apostr = ' '. " mark, that we are not in a text

ENDIF.

ls_aptph-position = lv_shift + 1.

ls_aptph-type = 'A'.

APPEND ls_aptph TO et_aptph_pos.

ENDIF.

ELSE.

* this apostrophe closes the text

IF lv_in_apostr = 'X'.

lv_in_apostr = ' '. " mark, that we are not in a text

ENDIF.

ls_aptph-position = lv_shift + 1.

ls_aptph-type = 'A'.

APPEND ls_aptph TO et_aptph_pos.

ENDIF.

ELSE. " lv_char <> ''''

ls_aptph-position = lv_shift + 1.

IF lv_in_apostr = 'X'. " inside a text

ls_aptph-type = 'I'.

ELSE.

ls_aptph-type = 'O'. " outside of text

ENDIF.

APPEND ls_aptph TO et_aptph_pos.

* check for '('

IF lv_char = '(' AND

lv_in_apostr = ' '. " not in a text

lv_par_cnt = lv_par_cnt + 1.

ls_paranth-type = lv_par_cnt.

ls_paranth-position = lv_shift + 1.

APPEND ls_paranth TO et_paranth.

ENDIF.

* check for ')'

IF lv_char = ')' AND

lv_in_apostr = ' '. " not in a text

ls_paranth-type = lv_par_cnt.

lv_par_cnt = lv_par_cnt - 1.

ls_paranth-position = lv_shift + 1.

APPEND ls_paranth TO et_paranth.

ENDIF.

IF iv_condense = 'X'.

* condense SPACEs (outside of apostrophes only!)

IF lv_char = space AND

lv_in_apostr = ' '.

lv_shift_sp = lv_shift + 1.

lv_shift_end = lv_shift + 2.

IF lv_shift_sp >= lv_strg_lgth.

EXIT.

ENDIF.

DO.

IF lv_shift_sp >= lv_strg_lgth.

EXIT.

ENDIF.

lv_char = cv_string+lv_shift_sp(1).

IF lv_char = space.

lv_strg_lgth = lv_strg_lgth - 1.

* remove SPACE from position lv_shift_sp + 1

CONCATENATE cv_string(lv_shift_sp) cv_string+lv_shift_end INTO cv_string.

ELSE.

EXIT.

ENDIF.

ENDDO.

ENDIF.

ENDDO.

IF lv_in_apostr = 'X'. " the command was not closed properly

IF iv_log_handle IS INITIAL.

* Message: An ending apostrophe is missing

MESSAGE e005 RAISING missing_aptph.

ELSE.

RAISE missing_aptph.

ENDIF.

IF lv_par_cnt <> 0. " the command was not closed properly

IF iv_log_handle IS INITIAL.

* Message: An closing paranthesis is missing

MESSAGE e059 RAISING missing_parnth.

ELSE.

RAISE missing_parnth.

ENDIF.

ENDMETHOD. "

METHOD select_single_gen.

DATA: lv_keyfield TYPE fieldname,

lr_data TYPE REF TO data,

lv_where TYPE string,

lv_keyval TYPE string.

FIELD-SYMBOLS: <ls_data> TYPE ANY,

<lv_keyval> TYPE ANY,

<ls_keyfields> TYPE ANY.

* create work area

CREATE DATA lr_data TYPE (iv_table_name).

ASSIGN lr_data->* TO <ls_data>.

ASSIGN is_key_value->* TO <ls_keyfields>.

* create WHERE clause

LOOP AT it_keyf_list INTO lv_keyfield.

IF lv_where IS NOT INITIAL.

CONCATENATE lv_where 'AND' INTO lv_where

SEPARATED BY space.

ENDIF.

ASSIGN COMPONENT lv_keyfield OF STRUCTURE <ls_keyfields> TO <lv_keyval>.

lv_keyval = <lv_keyval>.

CONCATENATE lv_where lv_keyfield '= ''' INTO lv_where

SEPARATED BY space.

CONCATENATE lv_where lv_keyval '''' INTO lv_where.

ENDLOOP.

SELECT SINGLE * FROM (iv_table_name) INTO <ls_data>

WHERE (lv_where).

es_record = lr_data.

ENDMETHOD. "

METHOD convert_to_uppercase.

DATA: lt_aptph_pos TYPE lty_zhtdb_sign_pos_tt,

lv_aptph TYPE lty_zhtdb_sign_pos,

lv_char TYPE c,

lv_uppercase TYPE string.

CALL METHOD lcl_toolbox=>parse_aptph

EXPORTING

iv_condense = ' '

iv_log_handle = 'DUMMY'

IMPORTING

et_aptph_pos = lt_aptph_pos

CHANGING

cv_string = cv_string

EXCEPTIONS

missing_aptph = 1

missing_parnth = 2

OTHERS = 3.

LOOP AT lt_aptph_pos INTO lv_aptph.

lv_aptph-position = lv_aptph-position - 1.

lv_char = cv_string+lv_aptph-position(1).

IF lv_aptph-type EQ 'O'.

TRANSLATE lv_char TO UPPER CASE.

ENDIF.

IF lv_char = space.

CONCATENATE lv_uppercase lv_char INTO lv_uppercase SEPARATED BY space. " otherwise the SPACE will be lost ...

ELSE.

CONCATENATE lv_uppercase lv_char INTO lv_uppercase.

ENDIF.

ENDLOOP.

cv_string = lv_uppercase.

ENDMETHOD. "convert_to_uppercase

METHOD pretty_printer.

DATA: ls_source LIKE LINE OF ct_source,

lv_string TYPE string,

lv_tabix TYPE i.

LOOP AT ct_source INTO ls_source.

lv_tabix = sy-tabix.

lv_string = ls_source-line.

CALL METHOD lcl_toolbox=>convert_to_uppercase

CHANGING

cv_string = lv_string.

ls_source-line = lv_string.

MODIFY ct_source FROM ls_source INDEX lv_tabix.

ENDLOOP.

ENDMETHOD. "pretty_printer

METHOD is_client_field.

DATA: lv_datatype TYPE dd03l-datatype,

lv_fieldname TYPE fieldname,

lv_tabname TYPE tabname,

lt_x031l_tab TYPE TABLE OF x031l,

ls_x031l TYPE x031l.

CLEAR ev_client_field.

lv_tabname = iv_tabname.

lv_fieldname = iv_fieldname.

TRANSLATE lv_tabname TO UPPER CASE.

TRANSLATE lv_fieldname TO UPPER CASE.

SELECT SINGLE datatype

FROM dd03l INTO lv_datatype

WHERE tabname = lv_tabname AND

fieldname = lv_fieldname AND

keyflag = 'X'.

IF sy-subrc EQ 0.

CALL FUNCTION 'DD_DICTIONARY_TO_NAMETAB'

EXPORTING

foreign_key = ' '

status = 'A'

tabname = lv_tabname

TABLES

x031l_tab = lt_x031l_tab.

IF sy-subrc EQ 0.

READ TABLE lt_x031l_tab INTO ls_x031l

WITH KEY fieldname = lv_fieldname.

IF ls_x031l-dtyp = 'CLNT' AND ls_x031l-position = 1.

ev_client_field = 'X'.

ENDIF.

ENDMETHOD. "is_client_field

METHOD has_client_field.

DATA: x030l_wa TYPE x030l.

CLEAR ev_has_client_field.

CHECK iv_tabname IS NOT INITIAL.

CALL FUNCTION 'DDIF_FIELDINFO_GET'

EXPORTING

tabname = iv_tabname

IMPORTING

x030l_wa = x030l_wa

EXCEPTIONS

not_found = 1

internal_error = 2

OTHERS = 3.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

IF x030l_wa-clpos NE 0.

ev_has_client_field = 'X'.

ENDIF.

ENDMETHOD. "has_client_field

METHOD pretty_printer_string.

DATA: ls_source LIKE LINE OF ct_source,

lv_tabix TYPE i.

LOOP AT ct_source INTO ls_source.

lv_tabix = sy-tabix.

CALL METHOD lcl_toolbox=>convert_to_uppercase

CHANGING

cv_string = ls_source.

MODIFY ct_source FROM ls_source INDEX lv_tabix.

ENDLOOP.

ENDMETHOD. "pretty_printer_string

METHOD determinte_tab_type.

DATA: lv_tabname TYPE tabname.

* check if it is a transparent table

SELECT SINGLE tabname

INTO lv_tabname FROM dd03vv

WHERE tabname = iv_table AND

tabclass = 'TRANSP' AND

as4local = 'A' AND

fieldname NOT LIKE '.%' AND

fieldname NOT LIKE '*%' AND

fieldname NOT LIKE '$_%' ESCAPE '$' AND

fieldname NOT LIKE '$%%' ESCAPE '$'.

* not transparent table

IF sy-subrc EQ 4.

* check if it is a view

* viewfield instead of fieldname, field alias may be defined in a view!

SELECT SINGLE viewname

INTO lv_tabname FROM dd27s

WHERE viewname = iv_table AND

as4local = 'A' AND

* possible to define * in views to include all fields from a table, and - to exclude a field

viewfield <> '*' AND

viewfield <> '-' AND

fieldname NOT LIKE '.%' AND

fieldname NOT LIKE '*%' AND

fieldname NOT LIKE '$_%' ESCAPE '$' AND

fieldname NOT LIKE '$%%' ESCAPE '$'.

* not a view

IF sy-subrc EQ 4.

* check if it is a Clustered table

SELECT SINGLE dd16s~sqltab

INTO lv_tabname

FROM dd16s INNER JOIN dd06l ON dd06l~sqltab = dd16s~sqltab

WHERE dd16s~sqltab = iv_table AND

dd06l~as4local = 'A' AND

dd06l~sqlclass = 'CLUSTER' AND

dd16s~fieldname NOT LIKE '.%' AND

dd16s~fieldname NOT LIKE '*%' AND

dd16s~fieldname NOT LIKE '$_%' ESCAPE '$' AND

dd16s~fieldname NOT LIKE '$%%' ESCAPE '$'.

* not a Clustered table

IF sy-subrc EQ 4.

* check if it is a Pooled table

SELECT SINGLE dd16s~sqltab

INTO lv_tabname

FROM dd16s INNER JOIN dd06l ON dd06l~sqltab = dd16s~sqltab

WHERE dd16s~sqltab = iv_table AND

dd06l~sqlclass = 'POOL' AND

dd06l~as4local = 'A' AND

dd16s~fieldname NOT LIKE '.%' AND

dd16s~fieldname NOT LIKE '*%' AND

dd16s~fieldname NOT LIKE '$_%' ESCAPE '$' AND

dd16s~fieldname NOT LIKE '$%%' ESCAPE '$'.

* not a Pooled table

IF sy-subrc EQ 4.

RAISE table_not_exist.

* it is a Pooled table

ELSE.

ev_type = 'P'.

ENDIF.

* it is a Clustered table

ELSE.

ev_type = 'C'.

* CLEAR mv_can_edit.

ENDIF.

* it is a view

ELSE.

ev_type = 'V'.

* DATA: lv_viewgrant TYPE dd25l-viewgrant.

* SELECT SINGLE viewgrant

* INTO lv_viewgrant

* FROM dd25l

* WHERE viewname = iv_table AND

* as4local = 'A'.

* IF sy-subrc EQ 0.

* IF lv_viewgrant EQ 'R'.

* CLEAR mv_can_edit.

* ENDIF.

ENDIF.

* it is a transparent table

ELSE.

ev_type = 'T'.

ENDIF.

ENDMETHOD. "determinte_tab_type

ENDCLASS. "LCL_TOOLBOX IMPLEMENTATION

*----------------------------------------------------------------------*

* CLASS lcl_lawb DEFINITION

*----------------------------------------------------------------------*

CLASS lcl_lawb DEFINITION.

PUBLIC SECTION.

ENDCLASS. "lcl_lawb DEFINITION

*----------------------------------------------------------------------*

* CLASS lcl_lawb IMPLEMENTATION

*----------------------------------------------------------------------*

CLASS lcl_lawb IMPLEMENTATION.

ENDCLASS. "lcl_lawb IMPLEMENTATION

*----------------------------------------------------------------------*

* CLASS lcl_select_fae_command DEFINITION

*----------------------------------------------------------------------*

CLASS lcl_select_fae_command DEFINITION.

PUBLIC SECTION.

ENDCLASS. "lcl_select_fae_command DEFINITION

*----------------------------------------------------------------------*

* CLASS lcl_select_fae_command IMPLEMENTATION

*----------------------------------------------------------------------*

CLASS lcl_select_fae_command IMPLEMENTATION.

ENDCLASS. "lcl_select_fae_command IMPLEMENTATION

*----------------------------------------------------------------------*

* CLASS lcl_update_command DEFINITION

*----------------------------------------------------------------------*

CLASS lcl_update_command DEFINITION.

PUBLIC SECTION.

ENDCLASS. "lcl_update_command DEFINITION

*----------------------------------------------------------------------*

* CLASS lcl_update_command IMPLEMENTATION

*----------------------------------------------------------------------*

CLASS lcl_update_command IMPLEMENTATION.

ENDCLASS. "lcl_update_command IMPLEMENTATION

*----------------------------------------------------------------------*

* CLASS lcl_delete_command DEFINITION

*----------------------------------------------------------------------*

CLASS lcl_delete_command DEFINITION.

PUBLIC SECTION.

ENDCLASS. "lcl_delete_command DEFINITION

*----------------------------------------------------------------------*

* CLASS lcl_delete_command IMPLEMENTATION

*----------------------------------------------------------------------*

CLASS lcl_delete_command IMPLEMENTATION.

ENDCLASS. "lcl_delete_command IMPLEMENTATION

*----------------------------------------------------------------------*

* CLASS LCL_HTDB_CL_COMMAND DEFINITION

*----------------------------------------------------------------------*

CLASS lcl_htdb_cl_command DEFINITION.

*"* public components of class lcl_htdb_cl_command

*"* do not include other source files here!!!

PUBLIC SECTION.

TYPES: BEGIN OF lty_zhdb_vrange,

alias TYPE tabname,

rsds_range TYPE rsds_range,

END OF lty_zhdb_vrange.

TYPES: lty_zhdb_vrange_tab TYPE STANDARD TABLE OF lty_zhdb_vrange.

METHODS create_new

IMPORTING

!iv_command_id TYPE lty_commandid OPTIONAL

!iv_command TYPE string

!it_vranges TYPE lty_zhdb_vrange_tab OPTIONAL

!iv_log_handle TYPE balloghndl OPTIONAL

!iv_test_from_file TYPE c OPTIONAL

EXCEPTIONS

no_id .

METHODS is_client_spec

RETURNING

value(ev_cspec) TYPE flag .

METHODS constructor

EXCEPTIONS

no_id .

METHODS get_id

EXPORTING

!ev_id TYPE guid_32 .

METHODS execute

IMPORTING

!iv_simulation TYPE flag OPTIONAL

!iv_bg_proc TYPE flag OPTIONAL

!iv_bg_date TYPE tbtcjob-sdlstrtdt OPTIONAL

!iv_bg_time TYPE tbtcjob-sdlstrttm OPTIONAL

EXPORTING

value(er_result) TYPE REF TO data

!ev_dbcnt TYPE sy-dbcnt

value(er_lock_argument) TYPE REF TO data

!er_exc TYPE REF TO cx_root

!ev_job_name TYPE btcjob

!ev_job_count TYPE btcjobcnt

!et_srccode TYPE lty_zhtdbt_string_tab

EXCEPTIONS

parse_error

exec_error

job_submit_error

table_locked

no_auth_for_table

no_auth_for_columns .

METHODS parse

EXCEPTIONS

parse_error

no_auth_for_table .

METHODS get_message_dropped

RETURNING

value(ev_message_dropped) TYPE char1 .

METHODS get_where

RETURNING

value(es_where) TYPE lty_zhtdb_keyword .

METHODS get_command

RETURNING

value(ev_command) TYPE string .

TYPE-POOLS rsds .

*"* protected components of class lcl_htdb_cl_command

*"* do not include other source files here!!!

PROTECTED SECTION.

TYPES gty_keyword TYPE lty_zhtdb_keyword .

DATA mv_command_id TYPE lty_commandid .

DATA mv_parsed TYPE flag .

DATA mv_prog_id TYPE guid_32. "lty_gen_prog_nro .

DATA mv_command TYPE string .

DATA mt_vranges TYPE lty_zhdb_vrange_tab .

DATA:

mt_keywords TYPE STANDARD TABLE OF gty_keyword .

DATA mt_aptph_pos TYPE lty_zhtdb_sign_pos_tt .

CONSTANTS mc_prog_prefix TYPE string VALUE 'Z'. " 'ZENITH_'. "#EC NOTEXT

DATA mv_log_handle TYPE balloghndl .

DATA ms_s_msg TYPE bal_s_msg .

DATA mv_test_from_file TYPE c .

DATA mv_message_dropped TYPE char1 .

DATA mt_paranth TYPE lty_zhtdb_sign_pos_tt .

DATA mt_query_depth TYPE lty_zhtdb_sign_pos_tt .

DATA mv_jobname TYPE btcjob .

DATA mv_jobcount TYPE btcjobcnt .

DATA mv_command_id_ui TYPE lty_commandid .

METHODS call_gen_form

IMPORTING

!iv_program TYPE programm

!iv_bg_proc TYPE flag OPTIONAL

!iv_bg_date TYPE tbtcjob-sdlstrtdt OPTIONAL

!iv_bg_time TYPE tbtcjob-sdlstrttm OPTIONAL

EXPORTING

!ev_dbcnt TYPE sy-dbcnt

value(er_result) TYPE REF TO data

value(er_lock_argument) TYPE REF TO data

!er_exc TYPE REF TO cx_root

EXCEPTIONS

error

job_submit_error

table_locked .

METHODS create_program

IMPORTING

!iv_program TYPE programm

!it_srccode TYPE lty_zhtdbt_string_tab

!iv_force_insert_report TYPE c OPTIONAL

EXPORTING

!ev_msg TYPE string

!ev_line TYPE int4

EXCEPTIONS

syntax_error

internal_error .

METHODS det_subquery .

METHODS execute_int

IMPORTING

!iv_simulation TYPE flag OPTIONAL

!iv_bg_proc TYPE flag OPTIONAL

!iv_bg_date TYPE tbtcjob-sdlstrtdt OPTIONAL

!iv_bg_time TYPE tbtcjob-sdlstrttm OPTIONAL

EXPORTING

!ev_dbcnt TYPE sy-dbcnt

value(er_result) TYPE REF TO data

value(er_lock_argument) TYPE REF TO data

!er_exc TYPE REF TO cx_root

!et_srccode TYPE lty_zhtdbt_string_tab

EXCEPTIONS

syntax_error

error

job_submit_error

table_locked

no_auth_for_columns .

METHODS generate_srccode

EXPORTING

value(et_srccode) TYPE lty_zhtdbt_string_tab

EXCEPTIONS

error

no_auth_for_columns .

METHODS generate_vranges

EXPORTING

!et_srccode TYPE lty_zhtdbt_string_tab .

METHODS parse_keywords

EXCEPTIONS

missing_keyword

wrong_position

wrong_keyword .

METHODS parse_check_dot

EXCEPTIONS

parse_error .

METHODS split_string

IMPORTING

!iv_string TYPE string

EXPORTING

value(et_words) TYPE lty_zhtdbt_string_tab .

METHODS add_message

IMPORTING

!iv_msgty TYPE symsgty

!iv_msgid TYPE symsgid

!iv_msgno TYPE symsgno

!iv_msgv1 TYPE any OPTIONAL

!iv_msgv2 TYPE any OPTIONAL

!iv_msgv3 TYPE any OPTIONAL

!iv_msgv4 TYPE any OPTIONAL .

TYPE-POOLS rsds .

ENDCLASS. "LCL_HTDB_CL_COMMAND DEFINITION

*----------------------------------------------------------------------*

* CLASS lcl_HTDB_CL_COMMAND IMPLEMENTATION

*----------------------------------------------------------------------*

CLASS lcl_htdb_cl_command IMPLEMENTATION.

METHOD call_gen_form.

* calls the generated program to execute the command

DATA: lx_root TYPE REF TO cx_root,

lv_locked TYPE flag.

* execute command

TRY.

PERFORM exec_command IN PROGRAM (iv_program)

TABLES mt_vranges

CHANGING lv_locked

ev_dbcnt.

CATCH cx_root INTO lx_root.

* Message: Internal error: generated program could not be called

MESSAGE e003 RAISING error.

ENDTRY.

IF lv_locked = 'X'.

* Message: Table could not be locked

MESSAGE e146 RAISING table_locked.

ENDIF.

ENDMETHOD. "

METHOD create_program.

* creates a repository program, which includes the command

DATA: lv_program TYPE programm,

lv_msg TYPE string,

lv_line TYPE n,

lv_word TYPE char50,

lt_str TYPE TABLE OF string,

ls_trdir TYPE trdir,

lv_str1 TYPE string,

lv_str2 TYPE string,

lv_str3 TYPE string,

lv_str4 TYPE string.

IF iv_program IS INITIAL.

RETURN.

ELSE.

lv_program = iv_program.

ENDIF.

* syntax check

SYNTAX-CHECK FOR it_srccode

MESSAGE lv_msg

LINE lv_line

WORD lv_word

PROGRAM 'ZENITH_GENERATED_SQ'.

IF sy-subrc = 4.

ev_line = lv_line.

ev_msg = lv_msg.

IF mv_log_handle IS INITIAL.

MESSAGE lv_msg TYPE 'I' DISPLAY LIKE 'E'.

MESSAGE e019 RAISING syntax_error.

ELSE.

* split message to four parts (for four placeholders)

CALL METHOD lcl_toolbox=>split_string

EXPORTING

iv_log_handle = mv_log_handle

iv_string = lv_msg

iv_maxlen = 50

IMPORTING

et_string_tab = lt_str.

READ TABLE lt_str INTO lv_str1 INDEX 1.

READ TABLE lt_str INTO lv_str2 INDEX 2.

READ TABLE lt_str INTO lv_str3 INDEX 3.

READ TABLE lt_str INTO lv_str4 INDEX 4.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '085' iv_msgv1 = lv_str1

iv_msgv2 = lv_str2 iv_msgv3 = lv_str3 iv_msgv4 = lv_str4 ).

IF iv_force_insert_report EQ 'X'.

* create program in repository

TRANSLATE lv_program TO UPPER CASE. "#EC TRANSLANG

INSERT REPORT lv_program FROM it_srccode.

ENDIF.

RAISE syntax_error.

ENDIF.

ELSEIF sy-subrc = 8.

* Message: Internal error during syntax check

IF mv_log_handle IS INITIAL.

MESSAGE e002 RAISING internal_error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '002' ).

RAISE internal_error.

ENDIF.

* create program in repository

TRANSLATE lv_program TO UPPER CASE. "#EC TRANSLANG

lt_str[] = it_srccode[].

CALL METHOD lcl_toolbox=>pretty_printer_string

CHANGING

ct_source = lt_str.

ls_trdir-subc = '1'.

ls_trdir-fixpt = 'X'.

ls_trdir-uccheck = 'X'.

INSERT REPORT lv_program FROM lt_str DIRECTORY ENTRY ls_trdir.

* mert a zsql futtataskor torli a nem lockoltakat!

CALL FUNCTION 'ENQUEUE_ES_PROG'

EXPORTING

mode_trdir = 'E'

name = lv_program

* X_NAME = ' '

* _SCOPE = '2'

* _WAIT = ' '

* _COLLECT = ' '

EXCEPTIONS

foreign_lock = 1

system_failure = 2

OTHERS = 3.

IF sy-subrc <> 0.

IF mv_log_handle IS INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ELSE.

CALL METHOD add_message( iv_msgty = sy-msgty iv_msgid = sy-msgid iv_msgno = sy-msgno

iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).

RAISE internal_error.

ENDIF.

ENDMETHOD. "

METHOD det_subquery.

DATA: lv_str_lgth TYPE i,

lt_query_depth LIKE mt_query_depth,

ls_query_depth LIKE LINE OF mt_query_depth,

ls_depth_old LIKE LINE OF mt_query_depth,

ls_depth_new LIKE LINE OF mt_query_depth,

lv_act_depth TYPE i,

ls_aptph LIKE LINE OF mt_aptph_pos,

lv_shift TYPE i,

lv_position TYPE i,

lv_subq_end TYPE i,

lt_subq_end TYPE STANDARD TABLE OF i,

lv_depth_old TYPE i,

lv_depth_new TYPE i.

IF mv_command IS INITIAL.

RETURN.

ENDIF.

lv_str_lgth = STRLEN( mv_command ).

lv_act_depth = 1.

lv_subq_end = lv_str_lgth.

APPEND lv_subq_end TO lt_subq_end.

* init lt_query_depth

ls_query_depth-position = 1.

ls_query_depth-type = 1.

APPEND ls_query_depth TO lt_query_depth.

ls_query_depth-position = lv_str_lgth.

ls_query_depth-type = -1.

APPEND ls_query_depth TO lt_query_depth.

DO.

lv_shift = lv_position + 1.

SEARCH mv_command

FOR '. ( SELECT .'

STARTING AT lv_shift.

IF sy-subrc EQ 0.

lv_position = sy-fdpos + lv_shift + 1.

READ TABLE mt_aptph_pos INTO ls_aptph

WITH KEY position = lv_position.

IF ls_aptph-type = 'O'. " it's not inside a text => found a new subquery

* determine depth of the suqquery

LOOP AT lt_subq_end INTO lv_subq_end.

IF lv_position < lv_subq_end.

lv_act_depth = lv_act_depth + 1.

EXIT.

ELSE.

lv_act_depth = lv_act_depth - 1.

DELETE lt_subq_end.

ENDIF.

ENDLOOP.

* mark beginning of the subqery

ls_query_depth-position = lv_position.

ls_query_depth-type = lv_act_depth.

APPEND ls_query_depth TO lt_query_depth.

* find end of the suqery

READ TABLE mt_paranth INTO ls_aptph

WITH KEY position = lv_position.

IF sy-subrc = 0.

* now ls_aptph-type is the depth of the (

* find the closing paranthesis - the next with the same depth

lv_shift = sy-tabix + 1.

LOOP AT mt_paranth FROM lv_shift INTO ls_aptph

WHERE type = ls_aptph-type.

lv_subq_end = ls_aptph-position.

INSERT lv_subq_end INTO lt_subq_end INDEX 1.

EXIT.

ENDLOOP.

ENDIF.

* mark end of subqery -> use negative numbers!!

ls_query_depth-position = lv_subq_end.

ls_query_depth-type = - lv_act_depth.

APPEND ls_query_depth TO lt_query_depth.

ENDIF.

ELSE.

EXIT.

ENDIF.

ENDDO.

SORT lt_query_depth BY position.

* complete query_depth table

READ TABLE lt_query_depth INTO ls_depth_old INDEX 1.

lv_act_depth = 1.

LOOP AT lt_query_depth INTO ls_query_depth.

* determine depth

lv_depth_old = ls_depth_old-type.

lv_depth_new = ls_query_depth-type.

IF ABS( lv_depth_old ) = ABS( lv_depth_new ).

IF lv_depth_old < lv_depth_new. " between two subquerys on the same level

lv_act_depth = lv_depth_new - 1.

ELSE.

lv_act_depth = lv_depth_old. " within one subquery

ENDIF.

ELSE.

IF lv_depth_old < lv_depth_new. " between subquery and new subquery, one level deeper

lv_act_depth = lv_depth_old.

ELSEIF lv_depth_old > lv_depth_new. " between closed subquery and subquery one level higher

lv_act_depth = - lv_depth_new.

ENDIF.

* complete missing positions

lv_position = ls_depth_old-position + 1.

WHILE ls_query_depth-position > lv_position.

ls_depth_new-position = lv_position.

ls_depth_new-type = lv_act_depth.

APPEND ls_depth_new TO mt_query_depth.

lv_position = lv_position + 1.

ENDWHILE.

ls_query_depth-type = ABS( ls_query_depth-type ).

APPEND ls_query_depth TO mt_query_depth.

ls_depth_old = ls_query_depth.

ENDLOOP.

ENDMETHOD. "

METHOD execute_int.

* execute command

DATA: lt_srccode TYPE lty_zhtdbt_string_tab,

lv_line TYPE string,

lv_force_insert_report TYPE c,

lv_program TYPE programm.

* create source code of the program

CALL METHOD generate_srccode

IMPORTING

et_srccode = lt_srccode

EXCEPTIONS

no_auth_for_columns = 1

error = 2

OTHERS = 3.

IF sy-subrc = 1.

MESSAGE e148 RAISING no_auth_for_columns.

ELSEIF ( sy-subrc = 2 ) OR ( sy-subrc = 3 ).

IF mv_log_handle IS INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno

iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).

RAISE error.

ENDIF.

* program name

lv_line = mv_prog_id.

CONCATENATE mc_prog_prefix lv_line INTO lv_program.

lv_program = lv_program(30).

IF mv_log_handle IS INITIAL.

CLEAR lv_force_insert_report.

ELSE.

lv_force_insert_report = 'X'.

ENDIF.

* create program in the repository

CALL METHOD create_program

EXPORTING

iv_program = lv_program

it_srccode = lt_srccode

iv_force_insert_report = lv_force_insert_report

EXCEPTIONS

syntax_error = 1

internal_error = 2

OTHERS = 3.

IF sy-subrc <> 0.

IF mv_log_handle IS INITIAL.

IF sy-subrc <> 1.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING error.

ELSE.

* the syntax check displayed the error already!

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING syntax_error.

ENDIF.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno

iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).

IF sy-subrc <> 1.

RAISE error.

ELSE.

RAISE syntax_error.

ENDIF.

IF iv_simulation IS INITIAL.

* call generated program

CALL METHOD call_gen_form

EXPORTING

iv_program = lv_program

iv_bg_proc = iv_bg_proc

iv_bg_date = iv_bg_date

iv_bg_time = iv_bg_time

IMPORTING

er_result = er_result

ev_dbcnt = ev_dbcnt

er_lock_argument = er_lock_argument

er_exc = er_exc

EXCEPTIONS

job_submit_error = 1

table_locked = 2

OTHERS = 3.

IF sy-subrc = 1.

IF mv_log_handle IS INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING job_submit_error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno

iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).

RAISE job_submit_error.

ENDIF.

IF sy-subrc = 2.

IF mv_log_handle IS INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING table_locked.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno

iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).

RAISE table_locked.

ENDIF.

IF sy-subrc = 3.

IF mv_log_handle IS INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno

iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).

RAISE error.

ENDIF.

IF mv_log_handle IS NOT INITIAL.

* if error occurred, keep the program

IF ms_s_msg IS INITIAL.

* delete program from the repository

CALL FUNCTION 'RS_DELETE_PROGRAM'

EXPORTING

program = lv_program

suppress_checks = 'X'

suppress_popup = 'X'

with_includes = ' '

with_cua = ' '

with_documentation = ' '

with_dynpro = ' '

with_textpool = ' '

skip_progress_ind = 'X'

EXCEPTIONS

enqueue_lock = 1

object_not_found = 2

permission_failure = 3

reject_deletion = 4

OTHERS = 5.

IF sy-subrc <> 0.

IF mv_log_handle IS INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno

iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).

RAISE error.

ENDIF.

et_srccode = lt_srccode.

ENDMETHOD. "

METHOD create_new.

DATA: lv_returncode TYPE inri-returncode.

CLEAR: mv_prog_id.

mv_command_id = iv_command_id.

*** get program ID from number range

** CALL FUNCTION 'NUMBER_GET_NEXT'

** EXPORTING

** nr_range_nr = '01'

** object = 'ZHTDB_PROG'

** ignore_buffer = 'X'

** IMPORTING

** number = mv_prog_id

** returncode = lv_returncode

** EXCEPTIONS

** OTHERS = 1.

CALL FUNCTION 'GUID_CREATE'

IMPORTING

ev_guid_32 = mv_prog_id.

IF sy-subrc <> 0.

IF mv_log_handle IS INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING no_id.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno

iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).

RAISE no_id.

ENDIF.

ELSE.

IF lv_returncode IS NOT INITIAL.

IF mv_log_handle IS INITIAL.

MESSAGE ID sy-msgid TYPE 'S' NUMBER '116' DISPLAY LIKE 'E'

WITH lv_returncode sy-msgv2 sy-msgv3 sy-msgv4

RAISING no_id.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '116'

iv_msgv1 = lv_returncode ).

RAISE no_id.

ENDIF.

ELSE.

COMMIT WORK.

ENDIF.

* clear attributes

CLEAR mv_command.

CLEAR mt_aptph_pos.

CLEAR mt_paranth.

CLEAR mt_keywords.

CLEAR mt_vranges.

CLEAR mv_parsed.

CLEAR ms_s_msg.

* take over data

mv_command = iv_command. " Open SQL command

SHIFT mv_command RIGHT DELETING TRAILING '. '.

mt_vranges = it_vranges. " value ranges for the WHERE clause

mv_log_handle = iv_log_handle. " Application Log handle. If supplied, no messages given.

* If select commands are loaded from file, some messages are suppressed in add_message

mv_test_from_file = iv_test_from_file.

* if a message is suppressed, this indicator is set, so no messages are logged from outside (ZSQL)

CLEAR mv_message_dropped.

ENDMETHOD. "

METHOD generate_srccode.

* generates a program source code, which includes the command

DATA: ls_keyword LIKE LINE OF mt_keywords,

lv_tabname TYPE tabname,

lv_program TYPE programm,

lv_line TYPE string,

lv_tmp TYPE string.

*****************************************************************************************

* create source code for the program

* build program name

lv_tmp = mv_prog_id.

CONCATENATE mc_prog_prefix lv_tmp INTO lv_program.

lv_line = 'PROGRAM'.

CONCATENATE lv_line lv_program '.' INTO lv_line

SEPARATED BY space.

APPEND lv_line TO et_srccode.

APPEND INITIAL LINE TO et_srccode.

APPEND ' TYPE-POOLS: rsds.' TO et_srccode.

APPEND INITIAL LINE TO et_srccode.

* FORM

APPEND 'FORM exec_command TABLES pt_vranges CHANGING p_locked p_dbcnt.' TO et_srccode.

APPEND ' DATA: lv_lock_argument(150) TYPE c,' TO et_srccode.

APPEND ' lv_table TYPE tabname.' TO et_srccode.

APPEND INITIAL LINE TO et_srccode.

* create value range tables

IF mt_vranges IS NOT INITIAL.

generate_vranges( IMPORTING et_srccode = et_srccode ).

ENDIF.

* insert command

APPEND mv_command TO et_srccode.

APPEND '.' TO et_srccode.

* save SY-DBCNT

APPEND ' p_dbcnt = sy-dbcnt.' TO et_srccode.

APPEND 'ENDFORM.' TO et_srccode.

ENDMETHOD. "

METHOD generate_vranges.

DATA: ls_vrange LIKE LINE OF mt_vranges,

ls_range TYPE rsds_range,

ls_frange TYPE rsds_frange,

lv_line TYPE string,

lv_index_vr TYPE sy-tabix,

lv_index_fr TYPE sy-tabix.

APPEND INITIAL LINE TO et_srccode.

* work area for value range entries

APPEND ' TYPES: BEGIN OF lty_zhdb_vrange,' TO et_srccode.

APPEND ' alias TYPE tabname,' TO et_srccode.

APPEND ' rsds_range TYPE rsds_range,' TO et_srccode.

APPEND ' END OF lty_zhdb_vrange.' TO et_srccode.

APPEND INITIAL LINE TO et_srccode.

APPEND ' TYPES: lty_zhdb_vrange_tab TYPE STANDARD TABLE OF lty_zhdb_vrange.' TO et_srccode.

APPEND INITIAL LINE TO et_srccode.

APPEND ' DATA: ls_vrange TYPE lty_zhdb_vrange,' TO et_srccode.

APPEND ' ls_frange TYPE rsds_frange.' TO et_srccode.

LOOP AT mt_vranges INTO ls_vrange.

lv_index_vr = sy-tabix.

LOOP AT ls_vrange-rsds_range-frange_t INTO ls_frange.

lv_index_fr = sy-tabix.

* define new value range table

CONCATENATE ' DATA: r_' ls_vrange-alias '_' ls_frange-fieldname INTO lv_line.

CONCATENATE lv_line 'TYPE RSDS_SELOPT_T.' INTO lv_line

SEPARATED BY space.

APPEND lv_line TO et_srccode.

lv_line = lv_index_vr.

* take over content

CONCATENATE ' READ TABLE pt_vranges INDEX' lv_line 'INTO ls_vrange.' INTO lv_line

SEPARATED BY space.

APPEND lv_line TO et_srccode.

lv_line = lv_index_fr.

CONCATENATE ' READ TABLE ls_vrange-rsds_range-frange_t INDEX' lv_line 'INTO ls_frange.' INTO lv_line

SEPARATED BY space.

APPEND lv_line TO et_srccode.

CONCATENATE ' r_' ls_vrange-alias '_' ls_frange-fieldname INTO lv_line.

CONCATENATE lv_line '= ls_frange-selopt_t.' INTO lv_line

SEPARATED BY space.

APPEND lv_line TO et_srccode.

APPEND INITIAL LINE TO et_srccode.

ENDLOOP.

ENDMETHOD. "

METHOD parse_keywords.

* extracts keywords of the command and fills up the MT_KEYWORDS table

DATA: lv_keyword TYPE string,

lv_search_str TYPE string,

ls_prev_keyword TYPE gty_keyword,

ls_next_keyword TYPE gty_keyword,

lv_length TYPE i,

lv_position TYPE i,

lv_ends_at TYPE i,

lv_lines TYPE i,

lv_index TYPE i,

lv_shift TYPE i,

lv_delta TYPE i,

ls_aptph LIKE LINE OF mt_aptph_pos.

FIELD-SYMBOLS: <ls_keyword> TYPE gty_keyword.

* determine subquerys

det_subquery( ).

************************************************************************

* get keywords

lv_length = STRLEN( mv_command ).

* search for keywords

LOOP AT mt_keywords ASSIGNING <ls_keyword>.

lv_keyword = <ls_keyword>-keyword.

CONCATENATE '.' lv_keyword '.' INTO lv_search_str

SEPARATED BY space.

CLEAR lv_position.

DO.

lv_shift = lv_position + 1.

SEARCH mv_command

FOR lv_search_str

STARTING AT lv_shift.

IF sy-subrc EQ 0.

lv_position = sy-fdpos + lv_shift + 1.

lv_ends_at = lv_position + STRLEN( lv_keyword ) - 1.

READ TABLE mt_aptph_pos INTO ls_aptph

WITH KEY position = lv_position.

IF ls_aptph-type = 'O'. " it's not inside a text

READ TABLE mt_query_depth INTO ls_aptph

WITH KEY position = lv_position.

IF ls_aptph-type = 1. " top level, not a subquery

* keyword found

<ls_keyword>-begins_at = lv_position.

<ls_keyword>-ends_at = lv_ends_at.

IF <ls_keyword>-order_pos = 1 AND

<ls_keyword>-begins_at <> 2.

IF mv_log_handle IS INITIAL.

* Message: Command does not begin with the keyword '&1'

MESSAGE e088 WITH lv_keyword

RAISING missing_keyword.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '088' iv_msgv1 = lv_keyword ).

RAISE missing_keyword.

ENDIF.

EXIT.

ENDIF.

ELSE.

* keyword not found at all

CLEAR lv_position.

EXIT.

ENDIF.

ENDDO.

IF lv_position IS INITIAL AND

<ls_keyword>-required = 'X'. " required keyword

IF mv_log_handle IS INITIAL.

* Message: Keyword '&1' is missing

MESSAGE e006 WITH lv_keyword

RAISING missing_keyword.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '006' iv_msgv1 = lv_keyword ).

RAISE missing_keyword.

ENDIF.

ENDLOOP.

************************************************************************

* check positions

* delete keywords, which are not defined in the current command

DELETE mt_keywords WHERE begins_at IS INITIAL.

SORT mt_keywords BY begins_at.

LOOP AT mt_keywords ASSIGNING <ls_keyword>.

IF ls_prev_keyword-order_pos > <ls_keyword>-order_pos.

IF mv_log_handle IS INITIAL.

* Message: Wrong order of keywords: &1 on wrong position

MESSAGE e018 WITH <ls_keyword>-keyword

RAISING wrong_position.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '006' iv_msgv1 = ls_prev_keyword-keyword ).

RAISE wrong_position.

ENDIF.

ls_prev_keyword = <ls_keyword>.

ENDLOOP.

************************************************************************

* get texts

* MOVED before loop above: why loop through obsolete records?

** delete keywords, which are not defined in the current command

* LOOP AT mt_keywords ASSIGNING <ls_keyword>

* WHERE begins_at IS INITIAL.

* DELETE mt_keywords.

* ENDLOOP.

DESCRIBE TABLE mt_keywords LINES lv_lines.

* get texts

LOOP AT mt_keywords ASSIGNING <ls_keyword>.

lv_index = sy-tabix + 1.

IF lv_index <= lv_lines. " til the position of the next keyword

READ TABLE mt_keywords INTO ls_next_keyword

INDEX lv_index.

lv_shift = <ls_keyword>-ends_at + 1.

lv_delta = ls_next_keyword-begins_at - lv_shift - 1.

ELSE. " til the end of the command

lv_shift = <ls_keyword>-ends_at + 1.

lv_delta = lv_length - lv_shift.

ENDIF.

MOVE mv_command+lv_shift(lv_delta) TO <ls_keyword>-text. " trim text

lv_index = lv_index - 1.

MODIFY mt_keywords INDEX lv_index FROM <ls_keyword>.

ENDLOOP.

ENDMETHOD. "

METHOD parse_check_dot.

* check that there is no new command after a closing dot

DATA: lv_strg_lgth TYPE i,

lv_char TYPE c,

lv_shift TYPE i,

lv_end TYPE c,

ls_aptph LIKE LINE OF mt_aptph_pos.

IF mv_command IS INITIAL.

RETURN.

ENDIF.

lv_strg_lgth = STRLEN( mv_command ).

* check dots

DO.

lv_char = mv_command+lv_shift(1).

IF lv_end = 'X' AND

lv_char IS NOT INITIAL.

IF mv_log_handle IS INITIAL.

* Message: 'Don''t write any commands after the closing dot'

MESSAGE e001 RAISING parse_error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '001' ).

RAISE parse_error.

ENDIF.

IF lv_char = '.'.

* check that the dot is not inside a text

READ TABLE mt_aptph_pos INTO ls_aptph

WITH KEY position = lv_shift.

IF ls_aptph-type = 'O'. " outside a text

lv_end = 'X'. " the dot closes the command

ENDIF.

lv_shift = lv_shift + 1.

IF lv_shift >= lv_strg_lgth.

EXIT.

ENDIF.

ENDDO.

ENDMETHOD. "

METHOD is_client_spec.

DATA: ls_keyword LIKE LINE OF mt_keywords.

READ TABLE mt_keywords INTO ls_keyword

WITH KEY keyword = 'CLIENT SPECIFIED'.

IF ls_keyword-begins_at IS NOT INITIAL.

ev_cspec = 'X'.

ENDIF.

ENDMETHOD. "

METHOD split_string.

* splits a string at SPACE, but outside apostrophes only

DATA: lv_string TYPE string,

lt_aptph_pos LIKE mt_aptph_pos,

lv_length TYPE i,

lv_shift TYPE i,

lv_pos TYPE i,

lv_char TYPE c,

lv_word TYPE string,

ls_aptph LIKE LINE OF mt_aptph_pos.

lv_string = iv_string.

lcl_toolbox=>parse_aptph(

EXPORTING

iv_condense = space

IMPORTING

et_aptph_pos = lt_aptph_pos

CHANGING

cv_string = lv_string ).

* get words

lv_shift = -1.

lv_length = STRLEN( iv_string ).

DO.

lv_shift = lv_shift + 1.

IF lv_shift >= lv_length.

EXIT.

ENDIF.

lv_char = iv_string+lv_shift(1).

IF lv_char = space.

lv_pos = lv_shift + 1.

READ TABLE lt_aptph_pos INTO ls_aptph

WITH KEY position = lv_pos.

IF ls_aptph-type = 'O'.

IF lv_word IS NOT INITIAL.

APPEND lv_word TO et_words.

CLEAR lv_word.

ENDIF.

CONTINUE.

ENDIF.

CONCATENATE lv_word lv_char INTO lv_word.

ENDDO.

* the last word

IF lv_word IS NOT INITIAL.

APPEND lv_word TO et_words.

ENDIF.

ENDMETHOD. "

METHOD add_message.

IF iv_msgid = 'SD' AND iv_msgno = 94.

RETURN.

ELSEIF iv_msgid = 'FL' AND iv_msgno = 714.

RETURN.

ELSEIF iv_msgid = 'VSCAN' AND iv_msgno = 33.

RETURN.

ELSEIF iv_msgid = 'E4' AND iv_msgno = '035'.

RETURN.

ENDIF.

IF mv_test_from_file EQ 'X'.

IF iv_msgid = 'ZSQL_FREE'.

IF iv_msgno = 14 OR iv_msgno = 68 OR iv_msgno = 16 OR iv_msgno = 36 OR iv_msgno = 8.

mv_message_dropped = 'X'.

RETURN.

ENDIF.

CLEAR ms_s_msg.

ms_s_msg-msgid = iv_msgid.

ms_s_msg-msgno = iv_msgno.

ms_s_msg-msgv1 = iv_msgv1.

ms_s_msg-msgv2 = iv_msgv2.

ms_s_msg-msgv3 = iv_msgv3.

ms_s_msg-msgv4 = iv_msgv4.

IF ms_s_msg IS INITIAL.

RETURN.

ENDIF.

CONDENSE: ms_s_msg-msgv1, ms_s_msg-msgv2, ms_s_msg-msgv3, ms_s_msg-msgv4.

ms_s_msg-msgty = iv_msgty.

CALL FUNCTION 'BAL_LOG_MSG_ADD'

EXPORTING

i_log_handle = mv_log_handle

i_s_msg = ms_s_msg

EXCEPTIONS

OTHERS = 1.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

ENDMETHOD. "add_message

METHOD constructor.

ENDMETHOD. "

METHOD get_id.

ev_id = mv_prog_id.

ENDMETHOD. "

METHOD execute.

* execute command

IF mv_command IS INITIAL.

RETURN.

ENDIF.

* parse command if needed

IF mv_parsed IS INITIAL.

CALL METHOD parse

EXCEPTIONS

OTHERS = 1.

IF sy-subrc <> 0.

IF mv_log_handle IS INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING parse_error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno

iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).

RAISE parse_error.

ENDIF.

* execute command

CALL METHOD execute_int

EXPORTING

iv_simulation = iv_simulation

iv_bg_proc = iv_bg_proc

iv_bg_date = iv_bg_date

iv_bg_time = iv_bg_time

* it_selscr_fields = it_selscr_fields

IMPORTING

er_result = er_result

ev_dbcnt = ev_dbcnt

er_lock_argument = er_lock_argument

er_exc = er_exc

et_srccode = et_srccode

EXCEPTIONS

error = 1

syntax_error = 2

job_submit_error = 3

table_locked = 4

no_auth_for_columns = 5

OTHERS = 6.

CASE sy-subrc.

WHEN 1.

IF mv_log_handle IS INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING exec_error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno

iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).

RAISE exec_error.

ENDIF.

WHEN 2.

IF mv_log_handle IS INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING parse_error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno

iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).

RAISE parse_error.

ENDIF.

WHEN 3.

IF mv_log_handle IS INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING job_submit_error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno

iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).

RAISE job_submit_error.

ENDIF.

WHEN 4.

IF mv_log_handle IS INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING table_locked.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno

iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).

RAISE table_locked.

ENDIF.

WHEN 5.

IF mv_log_handle IS INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING no_auth_for_columns.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno

iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).

RAISE no_auth_for_columns.

ENDIF.

ENDCASE.

ev_job_name = mv_jobname.

ev_job_count = mv_jobcount.

ENDMETHOD. "

METHOD parse.

* parse command and execute checks

IF mv_parsed = 'X'.

RETURN.

ELSE.

mv_parsed = 'X'.

ENDIF.

* check apostrophes

CLEAR mt_aptph_pos.

CALL METHOD lcl_toolbox=>parse_aptph

EXPORTING

iv_log_handle = mv_log_handle

IMPORTING

et_aptph_pos = mt_aptph_pos

et_paranth = mt_paranth

CHANGING

cv_string = mv_command

EXCEPTIONS

missing_aptph = 1

missing_parnth = 2

OTHERS = 3.

CASE sy-subrc.

WHEN 1.

IF mv_log_handle IS INITIAL.

* Message: An ending apostrophe is missing

MESSAGE e005 RAISING parse_error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E'

iv_msgid = 'ZSQL_FREE'

iv_msgno = '005' ).

RAISE parse_error.

ENDIF.

WHEN 2.

IF mv_log_handle IS INITIAL.

* Message: An closing paranthesis is missing

MESSAGE e059 RAISING parse_error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E'

iv_msgid = 'ZSQL_FREE'

iv_msgno = '059' ).

RAISE parse_error.

ENDIF.

WHEN 3.

IF mv_log_handle IS INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING parse_error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E'

iv_msgid = sy-msgid

iv_msgno = sy-msgno

iv_msgv1 = sy-msgv1

iv_msgv2 = sy-msgv2

iv_msgv3 = sy-msgv3

iv_msgv4 = sy-msgv4 ).

RAISE parse_error.

ENDIF.

ENDCASE.

* if there is a closing dot, check that there is no new command after it

parse_check_dot( EXCEPTIONS OTHERS = 1 ).

IF sy-subrc <> 0.

IF mv_log_handle IS INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING parse_error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno

iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).

RAISE parse_error.

ENDIF.

** determine subquerys

* det_subquery( ).

* extract keywords

parse_keywords( EXCEPTIONS OTHERS = 1 ).

IF sy-subrc <> 0.

IF mv_log_handle IS INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING parse_error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno

iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).

RAISE parse_error.

ENDIF.

ENDMETHOD. "

METHOD get_message_dropped.

ev_message_dropped = mv_message_dropped.

ENDMETHOD. "get_message_dropped

METHOD get_where.

CLEAR es_where.

READ TABLE mt_keywords WITH KEY keyword = 'WHERE'

INTO es_where.

ENDMETHOD. "get_where

METHOD get_command.

ev_command = mv_command.

ENDMETHOD. "get_command

ENDCLASS. "lcl_HTDB_CL_COMMAND IMPLEMENTATION

*----------------------------------------------------------------------*

* CLASS LCL_HTDB_CL_COMMAND_SELECT DEFINITIO

*----------------------------------------------------------------------*

CLASS lcl_htdb_cl_command_select DEFINITION

INHERITING FROM lcl_htdb_cl_command.

*"* public components of class lcl_htdb_cl_command_select

*"* do not include other source files here!!!

PUBLIC SECTION.

DATA mt_adt_tables TYPE lty_zhtdb_table_aliases_tt .

METHODS can_edit

RETURNING

value(ev_can_edit) TYPE char1 .

METHODS get_fieldinfo

EXPORTING

!et_fieldinfo TYPE lty_zhtdb_fieldinfo_tt

!ev_can_edit TYPE flag

!ev_can_insert TYPE flag .

METHODS get_program_name

RETURNING

value(ev_program_name) TYPE programm .

METHODS get_table_alias

EXPORTING

!et_table_alias TYPE lty_zhtdb_table_aliases_tt .

METHODS get_texts

EXPORTING

!ev_select_text TYPE string

!ev_from_text TYPE string

!ev_where_text TYPE string

!ev_group_by_text TYPE string

!ev_having_text TYPE string

!ev_order_by_text TYPE string .

METHODS create_new

REDEFINITION .

METHODS parse

REDEFINITION .

*"* protected components of class lcl_htdb_cl_command_select

*"* do not include other source files here!!!

PROTECTED SECTION.

TYPES:

BEGIN OF gty_table_field,

table TYPE tabname,

field TYPE fieldname,

keyflag TYPE flag,

position TYPE tabfdpos,

END OF gty_table_field .

DATA mt_fieldinfo TYPE lty_zhtdb_fieldinfo_tt .

DATA mt_table_alias TYPE lty_zhtdb_table_aliases_tt .

DATA:

mt_table_fields TYPE STANDARD TABLE OF gty_table_field .

DATA mv_sel_single TYPE flag .

DATA mv_can_edit TYPE flag .

DATA mv_can_insert TYPE flag .

DATA mv_has_dupl_fields TYPE flag .

CONSTANTS mc_type_name_res TYPE string VALUE 'GTY_RES'. "#EC NOTEXT

CONSTANTS mc_type_name_tech_res TYPE string VALUE 'GTY_RES_TECH'. "#EC NOTEXT

DATA mv_type_name_tech_res TYPE string .

DATA mv_prog_id_str TYPE string .

DATA mv_type_name_res TYPE string .

DATA mv_program TYPE programm .

CONSTANTS mc_result_prefix TYPE string VALUE 'GT_RES'. "#EC NOTEXT

DATA mv_result_name TYPE string .

DATA mv_program_upd TYPE programm .

DATA mt_authorizations TYPE rsec_t_usvalues .

DATA mv_where_addition TYPE string .

DATA:

mt_subqu_where TYPE STANDARD TABLE OF lty_zhtdb_keyword .

METHODS extend_where_clause

IMPORTING

!iv_where_addition TYPE string .

METHODS add_where_excl_all

IMPORTING

!iv_table TYPE tabname

CHANGING

!cv_where_addition TYPE string .

METHODS create_type

IMPORTING

!iv_type_name TYPE string

!it_fieldinfo TYPE lty_zhtdb_fieldinfo_tt

!iv_with_tech_fields TYPE c

CHANGING

!ct_srccode TYPE lty_zhtdbt_string_tab .

METHODS expand_asterisk

EXCEPTIONS

table_not_found .

METHODS parse_adt_tables

EXPORTING

!et_table_alias TYPE lty_zhtdb_table_aliases_tt

EXCEPTIONS

parse_error .

METHODS parse_check_fieldname

IMPORTING

!iv_word TYPE string

!it_keywords TYPE lty_zhtdbt_string_tab OPTIONAL

RETURNING

value(rv_valid) TYPE xfeld .

METHODS parse_check_name

IMPORTING

!iv_word TYPE string

!it_keywords TYPE lty_zhtdbt_string_tab OPTIONAL

RETURNING

value(rv_valid) TYPE xfeld .

METHODS parse_check_value

IMPORTING

!iv_word TYPE string

RETURNING

value(rv_valid) TYPE xfeld .

METHODS parse_fields

EXCEPTIONS

parse_error

no_fields_found

table_not_found

field_not_found .

METHODS parse_tables

EXCEPTIONS

parse_error

no_tables_found

table_not_exist .

METHODS prepare_from_text

CHANGING

!cv_string TYPE string .

METHODS prepare_sel_text

CHANGING

!cv_string TYPE string .

METHODS rebuild_field_list

CHANGING

value(ct_srccode) TYPE lty_zhtdbt_string_tab

EXCEPTIONS

error

no_auth_for_columns .

METHODS remove_duplicates .

METHODS check_inserted_orgcritdep

IMPORTING

!it_inserted TYPE REF TO data

EXCEPTIONS

no_auth_for_inserted_records

assign_error .

METHODS call_gen_form

REDEFINITION .

METHODS generate_srccode

REDEFINITION .

METHODS parse_keywords

REDEFINITION .

ENDCLASS. "LCL_HTDB_CL_COMMAND_SELECT DEFINITIO

*----------------------------------------------------------------------*

* CLASS lcl_HTDB_CL_COMMAND_SELECT IMPLEMENTATION

*----------------------------------------------------------------------*

CLASS lcl_htdb_cl_command_select IMPLEMENTATION.

METHOD call_gen_form.

DATA: lv_timestamp TYPE timestamp,

lv_tmp(15) TYPE c,

lv_released TYPE c,

lv_start_imd TYPE flag,

ls_param TYPE rsparams,

lt_paramtab TYPE STANDARD TABLE OF rsparams.

IF iv_bg_proc = space. " execute command instantly

TRY.

PERFORM exec_command IN PROGRAM (iv_program)

TABLES mt_vranges " value ranges

CHANGING er_result " result set

ev_dbcnt " sy-dbcnt

er_lock_argument " lock argument

er_exc. " exception object

IF er_exc IS NOT INITIAL.

RAISE error.

ENDIF.

CATCH cx_root.

IF mv_log_handle IS INITIAL.

* Message: Internal error: generated program could not be called

MESSAGE e003 RAISING error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = 003 ).

ENDIF.

ENDTRY.

ENDIF.

ENDMETHOD. "

METHOD create_new.

DATA: ls_keyword LIKE LINE OF mt_keywords.

super->create_new(

EXPORTING

iv_command_id = iv_command_id

iv_command = iv_command

it_vranges = it_vranges

iv_log_handle = iv_log_handle

iv_test_from_file = iv_test_from_file

EXCEPTIONS

no_id = 1

OTHERS = 2 ).

IF sy-subrc = 1.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING no_id.

ENDIF.

* clear attributes

CLEAR mt_fieldinfo.

CLEAR mt_table_alias.

CLEAR mt_adt_tables.

CLEAR mt_table_fields.

CLEAR mv_has_dupl_fields.

CLEAR mv_sel_single.

CLEAR mv_prog_id_str.

CLEAR mt_query_depth.

CLEAR mt_subqu_where.

CLEAR mt_authorizations.

mv_prog_id_str = mv_prog_id.

CONCATENATE mc_type_name_tech_res mv_prog_id_str INTO mv_type_name_tech_res.

mv_type_name_tech_res = mv_type_name_tech_res(30).

CONCATENATE mc_type_name_res mv_prog_id_str INTO mv_type_name_res.

mv_type_name_res = mv_type_name_res(30).

CONCATENATE mc_result_prefix mv_prog_id_str INTO mv_result_name.

mv_result_name = mv_result_name(30).

CONCATENATE mc_prog_prefix mv_prog_id_str INTO mv_program.

mv_program = mv_program(30).

* set to editable as default

mv_can_edit = 'X'.

* fill up keywords table

ls_keyword-keyword = 'SELECT'.

ls_keyword-required = 'X'.

ls_keyword-order_pos = 1.

APPEND ls_keyword TO mt_keywords.

ls_keyword-keyword = 'FROM'.

ls_keyword-required = 'X'.

ls_keyword-order_pos = 2.

APPEND ls_keyword TO mt_keywords.

ls_keyword-keyword = 'CLIENT SPECIFIED'.

ls_keyword-required = ' '.

ls_keyword-order_pos = 2.

APPEND ls_keyword TO mt_keywords.

ls_keyword-keyword = 'BYPASSING BUFFER'.

ls_keyword-required = ' '.

ls_keyword-order_pos = 2.

APPEND ls_keyword TO mt_keywords.

ls_keyword-keyword = 'UP TO'.

ls_keyword-required = ' '.

ls_keyword-order_pos = 2.

APPEND ls_keyword TO mt_keywords.

ls_keyword-keyword = 'WHERE'.

ls_keyword-required = ' '.

ls_keyword-order_pos = 5.

APPEND ls_keyword TO mt_keywords.

ls_keyword-keyword = 'GROUP BY'.

ls_keyword-required = ' '.

ls_keyword-order_pos = 6.

APPEND ls_keyword TO mt_keywords.

ls_keyword-keyword = 'HAVING'.

ls_keyword-required = ' '.

ls_keyword-order_pos = 7.

APPEND ls_keyword TO mt_keywords.

ls_keyword-keyword = 'ORDER BY'.

ls_keyword-required = ' '.

ls_keyword-order_pos = 8.

APPEND ls_keyword TO mt_keywords.

ENDMETHOD. "

METHOD generate_srccode.

DATA: lv_program TYPE programm,

lv_line TYPE string,

ls_keyword LIKE LINE OF mt_keywords,

lv_shift TYPE i.

CONCATENATE 'PROGRAM' mv_program '.' INTO lv_line

SEPARATED BY space.

APPEND lv_line TO et_srccode.

APPEND INITIAL LINE TO et_srccode.

* Type Pools

APPEND ' TYPE-POOLS: rsds.' TO et_srccode.

APPEND INITIAL LINE TO et_srccode.

* create local type for the result set

create_type(

EXPORTING

iv_type_name = mv_type_name_res

it_fieldinfo = mt_fieldinfo

iv_with_tech_fields = ' '

CHANGING

ct_srccode = et_srccode ).

APPEND INITIAL LINE TO et_srccode.

* create local type for the result set with technical fields

create_type(

EXPORTING

iv_type_name = mv_type_name_tech_res

it_fieldinfo = mt_fieldinfo

iv_with_tech_fields = 'X'

CHANGING

ct_srccode = et_srccode ).

APPEND INITIAL LINE TO et_srccode.

* create result set table

CONCATENATE 'DATA' mv_result_name 'TYPE STANDARD TABLE OF' mv_type_name_tech_res '.'

INTO lv_line SEPARATED BY space.

APPEND lv_line TO et_srccode.

APPEND INITIAL LINE TO et_srccode.

* create FORM routine

APPEND 'FORM exec_command TABLES pt_vranges' TO et_srccode.

APPEND ' CHANGING p_result' TO et_srccode.

APPEND ' p_dbcnt' TO et_srccode.

APPEND ' p_lock_argument' TO et_srccode.

APPEND ' po_exc TYPE REF TO cx_root.' TO et_srccode.

APPEND INITIAL LINE TO et_srccode.

* create value range tables

IF mt_vranges IS NOT INITIAL.

generate_vranges( IMPORTING et_srccode = et_srccode ).

ENDIF.

IF mv_sel_single = 'X'.

* create result structure

CONCATENATE ' DATA: ls_result LIKE LINE OF ' mv_result_name '.'

INTO lv_line SEPARATED BY space.

APPEND lv_line TO et_srccode.

APPEND INITIAL LINE TO et_srccode.

ENDIF.

APPEND 'TRY.' TO et_srccode.

* create SELECT command

READ TABLE mt_keywords INTO ls_keyword

WITH KEY keyword = 'SELECT'.

lv_line = 'SELECT'.

IF ls_keyword-additions IS NOT INITIAL.

CONCATENATE lv_line ls_keyword-additions INTO lv_line

SEPARATED BY space.

ENDIF.

APPEND lv_line TO et_srccode.

* build field list (SELECT clause)

rebuild_field_list(

CHANGING

ct_srccode = et_srccode

EXCEPTIONS

no_auth_for_columns = 1

OTHERS = 2 ).

IF sy-subrc = 1.

MESSAGE e148 RAISING no_auth_for_columns.

ELSEIF sy-subrc = 2.

IF mv_log_handle IS INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno

iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).

RAISE error.

ENDIF.

* insert addition INTO ...

IF mv_sel_single = 'X'.

APPEND ' INTO CORRESPONDING FIELDS OF ls_result' TO et_srccode.

ELSE.

CONCATENATE ' INTO CORRESPONDING FIELDS OF TABLE ' mv_result_name INTO lv_line

SEPARATED BY space.

APPEND lv_line TO et_srccode.

ENDIF.

* append the rest: 'FROM ...'

READ TABLE mt_keywords INTO ls_keyword

WITH KEY keyword = 'FROM'.

lv_shift = ls_keyword-begins_at - 1.

CONCATENATE mv_command+lv_shift '.' INTO lv_line.

* split line by 100

CALL METHOD lcl_toolbox=>split_string

EXPORTING

iv_string = lv_line

iv_maxlen = 100

IMPORTING

et_string_tab = et_srccode.

* save SY-DBCNT

lv_line = 'p_dbcnt = sy-dbcnt.'.

APPEND lv_line TO et_srccode.

IF mv_sel_single = 'X'.

* append result structure to result tab

APPEND ' IF sy-subrc EQ 0.' TO et_srccode.

CONCATENATE ' APPEND ls_result TO ' mv_result_name '.' INTO lv_line

SEPARATED BY space.

APPEND lv_line TO et_srccode.

APPEND ' ENDIF.' TO et_srccode.

ENDIF.

* return reference on result set

CONCATENATE ' GET REFERENCE OF ' mv_result_name 'INTO p_result.' INTO lv_line

SEPARATED BY space.

APPEND lv_line TO et_srccode.

APPEND 'CATCH cx_root INTO po_exc.' TO et_srccode.

APPEND 'ENDTRY.' TO et_srccode.

lv_line = 'ENDFORM.'.

APPEND lv_line TO et_srccode.

ENDMETHOD. "

METHOD parse_keywords.

* extracts keywords of the command and fills up the MT_KEYWORDS table

FIELD-SYMBOLS: <ls_keyword> LIKE LINE OF mt_keywords.

* extract keywords

super->parse_keywords(

EXCEPTIONS

missing_keyword = 1

wrong_position = 2 ).

IF sy-subrc = 1.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING missing_keyword.

ELSEIF sy-subrc = 2.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING wrong_position.

ENDIF.

* check the SELECT keyword

READ TABLE mt_keywords ASSIGNING <ls_keyword>

WITH KEY keyword = 'SELECT'.

IF STRLEN( <ls_keyword>-text ) >= 8.

IF <ls_keyword>-text(8) = 'DISTINCT'.

SHIFT <ls_keyword>-text LEFT BY 8 PLACES.

<ls_keyword>-additions = 'DISTINCT'.

* <ls_keyword>-ends_at = <ls_keyword>-ends_at + 8.

ENDIF.

IF STRLEN( <ls_keyword>-text ) >= 6.

IF <ls_keyword>-text(6) = 'SINGLE'.

SHIFT <ls_keyword>-text LEFT BY 6 PLACES.

<ls_keyword>-additions = 'SINGLE'.

* <ls_keyword>-ends_at = <ls_keyword>-ends_at + 6.

mv_sel_single = 'X'.

ENDIF.

SEARCH <ls_keyword>-text FOR '. FOR UPDATE .'.

IF sy-subrc = 0.

IF mv_log_handle IS INITIAL.

MESSAGE e068 RAISING wrong_keyword.

ELSE.

CALL METHOD add_message( iv_msgty = 'W' iv_msgid = 'ZSQL_FREE' iv_msgno = '068' ).

RAISE wrong_keyword.

ENDIF.

ENDMETHOD. "

METHOD parse.

IF mv_parsed = 'X'.

RETURN.

ENDIF.

* make search for keywords easier - start and end with SPACE

SHIFT mv_command RIGHT BY 1 PLACES.

CONCATENATE mv_command space INTO mv_command

SEPARATED BY space.

* elemtary check of command (apostrophes, dots, keywords)

super->parse( EXCEPTIONS OTHERS = 1 ).

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING parse_error.

ENDIF.

* clear attributes

CLEAR mt_fieldinfo.

CLEAR mt_table_alias.

CLEAR mv_has_dupl_fields.

* set to editable as default

mv_can_edit = 'X'.

* get tables involved

CALL METHOD parse_tables

EXCEPTIONS

OTHERS = 1.

IF sy-subrc <> 0.

IF mv_log_handle IS INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING parse_error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno

iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).

RAISE parse_error.

ENDIF.

* get field list

CALL METHOD parse_fields

EXCEPTIONS

OTHERS = 1.

IF sy-subrc <> 0.

IF mv_log_handle IS INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING parse_error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno

iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).

RAISE parse_error.

ENDIF.

ENDMETHOD. "parse

METHOD extend_where_clause.

DATA: lv_where_cauth TYPE string,

lv_where_orgcrit TYPE string,

ls_keywords LIKE LINE OF mt_keywords,

lv_tabix TYPE i,

lv_len TYPE i,

lv_shift TYPE i,

lv_tmp TYPE i.

IF iv_where_addition IS NOT INITIAL.

READ TABLE mt_keywords INTO ls_keywords WITH KEY keyword = 'WHERE'.

IF sy-subrc EQ 0. " extend WHERE clause

lv_tabix = sy-tabix.

* add pre stuff to mv_command

lv_shift = ls_keywords-begins_at + 4.

lv_tmp = lv_shift + 1.

CONCATENATE mv_command(lv_shift) '(' iv_where_addition ') AND (' mv_command+lv_tmp

INTO mv_command SEPARATED BY space.

* add pre stuff to ls_keywords-text

CONCATENATE '(' iv_where_addition ') AND (' ls_keywords-text

INTO ls_keywords-text SEPARATED BY space.

lv_len = STRLEN( ls_keywords-text ) - 1.

IF ls_keywords-text+lv_len(1) = '.'.

* add post stuff to mv_command

lv_shift = ls_keywords-ends_at + STRLEN( ls_keywords-text ) - 1.

CONCATENATE mv_command(lv_shift) ').' INTO mv_command SEPARATED BY space.

* add post stuff to ls_keywords-text

CONCATENATE ls_keywords-text(lv_len) ').' INTO ls_keywords-text SEPARATED BY space.

ELSE.

* add post stuff to ls_keywords-text

CONCATENATE ls_keywords-text ')' INTO ls_keywords-text SEPARATED BY space.

LOOP AT mt_keywords TRANSPORTING NO FIELDS

WHERE order_pos > ls_keywords-order_pos.

lv_shift = ls_keywords-ends_at + lv_len + 1.

lv_tmp = lv_shift + 1.

CONCATENATE mv_command(lv_shift) ')' mv_command+lv_shift

INTO mv_command SEPARATED BY space.

EXIT.

ENDLOOP.

IF sy-subrc EQ 4.

* add post stuff to mv_command

CONCATENATE mv_command ')' INTO mv_command SEPARATED BY space.

ENDIF.

MODIFY mt_keywords FROM ls_keywords INDEX lv_tabix.

ELSE. " create WHERE clause

LOOP AT mt_keywords INTO ls_keywords WHERE order_pos > 5. " WHERE keyword

lv_shift = ls_keywords-begins_at - 1.

CONCATENATE mv_command(lv_shift) 'WHERE' iv_where_addition mv_command+lv_shift

INTO mv_command SEPARATED BY space.

EXIT.

ENDLOOP.

IF sy-subrc EQ 4.

CONCATENATE mv_command 'WHERE' iv_where_addition

INTO mv_command SEPARATED BY space.

ENDIF.

ls_keywords-keyword = 'WHERE'.

ls_keywords-text = iv_where_addition.

ls_keywords-order_pos = 5.

ls_keywords-begins_at = lv_shift.

ls_keywords-ends_at = lv_shift + 4.

APPEND ls_keywords TO mt_keywords.

ENDIF.

ENDMETHOD. "extend_where_clause

METHOD add_where_excl_all.

ENDMETHOD. "ADD_WHERE_EXCL_ALL

METHOD can_edit.

ev_can_edit = mv_can_edit.

ENDMETHOD. "can_edit

METHOD create_type.

* create a type for the result set of the command

DATA: lt_srccode TYPE STANDARD TABLE OF string,

lv_line TYPE string,

lv_alias TYPE string,

ls_fieldinfo LIKE LINE OF it_fieldinfo.

IF it_fieldinfo IS INITIAL.

RETURN.

ENDIF.

CONCATENATE 'TYPES: BEGIN OF' iv_type_name ',' INTO lv_line

SEPARATED BY space.

APPEND lv_line TO lt_srccode.

IF iv_with_tech_fields EQ 'X'.

* add system fields HTDB_ROWID and HTDB_SELECTED and HTDB_ICON

lv_line = 'zenith_rowid TYPE i,'.

SHIFT lv_line RIGHT BY 9 PLACES.

APPEND lv_line TO lt_srccode.

lv_line = 'zenith_selected TYPE c,'.

SHIFT lv_line RIGHT BY 9 PLACES.

APPEND lv_line TO lt_srccode.

* add style field

lv_line = 'zenith_style TYPE lvc_t_styl,'.

SHIFT lv_line RIGHT BY 9 PLACES.

APPEND lv_line TO lt_srccode.

* add coloring field

lv_line = 'zenith_color TYPE lvc_t_scol,'.

SHIFT lv_line RIGHT BY 9 PLACES.

APPEND lv_line TO lt_srccode.

* who locked the row?

lv_line = 'zenith_locked_by TYPE sy-uname,'.

SHIFT lv_line RIGHT BY 9 PLACES.

APPEND lv_line TO lt_srccode.

ENDIF.

* for each entry in the field list there will be a field in the structure

LOOP AT it_fieldinfo INTO ls_fieldinfo.

TRANSLATE ls_fieldinfo-generated_field TO LOWER CASE.

TRANSLATE ls_fieldinfo-field_alias TO LOWER CASE.

TRANSLATE ls_fieldinfo-orig_field TO LOWER CASE.

TRANSLATE ls_fieldinfo-table TO LOWER CASE.

TRANSLATE ls_fieldinfo-field TO LOWER CASE.

IF ls_fieldinfo-agg_function = 'COUNT'.

CONCATENATE ls_fieldinfo-generated_field 'TYPE i,'

INTO lv_line SEPARATED BY space.

* ELSEIF ls_fieldinfo-agg_function = 'SUM'.

* CONCATENATE ls_fieldinfo-generated_field 'TYPE f,'

* INTO lv_line SEPARATED BY space.

ELSEIF ls_fieldinfo-agg_function = 'AVG'.

CONCATENATE ls_fieldinfo-generated_field 'TYPE p DECIMALS 4,'

INTO lv_line SEPARATED BY space.

ELSE.

IF ls_fieldinfo-generated_field IS NOT INITIAL.

CONCATENATE ls_fieldinfo-generated_field 'TYPE' ls_fieldinfo-table

INTO lv_line SEPARATED BY space.

ELSEIF ls_fieldinfo-field_alias IS INITIAL.

CONCATENATE ls_fieldinfo-field_alias 'TYPE' ls_fieldinfo-table

INTO lv_line SEPARATED BY space.

ELSE.

CONCATENATE ls_fieldinfo-orig_field 'TYPE' ls_fieldinfo-table

INTO lv_line SEPARATED BY space.

ENDIF.

CONCATENATE lv_line '-' ls_fieldinfo-field ',' INTO lv_line.

ENDIF.

SHIFT lv_line RIGHT BY 9 PLACES.

APPEND lv_line TO lt_srccode.

ENDLOOP.

CONCATENATE ' END OF' iv_type_name '.' INTO lv_line

SEPARATED BY space.

APPEND lv_line TO lt_srccode.

APPEND LINES OF lt_srccode TO ct_srccode.

ENDMETHOD. "

METHOD expand_asterisk.

* get field list in case of SELECT *

DATA: lv_lines TYPE i,

ls_table_field LIKE LINE OF mt_table_fields,

ls_table_alias LIKE LINE OF mt_table_alias,

ls_fieldinfo LIKE LINE OF mt_fieldinfo.

CLEAR mt_fieldinfo.

LOOP AT mt_table_alias INTO ls_table_alias.

ls_fieldinfo-table = ls_table_alias-table.

* get table fields

LOOP AT mt_table_fields INTO ls_table_field

WHERE TABLE = LS_FIELDINFO-TABLE.

ls_fieldinfo-orig_field = ls_table_field-field.

ls_fieldinfo-field = ls_table_field-field.

ls_fieldinfo-is_key = ls_table_field-keyflag.

* READ TABLE mt_table_alias INTO ls_table_alias

* WITH KEY table = ls_table_alias-table.

IF ls_table_alias-alias IS INITIAL.

ls_fieldinfo-table_alias = ls_table_alias-table.

ELSE.

ls_fieldinfo-table_alias = ls_table_alias-alias.

ENDIF.

READ TABLE mt_fieldinfo

WITH KEY orig_field = ls_table_field-field

TRANSPORTING NO FIELDS.

IF sy-subrc EQ 0.

mv_has_dupl_fields = 'X'.

ENDIF.

APPEND ls_fieldinfo TO mt_fieldinfo.

ENDLOOP.

* result set can be edited, if there is only one table

DESCRIBE TABLE mt_table_alias LINES lv_lines.

IF lv_lines NE 1.

CLEAR mv_can_edit. " result set can't be edited

CLEAR mv_can_insert. " new records can't inserted to the result set

ENDIF.

* clean field list from duplicates

remove_duplicates( ).

ENDMETHOD. "

METHOD get_fieldinfo.

* returns the field list (from the SELECT clause)

et_fieldinfo = mt_fieldinfo.

ev_can_edit = mv_can_edit.

ev_can_insert = mv_can_insert.

ENDMETHOD. "

METHOD get_program_name.

ev_program_name = mv_program.

ENDMETHOD. "get_program_name

METHOD get_table_alias.

* returns the table list (from the FROM clause and subquerys)

CLEAR et_table_alias.

et_table_alias = mt_table_alias. " FROM clause

APPEND LINES OF mt_adt_tables TO et_table_alias. " subquerys

ENDMETHOD. "

METHOD get_texts.

* returns the SELECT, FROM, etc. clauses of the command

DATA: ls_keyword LIKE LINE OF mt_keywords.

* get SELECT text

READ TABLE mt_keywords INTO ls_keyword

WITH KEY keyword = 'SELECT'.

ev_select_text = ls_keyword-text.

* get FROM text

CLEAR ls_keyword.

READ TABLE mt_keywords INTO ls_keyword

WITH KEY keyword = 'FROM'.

ev_from_text = ls_keyword-text.

* ...

CLEAR ls_keyword.

READ TABLE mt_keywords INTO ls_keyword

WITH KEY keyword = 'WHERE'.

ev_where_text = ls_keyword-text.

CLEAR ls_keyword.

READ TABLE mt_keywords INTO ls_keyword

WITH KEY keyword = 'GROUP BY'.

ev_group_by_text = ls_keyword-text.

CLEAR ls_keyword.

READ TABLE mt_keywords INTO ls_keyword

WITH KEY keyword = 'HAVING'.

ev_having_text = ls_keyword-text.

CLEAR ls_keyword.

READ TABLE mt_keywords INTO ls_keyword

WITH KEY keyword = 'ORDER BY'.

ev_order_by_text = ls_keyword-text.

ENDMETHOD. "

METHOD parse_adt_tables.

DATA: ls_keyword LIKE LINE OF mt_keywords,

lv_where TYPE string,

lt_aptph_pos LIKE mt_aptph_pos,

lt_paranth LIKE mt_aptph_pos,

ls_aptph LIKE LINE OF mt_aptph_pos,

lv_search_str TYPE string,

lv_offset TYPE i,

lv_found TYPE flag,

lv_reparse TYPE flag,

lv_subquery TYPE string,

ls_where TYPE lty_zhtdb_keyword,

lv_subq_begin TYPE i,

lv_subq_end TYPE i,

lv_subq_lgth TYPE i,

lv_new_lgth TYPE i,

lv_shift TYPE i,

lv_left TYPE i,

lv_right TYPE i,

lo_sel_cmd TYPE REF TO lcl_htdb_cl_command_select,

lt_table_alias LIKE mt_table_alias.

* get WHERE text

READ TABLE mt_keywords INTO ls_keyword

WITH KEY keyword = 'WHERE'.

IF sy-subrc <> 0.

EXIT.

ENDIF.

* WHERE text

lv_where = ls_keyword-text.

* SPACE as the first character

SHIFT lv_where RIGHT BY 1 PLACES.

* identify apostrophes and paranthesis

CALL METHOD lcl_toolbox=>parse_aptph

EXPORTING

iv_log_handle = mv_log_handle

IMPORTING

et_aptph_pos = lt_aptph_pos

et_paranth = lt_paranth

CHANGING

cv_string = lv_where

EXCEPTIONS

OTHERS = 1.

IF sy-subrc <> 0.

IF mv_log_handle IS INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING parse_error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E'

iv_msgid = sy-msgid

iv_msgno = sy-msgno

iv_msgv1 = sy-msgv1

iv_msgv2 = sy-msgv2

iv_msgv3 = sy-msgv3

iv_msgv4 = sy-msgv4 ).

RAISE parse_error.

ENDIF.

* create new instance for the subquery

CREATE OBJECT lo_sel_cmd.

DO.

CLEAR lv_found.

lv_offset = lv_subq_begin + 1.

* search for subquerys

SEARCH lv_where

FOR '. IN ( SELECT .'

STARTING AT lv_offset.

IF sy-subrc = 0.

IF sy-fdpos < lv_subq_begin OR

lv_subq_begin = 0.

lv_subq_begin = sy-fdpos + 4.

lv_found = 'X'.

ENDIF.

SEARCH lv_where

FOR '. ALL ( SELECT .'

STARTING AT lv_offset.

IF sy-subrc = 0.

IF sy-fdpos < lv_subq_begin OR

lv_subq_begin = 0.

lv_subq_begin = sy-fdpos + 5.

lv_found = 'X'.

ENDIF.

SEARCH lv_where

FOR '. SOME ( SELECT .'

STARTING AT lv_offset.

IF sy-subrc = 0.

IF sy-fdpos < lv_subq_begin OR

lv_subq_begin = 0.

lv_subq_begin = sy-fdpos + 6.

lv_found = 'X'.

ENDIF.

SEARCH lv_where

FOR '. ANY ( SELECT .'

STARTING AT lv_offset.

IF sy-subrc = 0.

IF sy-fdpos < lv_subq_begin OR

lv_subq_begin = 0.

lv_subq_begin = sy-fdpos + 5.

lv_found = 'X'.

ENDIF.

SEARCH lv_where

FOR '. EXISTS ( SELECT .'

STARTING AT lv_offset.

IF sy-subrc = 0.

IF sy-fdpos < lv_subq_begin OR

lv_subq_begin = 0.

lv_subq_begin = sy-fdpos + 8.

lv_found = 'X'.

ENDIF.

IF lv_found = 'X'.

lv_reparse = 'X'.

* absolute position

lv_subq_begin = lv_subq_begin + lv_offset.

* check, whether it's outside of apostrophes

READ TABLE lt_aptph_pos INTO ls_aptph

WITH KEY position = lv_subq_begin.

IF ls_aptph-type = 'O'. " outside apostrophes

* identify the depth of the paranthesis in ' ### ( SELECT'

READ TABLE lt_paranth INTO ls_aptph

WITH KEY position = lv_subq_begin.

IF sy-subrc = 0.

* now ls_aptph-type is the depth of the (

* find the closing paranthesis - the next with the same depth

lv_subq_end = sy-tabix + 1.

LOOP AT lt_paranth FROM lv_subq_end INTO ls_aptph

WHERE type = ls_aptph-type.

lv_subq_end = ls_aptph-position.

EXIT.

ENDLOOP.

IF sy-subrc = 0.

* extract subquery from string

lv_subq_lgth = lv_subq_end - lv_subq_begin - 1.

lv_subquery = lv_where+lv_subq_begin(lv_subq_lgth).

* create new subquery

CALL METHOD lo_sel_cmd->create_new

EXPORTING

iv_command = lv_subquery

iv_log_handle = mv_log_handle.

* parse subquery

CALL METHOD lo_sel_cmd->parse

EXCEPTIONS

OTHERS = 1.

IF sy-subrc <> 0.

IF mv_log_handle IS INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING parse_error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno

iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).

RAISE parse_error.

ENDIF.

* extract tables from subquery

lo_sel_cmd->get_table_alias( IMPORTING et_table_alias = lt_table_alias ).

APPEND LINES OF lt_table_alias TO mt_adt_tables.

* get modified command text

lo_sel_cmd->get_command( RECEIVING ev_command = lv_subquery ).

* new length of the subquery

lv_new_lgth = STRLEN( lv_subquery ).

* insert modified subquery into the original command

* position of WHERE + rest of the word 'WHERE' + start of subq '('

lv_left = ls_keyword-begins_at + 4 + lv_subq_begin + lv_shift.

* position of WHERE + rest of the word 'WHERE' + end of subq ')' - 1

lv_right = ls_keyword-begins_at + 4 + lv_subq_end - 1 + lv_shift.

CONCATENATE mv_command(lv_left) lv_subquery mv_command+lv_right

INTO mv_command SEPARATED BY space.

* offset due to the new length of the subquery

lv_shift = lv_shift + lv_new_lgth - lv_subq_lgth + 2.

* continue search on the same level!

lv_subq_begin = lv_subq_begin + lv_subq_lgth.

ENDIF.

ELSE. " inside apostrophes -> ignore

CONTINUE.

ENDIF.

ELSE. " no more subquerys found

* the command could have been changed due to authority checks

IF lv_reparse = 'X'.

parse_keywords( ).

ENDIF.

EXIT.

ENDIF.

ENDDO.

ENDMETHOD. "

METHOD parse_check_fieldname.

* checks if the string is a valid field name, including ~ for table alias

CLEAR rv_valid.

READ TABLE it_keywords WITH KEY table_line = iv_word

TRANSPORTING NO FIELDS.

IF sy-subrc = 0. " 1 -> error

RETURN.

ELSE.

* IF iv_word CO 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_~0123456789'.

rv_valid = 'X'.

* ENDIF.

ENDIF.

ENDMETHOD. "

METHOD parse_check_name.

* checks if the string is a valid name for tables, fields or aliases

rv_valid = 'X'.

* CLEAR rv_valid.

* READ TABLE it_keywords WITH KEY table_line = iv_word

* TRANSPORTING NO FIELDS.

* IF sy-subrc = 0. " 1 -> error

* RETURN.

* ELSE.

* IF iv_word CO 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_0123456789'.

* rv_valid = 'X'.

* ENDIF.

ENDMETHOD. "

METHOD parse_check_value .

* checks the string if it is between apostrophes;

* the number of apostrophes is correct anyway

rv_valid = 'X'.

* DATA: lv_length TYPE i,

* lv_word LIKE iv_word.

* CLEAR rv_valid.

* lv_word = iv_word.

* TRANSLATE lv_word TO UPPER CASE.

* IF lv_word IS INITIAL.

* RETURN.

* ENDIF.

* IF lv_word = 'SPACE'.

* rv_valid = 'X'.

* ENDIF.

* IF lv_word CO '0123456789'.

* rv_valid = 'X'.

* ENDIF.

* lv_length = strlen( lv_word ).

* lv_length = lv_length - 1.

* IF lv_length > 3.

* IF lv_word(3) = 'SY-'.

* rv_valid = 'X'.

* ENDIF.

* IF lv_length > 5.

* IF lv_word(5) = 'SYST-'.

* rv_valid = 'X'.

* ENDIF.

* IF lv_word(1) = '''' AND

* lv_word+lv_length(1) = ''''.

* rv_valid = 'X'.

* ENDIF.

ENDMETHOD. "

METHOD parse_fields.

* extracts field names from the SELECT clause

* and fills up the MT_FIELDINFO table

DATA: lv_state TYPE i,

lv_error TYPE xfeld,

lv_lines TYPE i,

ls_keyword LIKE LINE OF mt_keywords,

lt_words TYPE lty_zhtdbt_string_tab,

lt_keywords TYPE lty_zhtdbt_string_tab,

lv_word TYPE string,

ls_fieldinfo LIKE LINE OF mt_fieldinfo,

ls_table_alias LIKE LINE OF mt_table_alias,

lv_fdpos TYPE i,

ls_table_field LIKE LINE OF mt_table_fields.

* get words of select_text

READ TABLE mt_keywords INTO ls_keyword

WITH KEY keyword = 'SELECT'.

prepare_sel_text( CHANGING cv_string = ls_keyword-text ).

CALL METHOD split_string

EXPORTING

iv_string = ls_keyword-text

IMPORTING

et_words = lt_words.

* list of possible keywords

APPEND 'AS' TO lt_keywords.

APPEND 'MIN(' TO lt_keywords.

APPEND 'MAX(' TO lt_keywords.

APPEND 'AVG(' TO lt_keywords.

APPEND 'SUM(' TO lt_keywords.

APPEND 'COUNT(' TO lt_keywords.

APPEND '*' TO lt_keywords.

APPEND 'DISTINCT' TO lt_keywords.

APPEND ')' TO lt_keywords.

IF lt_words IS INITIAL.

IF mv_log_handle IS INITIAL.

* Message: Field list is missing

MESSAGE e017 RAISING no_fields_found.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '017' ).

RAISE no_fields_found.

ENDIF.

* parse words

* The parser is a simple automat having 10 states defined as follows:

* <field_list>: 1 '*' 4 |

* 1 {fieldname} 2 |

* 1 'MIN(' | 'MAX(' | 'AVG(' | 'SUM(' 5 ['DISTINCT'] 6 {fieldname } 7 ')' 8 |

* 1 'COUNT(' 9

* 2 'AS' 3 {name} 1

* 2 {fieldname} 2 |

* 2 'MIN(' | 'MAX(' | 'AVG(' | 'SUM(' 5 |

* 2 'COUNT(' 9

* 8 'AS' 3 {name} 1 |

* 8 {fieldname} 2 |

* 8 'MIN(' | 'MAX(' | 'AVG(' | 'SUM(' 5 |

* 8 'COUNT(' 9

* 9 '*' 7 |

* 9 'DISTINCT' 10 |

* 9 {fieldname } 7

* 10 '*' 7 |

* 10 {fieldname } 7

* 1 is the START state, 2, 4 and 8 are END states.

lv_state = 1.

LOOP AT lt_words INTO lv_word

WHERE table_line IS NOT INITIAL.

CASE lv_state.

WHEN 1. "************************************************

* check wether it's a keyword

CASE lv_word.

WHEN '*'. " 1 -> 4

lv_state = 4.

CONTINUE.

WHEN 'MIN(' OR " 1 -> 5

'MAX(' OR

'AVG(' OR

'SUM('.

lv_state = 5.

ls_fieldinfo-agg_function = lv_word(3).

CONTINUE.

WHEN 'COUNT('. " 1 -> 9

lv_state = 9.

ls_fieldinfo-agg_function = lv_word(5).

* if only one record will be returned

* -> it's like a SELECT SINGLE

* depends if there is a group by clause or not

READ TABLE mt_keywords TRANSPORTING NO FIELDS

WITH KEY keyword = 'GROUP BY'.

IF sy-subrc EQ 0.

CLEAR mv_sel_single.

ELSE.

mv_sel_single = 'X'.

ENDIF.

CONTINUE.

ENDCASE.

* check wether it's a valid fieldname

IF parse_check_fieldname(

iv_word = lv_word

it_keywords = lt_keywords ) = 'X'. " 1 -> 2

lv_state = 2.

ls_fieldinfo-orig_field = lv_word.

CONTINUE.

ELSE. " 1 -> error

lv_error = 'X'.

EXIT.

ENDIF.

WHEN 2. "************************************************

CASE lv_word.

WHEN 'AS'. " 2 -> 3

lv_state = 3.

CONTINUE.

WHEN 'MIN(' OR " 2 -> 5

'MAX(' OR

'AVG(' OR

'SUM('.

lv_state = 5.

APPEND ls_fieldinfo TO mt_fieldinfo.

CLEAR ls_fieldinfo.

ls_fieldinfo-agg_function = lv_word(3).

CONTINUE.

WHEN 'COUNT('. " 2 -> 9

lv_state = 9.

APPEND ls_fieldinfo TO mt_fieldinfo.

CLEAR ls_fieldinfo.

ls_fieldinfo-agg_function = lv_word(5).

* if only one record will be returned

* -> it's like a SELECT SINGLE

* depends if there is a group by clause or not

READ TABLE mt_keywords TRANSPORTING NO FIELDS

WITH KEY keyword = 'GROUP BY'.

IF sy-subrc EQ 0.

CLEAR mv_sel_single.

ELSE.

mv_sel_single = 'X'.

ENDIF.

CONTINUE.

ENDCASE.

IF parse_check_fieldname(

iv_word = lv_word

it_keywords = lt_keywords ) = 'X'. " 2 -> 2

APPEND ls_fieldinfo TO mt_fieldinfo.

CLEAR ls_fieldinfo.

ls_fieldinfo-orig_field = lv_word.

CONTINUE.

ELSE. " 2 -> error

lv_error = 'X'.

EXIT.

ENDIF.

WHEN 3. "************************************************

IF parse_check_name(

iv_word = lv_word

it_keywords = lt_keywords ) = 'X'. " 3 -> 1

lv_state = 1.

ls_fieldinfo-field_alias = lv_word.

APPEND ls_fieldinfo TO mt_fieldinfo.

CLEAR ls_fieldinfo.

CONTINUE.

ELSE. " 3 -> error

lv_error = 'X'.

EXIT.

ENDIF.

WHEN 4. "************************************************

IF lv_word IS NOT INITIAL. " 4 -> error

lv_error = 'X'.

EXIT.

ENDIF.

WHEN 5. "************************************************

IF lv_word = 'DISTINCT'. " 5 -> 6

ls_fieldinfo-distinctf = 'X'.

lv_state = 6.

CONTINUE.

ENDIF.

IF parse_check_fieldname(

iv_word = lv_word

it_keywords = lt_keywords ) = 'X'. " 5 -> 7

lv_state = 7.

ls_fieldinfo-orig_field = lv_word.

CONTINUE.

ELSE. " 5 -> error

lv_error = 'X'.

EXIT.

ENDIF.

WHEN 6. "************************************************

IF parse_check_fieldname(

iv_word = lv_word

it_keywords = lt_keywords ) = 'X'. " 6 -> 7

ls_fieldinfo-orig_field = lv_word.

lv_state = 7.

CONTINUE.

ELSE. " 6 -> error

lv_error = 'X'.

EXIT.

ENDIF.

WHEN 7. "************************************************

IF lv_word = ')'. " 7 -> 8

lv_state = 8.

CONTINUE.

ENDIF.

lv_error = 'X'.

EXIT.

WHEN 8. "************************************************

CASE lv_word.

WHEN 'AS'. " 8 -> 3

lv_state = 3.

CONTINUE.

WHEN 'MIN(' OR " 8 -> 5

'MAX(' OR

'AVG(' OR

'SUM('.

lv_state = 5.

APPEND ls_fieldinfo TO mt_fieldinfo.

CLEAR ls_fieldinfo.

ls_fieldinfo-agg_function = lv_word(3).

CONTINUE.

WHEN 'COUNT('. " 8 -> 9

lv_state = 9.

APPEND ls_fieldinfo TO mt_fieldinfo.

CLEAR ls_fieldinfo.

ls_fieldinfo-agg_function = lv_word(5).

* if only one record will be returned

* -> it's like a SELECT SINGLE

* depends if there is a group by clause or not

READ TABLE mt_keywords TRANSPORTING NO FIELDS

WITH KEY keyword = 'GROUP BY'.

IF sy-subrc EQ 0.

CLEAR mv_sel_single.

ELSE.

mv_sel_single = 'X'.

ENDIF.

CONTINUE.

ENDCASE.

IF parse_check_fieldname(

iv_word = lv_word

it_keywords = lt_keywords ) = 'X'. " 8 -> 2

lv_state = 2.

APPEND ls_fieldinfo TO mt_fieldinfo.

CLEAR ls_fieldinfo.

ls_fieldinfo-orig_field = lv_word.

CONTINUE.

ELSE. " 8 -> error

lv_error = 'X'.

EXIT.

ENDIF.

WHEN 9. "************************************************

CASE lv_word.

WHEN '*'. " 9 -> 7

lv_state = 7.

ls_fieldinfo-orig_field = '*'.

CONTINUE.

WHEN 'DISTINCT'. " 9 -> 10

ls_fieldinfo-distinctf = 'X'.

lv_state = 10.

CONTINUE.

ENDCASE.

IF parse_check_fieldname(

iv_word = lv_word

it_keywords = lt_keywords ) = 'X'. " 9 -> 7

lv_state = 7.

* CLEAR ls_fieldinfo.

ls_fieldinfo-orig_field = lv_word.

CONTINUE.

ELSE. " 9 -> error

lv_error = 'X'.

EXIT.

ENDIF.

WHEN 10. "************************************************

CASE lv_word.

WHEN '*'. " 10 -> 7

lv_state = 7.

ls_fieldinfo-orig_field = '*'.

CONTINUE.

ENDCASE.

IF parse_check_fieldname(

iv_word = lv_word

it_keywords = lt_keywords ) = 'X'. " 10 -> 7

lv_state = 7.

* CLEAR ls_fieldinfo.

ls_fieldinfo-orig_field = lv_word.

CONTINUE.

ELSE. " 10 -> error

lv_error = 'X'.

EXIT.

ENDIF.

ENDCASE.

ENDLOOP.

* check errors

IF lv_error = 'X'.

IF mv_log_handle IS INITIAL.

* Message: '&1' was not expected in the field list

MESSAGE e010 WITH lv_word

RAISING parse_error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '010' iv_msgv1 = lv_word ).

RAISE parse_error.

ENDIF.

* check END state

IF lv_state <> 1 AND

lv_state <> 2 AND

lv_state <> 4 AND

lv_state <> 8.

IF mv_log_handle IS INITIAL.

* Message: Field list ended unexpectedly with '&1'

MESSAGE e011 WITH lv_word

RAISING parse_error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '011' iv_msgv1 = lv_word ).

RAISE parse_error.

ENDIF.

IF lv_state = 4.

* SELECT * -> expand *

expand_asterisk( EXCEPTIONS table_not_found = 1 ).

IF sy-subrc <> 0.

IF mv_log_handle IS INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING table_not_found.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno

iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).

RAISE table_not_found.

ENDIF.

RETURN.

ENDIF.

IF ls_fieldinfo IS NOT INITIAL.

* an END state was reached -> save the last entry

APPEND ls_fieldinfo TO mt_fieldinfo.

ENDIF.

************************************************************************

* expand table aliases, fields

LOOP AT mt_fieldinfo INTO ls_fieldinfo.

SEARCH ls_fieldinfo-orig_field FOR '~'.

IF sy-subrc EQ 0.

lv_fdpos = sy-fdpos.

MOVE ls_fieldinfo-orig_field(lv_fdpos) TO ls_fieldinfo-table_alias.

TRANSLATE ls_fieldinfo-table_alias TO UPPER CASE.

lv_fdpos = lv_fdpos + 1.

MOVE ls_fieldinfo-orig_field+lv_fdpos TO ls_fieldinfo-field.

TRANSLATE ls_fieldinfo-field TO UPPER CASE.

MODIFY mt_fieldinfo FROM ls_fieldinfo.

ELSE.

MOVE ls_fieldinfo-orig_field TO ls_fieldinfo-field.

TRANSLATE ls_fieldinfo-field TO UPPER CASE.

MODIFY mt_fieldinfo FROM ls_fieldinfo.

ENDIF.

IF ls_fieldinfo-field EQ '*'.

ls_fieldinfo-field = 'ALL'.

ELSEIF ls_fieldinfo-table_alias IS NOT INITIAL.

READ TABLE mt_table_alias

INTO ls_table_alias

WITH KEY alias = ls_fieldinfo-table_alias.

IF sy-subrc <> 0.

READ TABLE mt_table_alias

INTO ls_table_alias

WITH KEY table = ls_fieldinfo-table_alias.

ENDIF.

IF sy-subrc <> 0.

IF mv_log_handle IS INITIAL.

* Message: Field list: can not find table alias &1

MESSAGE e012 WITH ls_fieldinfo-table_alias

RAISING table_not_found.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '012' iv_msgv1 = ls_fieldinfo-table_alias ).

RAISE table_not_found.

ENDIF.

ELSE.

ls_fieldinfo-table = ls_table_alias-table.

READ TABLE mt_table_fields INTO ls_table_field

WITH KEY table = ls_table_alias-table

field = ls_fieldinfo-field.

IF sy-subrc <> 0.

IF mv_log_handle IS INITIAL.

* Message: Field '&1' does not belong to tables '&2'

MESSAGE e036 WITH ls_fieldinfo-field ls_table_alias-table

RAISING field_not_found.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '036' iv_msgv1 = ls_fieldinfo-field iv_msgv2 = ls_table_alias-table ).

RAISE field_not_found.

ENDIF.

ELSE.

ls_fieldinfo-is_key = ls_table_field-keyflag.

ENDIF.

ELSE.

READ TABLE mt_table_fields INTO ls_table_field

WITH KEY field = ls_fieldinfo-field.

IF sy-subrc <> 0.

IF mv_log_handle IS INITIAL.

* Message: Field '&1' does not belong to any of the tables

MESSAGE e016 WITH ls_fieldinfo-field

RAISING field_not_found.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '016' iv_msgv1 = ls_fieldinfo-field ).

RAISE field_not_found.

ENDIF.

ELSE.

ls_fieldinfo-table = ls_table_field-table.

ls_fieldinfo-is_key = ls_table_field-keyflag.

ENDIF.

MODIFY mt_fieldinfo FROM ls_fieldinfo.

ENDLOOP.

* tackle with duplicated fields

remove_duplicates( ).

* result set can be edited, if there is only one table and

* all key fields were selected

DESCRIBE TABLE mt_table_alias LINES lv_lines.

IF lv_lines = 1.

LOOP AT mt_table_fields INTO ls_table_field

WHERE keyflag = 'X'.

READ TABLE mt_fieldinfo

WITH KEY field = ls_table_field-field

TRANSPORTING NO FIELDS.

IF sy-subrc <> 0.

CLEAR mv_can_edit.

EXIT.

ENDIF.

ENDLOOP.

ELSE.

CLEAR mv_can_edit.

ENDIF.

ENDMETHOD. "

METHOD parse_tables.

* extracts table names from the FROM clause

* and fills up the MT_TABLE_ALIAS table

DATA: lv_state TYPE i,

lv_tabix TYPE i,

lv_error TYPE xfeld,

lv_viewgrant TYPE dd25l-viewgrant,

ls_keyword LIKE LINE OF mt_keywords,

lt_from_words TYPE lty_zhtdbt_string_tab,

lt_keywords TYPE lty_zhtdbt_string_tab,

lt_operators TYPE lty_zhtdbt_string_tab,

lv_word TYPE string,

ls_table_alias LIKE LINE OF mt_table_alias.

FIELD-SYMBOLS: <ls_table_alias> LIKE LINE OF mt_table_alias.

* get words from from_text

READ TABLE mt_keywords INTO ls_keyword

WITH KEY keyword = 'FROM'.

prepare_from_text( CHANGING cv_string = ls_keyword-text ).

CALL METHOD split_string

EXPORTING

iv_string = ls_keyword-text

IMPORTING

et_words = lt_from_words.

IF lt_from_words IS INITIAL.

IF mv_log_handle IS INITIAL.

* Message: No tables were found

MESSAGE e013 RAISING no_tables_found.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '013' ).

RAISE no_tables_found.

ENDIF.

* list of possible keywords

APPEND 'AS' TO lt_keywords.

APPEND 'INNER' TO lt_keywords.

APPEND 'LEFT' TO lt_keywords.

APPEND 'OUTER' TO lt_keywords.

APPEND 'JOIN' TO lt_keywords.

APPEND 'ON' TO lt_keywords.

APPEND 'IS' TO lt_keywords.

APPEND 'NOT' TO lt_keywords.

APPEND 'NULL' TO lt_keywords.

APPEND 'BETWEEN' TO lt_keywords.

APPEND 'AND' TO lt_keywords.

* list of possible operators

APPEND '=' TO lt_operators.

APPEND '<' TO lt_operators.

APPEND '>' TO lt_operators.

APPEND '<=' TO lt_operators.

APPEND '>=' TO lt_operators.

APPEND '=<' TO lt_operators.

APPEND '=>' TO lt_operators.

APPEND '<>' TO lt_operators.

APPEND '><' TO lt_operators.

APPEND 'EQ' TO lt_operators.

APPEND 'NE' TO lt_operators.

APPEND 'LT' TO lt_operators.

APPEND 'GT' TO lt_operators.

APPEND 'LE' TO lt_operators.

APPEND 'GE' TO lt_operators.

* parse words

* The parser is a simple automat having 19 states defined as follows:

* <from_text>: 1 {dbtab} 2 [as 3 {alias}] 4 [[inner|[left] 5 outer ] 6 join 7 {dbtab} 8 [as 9 {alias}] 10 ON 11 <join_condition>]

* <join_condition>: {field} 12 (IS 13 NOT 14 NULL) | (BETWEEN 15 {value} 16 AND 17 {value}) | (<comp> 18 {field}) 19 [AND 20 <join_condition>]

* <comp>: =|<|>|<=|>=|EQ|NE|GT|LT|LE|GE

* 1 is the START state, 2, 4 and 19 are END states.

lv_state = 1.

LOOP AT lt_from_words INTO lv_word

WHERE table_line IS NOT INITIAL.

CASE lv_state.

WHEN 1. "************************************************

* check wether it is a valid table name (and no keyword)

IF parse_check_name(

iv_word = lv_word

it_keywords = lt_keywords ) = 'X'. " 1 -> 2

lv_state = 2.

ls_table_alias-table = lv_word. " store table name

CONTINUE.

ELSE. " 1 -> error

lv_error = 'X'.

EXIT.

ENDIF.

WHEN 2. "************************************************

* check wether it is a keyword

CASE lv_word.

WHEN 'AS'. " 2 -> 3

lv_state = 3.

CONTINUE.

WHEN 'INNER'. " 2 -> 6

lv_state = 6.

* store table

APPEND ls_table_alias TO mt_table_alias.

CLEAR ls_table_alias.

CONTINUE.

WHEN 'LEFT'. " 2 -> 5

lv_state = 5.

* store table

APPEND ls_table_alias TO mt_table_alias.

CLEAR ls_table_alias.

CONTINUE.

WHEN 'OUTER'. " 2 -> 6

lv_state = 6.

* store table

APPEND ls_table_alias TO mt_table_alias.

CLEAR ls_table_alias.

CONTINUE.

WHEN 'JOIN'. " 2 -> 7

lv_state = 7.

* store table

APPEND ls_table_alias TO mt_table_alias.

CLEAR ls_table_alias.

CONTINUE.

ENDCASE.

* check wether it is a valid table name (and no keyword)

IF parse_check_name(

iv_word = lv_word

it_keywords = lt_keywords ) = 'X'. " 2 -> 2

ls_table_alias-table = lv_word. " store table name

CONTINUE.

ELSE. " 2 -> error

lv_error = 'X'.

EXIT.

ENDIF.

WHEN 3. "************************************************

* check wether it is a valid table name (and no keyword)

IF parse_check_name(

iv_word = lv_word

it_keywords = lt_keywords ) = 'X'. " 3 -> 4

lv_state = 4.

ls_table_alias-alias = lv_word. " store table alias

* store table

APPEND ls_table_alias TO mt_table_alias.

CLEAR ls_table_alias.

CONTINUE.

ELSE. " 3 -> error

lv_error = 'X'.

EXIT.

ENDIF.

WHEN 4. "************************************************

CASE lv_word.

WHEN 'INNER'. " 4 -> 6

lv_state = 6.

CONTINUE.

WHEN 'LEFT'. " 4 -> 5

lv_state = 5.

CONTINUE.

WHEN 'OUTER'. " 4 -> 6

lv_state = 6.

CONTINUE.

WHEN 'JOIN'. " 4 -> 7

lv_state = 7.

CONTINUE.

ENDCASE.

* check wether it is a valid table name (and no keyword)

IF parse_check_name(

iv_word = lv_word

it_keywords = lt_keywords ) = 'X'. " 4 -> 2

lv_state = 2.

ls_table_alias-table = lv_word. " store table name

CONTINUE.

ELSE. " 4 -> error

lv_error = 'X'.

EXIT.

ENDIF.

WHEN 5. "************************************************

CASE lv_word.

WHEN 'OUTER'. " 5 -> 6

lv_state = 6.

CONTINUE.

WHEN 'JOIN'. " 5 -> 7

lv_state = 7.

CONTINUE.

WHEN OTHERS. " 5 -> error

lv_error = 'X'.

EXIT.

ENDCASE.

WHEN 6. "************************************************

IF lv_word = 'JOIN'. " 6 -> 7

lv_state = 7.

CONTINUE.

ELSE. " 6 -> error

lv_error = 'X'.

EXIT.

ENDIF.

WHEN 7. "************************************************

* check wether it is a valid table name (and no keyword)

IF parse_check_name(

iv_word = lv_word

it_keywords = lt_keywords ) = 'X'. " 7 -> 8

lv_state = 8.

ls_table_alias-table = lv_word. " store table name

CONTINUE.

ELSE. " 7 -> error

lv_error = 'X'.

EXIT.

ENDIF.

WHEN 8. "************************************************

CASE lv_word.

WHEN 'AS'. " 8 -> 9

lv_state = 9.

CONTINUE.

WHEN 'ON'. " 8 -> 11

lv_state = 11.

* store table

APPEND ls_table_alias TO mt_table_alias.

CLEAR ls_table_alias.

CONTINUE.

ENDCASE.

lv_error = 'X'. " 8 -> error

EXIT.

WHEN 9. "************************************************

* check wether it is a valid table name (and no keyword)

IF parse_check_name(

iv_word = lv_word

it_keywords = lt_keywords ) = 'X'. " 9 -> 10

lv_state = 10.

ls_table_alias-alias = lv_word. " store table alias

* store table

APPEND ls_table_alias TO mt_table_alias.

CLEAR ls_table_alias.

CONTINUE.

ELSE. " 9 -> error

lv_error = 'X'.

EXIT.

ENDIF.

WHEN 10. "***********************************************

IF lv_word = 'ON'. " 10 -> 11

lv_state = 11.

CONTINUE.

ELSE. " 10 -> error

lv_error = 'X'.

EXIT.

ENDIF.

WHEN 11. "***********************************************

* check wether it is a valid field name (and no keyword)

IF parse_check_fieldname(

iv_word = lv_word

it_keywords = lt_keywords ) = 'X'. " 11 -> 12

lv_state = 12.

CONTINUE.

ELSE. " 11 -> error

lv_error = 'X'.

EXIT.

ENDIF.

WHEN 12. "***********************************************

CASE lv_word.

WHEN 'IS'. " 12 -> 13

lv_state = 13.

CONTINUE.

WHEN 'BETWEEN'. " 12 -> 15

lv_state = 15.

CONTINUE.

ENDCASE.

* check wether it is an operator

READ TABLE lt_operators WITH KEY table_line = lv_word

TRANSPORTING NO FIELDS.

IF sy-subrc = 0. " 12 -> 18

lv_state = 18.

CONTINUE.

ELSE. " 12 -> error

lv_error = 'X'.

EXIT.

ENDIF.

WHEN 13. "***********************************************

IF lv_word = 'NOT'. " 13 -> 14

lv_state = 14.

CONTINUE.

ELSE. " 13 -> error

lv_error = 'X'.

EXIT.

ENDIF.

WHEN 14. "***********************************************

IF lv_word = 'NULL'. " 14 -> 19

lv_state = 19.

CONTINUE.

ELSE. " 14 -> error

lv_error = 'X'.

EXIT.

ENDIF.

WHEN 15. "***********************************************

* check wether it's a valid value

IF parse_check_value( lv_word ) = 'X'. " 15 -> 16

lv_state = 16.

CONTINUE.

ELSE. " 15 -> error

lv_error = 'X'.

EXIT.

ENDIF.

WHEN 16. "***********************************************

IF lv_word = 'AND'. " 16 -> 17

lv_state = 17.

CONTINUE.

ELSE. " 16 -> error

lv_error = 'X'.

EXIT.

ENDIF.

WHEN 17. "***********************************************

* check wether it's a valid value

IF parse_check_value( lv_word ) = 'X'. " 17 -> 19

lv_state = 19.

CONTINUE.

ELSE. " 17 -> error

lv_error = 'X'.

EXIT.

ENDIF.

WHEN 18. "***********************************************

* check wether it is a valid field name (and no keyword)

IF parse_check_fieldname(

iv_word = lv_word

it_keywords = lt_keywords ) = 'X'. " 18 -> 19

lv_state = 19.

CONTINUE.

ELSE.

* check wether it's a valid value

IF parse_check_value( lv_word ) = 'X'. " 18 -> 19

lv_state = 19.

CONTINUE.

ELSE. " 18 -> error

lv_error = 'X'.

EXIT.

ENDIF.

WHEN 19. "***********************************************

CASE lv_word.

WHEN 'AND'. " 19 -> 11

lv_state = 11.

CONTINUE.

WHEN 'INNER'. " 19 -> 6

lv_state = 6.

CONTINUE.

WHEN 'LEFT'. " 19 -> 5

lv_state = 5.

CONTINUE.

WHEN 'OUTER'. " 19 -> 6

lv_state = 6.

CONTINUE.

WHEN 'JOIN'. " 19 -> 7

lv_state = 7.

CONTINUE.

ENDCASE.

* check wether it is a valid table name (and no keyword)

IF parse_check_name(

iv_word = lv_word

it_keywords = lt_keywords ) = 'X'. " 19 -> 2

lv_state = 2.

ls_table_alias-table = lv_word. " store table name

CONTINUE.

ELSE. " 19 -> error

lv_error = 'X'.

EXIT.

ENDIF.

ENDCASE.

ENDLOOP.

* ERROR state

IF lv_error = 'X'.

IF mv_log_handle IS INITIAL.

* Message: '&1' was not expected in the FROM clause

MESSAGE e008 WITH lv_word

RAISING parse_error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '008' iv_msgv1 = lv_word ).

RAISE parse_error.

ENDIF.

* check END state

IF lv_state <> 2 AND

lv_state <> 4 AND

lv_state <> 19. " an END state was not reached

IF mv_log_handle IS INITIAL.

* Message: FROM clause ended unexpectedly with '&1'

MESSAGE e009 WITH lv_word

RAISING parse_error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '009' iv_msgv1 = lv_word ).

RAISE parse_error.

ENDIF.

IF ls_table_alias IS NOT INITIAL.

* an END state was reached -> save last entry

APPEND ls_table_alias TO mt_table_alias.

ENDIF.

* get table fields from DDIC

LOOP AT mt_table_alias INTO ls_table_alias.

lv_tabix = sy-tabix.

* check if already processed

READ TABLE mt_table_fields

WITH KEY table = ls_table_alias-table

TRANSPORTING NO FIELDS.

IF sy-subrc = 0.

CONTINUE.

ENDIF.

* check if it is a transparent table

SELECT tabname fieldname keyflag position

FROM dd03vv

APPENDING TABLE mt_table_fields

WHERE tabname = ls_table_alias-table AND

tabclass = 'TRANSP' AND

as4local = 'A' AND

fieldname NOT LIKE '.%' AND

fieldname NOT LIKE '*%' AND

fieldname NOT LIKE '$_%' ESCAPE '$' AND

fieldname NOT LIKE '$%%' ESCAPE '$'

ORDER BY position.

* not a transparent table

IF sy-subrc EQ 4.

* check if it is a view

* viewfield instead of fieldname, field alias may be defined in a view!

SELECT viewname AS tabname viewfield keyflag objpos AS position

FROM dd27s

APPENDING TABLE mt_table_fields

WHERE viewname = ls_table_alias-table AND

as4local = 'A' AND

* possible to define * in views to include all fields from a table, and - to exclude a field

viewfield <> '*' AND

viewfield <> '-' AND

fieldname NOT LIKE '.%' AND

fieldname NOT LIKE '*%' AND

fieldname NOT LIKE '$_%' ESCAPE '$' AND

fieldname NOT LIKE '$%%' ESCAPE '$'

ORDER BY position.

* not a view

IF sy-subrc EQ 4.

* check if it is a Clustered table

SELECT tabname fieldname keyflag position

FROM dd03vv

APPENDING TABLE mt_table_fields

WHERE tabname = ls_table_alias-table AND

tabclass = 'CLUSTER' AND

as4local = 'A' AND

fieldname NOT LIKE '.%' AND

fieldname NOT LIKE '*%' AND

fieldname NOT LIKE '$_%' ESCAPE '$' AND

fieldname NOT LIKE '$%%' ESCAPE '$'

ORDER BY position.

* not a Clustered table

IF sy-subrc EQ 4.

* check if it is a Pooled table

SELECT tabname fieldname keyflag position

FROM dd03vv

APPENDING TABLE mt_table_fields

WHERE tabname = ls_table_alias-table AND

tabclass = 'POOL' AND

as4local = 'A' AND

fieldname NOT LIKE '.%' AND

fieldname NOT LIKE '*%' AND

fieldname NOT LIKE '$_%' ESCAPE '$' AND

fieldname NOT LIKE '$%%' ESCAPE '$'

ORDER BY position.

* not a Pooled table

IF sy-subrc EQ 4.

IF mv_log_handle IS INITIAL.

* Message: Table '&1' does not exist

MESSAGE e014 WITH ls_table_alias-table

RAISING table_not_exist.

ELSE.

CALL METHOD add_message( iv_msgty = 'W' iv_msgid = 'ZSQL_FREE' iv_msgno = '014' iv_msgv1 = ls_table_alias-table ).

RAISE table_not_exist.

ENDIF.

* it is a Pooled table

ELSE.

ls_table_alias-type = 'P'.

CLEAR mv_can_edit.

ENDIF.

* it is a Clustered table

ELSE.

ls_table_alias-type = 'C'.

CLEAR mv_can_edit.

ENDIF.

* it is a view

ELSE.

ls_table_alias-type = 'V'.

SELECT SINGLE viewgrant FROM dd25l INTO lv_viewgrant

WHERE viewname = ls_table_alias-table AND

as4local = 'A'.

IF sy-subrc EQ 0.

IF lv_viewgrant EQ 'R'.

CLEAR mv_can_edit.

ENDIF.

* it is a transparent table

ELSE.

ls_table_alias-type = 'T'.

ENDIF.

MODIFY mt_table_alias FROM ls_table_alias INDEX lv_tabix.

ENDLOOP.

* complete missing table types

LOOP AT mt_table_alias ASSIGNING <ls_table_alias>

WHERE TABLE is INITIAL.

* read the first record with the same table name

READ TABLE mt_table_alias

WITH KEY table = <ls_table_alias>-table

INTO ls_table_alias.

<ls_table_alias>-type = ls_table_alias-type.

ENDLOOP.

* SORT mt_table_fields BY table field.

* DELETE ADJACENT DUPLICATES FROM mt_table_fields COMPARING table field.

* parse other tables (subqueries in the WHERE clause)

CALL METHOD parse_adt_tables

EXCEPTIONS

OTHERS = 1.

IF sy-subrc <> 0.

IF mv_log_handle IS INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4

RAISING parse_error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno

iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).

RAISE parse_error.

ENDIF.

ENDMETHOD. "

METHOD prepare_from_text.

* remove each '(' and ')'

DATA: lv_length TYPE i,

lv_shift TYPE i,

lv_pos TYPE i,

lv_char(1) TYPE c.

SEARCH cv_string FOR '%_HINT'.

IF sy-subrc EQ 0.

lv_pos = sy-fdpos - 1.

cv_string = cv_string(lv_pos).

ENDIF.

lv_shift = -1.

lv_length = STRLEN( cv_string ).

DO.

lv_shift = lv_shift + 1.

IF lv_shift = lv_length.

EXIT.

ENDIF.

lv_char = cv_string+lv_shift(1).

IF lv_char = '(' OR

lv_char = ')'.

lv_pos = lv_shift + 1.

CONCATENATE cv_string(lv_shift) cv_string+lv_pos

INTO cv_string SEPARATED BY space.

ENDIF.

ENDDO.

ENDMETHOD. "

METHOD prepare_sel_text.

* put a SPACE after each '(' and before each ')' so the parser

* can parse the words

DATA: lv_length TYPE i,

lv_shift TYPE i,

lv_pos TYPE i,

lv_char(1) TYPE c.

lv_shift = -1.

lv_length = STRLEN( cv_string ).

DO.

lv_shift = lv_shift + 1.

IF lv_shift = lv_length.

EXIT.

ENDIF.

lv_char = cv_string+lv_shift(1).

IF lv_char = '('.

lv_pos = lv_shift + 1.

CONCATENATE cv_string(lv_pos) cv_string+lv_pos INTO cv_string

SEPARATED BY space.

lv_length = lv_length + 1.

lv_shift = lv_shift + 1.

ENDIF.

IF lv_char = ')'.

CONCATENATE cv_string(lv_shift) cv_string+lv_shift INTO cv_string

SEPARATED BY space.

lv_length = lv_length + 1.

lv_shift = lv_shift + 1.

ENDIF.

ENDDO.

ENDMETHOD. "

METHOD rebuild_field_list.

* builds the field list of the SELECT clause into a string table

DATA: ls_fieldinfo LIKE LINE OF mt_fieldinfo,

lv_string TYPE string,

lv_string2 TYPE string,

lv_tabix TYPE i,

ls_table_alias LIKE LINE OF mt_table_alias,

lv_fieldname TYPE fieldname.

IF mt_fieldinfo IS INITIAL.

MESSAGE e148 RAISING no_auth_for_columns.

ENDIF.

* check that fields exist

LOOP AT mt_fieldinfo INTO ls_fieldinfo WHERE orig_field NE '*'.

READ TABLE mt_table_alias INTO ls_table_alias

WITH KEY table = ls_fieldinfo-table.

IF sy-subrc NE 0.

IF mv_log_handle IS INITIAL.

* Could not find field &1 in table &2 (type &3)

MESSAGE s038 DISPLAY LIKE 'E' WITH ls_fieldinfo-field ls_fieldinfo-table '?' RAISING error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '038' iv_msgv1 = ls_fieldinfo-field iv_msgv2 = ls_fieldinfo-table ).

RAISE error.

ENDIF.

CASE ls_table_alias-type.

WHEN 'T'.

SELECT SINGLE fieldname

INTO lv_fieldname

FROM dd03l

WHERE tabname = ls_fieldinfo-table AND

fieldname = ls_fieldinfo-field AND

as4local = 'A' AND

fieldname NOT LIKE '.%' AND

fieldname NOT LIKE '*%' AND

fieldname NOT LIKE '$_%' ESCAPE '$' AND

fieldname NOT LIKE '$%%' ESCAPE '$'.

WHEN 'V'.

SELECT SINGLE viewfield

INTO lv_fieldname

FROM dd27s

WHERE viewname = ls_fieldinfo-table AND

viewfield = ls_fieldinfo-field AND

as4local = 'A' AND

fieldname NOT LIKE '.%' AND

fieldname NOT LIKE '*%' AND

fieldname NOT LIKE '$_%' ESCAPE '$' AND

fieldname NOT LIKE '$%%' ESCAPE '$'.

* WHEN 'P'.

* SELECT SINGLE fieldname

* INTO lv_fieldname

* FROM dd03vv

* WHERE tabname = ls_fieldinfo-table AND

* fieldname = ls_fieldinfo-field AND

** in view already

** AS4LOCAL = 'A' AND

* fieldname NOT LIKE '.%' AND

* fieldname NOT LIKE '*%' AND

* fieldname NOT LIKE '$_%' ESCAPE '$' AND

* fieldname NOT LIKE '$%%' ESCAPE '$'.

WHEN 'C' OR 'P'.

* SELECT SINGLE fieldname

* INTO lv_fieldname

* FROM dd16v

* WHERE sqltab = ls_fieldinfo-table AND

* fieldname = ls_fieldinfo-field AND

** in view already

** AS4LOCAL = 'A' AND

* fieldname NOT LIKE '.%' AND

* fieldname NOT LIKE '*%' AND

* fieldname NOT LIKE '$_%' ESCAPE '$' AND

* fieldname NOT LIKE '$%%' ESCAPE '$'.

SELECT SINGLE fieldname

INTO lv_fieldname

FROM dd03l

WHERE tabname = ls_fieldinfo-table AND

fieldname = ls_fieldinfo-field AND

as4local = 'A' AND

fieldname NOT LIKE '.%' AND

fieldname NOT LIKE '*%' AND

fieldname NOT LIKE '$_%' ESCAPE '$' AND

fieldname NOT LIKE '$%%' ESCAPE '$'.

ENDCASE.

IF sy-subrc NE 0.

IF mv_log_handle IS INITIAL.

* Could not find field &1 in table &2 (type &3)

MESSAGE s038 DISPLAY LIKE 'E' WITH ls_fieldinfo-field ls_fieldinfo-table ls_table_alias-type RAISING error.

ELSE.

CALL METHOD add_message( iv_msgty = 'E' iv_msgid = 'ZSQL_FREE' iv_msgno = '038' iv_msgv1 = ls_fieldinfo-field iv_msgv2 = ls_fieldinfo-table ).

RAISE error.

ENDIF.

ENDLOOP.

LOOP AT mt_fieldinfo INTO ls_fieldinfo.

CLEAR: lv_string, lv_string2.

IF ls_fieldinfo-agg_function IS INITIAL. " aggragate function

IF ls_fieldinfo-table_alias IS NOT INITIAL.

CONCATENATE ls_fieldinfo-table_alias '~' ls_fieldinfo-field INTO lv_string2.

ELSE.

MOVE ls_fieldinfo-orig_field TO lv_string2.

ENDIF.

CONCATENATE lv_string lv_string2 INTO lv_string SEPARATED BY ' '.

ELSE.

CONCATENATE ls_fieldinfo-agg_function '(' INTO lv_string.

IF ls_fieldinfo-distinctf = 'X'.

CONCATENATE lv_string 'DISTINCT' INTO lv_string

SEPARATED BY ' '.

ENDIF.

IF ls_fieldinfo-field = '*'.

CONCATENATE lv_string '*' ')' INTO lv_string SEPARATED BY ' '.

ELSE.

IF ls_fieldinfo-table_alias IS NOT INITIAL.

CONCATENATE ls_fieldinfo-table_alias '~' ls_fieldinfo-field INTO lv_string2.

ELSE.

MOVE ls_fieldinfo-orig_field TO lv_string2.

ENDIF.

CONCATENATE lv_string lv_string2 INTO lv_string SEPARATED BY ' '.

CONCATENATE lv_string ')' INTO lv_string SEPARATED BY ' '.

ENDIF.

CONCATENATE lv_string 'AS' ls_fieldinfo-generated_field INTO lv_string SEPARATED BY ' '.

SHIFT lv_string RIGHT BY 3 PLACES.

APPEND lv_string TO ct_srccode.

ENDLOOP.

ENDMETHOD. "

METHOD remove_duplicates.

* tackles with duplicates in the field list

DATA: ls_fieldinfo LIKE LINE OF mt_fieldinfo,

ls_fieldinfo_copy LIKE LINE OF mt_fieldinfo,

lv_same_cnt TYPE i,

lv_tabix TYPE i,

lv_string TYPE string,

lt_fieldinfo_copy LIKE mt_fieldinfo.

LOOP AT mt_fieldinfo INTO ls_fieldinfo.

IF ls_fieldinfo-field_alias IS NOT INITIAL.

ls_fieldinfo-generated_field = ls_fieldinfo-field_alias.

ELSEIF ls_fieldinfo-agg_function IS NOT INITIAL.

CONCATENATE ls_fieldinfo-agg_function ls_fieldinfo-field

INTO ls_fieldinfo-generated_field SEPARATED BY '_'.

ELSE.

ls_fieldinfo-generated_field = ls_fieldinfo-field.

ENDIF.

* CONNECTION is a reserved word, will cause a syntax error

IF ls_fieldinfo-generated_field = 'CONNECTION'.

ls_fieldinfo-generated_field = 'CONNECTION_'.

ENDIF.

TRANSLATE ls_fieldinfo-generated_field TO UPPER CASE.

MODIFY mt_fieldinfo FROM ls_fieldinfo INDEX sy-tabix.

ENDLOOP.

lt_fieldinfo_copy[] = mt_fieldinfo[].

LOOP AT mt_fieldinfo INTO ls_fieldinfo.

CLEAR lv_same_cnt.

lv_tabix = sy-tabix.

LOOP AT lt_fieldinfo_copy INTO ls_fieldinfo_copy

FROM lv_tabix

WHERE generated_field = ls_fieldinfo-generated_field.

IF lv_tabix <> sy-tabix.

IF ls_fieldinfo_copy-table = ls_fieldinfo-table.

lv_same_cnt = lv_same_cnt + 1.

ls_fieldinfo_copy-samecount = lv_same_cnt.

CONCATENATE ls_fieldinfo_copy-table ls_fieldinfo_copy-generated_field

INTO ls_fieldinfo_copy-generated_field SEPARATED BY '_'.

lv_string = lv_same_cnt.

CONCATENATE ls_fieldinfo_copy-generated_field lv_string

INTO ls_fieldinfo_copy-generated_field SEPARATED BY '_'.

MODIFY lt_fieldinfo_copy FROM ls_fieldinfo_copy INDEX sy-tabix.

ENDIF.

IF ls_fieldinfo_copy-table <> ls_fieldinfo-table.

IF ls_fieldinfo_copy-field_alias IS NOT INITIAL.

ls_fieldinfo_copy-generated_field = ls_fieldinfo_copy-field_alias.

ELSE.

CONCATENATE ls_fieldinfo_copy-table ls_fieldinfo_copy-generated_field

INTO lv_string SEPARATED BY '_'.

ls_fieldinfo_copy-generated_field = lv_string.

ENDIF.

MODIFY lt_fieldinfo_copy FROM ls_fieldinfo_copy INDEX sy-tabix.

ENDIF.

ENDLOOP.

mt_fieldinfo[] = lt_fieldinfo_copy[].

ENDMETHOD. "

METHOD check_inserted_orgcritdep.

FIELD-SYMBOLS: <lt_inserted> TYPE ANY TABLE,

<ls_inserted> TYPE ANY.

ASSIGN it_inserted->* TO <lt_inserted>.

IF sy-subrc NE 0.

RAISE assign_error.

ENDIF.

* AUTHORITY-CHECK OBJECT 'S_TABU_LIN'

* ID 'ORG_CRIT' FIELD ls_orgcrit_tabdep-org_crit

* ID 'ACTVT' FIELD '02'

* ID 'ORG_FIELD1' FIELD '__________'

* ID 'ORG_FIELD2' FIELD '__________'

* ID 'ORG_FIELD3' FIELD '__________'

* ID 'ORG_FIELD4' FIELD '__________'

* ID 'ORG_FIELD5' FIELD '__________'

* ID 'ORG_FIELD6' FIELD '__________'

* ID 'ORG_FIELD7' FIELD '__________'

* ID 'ORG_FIELD8' FIELD '__________'.

* IF sy-subrc = 1.

* RAISE no_auth_for_inserted_records.

* ENDIF.

ENDMETHOD. "CHECK_INSERTED_ORGCRITDEP

ENDCLASS. "lcl_HTDB_CL_COMMAND_SELECT IMPLEMENTATION

*---------------------------------------------------------------------*

* CLASS LCL_COMMAND DEFINITION

*---------------------------------------------------------------------*

CLASS lcl_command DEFINITION ABSTRACT.

PUBLIC SECTION.

DATA: mo_pipacs_command TYPE REF TO lcl_htdb_cl_command,

mt_srccode TYPE lty_zhtdbt_string_tab,

mr_lock_argument TYPE REF TO data,

mr_lock_argument_temp TYPE REF TO data,

mv_last_display TYPE lty_last_display_mode,

mv_grid_modified_toggled TYPE c,

mv_ref_check TYPE c,

mv_grid_modified TYPE c,

mv_current_page TYPE i,

mv_from TYPE i,

mv_to TYPE i,

mv_colmn_header TYPE c,

mv_key_colmn_type TYPE c,

mv_command_type(2) TYPE n.

METHODS: execute_parsed_sql

IMPORTING

po_grid TYPE REF TO cl_gui_alv_grid OPTIONAL

po_tree TYPE REF TO cl_gui_alv_tree OPTIONAL

iv_simulation TYPE char1 OPTIONAL

iv_bg_proc TYPE char1 OPTIONAL

iv_bg_date TYPE btcsdate OPTIONAL

iv_bg_time TYPE btcstime OPTIONAL

iv_read_from_file TYPE flag OPTIONAL

EXPORTING

er_exception TYPE REF TO cx_root

et_srccode TYPE lty_zhtdbt_string_tab

EXCEPTIONS

table_not_found

parse_error

exec_error

error_occurred

unlock_error

arg_to_long

foreign_lock

foreign_lock_all_clients

job_submit_error

field_list_changed

file_open_error

no_auth_for_table,

* sima GET/SET cuccok

set_commandtext IMPORTING p_commandtext TYPE gty_commandtext,

get_type EXPORTING value(ep_command_type) TYPE lty_commandtype,

parse_commandtext

IMPORTING

p_on_load TYPE c OPTIONAL

p_bf_test TYPE c OPTIONAL

EXCEPTIONS

error_occurred,

constructor

IMPORTING

p_copy_from TYPE REF TO lcl_command OPTIONAL.

* VRANGES

**** value range cuccok begin

DATA:

it_ranges TYPE lty_zhdb_vrange_tab,

is_x030l TYPE x030l.

DATA: mt_alias_ranges TYPE TABLE OF gty_alias_ranges,

mt_ranges TYPE TABLE OF gty_ranges.

**** value range cuccok end

* a jobb oldali fa itabja (tablanevek, value rangek) es node_key referencia table

DATA: mt_outtab_tb TYPE TABLE OF lty_zhtdb_alv_tab,

mt_tab_node_xref TYPE TABLE OF gty_tab_node_xref.

* command type: select/update/delete/LAWB/script/select fae

DATA: command_type TYPE lty_commandtype,

command_id TYPE lty_commandid,

* hany sort erintett a command

mv_dbcnt TYPE i,

mv_rowlen TYPE i,

mv_bytes TYPE i,

* treeben node_key

node_key TYPE lvc_nkey,

* tree hierarchianban melyik szinten van

treelevel TYPE i,

* where text kulon

where_text TYPE gty_commandtext,

* command text mint string

commandtext TYPE gty_commandtext,

* generalt command text mint string

gen_commandtext TYPE gty_commandtext,

* generalt text, obsolete lesz

gen_text TYPE source_table,

* original text, obsolete lesz (?)

text TYPE source_table,

table_alias_tb TYPE lty_zhtdb_table_aliases_tt,

* DATA: mv_tot_upd TYPE i,

* mv_tot_ins TYPE i,

* mv_tot_del TYPE i,

* mv_upd TYPE i,

* mv_ins TYPE i,

* mv_del TYPE i,

* hany byte volt a teljes athozott result set

mv_filtered TYPE i,

mv_pos TYPE i.

DATA: alv_state TYPE i.

DATA: mv_locked TYPE c,

mv_cansave TYPE c VALUE 'X',

* mv_locked_count TYPE i,

mv_ctext_changed TYPE c.

PRIVATE SECTION.

ENDCLASS. "LCL_COMMAND DEFINITION

CLASS lcl_select_command DEFINITION DEFERRED.

*----------------------------------------------------------------------*

* CLASS lcl_application DEFINITION

*----------------------------------------------------------------------*

CLASS lcl_application DEFINITION.

PUBLIC SECTION.

DATA: mv_cccategory TYPE cccategory.

** brute force testing stuff

TYPES: BEGIN OF mty_t_type,

line(255),

* LINE TYPE string,

END OF mty_t_type.

TYPES: mty_tt_type TYPE STANDARD TABLE OF mty_t_type WITH

NON-UNIQUE DEFAULT KEY INITIAL SIZE 500.

DATA:

mv_log_handle TYPE balloghndl,

ms_s_log TYPE bal_s_log,

ms_s_msg TYPE bal_s_msg,

mt_replace_message TYPE bal_t_rplv,

mt_replace_context TYPE bal_t_rplc,

ms_object TYPE bal_s_obj,

ms_extnumber TYPE bal_s_extn,

ms_log_filter TYPE bal_s_lfil,

mt_log_header TYPE balhdr_t.

** brute force test end

DATA: dragdrop_tree TYPE REF TO cl_dragdrop,

g_dropeffect TYPE i,

g_handle_tree TYPE i,

mv_la_fs_was_result TYPE c VALUE 'X'.

DATA: mt_permitted_commandtypes TYPE TABLE OF rsrange,

mv_tree_tb_width TYPE i,

mv_result_height TYPE i,

mv_result_already_unlocked TYPE c.

METHODS:

remove_gen_programs,

insert_stringtab_to_pos

IMPORTING

it_stringtab TYPE lty_zhtdbt_string_tab,

check_s_tabu_dis

IMPORTING

iv_for_editing TYPE char1

iv_tabname TYPE tabname

EXPORTING

ev_auth TYPE char1,

issue_message

IMPORTING

iv_msgty TYPE symsgty

iv_msgno TYPE symsgno

iv_to_log TYPE char1 DEFAULT ' '

iv_msgid TYPE symsgid DEFAULT sy-msgid

iv_display_like TYPE char1 OPTIONAL

iv_msgv1 TYPE any OPTIONAL

iv_msgv2 TYPE any OPTIONAL

iv_msgv3 TYPE any OPTIONAL

iv_msgv4 TYPE any OPTIONAL,

constructor,

get_selected_word

EXPORTING

ep_word TYPE string,

show_abap_docu,

show_syntax_diagram,

read_checktables

IMPORTING

sender TYPE c

i_ucomm TYPE sy-ucomm,

create_txt_toolbar,

handle_lq_ctx_sel

IMPORTING

sender TYPE c

e_ucomm TYPE sy-ucomm,

handle_context_menu

FOR EVENT context_menu OF cl_gui_abapedit "cl_gui_textedit

IMPORTING menu sender,

handle_f1_textedit

FOR EVENT f1 OF cl_gui_abapedit, "cl_gui_textedit,

handle_context_menu_selected

FOR EVENT context_menu_selected OF cl_gui_abapedit "cl_gui_textedit

IMPORTING fcode,

handle_node_ctx_menu_sel_lq

FOR EVENT node_context_menu_selected OF cl_gui_alv_tree

IMPORTING fcode,

handle_context_menu_tree_tb_n

FOR EVENT node_context_menu_request OF cl_gui_alv_tree

IMPORTING menu,

handle_lq_context_menu

IMPORTING

sender TYPE c

e_object TYPE REF TO cl_ctmenu,

* tables tree

handle_node_double_click

FOR EVENT node_double_click OF cl_gui_alv_tree

IMPORTING node_key,

*new*

handle_dropdown_clicked

FOR EVENT dropdown_clicked OF cl_gui_toolbar

IMPORTING fcode posx posy.

METHODS: refresh_status_indicators,

display_table_grid,

create_tb_tree_toolbar.

METHODS:

handle_function_selected

FOR EVENT function_selected OF cl_gui_toolbar

IMPORTING fcode,

handle_function_selected_txt

FOR EVENT function_selected OF cl_gui_toolbar

IMPORTING fcode.

METHODS:

handle_context_menu_alv

FOR EVENT context_menu_request OF cl_gui_alv_grid

IMPORTING e_object sender,

handle_menu_button

FOR EVENT menu_button OF cl_gui_alv_grid

IMPORTING e_object e_ucomm,

handle_toolbar

FOR EVENT toolbar OF cl_gui_alv_grid

IMPORTING e_object e_interactive sender,

handle_user_command

FOR EVENT user_command OF cl_gui_alv_grid

IMPORTING e_ucomm sender,

handle_double_click

FOR EVENT double_click OF cl_gui_alv_grid

IMPORTING e_column e_row sender,

handle_after_refresh

FOR EVENT data_changed OF cl_gui_alv_grid.

METHODS:

set_column_settings IMPORTING p_mode TYPE sy-ucomm,

set_key_field_settings IMPORTING p_mode TYPE sy-ucomm,

set_column_headings,

set_key_display_attributes,

refresh_display.

ENDCLASS. "lcl_application DEFINITION

*---------------------------------------------------------------------*

* CLASS LCL_COMMANDS DEFINITION

*---------------------------------------------------------------------*

CLASS lcl_commands DEFINITION.

PUBLIC SECTION.

CONSTANTS: gc_initial_mark TYPE string VALUE ' ',

gc_initial_mark_xref TYPE string VALUE 'ZENITH_INITIAL_VALUE',

gc_initial_mark_display TYPE string VALUE 'N/A'.

TYPES: BEGIN OF gty_commands,

seq_no TYPE i,

command_id TYPE lty_commandid,

treelevel TYPE i,

command TYPE REF TO lcl_command,

END OF gty_commands.

TYPES: BEGIN OF mty_ctypes_exclude,

fcode TYPE rsmpe-func,

END OF mty_ctypes_exclude.

DATA: mt_ctypes_exclude TYPE TABLE OF mty_ctypes_exclude,

mv_create_auth_checked TYPE c.

METHODS:

transfer_text_to_command,

generate_structure

EXCEPTIONS

empty_fieldinfo_tb

command_is_not_select

field_not_found,

display

IMPORTING

po_grid TYPE REF TO cl_gui_alv_grid OPTIONAL

po_tree TYPE REF TO cl_gui_alv_tree OPTIONAL,

create_new_command

IMPORTING

p_command_type TYPE lty_commandtype

reference(p_copy_from) TYPE REF TO lcl_command OPTIONAL,

* p_during_initial_load TYPE c OPTIONAL,

execute_command

IMPORTING

iv_mode TYPE sy-ucomm

iv_bg_proc TYPE char1 OPTIONAL

iv_bg_date TYPE btcsdate OPTIONAL

iv_bg_time TYPE btcstime OPTIONAL

iv_read_from_file TYPE flag OPTIONAL,

parse_only_command

IMPORTING

p_on_load TYPE c OPTIONAL

EXCEPTIONS

no_id

create_error

no_parent

parse_error,

display_command,

write_status_message.

DATA: command_count TYPE i VALUE 0.

DATA: command_list TYPE TABLE OF gty_commands,

current_command TYPE REF TO lcl_command,

prev_command TYPE REF TO lcl_command.

ENDCLASS. "LCL_COMMANDS DEFINITION

*---------------------------------------------------------------------*

* CLASS LCL_SELECT_COMMAND DEFINITION

*---------------------------------------------------------------------*

CLASS lcl_select_command DEFINITION INHERITING FROM lcl_command.

PUBLIC SECTION.

* backup tablebol select

DATA: mo_parent_command TYPE REF TO lcl_select_command.

DATA: mo_pipacs_select TYPE REF TO lcl_htdb_cl_command_select.

METHODS: execute_parsed_sql REDEFINITION,

parse_commandtext REDEFINITION.

METHODS:

calculate_mv_rowlen,

constructor

IMPORTING

p_copy_from TYPE REF TO lcl_select_command OPTIONAL.

METHODS:

assign_field_symbols.

METHODS: assign_field_symbol

IMPORTING p_fs TYPE c

CHANGING value(p_table) TYPE REF TO data.

DATA: layo TYPE TABLE OF lvc_s_layo,

fcat TYPE lvc_t_fcat,

prev_fcat TYPE lvc_t_fcat,

fieldinfo_tb TYPE TABLE OF gty_fieldinfo,

ddic_references TYPE TABLE OF gty_ddicref,

can_edit TYPE c,

mv_key_fields_missing TYPE string,

mv_tree_heading TYPE tv_heading,

* lock_results TYPE c,

has_table_alias TYPE c,

has_duplicate_fields TYPE c,

selected_node TYPE lvc_nkey,

selected_rows TYPE lvc_t_row,

selected_rows2 TYPE lvc_t_roid.

DATA: select_text TYPE gty_commandtext,

all_fields_selected TYPE c,

from_text TYPE gty_commandtext,

group_by_text TYPE gty_commandtext,

having_text TYPE gty_commandtext,

order_by_text TYPE gty_commandtext.

* sort_text TYPE gty_commandtext.

DATA: result_table TYPE REF TO data,

display_table TYPE REF TO data,

deleted_table TYPE REF TO data,

updated_table TYPE REF TO data,

inserted_table TYPE REF TO data,

tree_table TYPE REF TO data,

returned_table TYPE REF TO data,

temp_table TYPE REF TO data,

undo_table TYPE REF TO data,

lawb_table TYPE REF TO data,

selfae_table TYPE REF TO data,

result_structure TYPE REF TO data,

updated_structure TYPE REF TO data,

deleted_structure TYPE REF TO data,

inserted_structure TYPE REF TO data,

temp_structure TYPE REF TO data,

undo_structure TYPE REF TO data,

lawb_structure TYPE REF TO data,

selfae_structure TYPE REF TO data.

DATA: show_all TYPE c.

DATA: mv_fdpos_select TYPE i,

mv_fdpos_from TYPE i,

mv_fdpos_where TYPE i,

mv_fdpos_gb TYPE i,

mv_fdpos_having TYPE i,

mv_fdpos_ob TYPE i,

mv_fdpos_sb TYPE i.

DATA: mv_read_from_file TYPE c.

* PRIVATE SECTION.

ENDCLASS. "LCL_SELECT_COMMAND DEFINITION

DATA: g_application TYPE REF TO lcl_application,

g_commands TYPE REF TO lcl_commands.

DATA: gv_max_rowid TYPE i,

status1(132) TYPE c,

status2(132) TYPE c.

DATA: gt_dynpread TYPE TABLE OF dynpread,

gs_dynpread TYPE dynpread.

DATA: w_okcode TYPE sy-ucomm.

DATA: gv_starttime TYPE i,

gv_endtime TYPE i,

gv_deltatime TYPE i.

DATA: g_cx_dynamic_check TYPE REF TO cx_dynamic_check,

g_root_exception TYPE REF TO cx_root.

DATA: gv_node_count TYPE i.

DATA: gv_copy_commandid TYPE i,

gv_copy_folderid TYPE i.

DATA: gr_command_clipboard TYPE REF TO lcl_command,

gv_folder_clipboard TYPE lvc_nkey,

gr_clipboard_mode TYPE c.

DATA: go_splitter_outer TYPE REF TO cl_gui_splitter_container,

go_splitter_inner TYPE REF TO cl_gui_splitter_container,

go_container_alv_tb TYPE REF TO cl_gui_container,

go_container_reklam TYPE REF TO cl_gui_container,

go_container_alv TYPE REF TO cl_gui_container,

go_container_navtree TYPE REF TO cl_gui_container,

go_container_textedit TYPE REF TO cl_gui_container,

go_container_for_inner_sp TYPE REF TO cl_gui_container,

go_container_main TYPE REF TO cl_gui_custom_container,

go_container_field_select TYPE REF TO cl_gui_custom_container,

go_container_selscr_field TYPE REF TO cl_gui_custom_container.

DATA: g_comm_longtext TYPE REF TO cl_gui_textedit,

g_container_textedit TYPE REF TO cl_gui_custom_container,

gt_text_orig TYPE TABLE OF ty_notes,

gt_lines_comm_longtext TYPE TABLE OF tline,

g_comm_longtext_read TYPE c,

g_html_viewer TYPE REF TO cl_gui_html_viewer.

DATA: g_visible TYPE c.

DATA: gt_selfae_jointext TYPE source_table.

DATA: gt_result_select_text TYPE source_table.

DATA: gc_nodekey_my_repository TYPE lvc_nkey,

gc_nodekey_current_commands TYPE lvc_nkey,

gc_nodekey_appl_hier TYPE lvc_nkey.

DATA: gv_toolbar_extended TYPE c,

gv_nodekey TYPE lvc_nkey.

DATA: gv_data_changed_finished TYPE c,

gv_undo_pressed TYPE c.

DATA: g_selected_nodekey TYPE lvc_nkey,

gv_check_button TYPE c.

DATA: gv_step_counter TYPE i,

gc_test_step_cnt TYPE i VALUE 50,

gt_testscript TYPE TABLE OF sy-ucomm,

gv_autotest TYPE c,

gt_testselects TYPE TABLE OF mty_tt_type,

gv_testselect_cnt TYPE i.

DATA: gt_outtab_tb TYPE TABLE OF lty_zhtdb_alv_tab.

DATA: gv_app_hier_counter TYPE i, " used to generate unique node keys for the tree

gv_app_hier_parent_cnt TYPE i. " used to generate unique node keys for the tree

CONSTANTS: gc_max_nodetext_length TYPE i VALUE 128.

DATA: g_folder_b TYPE REF TO cl_dragdrop,

g_command_b TYPE REF TO cl_dragdrop.

DATA: gv_lawb_test_finished TYPE c,

gv_lawb_test_success TYPE c.

DATA: gv_version TYPE c VALUE 'B'.

DATA: gv_parent_result_tx TYPE string.

DATA: gv_sel_changed_load TYPE c.

* changing the node style in the navtree

* tolnatej requirement

* must be global (in automation call)

DATA: gv_top_node_key TYPE lvc_nkey,

gt_nodes TYPE lvc_t_nkey.

*----------------------------------------------------------------------*

***INCLUDE ZHTDB_STATUS_0100O01 .

*----------------------------------------------------------------------*

*&---------------------------------------------------------------------*

*& Module STATUS_0100 OUTPUT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

MODULE status_0100 OUTPUT.

PERFORM status_0100.

ENDMODULE. " STATUS_0100 OUTPUT

*&---------------------------------------------------------------------*

*& Form STATUS_0100

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM status_0100.

DATA: l_hierarchy_header_new TYPE treev_hhdr,

lt_events_new TYPE cntl_simple_events,

ls_events_new TYPE cntl_simple_event,

node TYPE lvc_s_layn,

l_new_node_key TYPE lvc_nkey,

l_hierarchy_header TYPE treev_hhdr,

lt_events TYPE cntl_simple_events,

ls_events TYPE cntl_simple_event,

events TYPE cntl_simple_events,

event TYPE cntl_simple_event.

IF gv_0100_first_run = 'X'. " first call of the screen

SET PF-STATUS '100_MAIN'.

SET TITLEBAR '100_TITLE' WITH 'Hovitaga OpenSQL Editor Free Edition - Upgrade at www.hovitaga.com'.

gv_def_col_hdr = 'T'.

gv_def_keycol_type = 'F'.

ENDIF.

IF g_application IS INITIAL.

CREATE OBJECT g_application.

CALL METHOD g_application->remove_gen_programs.

ENDIF.

IF go_splitter_outer IS INITIAL.

g_application->mv_tree_tb_width = 25.

g_application->mv_result_height = 50.

CREATE OBJECT go_splitter_outer

EXPORTING

parent = cl_gui_container=>default_screen " cl_gui_custom_container=>screen0 "go_container_main

rows = 2

columns = 1.

CALL METHOD go_splitter_outer->get_container

EXPORTING

row = 1

column = 1

RECEIVING

container = go_container_for_inner_sp

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

CALL METHOD go_splitter_outer->get_container

EXPORTING

row = 2

column = 1

RECEIVING

container = go_container_alv

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

CREATE OBJECT go_splitter_inner

EXPORTING

parent = go_container_for_inner_sp

rows = 1

columns = 3.

CALL METHOD go_splitter_inner->get_container

EXPORTING

row = 1

column = 1

RECEIVING

container = go_container_textedit

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CALL METHOD go_splitter_inner->get_container

EXPORTING

row = 1

column = 2

RECEIVING

container = go_container_alv_tb

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CALL METHOD go_splitter_inner->get_container

EXPORTING

row = 1

column = 3

RECEIVING

container = go_container_reklam

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CALL METHOD go_splitter_inner->set_column_width

EXPORTING

id = 3

width = 30.

go_splitter_inner->set_row_mode( mode = go_splitter_inner->mode_absolute ).

CALL METHOD go_splitter_inner->set_column_sash

EXPORTING

id = 2

type = cl_gui_splitter_container=>type_movable

value = cl_gui_splitter_container=>false

* IMPORTING

* RESULT =

EXCEPTIONS

cntl_error = 1

cntl_system_error = 2

OTHERS = 3.

gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_refresh.

APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_view_excel.

APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

* gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_sum.

* APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_check.

APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_loc_undo.

APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_loc_append_row.

APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_loc_insert_row.

APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_loc_delete_row.

APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_loc_cut.

APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_loc_paste_new_row.

APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_loc_paste.

APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_loc_copy_row.

APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

* gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_subtot.

* APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_info.

APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

gs_toolbar_exclude = cl_gui_alv_grid=>mc_fc_help.

APPEND gs_toolbar_exclude TO gt_toolbar_exclude.

gs_layo-edit = 'X'.

gs_layo-zebra = 'X'.

gs_layo-stylefname = 'ZENITH_STYLE'.

gs_layo-cwidth_opt = 'X'.

gs_layo-ctab_fname = 'ZENITH_COLOR'.

gs_layo-sel_mode = 'D'.

gs_layo-no_rowmove = 'X'.

gs_layo-no_rowins = 'X'.

gs_layo-no_keyfix = 'X'.

gs_layo-smalltitle = 'X'.

CREATE OBJECT g_alv

EXPORTING

i_parent = go_container_alv.

CALL METHOD g_alv->set_ready_for_input

EXPORTING

i_ready_for_input = 0

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

SET HANDLER g_application->handle_toolbar FOR ALL INSTANCES.

SET HANDLER g_application->handle_user_command FOR ALL INSTANCES.

SET HANDLER g_application->handle_menu_button FOR g_alv.

* SET HANDLER g_application->handle_data_changed FOR g_alv.

* SET HANDLER g_application->handle_data_changed_finished FOR g_alv.

SET HANDLER g_application->handle_double_click FOR g_alv.

SET HANDLER g_application->handle_context_menu_alv FOR g_alv.

gs_layo_tb-edit = ' '.

gs_layo_tb-cwidth_opt = 'X'.

gs_layo_tb-sel_mode = 'B'.

CREATE OBJECT g_tree_tb

EXPORTING

parent = go_container_alv_tb

node_selection_mode = cl_gui_column_tree=>node_sel_mode_single

item_selection = ' '

no_html_header = 'X'

no_toolbar = ''

EXCEPTIONS

cntl_error = 1

cntl_system_error = 2

create_error = 3

lifetime_error = 4

illegal_node_selection_mode = 5

failed = 6

illegal_column_name = 7.

IF sy-subrc <> 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CALL METHOD g_tree_tb->set_screen_update

EXPORTING

i_update = ' '.

DATA: ls_fcat_tb TYPE lvc_s_fcat.

ls_fcat_tb-fieldname = 'DDTEXT'.

ls_fcat_tb-inttype = 'C'.

ls_fcat_tb-intlen = '255'.

APPEND ls_fcat_tb TO gt_fcat_tb.

ls_fcat_tb-fieldname = 'TABLENAME'.

ls_fcat_tb-rollname = 'TABNAME'.

APPEND ls_fcat_tb TO gt_fcat_tb.

ls_fcat_tb-fieldname = 'FIELDNAME'.

ls_fcat_tb-rollname = 'FIELDNAME'.

APPEND ls_fcat_tb TO gt_fcat_tb.

ls_fcat_tb-fieldname = 'ALIAS'.

ls_fcat_tb-rollname = 'TABNAME'.

APPEND ls_fcat_tb TO gt_fcat_tb.

LOOP AT gt_fcat_tb INTO gs_fcat_tb.

IF gs_fcat_tb-fieldname = 'TABLENAME' OR

gs_fcat_tb-fieldname = 'FIELDNAME' OR

gs_fcat_tb-fieldname = 'ALIAS'.

gs_fcat_tb-tech = 'X'.

gs_fcat_tb-no_out = 'X'.

ENDIF.

IF gs_fcat_tb-fieldname = 'DDTEXT'.

gs_fcat_tb-coltext = text-145.

gs_fcat_tb-tooltip = text-145.

gs_fcat_tb-reptext = text-145.

gs_fcat_tb-outputlen = 255.

CLEAR: gs_fcat_tb-tech, gs_fcat_tb-no_out.

ENDIF.

MODIFY gt_fcat_tb FROM gs_fcat_tb.

ENDLOOP.

l_hierarchy_header-heading = text-137.

l_hierarchy_header-width = 40.

l_hierarchy_header-width_pix = ''.

CALL METHOD g_tree_tb->set_table_for_first_display

EXPORTING

is_hierarchy_header = l_hierarchy_header

CHANGING

it_fieldcatalog = gt_fcat_tb

it_outtab = gt_outtab_tb

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CALL METHOD g_tree_tb->get_registered_events

IMPORTING

events = lt_events

EXCEPTIONS

cntl_error = 1

OTHERS = 2.

IF sy-subrc <> 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

ls_events-appl_event = ' '.

ls_events-eventid = cl_gui_column_tree=>eventid_node_context_menu_req.

APPEND ls_events TO lt_events.

* ls_events-eventid = cl_gui_column_tree=>eventid_item_context_menu_req.

* APPEND ls_events TO lt_events.

ls_events-eventid = cl_gui_column_tree=>eventid_node_double_click.

APPEND ls_events TO lt_events.

CALL METHOD g_tree_tb->set_registered_events

EXPORTING

events = lt_events

EXCEPTIONS

cntl_error = 1

cntl_system_error = 2

illegal_event_combination = 3

OTHERS = 4.

IF sy-subrc <> 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

* SET HANDLER g_application->handle_function_selected FOR g_toolbar_tb_tree.

SET HANDLER g_application->handle_node_double_click FOR g_tree_tb.

SET HANDLER g_application->handle_node_ctx_menu_sel_lq FOR g_tree_tb.

SET HANDLER g_application->handle_context_menu_tree_tb_n FOR g_tree_tb.

CREATE OBJECT g_html_viewer

EXPORTING

parent = go_container_reklam.

DATA: lv_url(255) TYPE c.

* CONCATENATE 'http://www.hovitaga.com/'

* 'oe_free_edition_reklam_tidy_20111028.php?h='

* gc_hash INTO lv_url.

lv_url = 'http://www.ut163.com/'.

CONDENSE lv_url NO-GAPS.

g_html_viewer->show_url( url = lv_url ).

ENDIF.

IF g_textedit IS INITIAL.

CREATE OBJECT g_textedit

EXPORTING

parent = go_container_textedit.

SET HANDLER g_application->handle_context_menu FOR g_textedit.

SET HANDLER g_application->handle_context_menu_selected FOR g_textedit.

SET HANDLER g_application->handle_f1_textedit FOR g_textedit.

event-eventid = cl_gui_textedit=>event_f1.

APPEND event TO events.

event-eventid = cl_gui_textedit=>event_context_menu_selected.

APPEND event TO events.

event-eventid = cl_gui_textedit=>event_context_menu.

APPEND event TO events.

*REGISTER_EVENT_F1 ?

CALL METHOD g_textedit->set_registered_events

EXPORTING

events = events

EXCEPTIONS

cntl_error = 1

cntl_system_error = 2

illegal_event_combination = 3.

IF sy-subrc <> 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

* ZMI?

** IF gt_dynpread IS NOT INITIAL.

** CALL FUNCTION 'DYNP_UPDATE_FIELDS'

** EXPORTING

** dyname = sy-repid

** dynumb = '0100'

** request = 'A'

** TABLES

** dynpfields = gt_dynpread

** EXCEPTIONS

** invalid_abapworkarea = 1

** invalid_dynprofield = 2

** invalid_dynproname = 3

** invalid_dynpronummer = 4

** invalid_request = 5

** no_fielddescription = 6

** undefind_error = 7

** OTHERS = 8.

** IF sy-subrc <> 0.

** IF sy-msgno IS NOT INITIAL.

** MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

** WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

** ENDIF.

** CLEAR gt_dynpread.

** ENDIF.

IF gv_data_changed_finished EQ 'X'.

CLEAR gv_data_changed_finished.

CALL METHOD g_alv->set_focus

EXPORTING

control = g_alv

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

ELSE.

CALL METHOD g_textedit->set_focus

EXPORTING

control = g_textedit

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

IF g_commands IS INITIAL.

CREATE OBJECT g_commands.

CALL METHOD g_application->create_tb_tree_toolbar.

CALL METHOD g_commands->create_new_command

EXPORTING

p_command_type = 1.

ENDIF.

ENDFORM. " STATUS_0100

*----------------------------------------------------------------------*

***INCLUDE ZHTDB_USER_COMMAND_0100I01 .

*----------------------------------------------------------------------*

*&---------------------------------------------------------------------*

*& Module USER_COMMAND_0100 INPUT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

MODULE user_command_0100 INPUT.

PERFORM user_command_0100.

CLEAR gv_0100_first_run.

ENDMODULE. " USER_COMMAND_0100 INPUT

*&---------------------------------------------------------------------*

*& Form USER_COMMAND_0100

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM user_command_0100.

DATA: l_type TYPE i.

DATA: l_s_c_100 TYPE REF TO lcl_select_command,

lv_ucomm LIKE LINE OF gt_testscript.

CASE ok_code.

WHEN 'SYNTAXD'.

* PERFORM LOAD_DYNPRO USING '0100' sy-repid.

CALL METHOD g_application->show_syntax_diagram.

WHEN 'ABAPDOCU'.

CALL METHOD g_application->show_abap_docu.

WHEN 'EXEC' OR 'SIMULATE' OR 'EXEC_BG'.

IF g_commands->current_command IS NOT INITIAL.

DATA: lv_bg TYPE c.

CLEAR autotrace.

CALL METHOD g_commands->execute_command

EXPORTING

iv_mode = ok_code.

ELSE.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'I'

iv_msgno = '061'

iv_display_like = 'E'.

* message i061 DISPLAY LIKE 'E'.

ENDIF.

ENDCASE.

CLEAR ok_code.

ENDFORM. " USER_COMMAND

*----------------------------------------------------------------------*

***INCLUDE ZHTDB_USER_COMMAND_0100_EXITI1 .

*----------------------------------------------------------------------*

*&---------------------------------------------------------------------*

*& Module USER_COMMAND_0100_EXIT INPUT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

MODULE user_command_0100_exit INPUT.

PERFORM user_command_0100_exit.

ENDMODULE. " USER_COMMAND_0100_EXIT INPUT

*&---------------------------------------------------------------------*

*& Form USER_COMMAND_0100_EXIT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM user_command_0100_exit .

CASE ok_code.

WHEN 'BACK' OR 'CANCEL' OR 'EXIT'.

LEAVE TO SCREEN 0.

ENDCASE.

ENDFORM. " USER_COMMAND_0100_EXIT

*&---------------------------------------------------------------------*

*& Include ZHTDB_LCLAPPLICATION_I *

*&---------------------------------------------------------------------*

CLASS lcl_application IMPLEMENTATION.

METHOD remove_gen_programs.

DATA: lt_reports TYPE TABLE OF reposrc-progname,

lv_report TYPE reposrc-progname.

SELECT progname

INTO TABLE lt_reports

FROM reposrc

WHERE progname LIKE 'ZENITH_GEN%'.

LOOP AT lt_reports INTO lv_report.

CALL FUNCTION 'ENQUEUE_ES_PROG'

EXPORTING

mode_trdir = 'E'

name = lv_report

EXCEPTIONS

foreign_lock = 1

system_failure = 2

OTHERS = 3.

IF sy-subrc EQ 0.

* delete program from the repository

CALL FUNCTION 'RS_DELETE_PROGRAM'

EXPORTING

program = lv_report

suppress_checks = 'X'

suppress_popup = 'X'

with_includes = ' '

with_cua = ' '

with_documentation = ' '

with_dynpro = ' '

with_textpool = ' '

skip_progress_ind = 'X'

EXCEPTIONS

enqueue_lock = 1

object_not_found = 2

permission_failure = 3

reject_deletion = 4

OTHERS = 5.

IF sy-subrc <> 0.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'S'

iv_display_like = 'W'

iv_msgno = sy-msgno

iv_msgid = sy-msgid.

ELSE.

CALL FUNCTION 'DEQUEUE_ES_PROG'

EXPORTING

mode_trdir = 'E'

name = lv_report.

ENDIF.

ENDLOOP.

ENDMETHOD. "remove_gen_programs

METHOD issue_message.

IF iv_msgid IS INITIAL.

ms_s_msg-msgid = 'ZSQL_FREE'.

ELSE.

ms_s_msg-msgid = iv_msgid.

ENDIF.

IF iv_to_log EQ 'X' OR gv_autotest = 'X'.

CLEAR ms_s_msg.

IF iv_msgno IS INITIAL.

RETURN.

ENDIF.

IF iv_msgid = 'SD' AND iv_msgno = 94.

RETURN.

ELSEIF iv_msgid = 'FL' AND iv_msgno = 714.

RETURN.

ENDIF.

ms_s_msg-msgno = iv_msgno.

ms_s_msg-msgv1 = iv_msgv1.

ms_s_msg-msgv2 = iv_msgv2.

ms_s_msg-msgv3 = iv_msgv3.

ms_s_msg-msgv4 = iv_msgv4.

IF ms_s_msg-msgid IS INITIAL.

ms_s_msg-msgid = 'ZSQL_FREE'.

ENDIF.

CONDENSE: ms_s_msg-msgv1, ms_s_msg-msgv2, ms_s_msg-msgv3, ms_s_msg-msgv4.

ms_s_msg-msgty = iv_msgty.

* ms_s_msg-probclass = iv_probclass.

* CALL FUNCTION 'BAL_LOG_MSG_CUMULATE'

* EXPORTING

* I_LOG_HANDLE = mv_log_handle

* I_S_MSG = ms_s_msg

* * I_COMPARE_ATTRIBUTES = ' '

* * I_COMPARE_CONTEXT = ' '

* * I_COMPARE_PARAMETERS = ' '

* * IMPORTING

* * E_S_MSG_HANDLE =

* * E_MSG_WAS_LOGGED =

* * E_MSG_WAS_DISPLAYED =

* EXCEPTIONS

* LOG_NOT_FOUND = 1

* MSG_INCONSISTENT = 2

* LOG_IS_FULL = 3

* OTHERS = 4

* .

* IF sy-subrc <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

* ENDIF.

CALL FUNCTION 'BAL_LOG_MSG_ADD'

EXPORTING

i_log_handle = mv_log_handle

i_s_msg = ms_s_msg

EXCEPTIONS

OTHERS = 1.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

ELSE.

IF iv_msgno IS NOT INITIAL.

MESSAGE ID ms_s_msg-msgid

TYPE 'S'

NUMBER iv_msgno

DISPLAY LIKE iv_msgty " iv_display_like

WITH iv_msgv1 iv_msgv2 iv_msgv3 iv_msgv4 .

ENDIF.

ENDMETHOD. "issue_message

METHOD get_selected_word.

DATA: l_from TYPE i,

l_to TYPE i,

l_from_new TYPE i,

l_to_new TYPE i,

l_from_line TYPE i,

l_to_line TYPE i,

l_len TYPE i,

lt_text TYPE source_table,

l_text LIKE LINE OF lt_text,

lstr TYPE string.

* l_area TYPE thead-tdname,

CALL METHOD g_textedit->get_selection_pos

IMPORTING

from_line = l_from_line

from_pos = l_from

to_line = l_to_line

to_pos = l_to

EXCEPTIONS

error_cntl_call_method = 1

OTHERS = 2.

IF sy-subrc <> 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

*abaped CALL METHOD g_textedit->get_text_as_r3table

CALL METHOD g_textedit->get_text

IMPORTING

table = lt_text

EXCEPTIONS

*abaped potential_data_loss = 1.

OTHERS = 1.

IF sy-subrc = 1.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'I'

iv_msgno = '025'.

* MESSAGE i025.

ENDIF.

READ TABLE lt_text INTO l_text INDEX l_from_line.

lstr = l_text.

CALL METHOD lcl_toolbox=>get_word_at_pos

EXPORTING

iv_string = lstr

iv_position = l_from

IMPORTING

ev_word = ep_word.

ENDMETHOD. "get_selected_word

METHOD show_abap_docu.

DATA: l_word TYPE string.

CALL METHOD get_selected_word

IMPORTING

ep_word = l_word.

CHECK l_word IS NOT INITIAL.

TRANSLATE l_word TO UPPER CASE.

DATA: lt_search_results TYPE docu_search_abap,

ls_search_results LIKE LINE OF lt_search_results.

CALL FUNCTION 'ABAP_DOCU_SEARCH'

EXPORTING

keyword_or_text = l_word

IMPORTING

RESULT = lt_search_results.

IF lt_search_results IS NOT INITIAL.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'S'

iv_msgno = '062'

iv_msgv1 = l_word.

* MESSAGE s062 WITH l_word.

DATA: l_name TYPE thead-tdname.

READ TABLE lt_search_results INTO ls_search_results INDEX 1.

l_name = ls_search_results-object.

CALL FUNCTION 'ABAP_DOCU_SHOW'

EXPORTING

area = l_name(4)

name = l_name+4

langu = sy-langu.

ELSE.

* MESSAGE w063 WITH l_word.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'W'

iv_msgno = '063'

iv_msgv1 = l_word.

ENDIF.

ENDMETHOD. "show_abap_docu

METHOD show_syntax_diagram.

DATA: l_word TYPE string.

CALL METHOD get_selected_word

IMPORTING

ep_word = l_word.

CHECK l_word IS NOT INITIAL.

TRANSLATE l_word TO UPPER CASE.

DATA: l_keyword TYPE sy-repid.

l_keyword = l_word.

CALL FUNCTION 'RS_DISPLAY_SYNTAX_DIAGRAM'

EXPORTING

keyword = l_keyword.

ENDMETHOD. "show_syntax_diagram

METHOD constructor.

ENDMETHOD. "lcl_application

METHOD set_key_field_settings.

DATA: l_select_command TYPE REF TO lcl_select_command.

TRY.

l_select_command ?= g_commands->current_command.

CATCH cx_sy_move_cast_error.

ENDTRY.

CHECK l_select_command IS NOT INITIAL.

IF p_mode = 'KEY_FIX'.

l_select_command->mv_key_colmn_type = 'F'.

ELSE.

l_select_command->mv_key_colmn_type = 'N'.

ENDIF.

ENDMETHOD. "set_key_field_settings

METHOD set_column_settings.

DATA:

l_select_command TYPE REF TO lcl_select_command.

TRY.

l_select_command ?= g_commands->current_command.

CATCH cx_sy_move_cast_error.

ENDTRY.

CHECK l_select_command IS NOT INITIAL.

CASE p_mode.

WHEN 'TXT_SHTXT'.

l_select_command->mv_colmn_header = 'S'.

WHEN 'TXT_GENFLD'.

l_select_command->mv_colmn_header = 'G'.

WHEN 'TXT_ALIAS'.

l_select_command->mv_colmn_header = 'A'.

WHEN 'TXT_FLD'.

l_select_command->mv_colmn_header = 'T'.

ENDCASE.

ENDMETHOD. "set_column_settings

METHOD handle_f1_textedit.

CALL METHOD show_abap_docu.

ENDMETHOD. "lcl_application

METHOD handle_context_menu.

CALL METHOD menu->add_function

EXPORTING

fcode = 'PRETTY'

text = text-023

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CALL METHOD menu->add_function

EXPORTING

fcode = 'ABAPDOCU'

text = text-116

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CALL METHOD menu->add_function

EXPORTING

fcode = 'SYNTAXD'

text = text-117

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

ENDMETHOD. "lcl_application

METHOD handle_context_menu_selected.

CASE fcode.

WHEN 'ABAPDOCU'.

CALL METHOD show_abap_docu.

WHEN 'SYNTAXD'.

CALL METHOD show_syntax_diagram.

WHEN 'PRETTY'.

DATA: "l_text TYPE source_table,

l_text TYPE rswsourcet.

*abaped CALL METHOD g_textedit->get_text_as_r3table

CALL METHOD g_textedit->get_text

IMPORTING

table = l_text

EXCEPTIONS

*abaped potential_data_loss = 1.

OTHERS = 1.

IF sy-subrc = 1.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'E'

iv_msgno = '025'.

* MESSAGE e025.

ENDIF.

IF l_text[] IS NOT INITIAL.

CALL FUNCTION 'CREATE_PRETTY_PRINT_FORMAT'

EXPORTING

mode = 'HIKEY'

TABLES

SOURCE = l_text

EXCEPTIONS

syntax_errors = 1

OTHERS = 2.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

*abaped CALL METHOD g_textedit->set_text_as_r3table

CALL METHOD g_textedit->set_text

EXPORTING

table = l_text[]

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

ENDCASE.

ENDMETHOD. "lcl_application

METHOD handle_context_menu_alv.

ENDMETHOD. "lcl_application

METHOD handle_node_ctx_menu_sel_lq.

CALL METHOD handle_lq_ctx_sel

EXPORTING

sender = 'T'

e_ucomm = fcode

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

ENDMETHOD. "lcl_application

METHOD handle_context_menu_tree_tb_n.

CALL METHOD handle_lq_context_menu

EXPORTING

sender = 'T'

e_object = menu

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

ENDMETHOD. "lcl_application

METHOD handle_lq_context_menu.

DATA: lq_menu_inner TYPE REF TO cl_ctmenu,

lq_menu_outer TYPE REF TO cl_ctmenu,

lq_menu_selfae TYPE REF TO cl_ctmenu,

lq_menu_subquery TYPE REF TO cl_ctmenu,

lq_menu_table_i TYPE REF TO cl_ctmenu,

lq_menu_table_o TYPE REF TO cl_ctmenu,

lq_menu_table_selfae TYPE REF TO cl_ctmenu,

lq_menu_table_subquery TYPE REF TO cl_ctmenu,

lq_menu_table_i_prev TYPE REF TO cl_ctmenu,

lq_menu_table_o_prev TYPE REF TO cl_ctmenu,

lq_menu_table_selfae_prev TYPE REF TO cl_ctmenu,

lq_menu_table_subquery_prev TYPE REF TO cl_ctmenu,

ls_dd08l TYPE dd08l,

l_fcode TYPE ui_func,

lt_dd08l TYPE TABLE OF dd08l,

ls_table_alias LIKE LINE OF g_commands->current_command->table_alias_tb,

lstr(40) TYPE c,

lstr4(40) TYPE c,

lstr2 TYPE string,

lstr3 TYPE string,

lstr5 TYPE string,

lint TYPE i,

ls_prev_linkedquery LIKE gs_linkedquery,

ls_linkedquery LIKE gs_linkedquery,

lt_linkedquery LIKE gt_linkedquery,

* l_prev_checktable TYPE dd08l-checktable,

* l_prev_table TYPE dd08l-checktable,

* l_prev_ddtext TYPE dd02t-ddtext,

* l_prev_primpos TYPE dd05m-primpos,

l_ddtext TYPE dd02t-ddtext,

l_text(40) TYPE c,

l_comp_text(40) TYPE c.

DATA: dd08v_ia TYPE TABLE OF dd08v,

dd05m_ia TYPE TABLE OF dd05m,

wa_dd08v_ia TYPE dd08v,

wa_dd05m_ia TYPE dd05m,

state(1),

l_tabname TYPE dd08l-tabname.

* CHECK g_commands->current_command->mv_locked IS INITIAL.

CLEAR gt_linkedquery.

CLEAR lint.

CALL METHOD e_object->add_separator

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CHECK g_commands->current_command->command_type EQ gc_ctype_select OR

g_commands->current_command->command_type EQ gc_ctype_selfae.

LOOP AT g_commands->current_command->table_alias_tb INTO ls_table_alias.

CLEAR lt_dd08l.

l_tabname = ls_table_alias-table.

CALL FUNCTION 'DD_TBFK_GET'

EXPORTING

* FIELDNAME = INCLFIELD

get_state = 'A'

tabl_name = l_tabname

withtext = 'X'

IMPORTING

got_state = state

TABLES

dd05m_tab_a = dd05m_ia

* DD05M_TAB_N = FK1_DD05M

dd08v_tab_a = dd08v_ia

* DD08V_TAB_N = FK1_DD08V

EXCEPTIONS

illegal_value = 01.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

LOOP AT dd05m_ia INTO wa_dd05m_ia WHERE checkfield NE 'MANDT' OR checktable EQ 'T000'.

lint = lint + 1.

SELECT SINGLE ddtext

INTO l_ddtext

FROM dd02t

WHERE as4local = 'A'

AND tabname = wa_dd05m_ia-checktable

AND ddlanguage = sy-langu.

IF sy-subrc NE 0.

SELECT SINGLE ddtext

INTO l_ddtext

FROM dd02t

WHERE as4local = 'A'

AND tabname = wa_dd05m_ia-checktable.

IF sy-subrc NE 0.

* message 'ZENITH:sdfgdsf' type 'E'.

ENDIF.

CONCATENATE ls_table_alias-alias '~' wa_dd05m_ia-forkey INTO lstr2.

CONDENSE lstr2 NO-GAPS.

CONCATENATE wa_dd05m_ia-checktable '~' wa_dd05m_ia-checkfield INTO lstr3.

CONDENSE lstr3 NO-GAPS.

CONCATENATE 'ON' lstr3 '=' lstr2 INTO lstr2 SEPARATED BY ' '.

MOVE lstr2 TO lstr.

lstr2 = lint.

CONCATENATE 'LA_' lstr2 INTO l_fcode.

CONDENSE l_fcode NO-GAPS.

CLEAR gs_linkedquery.

gs_linkedquery-fcode = l_fcode.

gs_linkedquery-tabname = ls_table_alias-alias.

gs_linkedquery-checktable = wa_dd05m_ia-checktable.

gs_linkedquery-fieldname = wa_dd05m_ia-forkey.

gs_linkedquery-checkfield = wa_dd05m_ia-checkfield.

gs_linkedquery-primpos = wa_dd05m_ia-primpos.

gs_linkedquery-text = lstr.

gs_linkedquery-longtext = lstr.

gs_linkedquery-ddtext = l_ddtext.

APPEND gs_linkedquery TO gt_linkedquery.

ENDLOOP.

DATA: l_comp_count TYPE i,

lt_primpos TYPE TABLE OF gty_linkedquery-primpos,

l_primpos TYPE gty_linkedquery-primpos.

CLEAR gt_linkedquery_comp.

IF g_commands->current_command->mv_locked IS INITIAL.

CREATE OBJECT lq_menu_inner.

CREATE OBJECT lq_menu_outer.

CREATE OBJECT lq_menu_subquery.

ENDIF.

CREATE OBJECT lq_menu_selfae.

SORT gt_linkedquery BY checktable tabname primpos.

LOOP AT gt_linkedquery INTO gs_linkedquery.

IF ls_prev_linkedquery-checktable NE gs_linkedquery-checktable OR

ls_prev_linkedquery-tabname NE gs_linkedquery-tabname.

CLEAR: l_comp_count.

CLEAR lt_primpos.

CLEAR lstr2.

lstr4 = '* ON'.

LOOP AT gt_linkedquery INTO ls_linkedquery

WHERE tabname = ls_prev_linkedquery-tabname

AND checktable = ls_prev_linkedquery-checktable.

* AND join_type = ls_prev_linkedquery-join_type.

READ TABLE lt_primpos TRANSPORTING NO FIELDS

WITH KEY table_line = ls_linkedquery-primpos.

IF sy-subrc EQ 4.

CONCATENATE ls_linkedquery-tabname '~' ls_linkedquery-fieldname INTO lstr5.

CONDENSE lstr5 NO-GAPS.

CONCATENATE ls_linkedquery-checktable '~' ls_linkedquery-checkfield INTO lstr3.

CONDENSE lstr3 NO-GAPS.

CONCATENATE lstr4 lstr3 INTO lstr4 SEPARATED BY space.

IF lstr2 IS INITIAL.

CONCATENATE 'ON' lstr3 '=' lstr5 INTO lstr2 SEPARATED BY ' '.

ELSE.

CONCATENATE lstr2 'AND' lstr3 '=' lstr5 INTO lstr2 SEPARATED BY ' '.

ENDIF.

* CONCATENATE ls_linkedquery-table '~' ls_linkedquery-field INTO lstr5.

* CONDENSE lstr5 NO-GAPS.

* CONCATENATE lstr4 lstr5 INTO lstr4 SEPARATED BY SPACE.

* CONCATENATE ls_linkedquery-checktable '~' ls_linkedquery-checkfield INTO lstr3.

* CONDENSE lstr3 NO-GAPS.

* if lstr2 IS INITIAL.

* CONCATENATE 'ON' lstr3 '=' lstr5 INTO lstr2 SEPARATED BY ' '.

* else.

* CONCATENATE lstr2 'AND' lstr3 '=' lstr5 INTO lstr2 SEPARATED BY ' '.

* endif.

APPEND ls_linkedquery-primpos TO lt_primpos.

l_comp_count = l_comp_count + 1.

ENDIF.

ENDLOOP.

IF l_comp_count GT 1.

READ TABLE gt_linkedquery_comp TRANSPORTING NO FIELDS

WITH KEY tabname = ls_linkedquery-tabname

checktable = ls_linkedquery-checktable

text = lstr4.

* longtext = lstr2.

IF sy-subrc EQ 4.

CONCATENATE gs_linkedquery-fcode '_COMP' INTO l_fcode.

* CONCATENATE 'I_' gs_linkedquery-fcode '_COMP' INTO l_fcode.

*** l_fcode = gs_linkedquery-fcode.

gs_linkedquery_comp-fcode = l_fcode.

gs_linkedquery_comp-tabname = ls_linkedquery-tabname.

gs_linkedquery_comp-checktable = ls_linkedquery-checktable.

gs_linkedquery_comp-text = lstr4.

gs_linkedquery_comp-longtext = lstr2.

gs_linkedquery_comp-join_type = ls_linkedquery-join_type.

gs_linkedquery_comp-ddtext = ls_linkedquery-ddtext.

APPEND gs_linkedquery_comp TO gt_linkedquery_comp.

CONCATENATE 'I_' gs_linkedquery-fcode '_COMP' INTO l_fcode.

IF lq_menu_table_i_prev IS NOT INITIAL.

CALL METHOD lq_menu_table_i_prev->add_function

EXPORTING

fcode = l_fcode

text = gs_linkedquery_comp-text

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CONCATENATE 'O_' gs_linkedquery-fcode '_COMP' INTO l_fcode.

IF lq_menu_table_o_prev IS NOT INITIAL.

CALL METHOD lq_menu_table_o_prev->add_function

EXPORTING

fcode = l_fcode

text = gs_linkedquery_comp-text

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CONCATENATE 'S_' gs_linkedquery-fcode '_COMP' INTO l_fcode.

IF lq_menu_table_selfae_prev IS NOT INITIAL.

CALL METHOD lq_menu_table_selfae_prev->add_function

EXPORTING

fcode = l_fcode

text = gs_linkedquery_comp-text

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CONCATENATE 'Q_' gs_linkedquery-fcode '_COMP' INTO l_fcode.

IF lq_menu_table_subquery_prev IS NOT INITIAL.

CALL METHOD lq_menu_table_subquery_prev->add_function

EXPORTING

fcode = l_fcode

text = gs_linkedquery_comp-text

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CLEAR l_fcode.

ENDIF.

IF ls_prev_linkedquery-checktable NE gs_linkedquery-checktable.

IF g_commands->current_command->mv_locked IS INITIAL.

CREATE OBJECT lq_menu_table_i.

CREATE OBJECT lq_menu_table_o.

CREATE OBJECT lq_menu_table_subquery.

ENDIF.

CREATE OBJECT lq_menu_table_selfae.

CONCATENATE '(' gs_linkedquery-ddtext ')' INTO l_ddtext.

CONCATENATE gs_linkedquery-checktable l_ddtext INTO lstr SEPARATED BY ' '.

IF g_commands->current_command->mv_locked IS INITIAL.

CALL METHOD lq_menu_inner->add_submenu

EXPORTING

menu = lq_menu_table_i

text = lstr

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CALL METHOD lq_menu_outer->add_submenu

EXPORTING

menu = lq_menu_table_o

text = lstr

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CALL METHOD lq_menu_subquery->add_submenu

EXPORTING

menu = lq_menu_table_subquery

text = lstr

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CALL METHOD lq_menu_selfae->add_submenu

EXPORTING

menu = lq_menu_table_selfae

text = lstr

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

IF g_commands->current_command->mv_locked IS INITIAL.

CONCATENATE 'I_' gs_linkedquery-fcode INTO l_fcode.

CALL METHOD lq_menu_table_i->add_function

EXPORTING

fcode = l_fcode

text = gs_linkedquery-text

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CONCATENATE 'O_' gs_linkedquery-fcode INTO l_fcode.

CALL METHOD lq_menu_table_o->add_function

EXPORTING

fcode = l_fcode

text = gs_linkedquery-text

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CONCATENATE 'Q_' gs_linkedquery-fcode INTO l_fcode.

CALL METHOD lq_menu_table_subquery->add_function

EXPORTING

fcode = l_fcode

text = gs_linkedquery-text

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CONCATENATE 'S_' gs_linkedquery-fcode INTO l_fcode.

CALL METHOD lq_menu_table_selfae->add_function

EXPORTING

fcode = l_fcode

text = gs_linkedquery-text

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

ls_prev_linkedquery = gs_linkedquery.

IF g_commands->current_command->mv_locked IS INITIAL.

lq_menu_table_i_prev = lq_menu_table_i.

lq_menu_table_o_prev = lq_menu_table_o.

lq_menu_table_subquery_prev = lq_menu_table_subquery.

ENDIF.

lq_menu_table_selfae_prev = lq_menu_table_selfae.

ENDLOOP.

IF sender = 'T'.

IF g_commands->current_command->mv_locked IS INITIAL.

CALL METHOD lq_menu_inner->add_function

EXPORTING

fcode = 'RELAT_I'

text = text-028

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CALL METHOD lq_menu_outer->add_function

EXPORTING

fcode = 'RELAT_O'

text = text-028

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CALL METHOD lq_menu_subquery->add_function

EXPORTING

fcode = 'RELAT_Q'

text = text-028

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CALL METHOD lq_menu_selfae->add_function

EXPORTING

fcode = 'RELAT_S'

text = text-028

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

lstr = text-024.

IF g_commands->current_command->mv_locked IS INITIAL.

CALL METHOD e_object->add_submenu

EXPORTING

menu = lq_menu_inner

text = lstr

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

lstr = text-025.

CALL METHOD e_object->add_submenu

EXPORTING

menu = lq_menu_outer

text = lstr

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

lstr = text-149.

CALL METHOD e_object->add_submenu

EXPORTING

menu = lq_menu_subquery

text = lstr

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

ENDMETHOD. "lcl_application

METHOD handle_function_selected_txt.

CASE fcode.

WHEN 'PRETTY'.

IF g_commands->current_command->text IS NOT INITIAL.

** CALL METHOD LCL_TOOLBOX=>pretty_printer

** CHANGING

** ct_source = g_commands->current_command->text.

CALL FUNCTION 'PRETTY_PRINTER'

EXPORTING

inctoo = ' '

TABLES

ntext = g_commands->current_command->text

otext = g_commands->current_command->text

EXCEPTIONS

enqueue_table_full = 1

include_enqueued = 2

include_readerror = 3

include_writeerror = 4

OTHERS = 5.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

ENDCASE.

ENDMETHOD. "lcl_application

METHOD handle_double_click.

DATA: l_s_c TYPE REF TO lcl_select_command,

l_lawb TYPE REF TO lcl_lawb,

ls_fcat TYPE lvc_s_fcat,

lv_uname LIKE sy-uname.

FIELD-SYMBOLS: <lv_icon> TYPE ANY.

TRY.

l_s_c ?= g_commands->current_command.

CATCH cx_sy_move_cast_error.

ENDTRY.

READ TABLE l_s_c->fcat INTO ls_fcat

WITH KEY fieldname = e_column.

IF sy-subrc NE 0.

EXIT.

ENDIF.

IF ls_fcat-rollname IS NOT INITIAL.

CALL DIALOG 'RS_DD_DTEL_EDIT'

EXPORTING

MODE from 'S'

objname FROM ls_fcat-rollname.

ELSE.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'S'

iv_msgno = '115'

iv_display_like = 'W'.

ENDIF.

ENDMETHOD. "lcl_application

*new*

METHOD handle_dropdown_clicked.

DATA: menu_dynamic TYPE REF TO cl_ctmenu.

CREATE OBJECT menu_dynamic.

CALL METHOD handle_lq_context_menu

EXPORTING

sender = 'T'

e_object = menu_dynamic.

CALL METHOD g_toolbar_tb_tree->track_context_menu

EXPORTING

context_menu = menu_dynamic

posx = posx

posy = posy.

ENDMETHOD. "lcl_my_event_handler

METHOD handle_node_double_click.

DATA: lstr TYPE string,

l_text TYPE source_table,

ls_table_alias TYPE lty_zhtdb_table_aliases.

CALL METHOD g_tree_tb->get_outtab_line

EXPORTING

i_node_key = node_key

IMPORTING

e_outtab_line = gs_outtab_tb

EXCEPTIONS

node_not_found = 1

OTHERS = 2.

IF sy-subrc EQ 0.

IF gs_outtab_tb-fieldname IS INITIAL.

EXIT.

ENDIF.

ELSE.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

READ TABLE g_commands->current_command->mt_ranges INTO gs_ranges

WITH KEY table_alias = gs_outtab_tb-alias

fieldname = gs_outtab_tb-fieldname.

IF sy-subrc NE 0.

* MESSAGE e027.

RETURN.

ENDIF.

CONCATENATE gs_ranges-fieldname 'IN' gs_ranges-node_text INTO lstr SEPARATED BY ' '.

READ TABLE g_commands->current_command->table_alias_tb INTO ls_table_alias

WITH KEY alias = gs_ranges-table_alias.

IF sy-subrc EQ 0.

IF ls_table_alias-alias IS NOT INITIAL.

CONCATENATE ls_table_alias-alias '~' lstr INTO lstr.

ENDIF.

ELSE.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'E'

iv_msgno = '027'.

* MESSAGE e027.

ENDIF.

DATA: lt_vrange_text TYPE lty_zhtdbt_string_tab.

** IF g_commands->current_command->where_text IS INITIAL.

** CONCATENATE 'WHERE' lstr INTO lstr SEPARATED BY ' '.

** ELSE.

** CONCATENATE 'and' lstr INTO lstr SEPARATED BY ' '.

** ENDIF.

APPEND lstr TO lt_vrange_text.

CALL METHOD insert_stringtab_to_pos

EXPORTING

it_stringtab = lt_vrange_text.

** APPEND lstr TO l_text.

*abaped CALL METHOD g_textedit->set_text_as_r3table

CALL METHOD g_textedit->set_text

EXPORTING

table = g_commands->current_command->text

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

** CALL METHOD cl_gui_cfw=>dispatch

** EXCEPTIONS

** OTHERS = 1.

** IF sy-subrc NE 0.

** IF sy-msgno IS NOT INITIAL.

** MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

**WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

** ENDIF.

ENDMETHOD. "lcl_application

METHOD insert_stringtab_to_pos.

DATA: l_from TYPE i,

l_to TYPE i,

l_from_new TYPE i,

l_to_new TYPE i,

l_from_line TYPE i,

l_to_line TYPE i,

l_len TYPE i,

lv_lines TYPE i,

lv_middle_string TYPE string,

lt_text TYPE source_table,

lt_text_temp TYPE source_table,

l_text LIKE LINE OF lt_text_temp,

lstr TYPE string,

lstr2 TYPE string,

lt_text_split TYPE TABLE OF string,

ls_sel_field_list TYPE string,

lv_from_copy TYPE i.

CALL METHOD g_textedit->get_selection_pos

IMPORTING

from_line = l_from_line

from_pos = l_from

to_line = l_to_line

to_pos = l_to

EXCEPTIONS

error_cntl_call_method = 1

OTHERS = 2.

IF sy-subrc <> 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

*abaped CALL METHOD g_textedit->get_text_as_r3table

CALL METHOD g_textedit->get_text

IMPORTING

table = lt_text

EXCEPTIONS

*abaped potential_data_loss = 1.

OTHERS = 1.

IF sy-subrc = 1.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'I'

iv_msgno = '025'.

* MESSAGE i025.

ENDIF.

DESCRIBE TABLE it_stringtab LINES lv_lines.

READ TABLE lt_text INTO l_text INDEX l_from_line.

READ TABLE it_stringtab INTO ls_sel_field_list INDEX 1.

l_from = l_from - 1.

IF l_from EQ 0.

lstr2 = l_text.

CLEAR lstr.

ELSE.

lstr = l_text(l_from).

ENDIF.

l_text = l_text+l_from.

lstr2 = l_text.

IF lv_lines = 1.

CONCATENATE lstr ls_sel_field_list lstr2 INTO lv_middle_string SEPARATED BY space.

ELSE.

CONCATENATE lstr ls_sel_field_list INTO lv_middle_string SEPARATED BY space.

ENDIF.

IF l_from_line > 1.

lv_from_copy = l_from_line - 1.

LOOP AT lt_text INTO lstr FROM 1 TO lv_from_copy.

l_text = lstr.

APPEND l_text TO lt_text_temp.

ENDLOOP.

ENDIF.

CALL METHOD lcl_toolbox=>split_string

EXPORTING

iv_string = lv_middle_string

iv_maxlen = gc_line_length

IMPORTING

et_string_tab = lt_text_split.

LOOP AT lt_text_split INTO lstr.

l_text = lstr.

APPEND l_text TO lt_text_temp.

ENDLOOP.

LOOP AT it_stringtab INTO ls_sel_field_list FROM 2.

CLEAR lt_text_split.

IF sy-tabix = lv_lines.

CONCATENATE ls_sel_field_list lstr2 INTO ls_sel_field_list

SEPARATED BY space.

ENDIF.

CALL METHOD lcl_toolbox=>split_string

EXPORTING

iv_string = ls_sel_field_list

iv_maxlen = gc_line_length

IMPORTING

et_string_tab = lt_text_split.

LOOP AT lt_text_split INTO lstr.

l_text = lstr.

APPEND l_text TO lt_text_temp.

ENDLOOP.

lv_from_copy = l_from_line + 1.

LOOP AT lt_text INTO lstr FROM lv_from_copy.

l_text = lstr.

APPEND l_text TO lt_text_temp.

ENDLOOP.

g_commands->current_command->text[] = lt_text_temp[].

ENDMETHOD. "insert_stringtab_to_pos

METHOD create_tb_tree_toolbar.

DATA: lv_auth_ok TYPE c.

CALL METHOD g_tree_tb->get_toolbar_object

IMPORTING

er_toolbar = g_toolbar_tb_tree

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CHECK NOT g_toolbar_tb_tree IS INITIAL.

*new*

SET HANDLER g_application->handle_dropdown_clicked FOR g_toolbar_tb_tree.

SET HANDLER g_application->handle_function_selected FOR g_toolbar_tb_tree.

IF g_commands IS NOT INITIAL AND g_commands->current_command IS NOT INITIAL.

lv_auth_ok = 'X'.

ENDIF.

CALL METHOD g_toolbar_tb_tree->delete_all_buttons

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

*** IF g_commands IS NOT INITIAL AND g_commands->current_command IS NOT INITIAL.

*** CHECK g_commands->current_command->mv_locked IS INITIAL.

*** ENDIF.

DATA: lv_icontext TYPE iconquick.

IF lv_auth_ok = 'X' AND ( g_commands->current_command->mv_locked = ' ' ).

lv_icontext = text-147.

CALL METHOD g_toolbar_tb_tree->add_button

EXPORTING

fcode = 'GET_TABLES'

icon = '@42@'

butn_type = cntb_btype_button

text = ''

quickinfo = lv_icontext

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

lv_icontext = text-050.

CALL METHOD g_toolbar_tb_tree->add_button

EXPORTING

fcode = 'DISPLAY'

icon = '@B_DISP@'

butn_type = cntb_btype_button

text = ''

quickinfo = lv_icontext

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

lv_icontext = text-051.

CALL METHOD g_toolbar_tb_tree->add_button

EXPORTING

fcode = 'INDEXES'

icon = '@USEREL@'

butn_type = cntb_btype_button

text = ''

quickinfo = lv_icontext

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

lv_icontext = text-052.

CALL METHOD g_toolbar_tb_tree->add_button

EXPORTING

fcode = 'TECH'

icon = '@B_DETL@'

butn_type = cntb_btype_button

text = ''

quickinfo = lv_icontext

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

lv_icontext = text-053.

CALL METHOD g_toolbar_tb_tree->add_button

EXPORTING

fcode = 'GRAPH'

icon = '@56@'

butn_type = cntb_btype_button

text = ''

quickinfo = lv_icontext

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

lv_icontext = text-054.

CALL METHOD g_toolbar_tb_tree->add_button

EXPORTING

fcode = 'TEXTTAB'

icon = '@B_TXDP@'

butn_type = cntb_btype_button

text = ''

quickinfo = lv_icontext

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

lv_icontext = text-055.

CALL METHOD g_toolbar_tb_tree->add_button

EXPORTING

fcode = 'RUNTIMEOBJ'

icon = '@OBJELI@'

butn_type = cntb_btype_button

text = ''

quickinfo = lv_icontext

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

lv_icontext = text-056.

CALL METHOD g_toolbar_tb_tree->add_button

EXPORTING

fcode = 'WHERE'

icon = '@B_BOOK@'

butn_type = cntb_btype_button

text = ''

quickinfo = lv_icontext

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

lv_icontext = text-057.

CALL METHOD g_toolbar_tb_tree->add_button

EXPORTING

fcode = 'CONTENTS'

icon = '@B_LIST@'

butn_type = cntb_btype_button

text = ''

quickinfo = lv_icontext

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

IF lv_auth_ok = 'X' AND ( g_commands->current_command->mv_locked = ' ' ).

lv_icontext = text-058.

CALL METHOD g_toolbar_tb_tree->add_button

EXPORTING

fcode = 'VRANGES'

icon = '@BGMORE@'

butn_type = cntb_btype_button

text = ''

quickinfo = lv_icontext

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

*new*

lv_icontext = text-169.

CALL METHOD g_toolbar_tb_tree->add_button

EXPORTING

fcode = 'LQA'

icon = '@B_TREE@'

butn_type = cntb_btype_dropdown

text = ''

quickinfo = lv_icontext

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

ENDMETHOD. "lcl_application

METHOD create_txt_toolbar.

* nincs ilyen vaze

ENDMETHOD. "lcl_application

METHOD display_table_grid.

DATA: ls_tb_alias_tb TYPE gty_table_aliases,

l_command TYPE REF TO lcl_command,

ls_table TYPE lty_zhtdb_alv_tab,

l_node_text TYPE lvc_value,

l_new_node_key TYPE lvc_nkey,

ls_node_style TYPE lvc_s_layn,

ls_rangename TYPE lvc_value,

ls_alias_range LIKE LINE OF l_command->mt_alias_ranges,

ls_dd25l TYPE dd25l.

l_command = g_commands->current_command.

* CHECK l_command->mt_tab_node_xref IS INITIAL.

* CLEAR l_command->mt_outtab_tb.

* miert a where feltetel??

DELETE l_command->mt_outtab_tb

WHERE fieldname IS INITIAL.

* CLEAR l_command->mt_outtab_tb.

CLEAR l_command->mt_tab_node_xref.

IF g_tree_tb IS INITIAL.

RETURN.

ENDIF.

CALL METHOD g_tree_tb->delete_all_nodes

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

LOOP AT l_command->table_alias_tb INTO ls_tb_alias_tb.

CLEAR ls_table.

SELECT SINGLE ddtext

INTO ls_table-ddtext

FROM dd02t

WHERE as4local = 'A' AND

tabname = ls_tb_alias_tb-table AND

ddlanguage = sy-langu.

IF sy-subrc EQ 4.

SELECT SINGLE ddtext

INTO ls_table-ddtext

FROM dd02t

WHERE as4local = 'A' AND

tabname = ls_tb_alias_tb-table.

ENDIF.

IF ls_tb_alias_tb-alias IS NOT INITIAL.

ls_table-alias = ls_tb_alias_tb-alias.

ELSE.

ls_table-alias = ls_tb_alias_tb-table.

ENDIF.

ls_table-tablename = ls_tb_alias_tb-table.

APPEND ls_table TO l_command->mt_outtab_tb.

READ TABLE l_command->mt_alias_ranges

WITH KEY table_alias = ls_table-alias

TRANSPORTING NO FIELDS.

IF sy-subrc NE 0.

CLEAR ls_alias_range.

ls_alias_range-table_alias = ls_table-alias.

APPEND ls_alias_range TO l_command->mt_alias_ranges.

ENDIF.

ENDLOOP.

* add tables to tree

LOOP AT l_command->mt_outtab_tb INTO gs_outtab_tb

WHERE fieldname IS INITIAL.

READ TABLE l_command->table_alias_tb INTO ls_tb_alias_tb

WITH KEY alias = gs_outtab_tb-alias.

IF ls_tb_alias_tb-table NE ls_tb_alias_tb-alias.

CONCATENATE ls_tb_alias_tb-table 'as' ls_tb_alias_tb-alias INTO l_node_text SEPARATED BY ' '.

ELSE.

l_node_text = ls_tb_alias_tb-table.

ENDIF.

* SELECT SINGLE viewname

* FROM dd25l

* INTO ls_dd25l-viewname

* WHERE AS4LOCAL = 'A'

* and viewname = ls_tb_alias_tb-table.

CASE ls_tb_alias_tb-type.

WHEN 'T'.

ls_node_style-exp_image = '@PO@'.

ls_node_style-n_image = '@PO@'.

WHEN 'V'.

ls_node_style-exp_image = '@A2@'.

ls_node_style-n_image = '@A2@'.

WHEN 'C'.

ls_node_style-exp_image = '@AP@'.

ls_node_style-n_image = '@AP@'.

WHEN 'P'.

ls_node_style-n_image = '@AQ@'.

ls_node_style-exp_image = '@AQ@'.

ENDCASE.

CALL METHOD g_tree_tb->add_node

EXPORTING

i_relat_node_key = ''

i_relationship = cl_gui_column_tree=>relat_last_child

is_outtab_line = gs_outtab_tb

i_node_text = l_node_text

is_node_layout = ls_node_style

IMPORTING

e_new_node_key = l_new_node_key

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

gs_tab_node_xref-tablename = gs_outtab_tb-tablename.

gs_tab_node_xref-alias = gs_outtab_tb-alias.

gs_tab_node_xref-node_key = l_new_node_key.

APPEND gs_tab_node_xref TO l_command->mt_tab_node_xref.

ENDLOOP.

ls_node_style-n_image = '@1E@'.

* add fields

LOOP AT l_command->mt_outtab_tb INTO gs_outtab_tb

WHERE fieldname IS NOT INITIAL.

READ TABLE l_command->mt_tab_node_xref

INTO gs_tab_node_xref

WITH KEY alias = gs_outtab_tb-alias.

* WITH KEY tablename = gs_outtab_tb-tablename.

IF sy-subrc NE 0.

* MESSAGE i027.

CONTINUE.

ENDIF.

IF gs_outtab_tb-tablename NE gs_outtab_tb-alias.

CONCATENATE 'R_' gs_outtab_tb-alias '_' gs_outtab_tb-fieldname INTO ls_rangename SEPARATED BY ''.

ELSE.

CONCATENATE 'R_' gs_outtab_tb-tablename '_' gs_outtab_tb-fieldname INTO ls_rangename SEPARATED BY ''.

ENDIF.

* CONCATENATE 'R_' gs_outtab_tb-tablename '_' gs_outtab_tb-fieldname INTO ls_rangename SEPARATED BY ''.

REPLACE ' ' WITH '' INTO ls_rangename.

CONDENSE ls_rangename NO-GAPS.

CALL METHOD g_tree_tb->add_node

EXPORTING

i_relat_node_key = gs_tab_node_xref-node_key

i_relationship = cl_gui_column_tree=>relat_last_child

is_outtab_line = gs_outtab_tb

i_node_text = ls_rangename

is_node_layout = ls_node_style

IMPORTING

e_new_node_key = l_new_node_key

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CALL METHOD g_tree_tb->expand_node

EXPORTING

i_node_key = gs_tab_node_xref-node_key

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

ENDLOOP.

CALL METHOD g_tree_tb->frontend_update

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

ENDMETHOD. "lcl_application

METHOD refresh_status_indicators.

DATA: lstr TYPE string,

* l_s_c TYPE REF TO lcl_select_command,

lstr2 TYPE string,

l_command_type TYPE lty_commandtype,

l_int TYPE i.

* try.

* l_s_c ?= g_commands->current_command.

* catch cx_sy_move_cast_error.

* EXIT.

* endtry.

CALL METHOD g_commands->current_command->get_type

IMPORTING

ep_command_type = l_command_type

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

CASE l_command_type.

WHEN gc_ctype_select OR

gc_ctype_selfae OR

gc_ctype_lawb.

WHEN OTHERS.

EXIT.

ENDCASE.

CLEAR gt_dynpread.

* CLEAR: lstr, lstr2.

* lstr2 = g_commands->current_command->mv_dbcnt.

* CONCATENATE lstr 'Rows fetched:' lstr2 INTO lstr SEPARATED BY ' '.

DATA: lv_cnt_fetched TYPE i,

lv_cnt_updated TYPE i,

lv_cnt_inserted TYPE i,

lv_cnt_deleted TYPE i.

MESSAGE i030 WITH g_commands->current_command->mv_dbcnt lv_cnt_updated lv_cnt_inserted lv_cnt_deleted INTO lstr.

**** MESSAGE i137 WITH lstr g_commands->current_command->mv_from g_commands->current_command->mv_to INTO lstr.

*new*

DATA: lv_title TYPE lvc_title.

lv_title = lstr.

CALL METHOD g_alv->set_gridtitle

EXPORTING

i_gridtitle = lv_title.

* gs_dynpread-fieldname = 'STATUS1'.

* gs_dynpread-fieldvalue = lstr.

* APPEND gs_dynpread TO gt_dynpread.

* IF g_alv IS NOT INITIAL AND g_commands->current_command->mv_grid_modified IS NOT INITIAL.

* CALL METHOD g_alv->set_toolbar_interactive

* EXCEPTIONS

* OTHERS = 1.

* IF sy-subrc NE 0.

* IF sy-msgno IS NOT INITIAL.

* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

* ENDIF.

* CALL METHOD cl_gui_cfw=>set_new_ok_code

* EXPORTING

* new_code = 'ENT'

* IMPORTING

* rc = l_int

* EXCEPTIONS

* OTHERS = 1.

* IF sy-subrc NE 0.

* IF sy-msgno IS NOT INITIAL.

* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

* ENDIF.

ENDMETHOD. "lcl_application

METHOD handle_after_refresh.

ENDMETHOD. "lcl_application

METHOD check_s_tabu_dis.

DATA: x030l_wa TYPE x030l,

activity(2) TYPE c,

client_indep TYPE c,

lv_tddat TYPE tddat,

lv_tabname TYPE tabname.

CLEAR client_indep.

lv_tabname = iv_tabname.

TRANSLATE lv_tabname TO UPPER CASE.

* determine activity

IF iv_for_editing IS INITIAL.

activity = '03'.

ELSE.

activity = '02'.

ENDIF.

* client independent?

CALL FUNCTION 'DDIF_FIELDINFO_GET'

EXPORTING

tabname = lv_tabname

IMPORTING

x030l_wa = x030l_wa

EXCEPTIONS

not_found = 1

internal_error = 2

OTHERS = 3.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

IF x030l_wa-clpos = 0.

client_indep = 'X'.

ENDIF.

* check normal table maintenace authority

SELECT SINGLE * FROM tddat INTO lv_tddat

WHERE tabname = lv_tabname.

IF sy-subrc <> 0 OR lv_tddat-cclass IS INITIAL.

lv_tddat-cclass = '&NC&'. " 'non classified table'

ENDIF.

ev_auth = 'X'.

AUTHORITY-CHECK OBJECT 'S_TABU_DIS'

ID 'ACTVT' FIELD activity

ID 'DICBERCLS' FIELD lv_tddat-cclass.

IF sy-subrc <> 0.

CLEAR ev_auth.

ENDIF.

* check authority for client independent changes

IF client_indep = 'X' AND

iv_for_editing = 'X'.

AUTHORITY-CHECK OBJECT 'S_TABU_CLI'

ID 'CLIIDMAINT' FIELD 'X'.

IF sy-subrc <> 0.

CLEAR ev_auth.

ENDIF.

ENDMETHOD. " check_s_tabu_dis

METHOD handle_toolbar.

DATA: ls_toolbar TYPE stb_button,

lv_not_modified TYPE c,

lv_display_only TYPE c,

lv_hide_undo TYPE c,

lv_undo_not_empty TYPE c,

lv_auth_change_res TYPE c,

lv_read_from_file TYPE c,

l_lawb TYPE REF TO lcl_lawb,

lv_tabname TYPE tabname,

l_select TYPE REF TO lcl_select_command,

lv_add_save_btn TYPE c.

IF sender NE g_alv.

EXIT.

ENDIF.

TRY.

l_select ?= g_commands->current_command.

lv_read_from_file = l_select->mv_read_from_file.

IF l_select->alv_state EQ 0.

lv_display_only = 'X'.

ELSE.

lv_display_only = ' '.

ENDIF.

CATCH cx_sy_move_cast_error.

* message 'ZENITH:Casting error5' TYPE 'E'.

ENDTRY.

IF <gt_undo> IS ASSIGNED AND <gt_undo> IS NOT INITIAL.

lv_undo_not_empty = 'X'.

ENDIF.

IF g_commands->current_command->mv_grid_modified EQ 'X'.

lv_not_modified = ' '.

ELSE.

lv_not_modified = 'X'.

ENDIF.

CLEAR ls_toolbar.

MOVE 3 TO ls_toolbar-butn_type.

INSERT ls_toolbar INTO e_object->mt_toolbar INDEX 1.

CLEAR ls_toolbar.

MOVE cl_gui_alv_grid=>mc_fc_select_all TO ls_toolbar-function.

MOVE icon_select_all TO ls_toolbar-icon.

MOVE text-061 TO ls_toolbar-quickinfo.

APPEND ls_toolbar TO e_object->mt_toolbar.

CLEAR ls_toolbar.

MOVE cl_gui_alv_grid=>mc_fc_deselect_all TO ls_toolbar-function.

MOVE icon_deselect_all TO ls_toolbar-icon.

MOVE text-062 TO ls_toolbar-quickinfo.

APPEND ls_toolbar TO e_object->mt_toolbar.

CLEAR ls_toolbar.

MOVE 3 TO ls_toolbar-butn_type.

APPEND ls_toolbar TO e_object->mt_toolbar.

CLEAR ls_toolbar.

MOVE 'TXT_MENU' TO ls_toolbar-function.

MOVE icon_display_text TO ls_toolbar-icon.

MOVE text-063 TO ls_toolbar-quickinfo.

MOVE 2 TO ls_toolbar-butn_type.

MOVE space TO ls_toolbar-disabled.

APPEND ls_toolbar TO e_object->mt_toolbar.

CLEAR ls_toolbar.

MOVE 3 TO ls_toolbar-butn_type.

APPEND ls_toolbar TO e_object->mt_toolbar.

ENDMETHOD. "lcl_application

METHOD handle_function_selected.

DATA: l_tabname TYPE tabname,

l_aliasname TYPE string,

l_texttabname TYPE dd08v-tabname,

lstr TYPE string,

fpopup TYPE c,

l_ok_code TYPE sy-ucomm,

l_selected_node TYPE lvc_nkey,

l_fieldname TYPE lvc_fname,

ls_selected_nodes TYPE lvc_s_nkey,

lt_selected_nodes TYPE lvc_t_nkey,

l_node_key TYPE lvc_nkey,

l_new_node_key TYPE lvc_nkey,

l_nodetext TYPE lvc_value,

l_command TYPE REF TO lcl_command,

ls_table_alias_tb LIKE LINE OF l_command->table_alias_tb.

CHECK g_commands->current_command IS NOT INITIAL.

*new*

IF fcode+2(3) EQ 'LA_' OR fcode(5) EQ 'RELAT'.

CALL METHOD handle_lq_ctx_sel

EXPORTING

sender = 'T'

e_ucomm = fcode

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

ELSEIF fcode = 'GET_TABLES'.

CALL METHOD g_commands->parse_only_command

EXCEPTIONS

no_id = 1

create_error = 2

no_parent = 3

parse_error = 4

OTHERS = 5.

CASE sy-subrc.

WHEN 1.

* message s077 DISPLAY LIKE 'E'.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'S'

iv_msgno = '077'

iv_display_like = 'E'.

RETURN.

WHEN 2.

* message s076 DISPLAY LIKE 'E'.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'S'

iv_msgno = '076'

iv_display_like = 'E'.

RETURN.

WHEN 3.

* MESSAGE s050 DISPLAY LIKE 'E'.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'S'

iv_msgno = '050'

iv_display_like = 'E'.

RETURN.

WHEN 4.

* this would override detailed information

* message s079 DISPLAY LIKE 'E'.

RETURN.

WHEN 5.

RETURN.

ENDCASE.

RETURN.

ENDIF.

CALL METHOD g_tree_tb->get_selected_nodes

CHANGING

ct_selected_nodes = lt_selected_nodes

EXCEPTIONS

cntl_system_error = 1

dp_error = 2

failed = 3

OTHERS = 4.

IF sy-subrc <> 0.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'E'

iv_msgno = '031'.

* MESSAGE e031.

ENDIF.

READ TABLE lt_selected_nodes INTO ls_selected_nodes INDEX 1.

IF sy-subrc EQ 0.

l_node_key = ls_selected_nodes-node_key.

CLEAR gs_outtab_tb.

CALL METHOD g_tree_tb->get_outtab_line

EXPORTING

i_node_key = l_node_key

IMPORTING

* E_NODE_TEXT = l_nodetext

e_outtab_line = gs_outtab_tb

EXCEPTIONS

node_not_found = 1

OTHERS = 2.

IF sy-subrc <> 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

IF gs_outtab_tb IS INITIAL AND fcode NE 'VRANGES'.

EXIT.

ENDIF.

* MOVE gs_outtab_tb-tablename TO l_aliasname.

* MOVE ls_table_alias_tb-alias TO l_aliasname.

MOVE gs_outtab_tb-alias TO l_aliasname.

l_command = g_commands->current_command.

READ TABLE l_command->table_alias_tb INTO ls_table_alias_tb

WITH KEY alias = l_aliasname.

IF sy-subrc NE 0.

RETURN.

ENDIF.

IF fcode = 'VRANGES' AND

ls_table_alias_tb-type NE 'T' AND

ls_table_alias_tb-type NE 'V'.

MESSAGE i121 DISPLAY LIKE 'W' WITH ls_table_alias_tb-table.

RETURN.

ENDIF.

MOVE ls_table_alias_tb-table TO l_tabname.

* IF l_aliasname IS INITIAL AND fcode EQ 'VRANGES'.

* EXIT.

* ENDIF.

ELSE.

RETURN.

ENDIF.

CASE fcode.

WHEN 'GRAPH'.

TYPE-POOLS: sdg1.

DATA: obj_tab TYPE sdg1_obj,

obj_def TYPE sdg1_obj1.

CHECK gs_outtab_tb-fieldname IS INITIAL.

obj_def-obj_name = l_tabname.

obj_def-type = 'TABL'.

CLEAR obj_tab.

APPEND obj_def TO obj_tab.

CLEAR sy-msgno.

CALL FUNCTION 'REPOSITORY_STRUCTURE_GRAPH'

EXPORTING

type = 'TABL'

TABLES

OBJECTS = obj_tab

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

WHEN 'DISPLAY'.

DATA: lv_type TYPE string.

CASE ls_table_alias_tb-type.

WHEN 'T'.

lv_type = 'TABL'.

WHEN 'V'.

lv_type = 'VIEW'.

WHEN 'C'.

lv_type = 'SQLT'.

WHEN 'P'.

lv_type = 'SQLT'.

ENDCASE.

CALL FUNCTION 'RS_TOOL_ACCESS'

EXPORTING

operation = 'SHOW'

object_name = l_tabname

object_type = lv_type

* ENCLOSING_OBJECT =

* POSITION = ' '

* DEVCLASS =

* INCLUDE =

* VERSION = ' '

* MONITOR_ACTIVATION = 'X'

* WB_MANAGER =

* IN_NEW_WINDOW =

* WITH_OBJECTLIST = ' '

* WITH_WORKLIST = ' '

* IMPORTING

* NEW_NAME =

* WB_TODO_REQUEST =

* TABLES

* OBJLIST =

EXCEPTIONS

not_executed = 1

invalid_object_type = 2

OTHERS = 3

IF sy-subrc <> 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

WHEN 'TECH'.

CHECK gs_outtab_tb-fieldname IS INITIAL.

PERFORM mem_export.

SET PARAMETER ID 'DTB' FIELD l_tabname.

CALL TRANSACTION 'SE13' AND SKIP FIRST SCREEN.

WHEN 'INDEXES'.

* if ddxx-tabclass ne 'TRANSP'.

* Indexpflege nur für transparente Tabellen m?glich

* message s807.

* else.

CHECK gs_outtab_tb-fieldname IS INITIAL.

CALL FUNCTION 'DD_LIST_INDEX'

EXPORTING

objname = l_tabname

IMPORTING

fcode = l_ok_code.

WHEN 'RUNTIMEOBJ'.

CHECK gs_outtab_tb-fieldname IS INITIAL.

SUBMIT rutdbdsp AND RETURN WITH objname EQ l_tabname

WITH display EQ 2.

* SUBMIT rutntchk AND RETURN WITH tabname EQ l_tabname

* WITH ttype EQ 'TABL'

* WITH status EQ 'A'

* WITH showonly EQ 'X'.

WHEN 'TEXTTAB'.

CHECK gs_outtab_tb-fieldname IS INITIAL.

CALL FUNCTION 'DDUT_TEXTTABLE_GET'

EXPORTING

tabname = l_tabname

IMPORTING

texttable = l_texttabname.

IF l_texttabname IS INITIAL.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'I'

iv_msgno = '032'

iv_msgv1 = l_tabname.

* MESSAGE i032 WITH l_tabname.

ELSE.

CLEAR fpopup.

CALL DIALOG 'RS_DD_FIEL_SHOW'

EXPORTING

objname FROM l_texttabname.

ENDIF.

WHEN 'CONTENTS'.

CHECK gs_outtab_tb-fieldname IS INITIAL.

CALL FUNCTION 'RS_NAVIGATION_BREAK'.

CLEAR sy-msgno.

CALL FUNCTION 'RS_TOOL_ACCESS'

EXPORTING

operation = 'TAB_CONT'

object_name = l_tabname

object_type = 'TABL'

EXCEPTIONS

not_executed.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CALL FUNCTION 'RS_NAVIGATION_BREAK_RESET'.

WHEN 'WHERE'.

CHECK gs_outtab_tb-fieldname IS INITIAL.

CALL FUNCTION 'RS_NAVIGATION_BREAK'.

CLEAR sy-msgno.

CALL FUNCTION 'RS_TOOL_ACCESS'

EXPORTING

operation = 'CROSSREF'

object_name = l_tabname

object_type = 'DT'

monitor_activation = 'X'

EXCEPTIONS

OTHERS = 01.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CALL FUNCTION 'RS_NAVIGATION_BREAK_RESET'.

* VRANGES

WHEN 'VRANGES'.

DATA: it_fdiff TYPE TABLE OF field_dif,

it_dfies TYPE TABLE OF dfies,

is_dfies TYPE dfies,

is_fdiff TYPE field_dif,

lt_tables TYPE TABLE OF rsdstabs,

is_tables TYPE rsdstabs,

lt_ranges TYPE rsds_trange,

ls_range2 LIKE LINE OF lt_ranges, " TYPE rsds_range, "lty_zhdb_vrange-rsds_range,

it_ranges2 TYPE rsds_trange,

is_ranges2 LIKE LINE OF it_ranges2,

is_ranges LIKE LINE OF l_command->it_ranges,

l_tabix TYPE i,

it_frange TYPE rsds_frange_t,

is_frange LIKE LINE OF it_frange,

ls_frange2 LIKE LINE OF it_frange,

it_where TYPE rsds_twhere,

is_where TYPE rsds_where,

l_where_text TYPE string,

ls_alias_range LIKE LINE OF l_command->mt_alias_ranges,

ls_rangename TYPE lvc_value,

lt_where TYPE rsds_twhere,

ls_where TYPE rsds_where,

ls_range LIKE LINE OF l_command->mt_ranges,

l_line LIKE LINE OF ls_where-where_tab,

ls_node_style TYPE lvc_s_layn,

lt_field_desc TYPE TABLE OF fldconvert,

ls_field_desc TYPE fldconvert,

lt_fields TYPE TABLE OF rsdsfields,

ls_fields TYPE rsdsfields.

CLEAR lt_tables.

CHECK l_command IS NOT INITIAL.

READ TABLE l_command->mt_alias_ranges INTO ls_alias_range

WITH KEY table_alias = l_aliasname.

IF sy-subrc EQ 0.

* if ls_table_alias_tb-type = 'C' or ls_table_alias_tb-type = 'P'.

* LOOP AT l

* endif.

l_tabix = sy-tabix.

READ TABLE l_command->it_ranges INTO is_ranges

WITH KEY alias = l_aliasname.

IF sy-subrc EQ 0.

CLEAR lt_ranges.

APPEND is_ranges-rsds_range TO lt_ranges.

CALL FUNCTION 'FREE_SELECTIONS_RANGE_2_EX'

EXPORTING

field_ranges = lt_ranges

IMPORTING

expressions = ls_alias_range-expr.

LOOP AT lt_ranges INTO is_ranges2.

LOOP AT is_ranges2-frange_t INTO is_frange.

ls_fields-tablename = l_tabname.

ls_fields-fieldname = is_frange-fieldname.

APPEND ls_fields TO lt_fields.

ENDLOOP.

ENDIF.

REFRESH: it_fdiff.

is_fdiff-tabname = l_tabname.

CLEAR it_dfies.

CLEAR sy-msgno.

CALL FUNCTION 'DDIF_NAMETAB_GET'

EXPORTING

tabname = l_tabname

IMPORTING

x030l_wa = l_command->is_x030l

TABLES

dfies_tab = it_dfies

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

IF l_command->is_x030l IS INITIAL.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'E'

iv_msgno = '033'

iv_msgv1 = l_tabname.

* MESSAGE e033 WITH l_tabname.

* ELSEIF l_command->is_x030l-tabtype NE 'T'.

* message 'ZENITH:is not selectable' TYPE 'E'.

* ELSEIF l_command->is_x030l-align NE 0.

* message 'ZENITH:has alignment - cannot continue' TYPE 'E'.

ENDIF.

is_tables-prim_tab = ls_table_alias_tb-table.

APPEND is_tables TO lt_tables.

IF ls_alias_range-sel_id IS INITIAL.

* Init free selection dialog

CLEAR sy-msgno.

CALL FUNCTION 'FREE_SELECTIONS_INIT'

EXPORTING

expressions = ls_alias_range-expr

IMPORTING

selection_id = ls_alias_range-sel_id

expressions = ls_alias_range-expr

TABLES

tables_tab = lt_tables

fields_tab = lt_fields

field_desc = lt_field_desc

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

* Display free selection dialog

CLEAR sy-msgno.

CALL FUNCTION 'FREE_SELECTIONS_DIALOG'

EXPORTING

selection_id = ls_alias_range-sel_id

title = text-077

as_window = 'X'

IMPORTING

expressions = ls_alias_range-expr

field_ranges = lt_ranges

number_of_active_fields = ls_alias_range-active

TABLES

fields_tab = ls_alias_range-fields

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

EXIT.

ENDIF.

LOOP AT lt_ranges INTO ls_range2.

DELETE l_command->it_ranges WHERE alias = l_aliasname.

is_ranges-alias = l_aliasname.

is_ranges-rsds_range = ls_range2.

APPEND is_ranges TO l_command->it_ranges.

ENDLOOP.

IF sy-subrc EQ 4.

CLEAR l_command->it_ranges.

ENDIF.

ls_node_style-n_image = '@1E@'.

MODIFY l_command->mt_alias_ranges FROM ls_alias_range INDEX l_tabix.

READ TABLE lt_ranges INTO ls_range2 INDEX 1.

it_frange = ls_range2-frange_t.

LOOP AT l_command->mt_outtab_tb INTO gs_outtab_tb

WHERE alias = l_aliasname AND

fieldname IS NOT INITIAL.

READ TABLE it_frange INTO is_frange

WITH KEY fieldname = gs_outtab_tb-fieldname.

IF sy-subrc NE 0.

DELETE l_command->mt_outtab_tb

WHERE alias = l_aliasname AND

fieldname = gs_outtab_tb-fieldname.

DELETE l_command->mt_ranges

WHERE table_alias = l_aliasname AND

fieldname = gs_outtab_tb-fieldname.

ENDIF.

ENDLOOP.

LOOP AT it_frange INTO is_frange.

CLEAR: it_ranges2, is_ranges2.

is_ranges2-tablename = is_ranges-rsds_range-tablename.

CLEAR ls_frange2.

APPEND is_frange TO is_ranges2-frange_t.

APPEND is_ranges2 TO it_ranges2.

CALL FUNCTION 'FREE_SELECTIONS_RANGE_2_WHERE'

EXPORTING

field_ranges = it_ranges2

IMPORTING

where_clauses = lt_where.

READ TABLE lt_where INTO ls_where INDEX 1.

CLEAR l_where_text.

LOOP AT ls_where-where_tab INTO l_line.

CONCATENATE l_where_text l_line-line INTO l_where_text SEPARATED BY ' '.

ENDLOOP.

CONDENSE l_where_text.

IF l_where_text IS INITIAL.

DELETE l_command->mt_outtab_tb

WHERE alias = l_aliasname AND

fieldname = is_frange-fieldname.

DELETE l_command->mt_ranges

WHERE table_alias = l_aliasname AND

fieldname = is_frange-fieldname.

EXIT.

ENDIF.

READ TABLE l_command->mt_outtab_tb INTO gs_outtab_tb

WITH KEY tablename = l_tabname

fieldname = is_frange-fieldname.

IF sy-subrc NE 0.

MOVE l_where_text TO gs_outtab_tb-ddtext.

* CLEAR gs_outtab_tb-ddtext.

gs_outtab_tb-alias = l_aliasname.

gs_outtab_tb-fieldname = is_frange-fieldname.

CONCATENATE 'R_' l_aliasname '_' gs_outtab_tb-fieldname INTO ls_rangename SEPARATED BY ''.

REPLACE ' ' WITH '' INTO ls_rangename.

CONDENSE ls_rangename NO-GAPS.

APPEND gs_outtab_tb TO l_command->mt_outtab_tb.

READ TABLE l_command->mt_tab_node_xref INTO gs_tab_node_xref

WITH KEY alias = l_aliasname.

* WITH KEY tablename = l_tabname.

CLEAR l_new_node_key.

CALL METHOD g_tree_tb->add_node

EXPORTING

i_relat_node_key = gs_tab_node_xref-node_key

i_relationship = cl_gui_column_tree=>relat_last_child

is_outtab_line = gs_outtab_tb

i_node_text = ls_rangename

is_node_layout = ls_node_style

IMPORTING

e_new_node_key = l_new_node_key

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

* READ TABLE l_command->mt_ranges INTO gs_ranges

* WITH KEY tablename = is_ranges-tablename fieldname = is_frange-fieldname.

** gs_ranges-node_text = ls_rangename.

* MODIFY l_command->mt_ranges FROM gs_ranges INDEX sy-tabix.

* CALL METHOD g_tree_tb->EXPAND_NODE

* EXPORTING

* I_NODE_KEY = gs_tab_node_xref-node_key.

ELSE.

MOVE l_where_text TO gs_outtab_tb-ddtext.

MODIFY l_command->mt_outtab_tb FROM gs_outtab_tb INDEX sy-tabix.

ENDIF.

READ TABLE l_command->mt_ranges INTO gs_ranges

WITH KEY table_alias = l_aliasname

fieldname = is_frange-fieldname.

IF sy-subrc EQ 0.

gs_ranges-where_text = l_where_text.

gs_ranges-range = is_frange-selopt_t.

MODIFY l_command->mt_ranges FROM gs_ranges INDEX sy-tabix.

ELSE.

CLEAR gs_ranges.

* gs_ranges-node_key = l_new_node_key.

gs_ranges-table_alias = l_aliasname.

gs_ranges-fieldname = is_frange-fieldname.

gs_ranges-where_text = l_where_text.

gs_ranges-node_text = ls_rangename.

gs_ranges-range = is_frange-selopt_t.

APPEND gs_ranges TO l_command->mt_ranges.

ENDIF.

ENDLOOP.

CLEAR sy-msgno.

CALL METHOD g_tree_tb->frontend_update

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CLEAR sy-msgno.

CALL METHOD cl_gui_cfw=>dispatch

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

CLEAR sy-msgno.

CALL METHOD display_table_grid

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

ENDCASE.

ENDMETHOD. "lcl_application

METHOD handle_user_command.

DATA: lt_rows TYPE lvc_t_row,

l_select_command TYPE REF TO lcl_select_command,

lv_valid TYPE c,

lv_bool TYPE c,

l_lines TYPE i,

lt_index_rows TYPE lvc_t_row,

ls_index_rows TYPE lvc_s_row,

l_index TYPE i,

l_s_c TYPE REF TO lcl_select_command,

l_lawb TYPE REF TO lcl_lawb,

l_select TYPE REF TO lcl_select_command,

ls_celltab TYPE lvc_s_styl,

lt_cells TYPE lvc_t_cell,

ls_row TYPE lvc_s_row,

ls_column_id TYPE lvc_s_col,

ls_row_no TYPE lvc_s_roid,

lv_from TYPE i,

lv_to TYPE i,

lv_mod TYPE i,

lv_max_page TYPE i,

lt_col TYPE lvc_t_col,

ls_col TYPE lvc_s_col,

lv_lines TYPE i,

ls_fcat TYPE lvc_s_fcat,

lv_tabix TYPE i,

ls_fieldinfo_tb LIKE LINE OF l_s_c->fieldinfo_tb,

lv_tabname TYPE tabname,

l_ans TYPE c,

lv_subrc TYPE i,

ls_fieldinfo TYPE lty_zhtdb_fieldinfo,

lt_fieldinfo TYPE TABLE OF lty_zhtdb_fieldinfo,

ls_table_alias LIKE LINE OF l_select->table_alias_tb.

FIELD-SYMBOLS: <lt_style> TYPE lvc_t_styl,

<lt_icon> TYPE ANY.

TRY.

l_select_command ?= g_commands->current_command.

CATCH cx_sy_move_cast_error.

* message 'ZENITH:Casting error33' TYPE 'E'.

ENDTRY.

CALL METHOD g_alv->get_selected_cells

IMPORTING

et_cell = lt_cells

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CALL METHOD g_alv->get_current_cell

IMPORTING

es_row_id = ls_row

es_col_id = ls_column_id

es_row_no = ls_row_no

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CASE e_ucomm.

WHEN 'TXT_SHTXT' OR

'TXT_GENFLD' OR

'TXT_ALIAS' OR

'TXT_FLD'.

CALL METHOD me->set_column_settings

EXPORTING

p_mode = e_ucomm.

CALL METHOD me->set_column_headings.

CALL METHOD me->refresh_display.

WHEN 'KEY_NONE' OR

'KEY_FIX'.

CALL METHOD me->set_key_field_settings

EXPORTING

p_mode = e_ucomm.

CALL METHOD me->set_key_display_attributes.

CALL METHOD me->refresh_display.

ENDCASE.

TRY.

l_select ?= g_commands->current_command.

IF l_select->mv_last_display EQ 'G'.

CALL METHOD g_alv->set_selected_cells

EXPORTING

it_cells = lt_cells

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CALL METHOD g_alv->set_current_cell_via_id

EXPORTING

is_row_id = ls_row

is_column_id = ls_column_id

is_row_no = ls_row_no

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CATCH cx_sy_move_cast_error.

ENDTRY.

ENDMETHOD. "lcl_application

METHOD read_checktables.

DATA: dd08v_ia TYPE TABLE OF dd08v,

dd05m_ia TYPE TABLE OF dd05m,

wa_dd08v_ia TYPE dd08v,

wa_dd05m_ia TYPE dd05m,

state(1),

l_tabname TYPE dd08l-tabname,

ls_dd08l TYPE dd08l,

lt_dd08l TYPE TABLE OF dd08l,

ls_table_alias LIKE LINE OF g_commands->current_command->table_alias_tb,

lstr(40) TYPE c,

lstr4(40) TYPE c,

lstr2 TYPE string,

lstr3 TYPE string,

lstr5 TYPE string,

lint TYPE i,

ls_prev_linkedquery LIKE gs_linkedquery,

ls_linkedquery LIKE gs_linkedquery,

lt_linkedquery LIKE gt_linkedquery,

l_ddtext TYPE dd02t-ddtext,

l_text(40) TYPE c,

l_comp_text(40) TYPE c.

DATA: ls_info_tablf TYPE lty_zhtdb_checktable_struc,

lt_info_tablf TYPE TABLE OF lty_zhtdb_checktable_struc,

ls_info_tablf_out TYPE lty_zhtdb_checktable_struc_alv,

lt_info_tablf_out TYPE TABLE OF lty_zhtdb_checktable_struc_alv,

ls_selected_nodes TYPE lvc_s_nkey,

lt_selected_nodes TYPE lvc_t_nkey,

l_node_key TYPE lvc_nkey,

l_new_node_key TYPE lvc_nkey,

l_nodetext TYPE lvc_value,

l_command TYPE REF TO lcl_command,

ls_table_alias_tb LIKE LINE OF l_command->table_alias_tb.

IF sender = 'T'.

CALL METHOD g_tree_tb->get_selected_nodes

CHANGING

ct_selected_nodes = lt_selected_nodes

EXCEPTIONS

cntl_system_error = 1

dp_error = 2

failed = 3

OTHERS = 4.

IF sy-subrc <> 0.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'E'

iv_msgno = '031'.

* MESSAGE e031.

ENDIF.

READ TABLE lt_selected_nodes INTO ls_selected_nodes INDEX 1.

l_node_key = ls_selected_nodes-node_key.

CALL METHOD g_tree_tb->get_outtab_line

EXPORTING

i_node_key = l_node_key

IMPORTING

* E_NODE_TEXT = l_nodetext

e_outtab_line = gs_outtab_tb

EXCEPTIONS

node_not_found = 1

OTHERS = 2.

l_tabname = gs_outtab_tb-tablename.

ELSEIF sender = 'G'.

* obsolete

RETURN.

ENDIF.

CLEAR gt_linkedquery.

CLEAR lint.

CLEAR lt_dd08l.

READ TABLE g_commands->current_command->table_alias_tb INTO ls_table_alias

WITH KEY table = l_tabname.

SELECT info_tablf~tabname info_tablf~fieldname info_tablf~forkey info_tablf~primpos

INTO CORRESPONDING FIELDS OF TABLE lt_info_tablf

FROM info_tablf INNER JOIN dd02l ON info_tablf~tabname = dd02l~tabname

WHERE info_tablf~checktable = l_tabname AND dd02l~tabclass = 'TRANSP'.

LOOP AT lt_info_tablf INTO ls_info_tablf.

CLEAR: dd05m_ia, dd08v_ia.

CALL FUNCTION 'DD_TBFK_GET'

EXPORTING

fieldname = '*'

get_state = 'A'

tabl_name = ls_info_tablf-tabname

withtext = 'X'

IMPORTING

got_state = state

TABLES

dd05m_tab_a = dd05m_ia

* DD05M_TAB_N = FK1_DD05M

dd08v_tab_a = dd08v_ia

* DD08V_TAB_N = FK1_DD08V

EXCEPTIONS

illegal_value = 01.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

LOOP AT dd05m_ia INTO wa_dd05m_ia WHERE checktable = l_tabname.

lint = lint + 1.

SELECT SINGLE ddtext

INTO l_ddtext

FROM dd02t

WHERE tabname = wa_dd05m_ia-tabname

AND ddlanguage = sy-langu.

IF sy-subrc NE 0.

SELECT SINGLE ddtext

INTO l_ddtext

FROM dd02t

WHERE as4local = 'A'

AND tabname = wa_dd05m_ia-tabname.

IF sy-subrc NE 0.

* message 'ZENITH:sdfgdsf' type 'E'.

ENDIF.

CONCATENATE wa_dd05m_ia-tabname '~' wa_dd05m_ia-checkfield INTO lstr2.

CONDENSE lstr2 NO-GAPS.

CONCATENATE ls_table_alias-alias '~' wa_dd05m_ia-forkey INTO lstr3.

CONDENSE lstr3 NO-GAPS.

CONCATENATE 'ON' lstr3 '=' lstr2 INTO lstr2 SEPARATED BY ' '.

MOVE lstr2 TO lstr.

lstr2 = lint.

CLEAR gs_linkedquery.

gs_linkedquery-tabname = ls_table_alias-alias.

gs_linkedquery-checktable = wa_dd05m_ia-tabname.

gs_linkedquery-fieldname = wa_dd05m_ia-forkey.

gs_linkedquery-checkfield = wa_dd05m_ia-checkfield.

gs_linkedquery-primpos = wa_dd05m_ia-primpos.

gs_linkedquery-text = lstr.

gs_linkedquery-longtext = lstr.

gs_linkedquery-ddtext = l_ddtext.

APPEND gs_linkedquery TO gt_linkedquery.

ENDLOOP.

DATA: l_comp_count TYPE i,

lt_primpos TYPE TABLE OF gty_linkedquery-primpos,

l_primpos TYPE gty_linkedquery-primpos.

CLEAR gt_linkedquery_comp.

SORT gt_linkedquery BY checktable tabname primpos fieldname checkfield .

DELETE ADJACENT DUPLICATES FROM gt_linkedquery COMPARING checktable tabname primpos fieldname checkfield.

LOOP AT gt_linkedquery INTO gs_linkedquery.

* if ls_prev_linkedquery-checktable NE gs_linkedquery-checktable OR

* ls_prev_linkedquery-tabname NE gs_linkedquery-tabname.

AT END OF checktable.

CLEAR: l_comp_count.

CLEAR lt_primpos.

CLEAR lstr2.

lstr4 = '* ON'.

LOOP AT gt_linkedquery INTO ls_linkedquery

WHERE tabname = ls_prev_linkedquery-tabname

AND checktable = ls_prev_linkedquery-checktable.

* AND join_type = ls_prev_linkedquery-join_type.

READ TABLE lt_primpos TRANSPORTING NO FIELDS

WITH KEY table_line = ls_linkedquery-primpos.

IF sy-subrc EQ 4.

CONCATENATE ls_linkedquery-tabname '~' ls_linkedquery-checkfield INTO lstr5.

CONDENSE lstr5 NO-GAPS.

CONCATENATE ls_linkedquery-checktable '~' ls_linkedquery-fieldname INTO lstr3.

CONDENSE lstr3 NO-GAPS.

CONCATENATE lstr4 lstr3 INTO lstr4 SEPARATED BY space.

IF lstr2 IS INITIAL.

CONCATENATE 'ON' lstr3 '=' lstr5 INTO lstr2 SEPARATED BY ' '.

ELSE.

CONCATENATE lstr2 'AND' lstr3 '=' lstr5 INTO lstr2 SEPARATED BY ' '.

ENDIF.

APPEND ls_linkedquery-primpos TO lt_primpos.

l_comp_count = l_comp_count + 1.

ENDIF.

ENDLOOP.

IF l_comp_count GT 0.

READ TABLE gt_linkedquery_comp TRANSPORTING NO FIELDS

WITH KEY tabname = ls_linkedquery-tabname

checktable = ls_linkedquery-checktable

text = lstr4.

* longtext = lstr2.

IF sy-subrc EQ 4.

gs_linkedquery_comp-tabname = ls_linkedquery-tabname.

gs_linkedquery_comp-checktable = ls_linkedquery-checktable.

gs_linkedquery_comp-text = lstr4.

gs_linkedquery_comp-longtext = lstr2.

gs_linkedquery_comp-join_type = ls_linkedquery-join_type.

gs_linkedquery_comp-ddtext = ls_linkedquery-ddtext.

APPEND gs_linkedquery_comp TO gt_linkedquery_comp.

ENDIF.

ENDAT.

ls_prev_linkedquery = gs_linkedquery.

* if ls_prev_linkedquery-checktable NE gs_linkedquery-checktable.

* CONCATENATE '(' gs_linkedquery-ddtext ')' INTO l_ddtext.

* CONCATENATE gs_linkedquery-checktable l_ddtext INTO lstr SEPARATED BY ' '.

* endif.

ENDLOOP.

LOOP AT gt_linkedquery_comp INTO gs_linkedquery_comp.

CLEAR ls_info_tablf_out.

MOVE-CORRESPONDING gs_linkedquery_comp TO ls_info_tablf_out.

ls_info_tablf_out-tabname = gs_linkedquery_comp-checktable.

APPEND ls_info_tablf_out TO lt_info_tablf_out.

ENDLOOP.

* CONCATENATE 'Checktable Relationships for ' l_tabname INTO lstr SEPARATED BY ' '.

MESSAGE i037 WITH l_tabname INTO lstr.

DELETE lt_info_tablf_out WHERE tabname = l_tabname.

DATA: ls_selfield TYPE slis_selfield,

lt_fcat_slis TYPE slis_t_fieldcat_alv,

ls_fcat_slis TYPE slis_fieldcat_alv.

ls_fcat_slis-col_pos = 1.

ls_fcat_slis-fieldname = 'TABNAME'.

ls_fcat_slis-rollname = 'AS4TAB'.

ls_fcat_slis-reptext_ddic = 'Table name'.

ls_fcat_slis-outputlen = 20.

APPEND ls_fcat_slis TO lt_fcat_slis.

ls_fcat_slis-col_pos = 2.

ls_fcat_slis-fieldname = 'DDTEXT'.

ls_fcat_slis-rollname = 'AS4TEXT'.

ls_fcat_slis-reptext_ddic = 'Short text'.

ls_fcat_slis-outputlen = 50.

APPEND ls_fcat_slis TO lt_fcat_slis.

ls_fcat_slis-col_pos = 3.

ls_fcat_slis-fieldname = 'LONGTEXT'.

ls_fcat_slis-rollname = 'CHAR_512'.

ls_fcat_slis-reptext_ddic = 'Join condition'.

ls_fcat_slis-outputlen = 512.

APPEND ls_fcat_slis TO lt_fcat_slis.

CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'

EXPORTING

i_title = lstr

* I_SELECTION = 'X'

* I_ALLOW_NO_SELECTION =

i_zebra = ' '

i_screen_start_column = 3

i_screen_start_line = 2

i_screen_end_column = 200

i_screen_end_line = 30

* I_CHECKBOX_FIELDNAME =

* I_LINEMARK_FIELDNAME =

* I_SCROLL_TO_SEL_LINE = 'X'

it_fieldcat = lt_fcat_slis

i_tabname = 'L+FASY'

* IT_EXCLUDING =

* I_CALLBACK_PROGRAM =

* I_CALLBACK_USER_COMMAND =

* IS_PRIVATE =

IMPORTING

es_selfield = ls_selfield

* E_EXIT =

TABLES

t_outtab = lt_info_tablf_out

EXCEPTIONS

program_error = 1

OTHERS = 2

IF sy-subrc <> 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

IF ls_selfield-tabindex IS NOT INITIAL.

DATA:

l_len TYPE i,

l_jointext TYPE string,

lt_jointext TYPE lty_zhtdbt_string_tab,

* lt_jointext TYPE source_table,

l_tablename TYPE gty_linkedquery-checktable,

l_alias TYPE gty_linkedquery-checktable,

l_jointype TYPE c,

l_select TYPE REF TO lcl_select_command,

l_selfae TYPE REF TO lcl_select_fae_command,

l_from_text TYPE string,

l_where_text TYPE string,

l_gb_text TYPE string,

l_ob_text TYPE string,

l_new_from_text TYPE string,

l_fdpos TYPE i,

l_tabix TYPE i,

l_ucomm TYPE sy-ucomm,

l_selfae_alias TYPE string,

ls_linkedquery_comp LIKE gs_linkedquery_comp.

READ TABLE lt_info_tablf_out INTO ls_info_tablf_out

INDEX ls_selfield-tabindex.

IF sy-subrc NE 0.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'I'

iv_msgno = '027'.

* MESSAGE i027.

ENDIF.

READ TABLE gt_linkedquery_comp INTO ls_linkedquery_comp

WITH KEY checktable = ls_info_tablf_out-tabname.

IF sy-subrc NE 0.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'I'

iv_msgno = '027'.

* MESSAGE i027.

ELSE.

l_tablename = ls_linkedquery_comp-checktable.

l_jointext = ls_linkedquery_comp-longtext.

l_selfae_alias = ls_linkedquery_comp-tabname.

ENDIF.

TRY.

l_select ?= g_commands->current_command.

l_from_text = l_select->from_text.

l_gb_text = l_select->group_by_text.

l_ob_text = l_select->order_by_text.

l_where_text = l_select->where_text.

CATCH cx_sy_move_cast_error.

ENDTRY.

CHECK l_from_text IS NOT INITIAL.

IF l_where_text IS NOT INITIAL.

SEARCH g_commands->current_command->text FOR l_where_text.

IF sy-fdpos GT 0.

l_fdpos = sy-fdpos.

l_tabix = sy-tabix.

ENDIF.

ELSEIF l_gb_text IS NOT INITIAL AND l_fdpos IS INITIAL.

SEARCH g_commands->current_command->text FOR l_gb_text.

IF sy-fdpos GT 0.

l_fdpos = sy-fdpos.

l_tabix = sy-tabix.

ENDIF.

ELSEIF l_ob_text IS NOT INITIAL AND l_fdpos IS INITIAL.

SEARCH g_commands->current_command->text FOR l_ob_text.

IF sy-fdpos GT 0.

l_fdpos = sy-fdpos.

l_tabix = sy-tabix.

ENDIF.

* LOOP AT g_commands->current_command->table_alias_tb INTO ls_table_alias_tb WHERE TABLE = L_TABLENAME.

* ENDLOOP.

READ TABLE g_commands->current_command->table_alias_tb TRANSPORTING NO FIELDS

WITH KEY table = l_tablename.

IF sy-subrc EQ 4.

l_alias = l_tablename.

ELSE.

lstr = sy-tabix + 1.

CONCATENATE l_tablename lstr INTO l_alias.

CONCATENATE l_tablename '~' INTO lstr.

CONCATENATE l_alias '~' INTO lstr2.

REPLACE ALL OCCURRENCES OF lstr IN l_jointext WITH lstr2.

ENDIF.

CASE i_ucomm.

WHEN 'RELAT_I'.

CONCATENATE 'INNER JOIN' l_tablename 'AS' l_alias l_jointext INTO l_jointext SEPARATED BY ' '.

WHEN 'RELAT_O'.

CONCATENATE 'LEFT OUTER JOIN' l_tablename 'AS' l_alias l_jointext INTO l_jointext SEPARATED BY ' '.

WHEN 'RELAT_Q'.

CONCATENATE '( SELECT' l_tablename 'AS' l_alias l_jointext ')' INTO l_jointext SEPARATED BY ' '.

WHEN 'RELAT_S'.

MOVE l_jointext+3 TO l_jointext.

CONCATENATE l_selfae_alias '~' INTO l_selfae_alias.

CONDENSE l_selfae_alias NO-GAPS.

REPLACE ALL OCCURRENCES OF l_selfae_alias IN l_jointext WITH 'ZSQL_OUTER_TABLE-' IGNORING CASE.

CONCATENATE 'SELECT * FROM' l_tablename INTO lstr2 SEPARATED BY ' '.

APPEND lstr2 TO lt_jointext.

lstr2 = 'FOR ALL ENTRIES IN ZSQL_OUTER_TABLE'.

APPEND lstr2 TO lt_jointext.

DATA: lt_jointext_temp LIKE lt_jointext.

CONCATENATE 'WHERE' l_jointext INTO lstr2 SEPARATED BY ' '.

CALL METHOD lcl_toolbox=>split_string

EXPORTING

iv_string = lstr2

iv_maxlen = gc_line_length

IMPORTING

et_string_tab = lt_jointext_temp.

* CALL METHOD split_string_to_itab

* EXPORTING

* p_string = lstr2

* IMPORTING

* p_itab = lt_jointext_temp.

APPEND LINES OF lt_jointext_temp TO lt_jointext.

ENDCASE.

IF i_ucomm EQ 'RELAT_S'.

CALL METHOD cl_gui_cfw=>set_new_ok_code

EXPORTING

new_code = 'NEWSELFOR'

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

gt_selfae_jointext[] = lt_jointext[].

RETURN.

ELSE.

IF STRLEN( l_jointext ) < gc_line_length.

APPEND l_jointext TO lt_jointext.

ELSE.

CALL METHOD lcl_toolbox=>split_string

EXPORTING

iv_string = l_jointext

iv_maxlen = gc_line_length

IMPORTING

et_string_tab = lt_jointext.

* CALL METHOD split_string_to_itab

* EXPORTING

* p_string = l_jointext

* IMPORTING

* p_itab = lt_jointext.

ENDIF.

* IF l_fdpos IS NOT INITIAL.

* INSERT LINES OF lt_jointext INTO g_commands->current_command->text INDEX l_tabix.

* ELSE.

* APPEND LINES OF lt_jointext TO g_commands->current_command->text.

* ENDIF.

CALL METHOD insert_stringtab_to_pos

EXPORTING

it_stringtab = lt_jointext.

CALL METHOD g_commands->display_command.

ENDIF.

ENDMETHOD. "lcl_application

METHOD handle_lq_ctx_sel.

CALL METHOD g_commands->transfer_text_to_command.

IF e_ucomm(5) EQ 'RELAT'.

CALL METHOD read_checktables

EXPORTING

sender = sender

i_ucomm = e_ucomm.

ENDIF.

IF e_ucomm+2(3) EQ 'LA_'.

DATA: lstr TYPE string,

lstr2 TYPE string,

lstr3 TYPE string,

l_len TYPE i,

l_jointext TYPE string,

lt_jointext TYPE lty_zhtdbt_string_tab,

* lt_jointext TYPE source_table,

l_tablename TYPE gty_linkedquery-checktable,

l_alias TYPE gty_linkedquery-checktable,

l_jointype(3) TYPE c,

l_select TYPE REF TO lcl_select_command,

l_selfae TYPE REF TO lcl_select_fae_command,

l_from_text TYPE string,

l_where_text TYPE string,

l_gb_text TYPE string,

l_ob_text TYPE string,

l_new_from_text TYPE string,

l_fdpos TYPE i,

l_tabix TYPE i,

l_ucomm TYPE sy-ucomm,

l_selfae_alias TYPE string,

ls_linkedquery_comp LIKE gs_linkedquery_comp,

ls_linkedquery LIKE gs_linkedquery,

ls_table_alias_tb LIKE LINE OF g_commands->current_command->table_alias_tb.

l_ucomm = e_ucomm.

** SEARCH l_ucomm FOR '_COMP'.

** IF sy-fdpos EQ 0.

REPLACE ALL OCCURRENCES OF 'I_' IN l_ucomm WITH ''.

IF sy-subrc EQ 0.

l_jointype = 'I'.

ENDIF.

REPLACE ALL OCCURRENCES OF 'O_' IN l_ucomm WITH ''.

IF sy-subrc EQ 0.

l_jointype = 'O'.

ENDIF.

REPLACE ALL OCCURRENCES OF 'S_' IN l_ucomm WITH ''.

IF sy-subrc EQ 0.

l_jointype = 'S'.

ENDIF.

REPLACE ALL OCCURRENCES OF 'Q_' IN l_ucomm WITH ''.

IF sy-subrc EQ 0.

l_jointype = 'Q'.

ENDIF.

SEARCH l_ucomm FOR '_COMP'.

IF sy-fdpos EQ 0.

READ TABLE gt_linkedquery INTO ls_linkedquery

WITH KEY fcode = l_ucomm.

IF sy-subrc NE 0.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'I'

iv_msgno = '027'.

* MESSAGE i027.

ELSE.

l_tablename = ls_linkedquery-checktable.

l_jointext = ls_linkedquery-longtext.

l_selfae_alias = ls_linkedquery-tabname.

ENDIF.

ELSE.

READ TABLE gt_linkedquery_comp INTO ls_linkedquery_comp

WITH KEY fcode = l_ucomm.

IF sy-subrc NE 0.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'I'

iv_msgno = '027'.

* MESSAGE i027.

ELSE.

l_tablename = ls_linkedquery_comp-checktable.

l_jointext = ls_linkedquery_comp-longtext.

l_selfae_alias = ls_linkedquery_comp-tabname.

ENDIF.

LOOP AT g_commands->current_command->table_alias_tb INTO ls_table_alias_tb WHERE TABLE = L_TABLENAME.

ENDLOOP.

IF sy-subrc EQ 4.

l_alias = l_tablename.

ELSE.

lstr = sy-tabix + 1.

CONCATENATE l_tablename lstr INTO l_alias.

CONCATENATE l_tablename '~' INTO lstr.

CONCATENATE l_alias '~' INTO lstr2.

REPLACE ALL OCCURRENCES OF lstr IN l_jointext WITH lstr2.

ENDIF.

TRY.

l_select ?= g_commands->current_command.

l_from_text = l_select->from_text.

l_gb_text = l_select->group_by_text.

l_ob_text = l_select->order_by_text.

l_where_text = l_select->where_text.

CATCH cx_sy_move_cast_error.

ENDTRY.

CHECK l_from_text IS NOT INITIAL.

IF l_where_text IS NOT INITIAL.

SEARCH g_commands->current_command->text FOR l_where_text.

IF sy-fdpos GT 0.

l_fdpos = sy-fdpos.

l_tabix = sy-tabix.

ENDIF.

ELSEIF l_gb_text IS NOT INITIAL AND l_fdpos IS INITIAL.

SEARCH g_commands->current_command->text FOR l_gb_text.

IF sy-fdpos GT 0.

l_fdpos = sy-fdpos.

l_tabix = sy-tabix.

ENDIF.

ELSEIF l_ob_text IS NOT INITIAL AND l_fdpos IS INITIAL.

SEARCH g_commands->current_command->text FOR l_ob_text.

IF sy-fdpos GT 0.

l_fdpos = sy-fdpos.

l_tabix = sy-tabix.

ENDIF.

CASE l_jointype.

WHEN 'I'.

CONCATENATE 'INNER JOIN' l_tablename 'AS' l_alias l_jointext INTO l_jointext SEPARATED BY ' '.

WHEN 'O'.

CONCATENATE 'LEFT OUTER JOIN' l_tablename 'AS' l_alias l_jointext INTO l_jointext SEPARATED BY ' '.

WHEN 'S'.

MOVE l_jointext+3 TO l_jointext.

CONCATENATE l_selfae_alias '~' INTO l_selfae_alias.

CONDENSE l_selfae_alias NO-GAPS.

REPLACE ALL OCCURRENCES OF l_selfae_alias IN l_jointext WITH 'ZSQL_OUTER_TABLE-' IGNORING CASE.

CONCATENATE 'SELECT * FROM' l_tablename INTO lstr2 SEPARATED BY ' '.

APPEND lstr2 TO lt_jointext.

lstr2 = 'FOR ALL ENTRIES IN ZSQL_OUTER_TABLE'.

APPEND lstr2 TO lt_jointext.

DATA: lt_jointext_temp LIKE lt_jointext.

CONCATENATE 'WHERE' l_jointext INTO lstr2 SEPARATED BY ' '.

CALL METHOD lcl_toolbox=>split_string

EXPORTING

iv_string = lstr2

iv_maxlen = gc_line_length

IMPORTING

et_string_tab = lt_jointext_temp.

* CALL METHOD split_string_to_itab

* EXPORTING

* p_string = lstr2

* IMPORTING

* p_itab = lt_jointext_temp.

APPEND LINES OF lt_jointext_temp TO lt_jointext.

WHEN 'Q'.

MOVE l_jointext+3 TO l_jointext.

* CONCATENATE l_selfae_alias '~' INTO l_selfae_alias.

* CONDENSE l_selfae_alias NO-GAPS.

* REPLACE ALL OCCURRENCES OF l_selfae_alias IN l_jointext WITH l_tablename IGNORING CASE.

CONCATENATE '( SELECT * FROM' l_tablename 'WHERE' l_jointext ')' INTO l_jointext SEPARATED BY ' '.

ENDCASE.

IF l_jointype NE 'S'.

IF STRLEN( l_jointext ) < gc_line_length.

APPEND l_jointext TO lt_jointext.

ELSE.

CALL METHOD lcl_toolbox=>split_string

EXPORTING

iv_string = l_jointext

iv_maxlen = gc_line_length

IMPORTING

et_string_tab = lt_jointext.

ENDIF.

ELSE.

CALL METHOD cl_gui_cfw=>set_new_ok_code

EXPORTING

new_code = 'NEWSELFOR'

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

gt_selfae_jointext[] = lt_jointext[].

RETURN.

ENDIF.

CALL METHOD insert_stringtab_to_pos

EXPORTING

it_stringtab = lt_jointext.

CALL METHOD g_commands->display_command.

ENDIF.

ENDMETHOD. "lcl_application

METHOD refresh_display.

DATA: ls_fcat TYPE lvc_s_fcat,

lt_fcat TYPE lvc_t_fcat,

ls_fieldinfo TYPE gty_fieldinfo,

l_lawb TYPE REF TO lcl_lawb,

lv_tabix TYPE i,

l_selfae TYPE REF TO lcl_select_fae_command,

l_select_command TYPE REF TO lcl_select_command.

TRY.

l_select_command ?= g_commands->current_command.

CATCH cx_sy_move_cast_error.

ENDTRY.

CHECK l_select_command IS NOT INITIAL.

CHECK <gt_result> IS ASSIGNED.

CALL METHOD g_alv->set_frontend_fieldcatalog

EXPORTING

it_fieldcatalog = l_select_command->fcat

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CALL METHOD g_alv->refresh_table_display

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

ENDMETHOD. "refresh_display

METHOD set_column_headings.

DATA: ls_fcat TYPE lvc_s_fcat,

lt_fcat TYPE lvc_t_fcat,

ls_fieldinfo TYPE gty_fieldinfo,

l_lawb TYPE REF TO lcl_lawb,

lv_tabix TYPE i,

l_selfae TYPE REF TO lcl_select_fae_command,

l_select_command TYPE REF TO lcl_select_command.

TRY.

l_select_command ?= g_commands->current_command.

CATCH cx_sy_move_cast_error.

ENDTRY.

CHECK l_select_command IS NOT INITIAL.

CHECK <gt_result> IS ASSIGNED.

TRY.

LOOP AT l_select_command->fcat INTO ls_fcat

WHERE fieldname <> 'ZENITH_ROWID' AND

fieldname <> 'ZENITH_SELECTED' AND

fieldname <> 'ZENITH_STYLE' AND

fieldname <> 'ZENITH_COLOR' AND

fieldname <> 'ZENITH_LOCKED_BY'.

lv_tabix = sy-tabix.

READ TABLE l_select_command->fieldinfo_tb INTO ls_fieldinfo

WITH KEY generated_field = ls_fcat-fieldname.

IF sy-subrc NE 0.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'E'

iv_msgno = '027'.

ENDIF.

CASE l_select_command->mv_colmn_header.

WHEN 'S'.

IF l_select_command->mv_last_display = 'G'.

CLEAR: ls_fcat-coltext,

ls_fcat-scrtext_l,

ls_fcat-scrtext_m,

ls_fcat-scrtext_s,

ls_fcat-reptext.

ELSE.

ls_fcat-coltext = ls_fcat-reptext.

ls_fcat-scrtext_l = ls_fcat-reptext.

ls_fcat-scrtext_m = ls_fcat-reptext.

ls_fcat-scrtext_s = ls_fcat-reptext.

ls_fcat-reptext = ls_fcat-reptext.

ENDIF.

WHEN 'G'.

ls_fcat-coltext = ls_fieldinfo-generated_field.

WHEN 'A'.

IF ls_fieldinfo-field_alias IS NOT INITIAL.

ls_fcat-coltext = ls_fieldinfo-field_alias.

ELSE.

ls_fcat-coltext = ls_fieldinfo-generated_field.

ENDIF.

WHEN 'T'.

ls_fcat-coltext = ls_fieldinfo-orig_field.

ENDCASE.

MODIFY l_select_command->fcat FROM ls_fcat INDEX lv_tabix.

ENDLOOP.

CATCH cx_sy_move_cast_error.

ENDTRY.

ENDMETHOD. "lcl_application

METHOD set_key_display_attributes.

DATA: ls_fcat TYPE lvc_s_fcat,

l_char TYPE c,

l_select_command TYPE REF TO lcl_select_command.

TRY.

l_select_command ?= g_commands->current_command.

CATCH cx_sy_move_cast_error.

RETURN.

ENDTRY.

CHECK l_select_command IS NOT INITIAL.

CHECK <gt_result> IS ASSIGNED.

CHECK l_select_command->mv_last_display = 'G'.

* set this property so it can be saved with the command

* modify field catalog

LOOP AT l_select_command->fcat INTO ls_fcat WHERE key_sel EQ 'X'.

CASE l_select_command->mv_key_colmn_type.

WHEN 'N'.

CLEAR ls_fcat-key.

WHEN 'F'.

ls_fcat-key = 'X'.

ENDCASE.

MODIFY l_select_command->fcat FROM ls_fcat.

ENDLOOP.

gs_layo-no_keyfix = 'X'.

CALL METHOD g_alv->set_frontend_layout

EXPORTING

is_layout = gs_layo

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

ENDMETHOD. " set_key_display_attributes

METHOD handle_menu_button.

DATA: lv_display_only TYPE c.

IF g_alv->is_ready_for_input( ) EQ 0.

lv_display_only = 'X'.

ELSE.

lv_display_only = ' '.

ENDIF.

IF e_ucomm = 'TXT_MENU'.

CALL METHOD e_object->add_function

EXPORTING

fcode = 'TXT_ALIAS'

text = text-081

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CALL METHOD e_object->add_function

EXPORTING

fcode = 'TXT_FLD'

text = text-090

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CALL METHOD e_object->add_function

EXPORTING

fcode = 'TXT_GENFLD'

text = text-091

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CALL METHOD e_object->add_function

EXPORTING

fcode = 'TXT_SHTXT'

text = text-092

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CALL METHOD e_object->add_separator

EXCEPTIONS

OTHERS = 1.

CALL METHOD e_object->add_function

EXPORTING

fcode = 'KEY_FIX'

text = text-089

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CALL METHOD e_object->add_function

EXPORTING

fcode = 'KEY_NONE'

text = text-078

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

ENDMETHOD. "lcl_application

ENDCLASS. "lcl_application IMPLEMENTATION

*&---------------------------------------------------------------------*

*& Include ZHTDB_LCLCOMMAND_I *

*&---------------------------------------------------------------------*

CLASS lcl_command IMPLEMENTATION.

METHOD constructor.

IF p_copy_from IS NOT INITIAL.

it_ranges = p_copy_from->it_ranges.

is_x030l = p_copy_from->is_x030l.

mt_alias_ranges = p_copy_from->mt_alias_ranges.

mt_ranges = p_copy_from->mt_ranges.

mt_outtab_tb = p_copy_from->mt_outtab_tb.

mt_tab_node_xref = p_copy_from->mt_tab_node_xref.

command_type = p_copy_from->command_type.

where_text = p_copy_from->where_text.

mv_dbcnt = p_copy_from->mv_dbcnt.

mv_bytes = p_copy_from->mv_bytes.

commandtext = p_copy_from->commandtext.

gen_commandtext = p_copy_from->gen_commandtext.

gen_text = p_copy_from->gen_text.

text = p_copy_from->text.

table_alias_tb = p_copy_from->table_alias_tb.

ENDIF.

ENDMETHOD. "LCL_COMMAND

METHOD execute_parsed_sql.

ENDMETHOD. "LCL_COMMAND

METHOD get_type.

ep_command_type = me->command_type.

ENDMETHOD. "LCL_COMMAND

METHOD parse_commandtext.

ENDMETHOD. "LCL_COMMAND

METHOD set_commandtext.

me->commandtext = p_commandtext.

CONDENSE me->commandtext.

CONCATENATE '' me->commandtext INTO me->commandtext SEPARATED BY ' '.

ENDMETHOD. "LCL_COMMAND

ENDCLASS. "LCL_COMMAND IMPLEMENTATION

*&---------------------------------------------------------------------*

*& Include ZHTDB_LCLSELECT_I *

*&---------------------------------------------------------------------*

CLASS lcl_select_command IMPLEMENTATION.

METHOD calculate_mv_rowlen.

DATA: ls_fcat TYPE lvc_s_fcat.

CLEAR mv_rowlen.

LOOP AT fcat INTO ls_fcat

WHERE fieldname NE 'ZENITH_ROWID' AND

fieldname NE 'ZENITH_SELECTED' AND

fieldname NE 'ZENITH_STYLE' AND

fieldname NE 'ZENITH_COLOR' AND

fieldname NE 'ZENITH_LOCKED_BY'.

mv_rowlen = mv_rowlen + ls_fcat-intlen.

ENDLOOP.

ENDMETHOD. " calculate_mv_rowlen

METHOD constructor.

CALL METHOD super->constructor

EXPORTING

p_copy_from = p_copy_from.

CREATE OBJECT mo_pipacs_select.

mo_pipacs_command = mo_pipacs_select.

IF p_copy_from IS NOT INITIAL.

select_text = p_copy_from->select_text.

from_text = p_copy_from->from_text.

group_by_text = p_copy_from->group_by_text.

having_text = p_copy_from->having_text.

order_by_text = p_copy_from->order_by_text.

can_edit = p_copy_from->can_edit.

has_table_alias = p_copy_from->has_table_alias.

group_by_text = p_copy_from->group_by_text.

alv_state = p_copy_from->alv_state.

has_duplicate_fields = p_copy_from->has_duplicate_fields.

ddic_references = p_copy_from->ddic_references.

fieldinfo_tb = p_copy_from->fieldinfo_tb.

prev_fcat = p_copy_from->prev_fcat.

fcat = p_copy_from->fcat.

ENDIF.

ENDMETHOD. " constructor

METHOD assign_field_symbols.

UNASSIGN: <gt_result>,

<gt_temp>,

<gt_undo>,

<gs_result>,

<gs_temp>,

<gs_undo>.

CALL METHOD me->assign_field_symbol

EXPORTING

p_fs = 'R'

CHANGING

p_table = me->result_table.

**** CALL METHOD me->assign_field_symbol

**** EXPORTING

**** p_fs = 'X'

**** CHANGING

**** p_table = me->display_table.

CALL METHOD me->assign_field_symbol

EXPORTING

p_fs = 'D'

CHANGING

p_table = me->deleted_table.

CALL METHOD me->assign_field_symbol

EXPORTING

p_fs = 'I'

CHANGING

p_table = me->inserted_table.

CALL METHOD me->assign_field_symbol

EXPORTING

p_fs = 'U'

CHANGING

p_table = me->updated_table.

CALL METHOD me->assign_field_symbol

EXPORTING

p_fs = 'T'

CHANGING

p_table = me->temp_table.

CALL METHOD me->assign_field_symbol

EXPORTING

p_fs = 'N'

CHANGING

p_table = me->undo_table.

CALL METHOD me->assign_field_symbol

EXPORTING

p_fs = 'L'

CHANGING

p_table = me->lawb_table.

CALL METHOD me->assign_field_symbol

EXPORTING

p_fs = 'S'

CHANGING

p_table = me->selfae_table.

ENDMETHOD. " assign_field_symbols

METHOD assign_field_symbol.

CASE p_fs.

**** WHEN 'X'.

**** ASSIGN p_table->* TO <gt_display>.

***** ASSIGN me->deleted_structure->* TO <gs_deleted>.

WHEN 'R'.

ASSIGN p_table->* TO <gt_result>.

ASSIGN me->result_structure->* TO <gs_result>.

WHEN 'T'.

ASSIGN p_table->* TO <gt_temp>.

ASSIGN me->temp_structure->* TO <gs_temp>.

WHEN 'N'.

ASSIGN p_table->* TO <gt_undo>.

ASSIGN me->undo_structure->* TO <gs_undo>.

ENDCASE.

ENDMETHOD. " assign_field_symbol

METHOD parse_commandtext.

DATA: ls_table_alias LIKE LINE OF me->table_alias_tb,

lv_idx TYPE string.

CALL METHOD super->parse_commandtext

EXPORTING

p_on_load = p_on_load

EXCEPTIONS

error_occurred = 1

OTHERS = 2.

CASE sy-subrc.

WHEN 1.

RAISE error_occurred.

WHEN 2.

RAISE error_occurred.

ENDCASE.

CLEAR table_alias_tb.

CALL METHOD mo_pipacs_command->parse

EXCEPTIONS

parse_error = 1

OTHERS = 2.

IF sy-subrc <> 0.

IF sy-msgno IS NOT INITIAL AND p_on_load IS INITIAL.

IF p_bf_test IS INITIAL.

MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno DISPLAY LIKE 'E'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ELSE.

* CALL METHOD g_application->add_message( iv_msgty = 'E' iv_msgid = sy-msgid iv_msgno = sy-msgno

* iv_msgv1 = sy-msgv1 iv_msgv2 = sy-msgv2 iv_msgv3 = sy-msgv3 iv_msgv4 = sy-msgv4 ).

ENDIF.

RAISE error_occurred.

ELSE.

RAISE error_occurred.

ENDIF.

CALL METHOD mo_pipacs_select->get_texts

IMPORTING

ev_select_text = select_text

ev_from_text = from_text

ev_where_text = where_text

ev_group_by_text = group_by_text

ev_having_text = having_text

ev_order_by_text = order_by_text.

CALL METHOD mo_pipacs_select->get_fieldinfo

IMPORTING

et_fieldinfo = me->fieldinfo_tb.

CALL METHOD mo_pipacs_select->get_table_alias

IMPORTING

et_table_alias = me->table_alias_tb.

SORT me->table_alias_tb BY table alias.

DELETE ADJACENT DUPLICATES FROM me->table_alias_tb COMPARING TABLE alias.

can_edit = mo_pipacs_select->can_edit( ).

LOOP AT me->table_alias_tb INTO ls_table_alias.

IF ls_table_alias-alias IS INITIAL.

ls_table_alias-alias = ls_table_alias-table.

MODIFY me->table_alias_tb FROM ls_table_alias INDEX sy-tabix.

ENDIF.

ENDLOOP.

ENDMETHOD. " parse_commandtext

METHOD execute_parsed_sql.

DATA: l_root_exception TYPE REF TO cx_root,

lstr TYPE string,

lstr3(10) TYPE c,

lv_job_name TYPE btcjob,

lv_job_count TYPE btcjobcnt,

g_cx_dynamic_check TYPE REF TO cx_dynamic_check,

g_cx_sy_sql_error TYPE REF TO cx_sy_sql_error,

g_cx_sy_open_sql_error TYPE REF TO cx_sy_open_sql_error,

g_cx_sy_open_sql_db TYPE REF TO cx_sy_open_sql_db,

g_cx_sy_dynamic_osql_error TYPE REF TO cx_sy_dynamic_osql_error,

g_cx_sy_dynamic_osql_syntax TYPE REF TO cx_sy_dynamic_osql_syntax,

g_cx_sy_dynamic_osql_semantics TYPE REF TO cx_sy_dynamic_osql_semantics,

l_bool TYPE c,

l_sfae TYPE REF TO lcl_select_fae_command,

lx_root TYPE REF TO cx_root,

lv_message TYPE string,

lt_fieldinfo TYPE lty_zhtdb_fieldinfo_tt,

lt_data TYPE REF TO data,

ls_celltab TYPE lvc_s_styl,

ls_fcat TYPE lvc_s_fcat.

FIELD-SYMBOLS: <lt_style> TYPE lvc_t_styl.

CALL METHOD super->execute_parsed_sql

EXPORTING

iv_simulation = iv_simulation

iv_bg_proc = iv_bg_proc

iv_bg_date = iv_bg_date

iv_bg_time = iv_bg_time

EXCEPTIONS

table_not_found = 1

parse_error = 2

exec_error = 3

error_occurred = 4

unlock_error = 5

arg_to_long = 6

foreign_lock = 7

job_submit_error = 8

OTHERS = 9.

CASE sy-subrc.

WHEN 1.

RAISE table_not_found.

WHEN 2.

RAISE parse_error.

WHEN 3.

RAISE exec_error.

WHEN 4.

RAISE error_occurred.

WHEN 5.

RAISE unlock_error.

WHEN 6.

RAISE arg_to_long.

WHEN 7.

RAISE foreign_lock.

WHEN 8.

RAISE job_submit_error.

WHEN 9.

RAISE error_occurred.

ENDCASE.

CALL METHOD mo_pipacs_command->execute

EXPORTING

iv_simulation = iv_simulation

iv_bg_proc = iv_bg_proc

iv_bg_date = iv_bg_date

iv_bg_time = iv_bg_time

IMPORTING

er_result = returned_table

ev_dbcnt = mv_dbcnt

er_lock_argument = mr_lock_argument_temp

er_exc = lx_root

ev_job_name = lv_job_name

ev_job_count = lv_job_count

et_srccode = et_srccode

EXCEPTIONS

parse_error = 1

exec_error = 2

job_submit_error = 3

OTHERS = 4.

CASE sy-subrc.

WHEN 1.

RAISE parse_error.

WHEN 3.

RAISE job_submit_error.

WHEN 2 OR 4.

er_exception = lx_root.

RAISE exec_error.

ENDCASE.

IF iv_simulation IS INITIAL AND

iv_bg_proc IS INITIAL.

FIELD-SYMBOLS: <lt_returned> TYPE ANY TABLE, <ls_lock_arg> TYPE ANY.

ASSIGN mr_lock_argument_temp->* TO <ls_lock_arg>.

IF sy-subrc EQ 0.

CREATE DATA me->mr_lock_argument LIKE <ls_lock_arg>.

ENDIF.

ASSIGN returned_table->* TO <lt_returned>.

CREATE DATA me->result_table LIKE <lt_returned>.

ASSIGN result_table->* TO <gt_result>.

<gt_result>[] = <lt_returned>[].

CREATE DATA me->display_table LIKE <gt_result>.

ASSIGN display_table->* TO <gt_display>.

CREATE DATA me->temp_table LIKE <gt_result>.

ASSIGN temp_table->* TO <gt_temp>.

CREATE DATA me->temp_table LIKE <gt_result>.

ASSIGN temp_table->* TO <gt_temp>.

CREATE DATA me->undo_table LIKE <gt_result>.

ASSIGN undo_table->* TO <gt_undo>.

CREATE DATA me->tree_table LIKE <gt_result>.

ASSIGN tree_table->* TO <gt_tree>.

CREATE DATA me->result_structure LIKE LINE OF <gt_result>.

ASSIGN me->result_structure->* TO <gs_result>.

CREATE DATA me->temp_structure LIKE LINE OF <gt_temp>.

ASSIGN me->temp_structure->* TO <gs_temp>.

CREATE DATA me->undo_structure LIKE LINE OF <gt_undo>.

ASSIGN me->undo_structure->* TO <gs_undo>.

ls_celltab-style = cl_gui_alv_grid=>mc_style_disabled.

LOOP AT <gt_result> ASSIGNING <gs_result>.

ASSIGN COMPONENT 'ZENITH_ROWID' OF STRUCTURE <gs_result> TO <gf_result>.

<gf_result> = sy-tabix.

ASSIGN COMPONENT 'ZENITH_STYLE' OF STRUCTURE <gs_result> TO <lt_style>.

CLEAR <lt_style>.

LOOP AT me->fcat INTO ls_fcat

WHERE fieldname <> 'ZENITH_ROWID' AND

fieldname <> 'ZENITH_SELECTED' AND

fieldname <> 'ZENITH_STYLE' AND

fieldname <> 'ZENITH_COLOR' AND

fieldname <> 'ZENITH_LOCKED_BY'.

ls_celltab-fieldname = ls_fcat-fieldname.

INSERT ls_celltab INTO TABLE <lt_style>.

ENDLOOP.

MODIFY <gt_result> FROM <gs_result>.

gv_max_rowid = sy-tabix.

ENDLOOP.

CALL METHOD calculate_mv_rowlen.

mv_bytes = mv_rowlen * mv_dbcnt.

ENDIF.

ENDMETHOD. " execute_parsed_sql

ENDCLASS. "LCL_SELECT_COMMAND IMPLEMENTATION

*&---------------------------------------------------------------------*

*& Include ZHTDB_LCLCOMMANDS_I *

*&---------------------------------------------------------------------*

CLASS lcl_commands IMPLEMENTATION.

METHOD generate_structure.

DATA: ls_fcat TYPE lvc_s_fcat,

ls_fieldinfo TYPE lty_zhtdb_fieldinfo,

lt_fieldinfo TYPE lty_zhtdb_fieldinfo_tt,

* ls_fieldinfo_copy LIKE LINE OF me->fieldinfo_tb,

* lt_fieldinfo_copy LIKE me->fieldinfo_tb,

lt_comp TYPE abap_compdescr_tab,

ls_comp TYPE abap_compdescr,

l_edescr TYPE REF TO cl_abap_elemdescr,

l_tdescr TYPE REF TO cl_abap_typedescr,

l_select TYPE REF TO lcl_select_command,

lstr TYPE string,

lstr2 TYPE string,

length TYPE i,

oref TYPE REF TO cx_root,

ls_ref TYPE gty_ddicref,

ls_table_alias_tb LIKE LINE OF l_select->table_alias_tb,

descr_struc_ref TYPE REF TO cl_abap_structdescr.

TRY.

l_select ?= current_command.

CLEAR l_select->fcat.

CLEAR l_select->ddic_references.

* build fieldcatalog

* CALL METHOD l_select->mo_pipacs->get_fieldinfo

* IMPORTING

* et_fieldinfo = l_select->fieldinfo_tb.

LOOP AT l_select->fieldinfo_tb INTO ls_fieldinfo.

READ TABLE l_select->table_alias_tb INTO ls_table_alias_tb

WITH KEY table = ls_fieldinfo-table.

CLEAR ls_fcat.

ls_fcat-col_opt = 'X'.

IF ls_fieldinfo-agg_function IS NOT INITIAL.

IF ls_fieldinfo-agg_function EQ 'COUNT'.

ls_fcat-rollname = 'INT4'.

ELSEIF ls_fieldinfo-agg_function EQ 'AVG'.

ls_fcat-rollname = 'FLTP'.

ENDIF.

ls_fcat-fieldname = ls_fieldinfo-generated_field.

TRANSLATE ls_fcat-fieldname TO UPPER CASE.

IF ls_fieldinfo-field_alias IS NOT INITIAL.

length = STRLEN( ls_fieldinfo-field_alias ) - 1.

IF ls_fieldinfo-field_alias(1) = '''' AND ls_fieldinfo-field_alias+length = ''''.

length = length - 1.

MOVE ls_fieldinfo-field_alias+1(length) TO ls_fieldinfo-field_alias.

MODIFY l_select->fieldinfo_tb FROM ls_fieldinfo INDEX sy-tabix.

ENDIF.

lstr = ls_fieldinfo-field_alias.

ELSE.

lstr = ls_fieldinfo-generated_field.

ENDIF.

TRANSLATE ls_fieldinfo-agg_function TO UPPER CASE.

TRANSLATE ls_fieldinfo-field TO UPPER CASE.

TRANSLATE ls_fieldinfo-table TO UPPER CASE.

ls_fcat-ref_table = ls_fieldinfo-table.

ls_fcat-ref_field = ls_fieldinfo-field.

ELSE. " agg_function is not initial

ls_fcat-fieldname = ls_fieldinfo-generated_field.

TRANSLATE ls_fcat-fieldname TO UPPER CASE.

IF ls_fieldinfo-field_alias IS NOT INITIAL.

length = STRLEN( ls_fieldinfo-field_alias ) - 1.

IF ls_fieldinfo-field_alias(1) = '''' AND ls_fieldinfo-field_alias+length = ''''.

length = length - 1.

MOVE ls_fieldinfo-field_alias+1(length) TO ls_fieldinfo-field_alias.

MODIFY l_select->fieldinfo_tb FROM ls_fieldinfo INDEX sy-tabix.

ENDIF.

lstr = ls_fieldinfo-field_alias.

ELSE.

lstr = ls_fieldinfo-generated_field.

ENDIF.

TRANSLATE ls_fieldinfo-field TO UPPER CASE.

TRANSLATE ls_fieldinfo-table TO UPPER CASE.

ls_fcat-ref_field = ls_fieldinfo-field.

ls_fcat-ref_table = ls_fieldinfo-table.

* ls_fcat-f4availabl = 'X'.

ENDIF. " agg_function is not initial

CASE l_select->mv_colmn_header.

WHEN 'S'.

CLEAR: ls_fcat-coltext, ls_fcat-scrtext_l, ls_fcat-scrtext_m, ls_fcat-scrtext_s, ls_fcat-reptext.

WHEN 'G'.

ls_fcat-coltext = ls_fieldinfo-generated_field.

WHEN 'A'.

IF ls_fieldinfo-field_alias IS NOT INITIAL.

ls_fcat-coltext = ls_fieldinfo-field_alias.

ELSE.

ls_fcat-coltext = ls_fieldinfo-generated_field.

ENDIF.

WHEN 'T'.

ls_fcat-coltext = ls_fieldinfo-orig_field.

ENDCASE.

IF ls_fcat-ref_field IS NOT INITIAL AND

ls_fcat-ref_table IS NOT INITIAL.

CASE ls_table_alias_tb-type.

WHEN 'T'.

SELECT SINGLE keyflag AS fix_column keyflag AS key datatype intlen inttype domname rollname

INTO CORRESPONDING FIELDS OF ls_fcat

FROM dd03l

WHERE tabname = ls_fcat-ref_table AND

fieldname = ls_fcat-ref_field AND

as4local = 'A'.

WHEN 'V'.

SELECT SINGLE rollname keyflag AS fix_column keyflag AS key

INTO CORRESPONDING FIELDS OF ls_fcat

FROM dd27s

WHERE viewname = ls_fcat-ref_table AND

viewfield = ls_fcat-ref_field AND

as4local = 'A'.

* fieldname NOT LIKE '.%' AND

* fieldname NOT LIKE '*%' AND

* fieldname NOT LIKE '$_%' ESCAPE '$' AND

* fieldname NOT LIKE '$%%' ESCAPE '$'

WHEN 'C' OR 'P'.

* SELECT SINGLE keyflag AS fix_column keyflag AS key datatype intlen inttype

* INTO CORRESPONDING FIELDS OF ls_fcat

* FROM dd16v

* WHERE sqltab = ls_fcat-ref_table AND

* fieldname = ls_fcat-ref_field.

SELECT SINGLE keyflag AS fix_column keyflag AS key datatype intlen inttype domname rollname

INTO CORRESPONDING FIELDS OF ls_fcat

FROM dd03l

WHERE tabname = ls_fcat-ref_table AND

fieldname = ls_fcat-ref_field AND

as4local = 'A'.

* in view already

* AS4LOCAL = 'A' AND

* fieldname NOT LIKE '.%' AND

* fieldname NOT LIKE '*%' AND

* fieldname NOT LIKE '$_%' ESCAPE '$' AND

* fieldname NOT LIKE '$%%' ESCAPE '$'

ENDCASE.

IF sy-subrc NE 0.

MESSAGE s038 DISPLAY LIKE 'E' WITH ls_fcat-ref_field ls_fcat-ref_table ls_table_alias_tb-type RAISING field_not_found.

ENDIF.

CONCATENATE text-143 ls_fcat-domname text-144 ls_fcat-intlen INTO lstr

SEPARATED BY space.

ls_fcat-tooltip = lstr.

CLEAR ls_fcat-fix_column.

ls_ref-fieldname = ls_fcat-fieldname.

ls_ref-checktable = ls_fcat-checktable.

ls_ref-ref_table = ls_fcat-ref_table.

ls_ref-ref_field = ls_fcat-ref_field.

ls_ref-key = ls_fcat-key.

APPEND ls_ref TO l_select->ddic_references.

DATA: ls_dfies TYPE dfies,

lt_dfies TYPE TABLE OF dfies.

CALL FUNCTION 'DDIF_FIELDINFO_GET'

EXPORTING

tabname = ls_fcat-ref_table

fieldname = ls_fcat-ref_field

langu = sy-langu

TABLES

dfies_tab = lt_dfies

EXCEPTIONS

not_found = 1

internal_error = 2

OTHERS = 3.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ELSE.

READ TABLE lt_dfies INTO ls_dfies INDEX 1.

IF sy-subrc EQ 0.

MOVE ls_dfies-convexit TO ls_fcat-convexit.

MOVE ls_dfies-scrtext_m TO ls_fcat-coltext.

MOVE ls_dfies-scrtext_l TO ls_fcat-scrtext_l.

MOVE ls_dfies-scrtext_m TO ls_fcat-scrtext_m.

MOVE ls_dfies-scrtext_s TO ls_fcat-scrtext_s.

MOVE ls_dfies-reptext TO ls_fcat-reptext.

ENDIF.

* ls_fcat-no_convext = 'X'.

IF ls_fcat-key EQ 'X'.

ls_fcat-key_sel = 'X'.

ls_fcat-edit = ' '.

ENDIF.

APPEND ls_fcat TO l_select->fcat.

ENDLOOP.

IF sy-subrc EQ 4.

RAISE empty_fieldinfo_tb.

ENDIF.

CATCH cx_sy_move_cast_error.

RAISE command_is_not_select.

ENDTRY.

ENDMETHOD. " generate_structure

METHOD display.

DATA: l_select TYPE REF TO lcl_select_command,

lv_show_grid TYPE c,

lo_result_tree TYPE REF TO cl_gui_alv_tree,

lt_fcat TYPE lvc_t_fcat,

ls_fcat TYPE lvc_s_fcat,

lo_alv TYPE REF TO cl_gui_alv_grid.

TRY.

l_select ?= current_command.

CATCH cx_sy_move_cast_error.

RETURN.

ENDTRY.

IF po_grid IS INITIAL AND

po_tree IS INITIAL.

IF l_select->mv_last_display = 'T'.

lv_show_grid = ' '.

ELSE.

lv_show_grid = 'X'.

ENDIF.

ELSE.

IF po_grid IS INITIAL.

lv_show_grid = ' '.

ELSE.

lv_show_grid = 'X'.

ENDIF.

IF po_grid IS SUPPLIED.

lo_alv = po_grid.

ELSE.

lo_alv = g_alv.

ENDIF.

IF <gt_result> IS ASSIGNED.

CALL METHOD g_application->set_column_headings.

CALL METHOD g_application->set_key_display_attributes.

CALL METHOD lo_alv->set_table_for_first_display

EXPORTING

is_layout = gs_layo

it_toolbar_excluding = gt_toolbar_exclude

CHANGING

it_outtab = <gt_result>

it_fieldcatalog = l_select->fcat

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

IF lo_result_tree IS NOT INITIAL.

CALL METHOD lo_result_tree->set_visible

EXPORTING

visible = ' '

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

CALL METHOD lo_alv->set_ready_for_input

EXPORTING

i_ready_for_input = l_select->alv_state

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

CALL METHOD lo_alv->set_selected_rows

EXPORTING

it_index_rows = l_select->selected_rows

it_row_no = l_select->selected_rows2

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

ENDMETHOD. "LCL_COMMANDS

METHOD display_command.

DATA: l_command_type TYPE lty_commandtype,

l_prev_select_command TYPE REF TO lcl_select_command,

l_selfae TYPE REF TO lcl_select_fae_command,

l_lawb TYPE REF TO lcl_lawb,

l_select_command TYPE REF TO lcl_select_command,

lv_tree_tb_width TYPE i,

lv_result_height TYPE i,

lv_tree_tb_visible TYPE c,

lv_done TYPE c.

CHECK current_command IS NOT INITIAL.

CALL METHOD current_command->get_type

IMPORTING

ep_command_type = l_command_type.

IF l_command_type EQ gc_ctype_lawb.

lv_tree_tb_width = 0.

lv_result_height = g_application->mv_result_height.

lv_tree_tb_visible = ' '.

ELSEIF l_command_type EQ gc_ctype_select OR l_command_type EQ gc_ctype_selfae.

lv_tree_tb_width = g_application->mv_tree_tb_width.

lv_result_height = g_application->mv_result_height.

lv_tree_tb_visible = 'X'.

ENDIF.

CALL METHOD go_splitter_inner->set_column_width

EXPORTING

id = 2

width = lv_tree_tb_width

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CALL METHOD go_splitter_outer->set_row_height

EXPORTING

id = 2

height = lv_result_height

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CALL METHOD g_tree_tb->set_visible

EXPORTING

visible = lv_tree_tb_visible.

*abaped CALL METHOD g_textedit->set_text_as_r3table

CALL METHOD g_textedit->set_text

EXPORTING

table = current_command->text[]

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

IF lv_done IS INITIAL.

TRY.

l_select_command ?= current_command.

CALL METHOD l_select_command->assign_field_symbols.

IF l_select_command->fcat[] IS NOT INITIAL AND <gt_result> IS ASSIGNED.

CALL METHOD g_alv->set_visible

EXPORTING

visible = 'X'

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

IF <gt_result> IS ASSIGNED.

CALL METHOD me->display.

ENDIF.

ELSE.

IF command_count NE 1.

CALL METHOD g_alv->set_visible

EXPORTING

visible = ' '

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

CATCH cx_sy_move_cast_error.

* CALL METHOD l_select_command->display.

ENDTRY.

ENDIF.

IF l_command_type NE gc_ctype_lawb AND l_command_type NE gc_ctype_script.

CALL METHOD g_application->display_table_grid.

ENDIF.

CALL METHOD cl_gui_cfw=>set_new_ok_code

EXPORTING

new_code = 'KAMU'

EXCEPTIONS

OTHERS = 1.

IF sy-subrc NE 0.

IF sy-msgno IS NOT INITIAL.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno DISPLAY LIKE 'I'

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .

ENDIF.

ENDMETHOD. "LCL_COMMANDS

METHOD create_new_command.

DATA: l_update TYPE REF TO lcl_update_command,

l_select TYPE REF TO lcl_select_command,

lsc TYPE REF TO lcl_select_command,

l_delete TYPE REF TO lcl_delete_command,

l_selfae TYPE REF TO lcl_select_fae_command,

l_lawb TYPE REF TO lcl_lawb,

ls_text LIKE LINE OF l_select->text,

ls_commands TYPE gty_commands,

l_int TYPE i,

lstr TYPE string,

l_nodekey TYPE lvc_nkey,

l_subitem TYPE c,

lt_selected_nodes TYPE lvc_t_nkey,

l_copy_sc TYPE REF TO lcl_select_command,

l_copy_uc TYPE REF TO lcl_update_command,

l_copy_dc TYPE REF TO lcl_delete_command,

l_copy_lawb TYPE REF TO lcl_lawb,

l_command_id TYPE lty_commandid,

lv_random TYPE i,

lv_command_id_str(10) TYPE n.

IF sy-subrc NE 0.

g_selected_nodekey = gc_nodekey_current_commands.

ENDIF.

CASE p_command_type.

WHEN gc_ctype_select.

TRY.

l_copy_sc ?= p_copy_from.

CREATE OBJECT l_select

EXPORTING

p_copy_from = l_copy_sc.

CATCH cx_sy_move_cast_error.

CREATE OBJECT l_select.

ENDTRY.

l_select->command_type = p_command_type.

ls_commands-command = l_select.

CLEAR g_selected_nodekey.

ls_text = 'SELECT *'.

APPEND ls_text TO l_select->text.

ls_text = 'FROM '.

APPEND ls_text TO l_select->text.

ls_text = 'UP TO 200 ROWS'.

APPEND ls_text TO l_select->text.

l_select->mv_colmn_header = gv_def_col_hdr.

l_select->mv_key_colmn_type = gv_def_keycol_type.

l_select->mv_last_display = 'G'.

current_command = l_select.

l_select->mv_command_type = l_select->command_type.

ENDCASE.

CALL METHOD g_textedit->set_readonly_mode

EXPORTING

readonly_mode = '0'.

current_command->command_id = l_command_id.

ls_commands-command_id = l_command_id.

command_count = command_count + 1.

ls_commands-seq_no = command_count.

ls_commands-treelevel = current_command->treelevel.

APPEND ls_commands TO command_list.

IF command_count EQ 1.

CLEAR prev_command.

ENDIF.

CALL METHOD g_commands->display_command.

** CALL METHOD g_application->refresh_status_indicators.

CALL METHOD g_application->create_tb_tree_toolbar.

lv_command_id_str = current_command->command_id.

ENDMETHOD. "LCL_COMMANDS

METHOD execute_command.

DATA: l_text TYPE source_table,

l_owm TYPE i VALUE 1,

ls_text LIKE LINE OF l_text,

l_str TYPE string,

l_str2 TYPE string,

l_update_command TYPE REF TO lcl_update_command,

l_delete_command TYPE REF TO lcl_delete_command,

l_select_command TYPE REF TO lcl_select_command,

l_selfae TYPE REF TO lcl_select_fae_command,

l_lawb TYPE REF TO lcl_lawb,

l_prev_select_command TYPE REF TO lcl_select_command,

l_c_type TYPE lty_commandtype,

l_lines TYPE i,

lo_tree TYPE REF TO cl_gui_alv_tree,

lx_root TYPE REF TO cx_root,

lv_message TYPE string,

lv_read_auth TYPE c,

ls_table_alias_tb LIKE LINE OF current_command->table_alias_tb,

stracsum_tab TYPE stracsumtab,

sqlstatful_tab TYPE TABLE OF sqlstatful,

ls_stracsum_tab TYPE stracsum,

ls_sqlstatful TYPE sqlstatful,

lstr TYPE string,

l_gen_text LIKE LINE OF l_select_command->gen_text.

GET RUN TIME FIELD gv_starttime.

IF sy-tcode = 'ZSQL_TEST'.

IF current_command->command_type NE gc_ctype_select.

RETURN.

ENDIF.

CALL METHOD transfer_text_to_command.

TRY.

l_select_command ?= current_command.

* message 'ZENITH:Casting error3' TYPE 'E'.

DATA: lv_log_handle LIKE g_application->mv_log_handle.

IF gv_autotest = 'X'.

lv_log_handle = g_application->mv_log_handle.

ENDIF.

*CALL METHOD l_select_command->assign_field_symbols.

CALL METHOD l_select_command->mo_pipacs_select->create_new

EXPORTING

iv_command_id = current_command->command_id

iv_command = current_command->commandtext

it_vranges = current_command->it_ranges

iv_log_handle = lv_log_handle

EXCEPTIONS

no_id = 1

OTHERS = 2.

CASE sy-subrc.

WHEN 1.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'S'

iv_msgno = '077'

iv_display_like = 'E'.

* message s077 DISPLAY LIKE 'E'.

RETURN.

WHEN 2.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'S'

iv_msgno = '076'

iv_display_like = 'E'.

* message s076 DISPLAY LIKE 'E'.

RETURN.

ENDCASE.

l_select_command->mo_pipacs_command = l_select_command->mo_pipacs_select.

CATCH cx_sy_move_cast_error.

* message 'ZENITH:Casting error3' TYPE 'E'.

ENDTRY.

CALL METHOD current_command->parse_commandtext

EXCEPTIONS

error_occurred = 1

OTHERS = 2.

CASE sy-subrc.

WHEN 1.

* message s079 DISPLAY LIKE 'E'.

RETURN.

WHEN 2.

* message s079 DISPLAY LIKE 'E'.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'S'

iv_msgno = '079'

iv_display_like = 'E'.

RETURN.

ENDCASE.

TRY.

l_select_command ?= current_command.

CALL METHOD l_select_command->assign_field_symbols.

CALL METHOD me->generate_structure

EXCEPTIONS

empty_fieldinfo_tb = 1

command_is_not_select = 2

OTHERS = 3.

CASE sy-subrc.

WHEN 1.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'S'

iv_msgno = '078'

iv_display_like = 'E'.

* message s078 DISPLAY LIKE 'E'.

RETURN.

WHEN 2.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'S'

iv_msgno = '080'

iv_display_like = 'E'.

* message s080 DISPLAY LIKE 'E'.

RETURN.

WHEN 3.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'S'

iv_msgno = '081'

iv_display_like = 'E'.

* message s081 DISPLAY LIKE 'E'.

RETURN.

ENDCASE.

CLEAR:

l_select_command->mv_dbcnt,

l_select_command->mv_bytes,

l_select_command->mv_filtered,

l_select_command->mv_pos,

l_select_command->alv_state.

CATCH cx_sy_move_cast_error.

ENDTRY.

LOOP AT current_command->table_alias_tb INTO ls_table_alias_tb.

CALL METHOD g_application->check_s_tabu_dis

EXPORTING

iv_for_editing = ' '

iv_tabname = ls_table_alias_tb-table

IMPORTING

ev_auth = lv_read_auth.

IF lv_read_auth IS INITIAL.

MESSAGE s125 DISPLAY LIKE 'E' WITH ls_table_alias_tb-table.

RETURN.

ENDIF.

ENDLOOP.

DATA: lv_simulation TYPE c.

IF iv_mode = 'SIMULATE'.

lv_simulation = 'X'.

ELSE.

CLEAR lv_simulation.

ENDIF.

CALL METHOD current_command->execute_parsed_sql

EXPORTING

po_grid = g_alv

po_tree = lo_tree

iv_simulation = lv_simulation

iv_bg_proc = iv_bg_proc

iv_bg_date = iv_bg_date

iv_bg_time = iv_bg_time

iv_read_from_file = iv_read_from_file

IMPORTING

er_exception = lx_root

et_srccode = current_command->mt_srccode

EXCEPTIONS

table_not_found = 1

parse_error = 2

exec_error = 3

error_occurred = 4

unlock_error = 5

arg_to_long = 6

foreign_lock = 7

foreign_lock_all_clients = 8

job_submit_error = 9

field_list_changed = 10

file_open_error = 11

no_auth_for_table = 12

OTHERS = 13.

CASE sy-subrc.

WHEN 0.

WHEN 1.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'S'

iv_msgno = '082'

iv_display_like = 'E'.

* message s082 DISPLAY LIKE 'E'.

RETURN.

WHEN 2.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'S'

iv_msgno = '079'

iv_display_like = 'E'.

* message s079 DISPLAY LIKE 'E'.

RETURN.

WHEN 3.

IF lx_root IS INITIAL.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'S'

iv_msgno = '083'

iv_display_like = 'E'.

ELSE.

CALL METHOD lx_root->if_message~get_longtext

RECEIVING

result = lv_message.

MESSAGE lv_message TYPE 'S' DISPLAY LIKE 'E'.

ENDIF.

RETURN.

WHEN 4.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'S'

iv_msgno = '083'

iv_display_like = 'E'.

* message s083 DISPLAY LIKE 'E'.

RETURN.

WHEN 5.

MESSAGE i073 DISPLAY LIKE 'W' WITH sy-msgv1.

RETURN.

WHEN 6.

MESSAGE i069 DISPLAY LIKE 'E'.

RETURN.

WHEN 7.

MESSAGE i071 DISPLAY LIKE 'E' WITH sy-msgv1 sy-msgv2 sy-msgv3.

RETURN.

WHEN 8.

MESSAGE i070 DISPLAY LIKE 'E' WITH sy-msgv1 sy-msgv2.

RETURN.

WHEN 9.

MESSAGE i134 DISPLAY LIKE 'E'. " WITH sy-msgv1 sy-msgv2.

RETURN.

WHEN 10.

MESSAGE i144 DISPLAY LIKE 'E'.

RETURN.

WHEN 11.

MESSAGE i145 DISPLAY LIKE 'E'.

RETURN.

WHEN 12.

MESSAGE s125 DISPLAY LIKE 'E' WITH sy-msgv1.

RETURN.

WHEN 13.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'S'

iv_msgno = '084'

iv_display_like = 'W'.

* message s084 DISPLAY LIKE 'W'.

ENDCASE.

TRY.

l_select_command ?= current_command.

IF lv_simulation IS INITIAL AND

iv_bg_proc IS INITIAL.

CALL METHOD me->display.

ENDIF.

l_select_command->mv_read_from_file = iv_read_from_file.

IF iv_read_from_file EQ 'X'.

CALL METHOD g_alv->set_toolbar_interactive.

ENDIF.

current_command->mv_grid_modified = ' '.

IF lv_simulation IS INITIAL.

CALL METHOD g_application->refresh_status_indicators.

ENDIF.

IF lv_simulation = 'X'.

CLEAR l_select_command->fcat.

ELSE.

l_select_command->prev_fcat = l_select_command->fcat.

ENDIF.

CATCH cx_sy_move_cast_error.

* message 'ZENITH:Casting error4' TYPE 'E'.

ENDTRY.

CALL METHOD current_command->get_type

IMPORTING

ep_command_type = l_c_type.

IF l_c_type NE gc_ctype_lawb.

CALL METHOD g_application->display_table_grid.

ENDIF.

IF iv_bg_proc IS INITIAL.

IF lv_simulation = 'X'.

MESSAGE s120.

ELSE.

CALL METHOD me->write_status_message.

ENDIF.

ENDMETHOD. "LCL_COMMANDS

METHOD write_status_message.

DATA: lstr TYPE string,

lstr2 TYPE string,

lstr3(20) TYPE c,

lv_float TYPE f,

lv_p TYPE p DECIMALS 3,

l_bytes TYPE i,

l_select_command TYPE REF TO lcl_select_command,

l_update_command TYPE REF TO lcl_update_command,

l_delete_command TYPE REF TO lcl_delete_command,

l_lawb TYPE REF TO lcl_lawb.

GET RUN TIME FIELD gv_endtime.

gv_deltatime = ( gv_endtime - gv_starttime ) DIV 1000.

lv_float = gv_deltatime / 1000.

lv_p = lv_float.

MOVE lv_p TO lstr2.

TRY.

l_select_command ?= current_command.

CALL METHOD g_application->issue_message

EXPORTING

iv_msgty = 'S'

iv_msgno = '047'

iv_msgv1 = l_select_command->mv_dbcnt

iv_msgv2 = lstr2

iv_msgv3 = l_select_command->mv_bytes.

CATCH cx_sy_move_cast_error.

ENDTRY.

ENDMETHOD. " write_status_message

METHOD transfer_text_to_command.

DATA: l_text TYPE source_table,

ls_text LIKE LINE OF l_text,

l_str TYPE string.

IF sy-tcode = 'ZSQL_TEST'.

l_text[] = current_command->text[].

ELSE.

CALL METHOD g_textedit->get_text

IMPORTING

table = l_text[]

EXCEPTIONS

OTHERS = 1.

IF sy-subrc = 1.

* MESSAGE i025.

ENDIF.

IF current_command->text[] NE l_text[].

IF current_command->mv_ctext_changed IS INITIAL.

current_command->mv_ctext_changed = 'X'.

ENDIF.

current_command->text[] = l_text[].

IF l_text IS NOT INITIAL.

CALL METHOD lcl_toolbox=>pretty_printer

CHANGING

ct_source = l_text.

LOOP AT l_text INTO ls_text.

IF ls_text(1) NE '*'.

CONCATENATE l_str ls_text INTO l_str SEPARATED BY ' '.

ENDIF.

ENDLOOP.

CALL METHOD current_command->set_commandtext

EXPORTING

p_commandtext = l_str.

ENDIF.

ENDMETHOD. "transfer_text_to_command

METHOD parse_only_command.

DATA: l_update_command TYPE REF TO lcl_update_command,

l_delete_command TYPE REF TO lcl_delete_command,

l_select_command TYPE REF TO lcl_select_command,

l_lawb TYPE REF TO lcl_lawb,

l_selfae TYPE REF TO lcl_select_fae_command,

l_parent_selfae TYPE REF TO lcl_select_fae_command.

IF p_on_load EQ ' '.

CALL METHOD transfer_text_to_command.

ENDIF.

TRY.

l_select_command ?= current_command.

DATA: lv_log_handle LIKE g_application->mv_log_handle.

IF gv_autotest = 'X'.

lv_log_handle = g_application->mv_log_handle.

ENDIF.

CALL METHOD l_select_command->mo_pipacs_select->create_new

EXPORTING

iv_command_id = current_command->command_id

iv_command = current_command->commandtext

it_vranges = current_command->it_ranges

iv_log_handle = lv_log_handle

EXCEPTIONS

no_id = 1

OTHERS = 2.

CASE sy-subrc.

WHEN 1.

RAISE no_id.

WHEN 2.

RAISE create_error.

ENDCASE.

l_select_command->mo_pipacs_command = l_select_command->mo_pipacs_select.

CATCH cx_sy_move_cast_error.

ENDTRY.

IF p_on_load EQ ' '.

**** CALL METHOD g_application->refresh_curr_tree_node_caption.

ENDIF.

CALL METHOD current_command->parse_commandtext

EXPORTING

p_on_load = p_on_load

EXCEPTIONS

error_occurred = 1

OTHERS = 2.

CASE sy-subrc.

WHEN 1.

RAISE parse_error.

WHEN 2.

RAISE parse_error.

ENDCASE.

IF p_on_load EQ ' '.

CALL METHOD g_application->display_table_grid.

ENDIF.

ENDMETHOD. " parse_only_command

ENDCLASS. "LCL_COMMANDS IMPLEMENTATION

*&---------------------------------------------------------------------*

*& Form mem_export

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM mem_export .

DATA: BEGIN OF mode, " Schnittstelle für SE13

show(1),

edit(1),

END OF mode.

mode-show = 'X'.

mode-edit = ' '.

EXPORT mode TO MEMORY ID 'MOD'.

ENDFORM. " mem_export

*&---------------------------------------------------------------------*

*& Form INSTALL

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM install.

DATA: lt_eg TYPE dyn_flowlist,

lt_fg TYPE TABLE OF d021s,

lt_mg TYPE TABLE OF d023s,

lt_htext TYPE TABLE OF d023s,

ls_fg TYPE d021s,

ls_htext TYPE d023s,

ls_d020s TYPE d020s,

lstr TYPE string.

SELECT SINGLE *

FROM d020s

INTO ls_d020s

WHERE prog = sy-repid.

IF sy-subrc <> 0.

CALL FUNCTION 'ENQUEUE_ES_PROG'

EXPORTING

mode_trdir = 'E'

name = sy-repid

EXCEPTIONS

foreign_lock = 1

system_failure = 2

OTHERS = 3.

IF sy-subrc <> 0.

CONCATENATE 'Report' sy-repid 'cannot be locked for installation. Please do not edit it.' INTO lstr SEPARATED BY space.

MESSAGE i085 WITH lstr.

LEAVE PROGRAM.

ENDIF.

CALL FUNCTION 'DEQUEUE_ES_PROG'

EXPORTING

name = sy-repid.

APPEND 'PROCESS BEFORE OUTPUT.' TO lt_eg.

APPEND 'MODULE status_0100.' TO lt_eg.

APPEND INITIAL LINE TO lt_eg.

APPEND 'PROCESS AFTER INPUT.' TO lt_eg.

APPEND 'MODULE user_command_0100_exit.' TO lt_eg.

APPEND 'MODULE user_command_0100.' TO lt_eg.

ls_fg-fnam = 'OK_CODE'.

ls_fg-flg1 = '80'.

ls_fg-flg2 = '10'.

ls_fg-leng = '14'.

ls_fg-line = 'FF'.

ls_fg-coln = '01'.

ls_fg-ltyp = 'O'.

ls_fg-type = 'CHAR'.

ls_fg-stxt = '____________________'.

APPEND ls_fg TO lt_fg.

* ls_htext-PROG = sy-repid.

* ls_htext-DYNR = '0100'.

* ls_htext-LANG = sy-langu.

* ls_htext-DTXT = 'Main screen'.

* APPEND ls_htext TO lt_htext.

* CALL FUNCTION 'RS_SCREEN_CREATE'

ls_d020s-prog = sy-repid.

ls_d020s-dnum = '0100'.

ls_d020s-fnum = '0100'.

ls_d020s-bzmx = '0'.

ls_d020s-bzbr = '0'.

ls_d020s-mili = '192'.

ls_d020s-mico = '37'.

ls_d020s-mali = '0'.

ls_d020s-maco = '0'.

ls_d020s-noli = '27'.

ls_d020s-noco = '120'.

ls_d020s-valp = '0'.

ls_d020s-cuan = 'G'.

ls_d020s-spra = sy-langu.

ls_d020s-dgen = sy-datum.

ls_d020s-tgen = sy-uzeit.

CALL FUNCTION 'RS_SCREEN_EXPORT'

EXPORTING

dynnr = '0100'

progname = sy-repid

h_export = ls_d020s

save_without_question = 'X'

without_corr_insert = 'X'

TABLES

e_g = lt_eg

f_g = lt_fg

m_g = lt_mg

EXCEPTIONS

already_exists = 1

not_executed = 2

OTHERS = 3.

IF sy-subrc <> 0.

* ???

ENDIF.

TABLES trkey.

TYPES: BEGIN OF ty_tit,

code TYPE rsoldleng-title,

text TYPE title-text_line,

END OF ty_tit.

DATA: tit TYPE STANDARD TABLE OF ty_tit.

* Release ab 4.6

DATA: fun4 TYPE STANDARD TABLE OF rsmpe_funt WITH HEADER LINE.

DATA: ctx4 TYPE STANDARD TABLE OF rsmpe_ctx WITH HEADER LINE.

DATA: mtx4 TYPE STANDARD TABLE OF rsmpe_mnlt WITH HEADER LINE.

DATA: men4 TYPE STANDARD TABLE OF rsmpe_men WITH HEADER LINE.

DATA: act4 TYPE STANDARD TABLE OF rsmpe_act WITH HEADER LINE.

DATA: doc4 TYPE STANDARD TABLE OF rsmpe_atrt WITH HEADER LINE.

DATA: sta4 TYPE STANDARD TABLE OF rsmpe_stat WITH HEADER LINE.

DATA: set4 TYPE STANDARD TABLE OF rsmpe_staf WITH HEADER LINE.

DATA: pfk4 TYPE STANDARD TABLE OF rsmpe_pfk WITH HEADER LINE.

DATA: but4 TYPE STANDARD TABLE OF rsmpe_but WITH HEADER LINE.

DATA: tit4 TYPE STANDARD TABLE OF rsmpe_titt WITH HEADER LINE.

DATA: stx4 TYPE STANDARD TABLE OF rsmptexts WITH HEADER LINE.

DATA: adm4 TYPE rsmpe_adm.

* Release ab 4.6c

DATA: biv46c TYPE STANDARD TABLE OF rsmpe_buts.

DATA: i_adm4 TYPE STANDARD TABLE OF rsmpe_adm.

* trkey-devclass = '$TMP'.

trkey-obj_type = 'PROG'.

trkey-obj_name = sy-repid.

trkey-sub_type = 'CUAD'.

trkey-sub_name = sy-repid.

adm4-actcode = '000003'.

adm4-pfkcode = '000003'.

sta4-code = '100_MAIN'.

sta4-modal = 'D'.

sta4-actcode = '000001'.

sta4-pfkcode = '000001'.

sta4-butcode = '0001'.

sta4-int_note = 'MAIN'.

APPEND sta4.

fun4-code = 'BACK'.

fun4-textno = '001'.

fun4-text_type = 'S'.

fun4-fun_text = 'BACK'.

APPEND fun4.

fun4-code = 'CANCEL'.

APPEND fun4.

fun4-code = 'EXIT'.

APPEND fun4.

fun4-code = 'EXEC'.

fun4-text_name = 'ICON_EXECUTE_OBJECT'.

fun4-fun_text = 'Execute'.

fun4-info_text = 'Execute'.

fun4-icon_id = '@15@'.

APPEND fun4.

fun4-code = 'SIMULATE'.

fun4-text_name = 'ICON_SIMULATE'.

fun4-fun_text = 'Simulate'.

fun4-info_text = 'Simulate'.

fun4-icon_id = '@8Z@'.

APPEND fun4.

but4-pfk_code = '000001'.

but4-code = '0001'.

but4-no = '01'.

but4-pfno = '08'.

APPEND but4.

but4-no = '02'.

but4-pfno = '20'.

APPEND but4.

pfk4-code = '000001'.

pfk4-pfno = '03'.

pfk4-funcode = 'BACK'.

pfk4-funno = '001'.

APPEND pfk4.

pfk4-pfno = '08'.

pfk4-funcode = 'EXEC'.

APPEND pfk4.

pfk4-pfno = '12'.

pfk4-funcode = 'CANCEL'.

APPEND pfk4.

pfk4-pfno = '15'.

pfk4-funcode = 'EXIT'.

APPEND pfk4.

pfk4-pfno = '20'.

pfk4-funcode = 'SIMULATE'.

APPEND pfk4.

set4-status = '100_MAIN'.

set4-function = 'BACK'.

APPEND set4.

set4-function = 'CANCEL'.

APPEND set4.

set4-function = 'EXIT'.

APPEND set4.

set4-function = 'SIMULATE'.

APPEND set4.

set4-function = 'EXEC'.

APPEND set4.

doc4-obj_type = 'A'.

doc4-obj_code = '000001'.

doc4-modal = 'D'.

doc4-int_note = 'MAIN'.

APPEND doc4.

doc4-obj_type = 'P'.

doc4-obj_code = '000001'.

doc4-modal = 'D'.

doc4-int_note = 'MAIN'.

APPEND doc4.

doc4-obj_type = 'B'.

doc4-obj_code = '000001'.

doc4-modal = 'D'.

doc4-norm = '0001'.

doc4-int_note = 'MAIN'.

APPEND doc4.

tit4-code = '100_TITLE'.

tit4-text = '&'.

APPEND tit4.

CALL FUNCTION 'RS_CUA_INTERNAL_WRITE'

EXPORTING

program = sy-repid

language = sy-langu

tr_key = trkey

adm = adm4

state = 'I'

TABLES

sta = sta4

fun = fun4

men = men4

mtx = mtx4

act = act4

but = but4

pfk = pfk4

set = set4

doc = doc4

tit = tit4

biv = biv46c

EXCEPTIONS

not_found = 1

OTHERS = 2.

DATA: lt_text TYPE TABLE OF textpool,

ls_text TYPE textpool.

ls_text-id = 'I'.

ls_text-entry = 'Domain Definitions'. APPEND ls_text TO lt_text.

ls_text-entry = 'Data Element Definitions'. APPEND ls_text TO lt_text.

ls_text-entry = 'Lock Object Definitions'. APPEND ls_text TO lt_text.

ls_text-entry = 'Indexes'. APPEND ls_text TO lt_text.

ls_text-entry = 'Table Definitions'. APPEND ls_text TO lt_text.

ls_text-entry = 'Table Technical Attriibutes'. APPEND ls_text TO lt_text.

ls_text-entry = 'Table Type definitions'. APPEND ls_text TO lt_text.

ls_text-entry = 'Text Component Table Type definitions'. APPEND ls_text TO lt_text.

ls_text-entry = 'View definitions'. APPEND ls_text TO lt_text.

ls_text-entry = 'View Technical Attributes'. APPEND ls_text TO lt_text.

ls_text-entry = 'Domains'. APPEND ls_text TO lt_text.

ls_text-entry = 'Domain definitions'. APPEND ls_text TO lt_text.

ls_text-entry = 'Data Elements'. APPEND ls_text TO lt_text.

ls_text-entry = 'Lock Objects'. APPEND ls_text TO lt_text.

ls_text-entry = 'Logical Databases'. APPEND ls_text TO lt_text.

ls_text-entry = 'Number Ranges'. APPEND ls_text TO lt_text.

ls_text-entry = 'Tables'. APPEND ls_text TO lt_text.

ls_text-entry = 'Table Contents'. APPEND ls_text TO lt_text.

ls_text-entry = 'Table Types'. APPEND ls_text TO lt_text.

ls_text-entry = 'Data Models'. APPEND ls_text TO lt_text.

ls_text-entry = 'Entity Types'. APPEND ls_text TO lt_text.

ls_text-entry = 'Views'. APPEND ls_text TO lt_text.

ls_text-entry = 'Pretty Printer'. APPEND ls_text TO lt_text.

ls_text-entry = '(...) INNER JOIN Checktable'. APPEND ls_text TO lt_text.

ls_text-entry = '(...) LEFT OUTER JOIN Checktable'. APPEND ls_text TO lt_text.

ls_text-entry = '(...) SELECT FOR ALL ENTRIES Checktable'. APPEND ls_text TO lt_text.

ls_text-entry = 'Delete Folder'. APPEND ls_text TO lt_text.

ls_text-entry = '(...) Foreign Key Relations'. APPEND ls_text TO lt_text.

ls_text-entry = 'Delete All'. APPEND ls_text TO lt_text.

ls_text-entry = 'Create New Folder'. APPEND ls_text TO lt_text.

ls_text-entry = 'Paste'. APPEND ls_text TO lt_text.

ls_text-entry = 'Rename Folder'. APPEND ls_text TO lt_text.

ls_text-entry = 'Create New Folder'. APPEND ls_text TO lt_text.

ls_text-entry = 'Cut'. APPEND ls_text TO lt_text.

ls_text-entry = 'Paste'. APPEND ls_text TO lt_text.

ls_text-entry = 'Delete All Commands'. APPEND ls_text TO lt_text.

ls_text-entry = 'Display'. APPEND ls_text TO lt_text.

ls_text-entry = 'Delete'. APPEND ls_text TO lt_text.

ls_text-entry = 'Properties'. APPEND ls_text TO lt_text.

ls_text-entry = 'Execute'. APPEND ls_text TO lt_text.

ls_text-entry = 'Do you want to move the commands in the Repository'. APPEND ls_text TO lt_text.

ls_text-entry = 'to the Current commands after emptying the Repository?'. APPEND ls_text TO lt_text.

ls_text-entry = 'Confirm deletion'. APPEND ls_text TO lt_text.

ls_text-entry = 'Do you really want to delete all current commands?'. APPEND ls_text TO lt_text.

ls_text-entry = 'Do you want to move the commands in the selected folder'. APPEND ls_text TO lt_text.

ls_text-entry = 'to the Current commands after Deleting the Folder?'. APPEND ls_text TO lt_text.

ls_text-entry = 'Enter Folder Name'. APPEND ls_text TO lt_text.

ls_text-entry = 'and all of its subcommands'. APPEND ls_text TO lt_text.

ls_text-entry = 'Do you really want to delete the command'. APPEND ls_text TO lt_text.

ls_text-entry = 'Display table definition'. APPEND ls_text TO lt_text.

ls_text-entry = 'Display indexes'. APPEND ls_text TO lt_text.

ls_text-entry = 'Display technical settings'. APPEND ls_text TO lt_text.

ls_text-entry = 'Display foreign key relations'. APPEND ls_text TO lt_text.

ls_text-entry = 'Display text table'. APPEND ls_text TO lt_text.

ls_text-entry = 'Display runtime object'. APPEND ls_text TO lt_text.

ls_text-entry = 'Where Used List'. APPEND ls_text TO lt_text.

ls_text-entry = 'Display contents'. APPEND ls_text TO lt_text.

ls_text-entry = 'Use Value Ranges'. APPEND ls_text TO lt_text.

ls_text-entry = 'Toggle Display/Change mode'. APPEND ls_text TO lt_text.

ls_text-entry = 'Display Tree'. APPEND ls_text TO lt_text.

ls_text-entry = 'Select All Rows'. APPEND ls_text TO lt_text.

ls_text-entry = 'Deselect All Rows'. APPEND ls_text TO lt_text.

ls_text-entry = 'Column display settings'. APPEND ls_text TO lt_text.

ls_text-entry = 'Toggle automatic check'. APPEND ls_text TO lt_text.

ls_text-entry = 'Append row'. APPEND ls_text TO lt_text.

ls_text-entry = 'Insert row'. APPEND ls_text TO lt_text.

ls_text-entry = 'Delete row'. APPEND ls_text TO lt_text.

ls_text-entry = 'Copy row'. APPEND ls_text TO lt_text.

ls_text-entry = 'Updated/Inserted/Deleted rows'. APPEND ls_text TO lt_text.

ls_text-entry = 'Update DB table'. APPEND ls_text TO lt_text.

ls_text-entry = 'Insert lines to DB table'. APPEND ls_text TO lt_text.

ls_text-entry = 'Modify DB table'. APPEND ls_text TO lt_text.

ls_text-entry = 'Delete visible lines from DB'. APPEND ls_text TO lt_text.

ls_text-entry = 'Delete deleted lines from DB'. APPEND ls_text TO lt_text.

ls_text-entry = 'Undo all changes'. APPEND ls_text TO lt_text.

ls_text-entry = 'Enter Table Name'. APPEND ls_text TO lt_text.

ls_text-entry = 'Dynamic Selection'. APPEND ls_text TO lt_text.

ls_text-entry = 'Key fields as normal'. APPEND ls_text TO lt_text.

ls_text-entry = 'To edit the result sets, key fields &1 have to be included in the field list.'. APPEND ls_text TO lt_text.

* GAP HANDLED IN LOOP

ls_text-entry = 'Display alias'. APPEND ls_text TO lt_text.

ls_text-entry = 'Modify source table'. APPEND ls_text TO lt_text.

ls_text-entry = 'Modify other table'. APPEND ls_text TO lt_text.

ls_text-entry = 'Insert into source table'. APPEND ls_text TO lt_text.

ls_text-entry = 'Insert into other table'. APPEND ls_text TO lt_text.

ls_text-entry = 'Create table'. APPEND ls_text TO lt_text.

ls_text-entry = 'Update source table'. APPEND ls_text TO lt_text.

ls_text-entry = 'Update other table'. APPEND ls_text TO lt_text.

ls_text-entry = 'Fix key columns'. APPEND ls_text TO lt_text.

ls_text-entry = 'Display original field name'. APPEND ls_text TO lt_text.

ls_text-entry = 'Display generated field name'. APPEND ls_text TO lt_text.

ls_text-entry = 'Diaplay short text'. APPEND ls_text TO lt_text.

ls_text-entry = 'Display All records'. APPEND ls_text TO lt_text.

ls_text-entry = 'Display Updated records'. APPEND ls_text TO lt_text.

ls_text-entry = 'Display Inserted records'. APPEND ls_text TO lt_text.

ls_text-entry = 'Display Deleted records'. APPEND ls_text TO lt_text.

ls_text-entry = 'Total'. APPEND ls_text TO lt_text.

ls_text-entry = 'Structure'. APPEND ls_text TO lt_text.

ls_text-entry = 'Script'. APPEND ls_text TO lt_text.

ls_text-entry = 'Select for All Entries'. APPEND ls_text TO lt_text.

ls_text-entry = 'Loop-at Workbench'. APPEND ls_text TO lt_text.

ls_text-entry = 'Delete SQL'. APPEND ls_text TO lt_text.

ls_text-entry = 'Update SQL'. APPEND ls_text TO lt_text.

ls_text-entry = 'Select SQL'. APPEND ls_text TO lt_text.

ls_text-entry = '* field symbols for the work area and for a specific field'. APPEND ls_text TO lt_text.

ls_text-entry = '* the table name MUST be p_itab'. APPEND ls_text TO lt_text.

ls_text-entry = '* replace XYZ with the field name in UPPERCASE'. APPEND ls_text TO lt_text.

ls_text-entry = 'Create table and insert'. APPEND ls_text TO lt_text.

ls_text-entry = 'Refresh'. APPEND ls_text TO lt_text.

ls_text-entry = 'Display Options'. APPEND ls_text TO lt_text.

ls_text-entry = 'Display Grid'. APPEND ls_text TO lt_text.

ls_text-entry = 'Data has changed'. APPEND ls_text TO lt_text.

ls_text-entry = 'Do you really want to quit without saving?'. APPEND ls_text TO lt_text.

ls_text-entry = 'Yes'. APPEND ls_text TO lt_text.

ls_text-entry = 'No'. APPEND ls_text TO lt_text.

ls_text-entry = 'ABAP Documentation'. APPEND ls_text TO lt_text.

ls_text-entry = 'Syntax Diagram'. APPEND ls_text TO lt_text.

ls_text-entry = 'You have unsaved modifications of the result list.'. APPEND ls_text TO lt_text.

ls_text-entry = 'Do you really want to cancel editing?'. APPEND ls_text TO lt_text.

ls_text-entry = 'Warning'. APPEND ls_text TO lt_text.

ls_text-entry = 'You have unsaved modifications of the result list of a command'. APPEND ls_text TO lt_text.

ls_text-entry = 'Do you really want to exit?'. APPEND ls_text TO lt_text.

ls_text-entry = 'Exif from the application'. APPEND ls_text TO lt_text.

ls_text-entry = 'Lock records'. APPEND ls_text TO lt_text.

ls_text-entry = 'Unlock records'. APPEND ls_text TO lt_text.

ls_text-entry = 'Deleted records'. APPEND ls_text TO lt_text.

ls_text-entry = 'Updated records'. APPEND ls_text TO lt_text.

ls_text-entry = 'Inserted records'. APPEND ls_text TO lt_text.

ls_text-entry = 'Simulate'. APPEND ls_text TO lt_text.

ls_text-entry = 'Move Result Set'. APPEND ls_text TO lt_text.

ls_text-entry = 'Update other table'. APPEND ls_text TO lt_text.

ls_text-entry = 'Insert into other table'. APPEND ls_text TO lt_text.

ls_text-entry = 'Modify other table'. APPEND ls_text TO lt_text.

ls_text-entry = 'Current Commands'. APPEND ls_text TO lt_text.

ls_text-entry = 'My Repository'. APPEND ls_text TO lt_text.

ls_text-entry = 'Application Components'. APPEND ls_text TO lt_text.

ls_text-entry = 'Table/Value range'. APPEND ls_text TO lt_text.

ls_text-entry = 'Select'. APPEND ls_text TO lt_text.

ls_text-entry = 'Update'. APPEND ls_text TO lt_text.

ls_text-entry = 'Delete'. APPEND ls_text TO lt_text.

ls_text-entry = 'Loop at Workbench'. APPEND ls_text TO lt_text.

ls_text-entry = 'Select for all entries...'. APPEND ls_text TO lt_text.

ls_text-entry = 'Domain:'. APPEND ls_text TO lt_text.

ls_text-entry = 'Length:'. APPEND ls_text TO lt_text.

ls_text-entry = 'Description'. APPEND ls_text TO lt_text.

ls_text-entry = 'Navigation Tree'. APPEND ls_text TO lt_text.

ls_text-entry = 'Recognize tables'. APPEND ls_text TO lt_text.

ls_text-entry = 'Advanced Paste'. APPEND ls_text TO lt_text.

ls_text-entry = '(...) SUBQUERY for Checktable'. APPEND ls_text TO lt_text.

ls_text-entry = 'Field Selector'. APPEND ls_text TO lt_text.

ls_text-entry = 'Check'. APPEND ls_text TO lt_text.

ls_text-entry = '* Original command text:'. APPEND ls_text TO lt_text.

ls_text-entry = 'Delete backup table'. APPEND ls_text TO lt_text.

ls_text-entry = 'Column options'. APPEND ls_text TO lt_text.

ls_text-entry = 'First page'. APPEND ls_text TO lt_text.

ls_text-entry = 'Previous page'. APPEND ls_text TO lt_text.

ls_text-entry = 'Next page'. APPEND ls_text TO lt_text.

ls_text-entry = 'Last page'. APPEND ls_text TO lt_text.

ls_text-entry = 'Do you really wanto to display all records?'. APPEND ls_text TO lt_text.

ls_text-entry = 'Show all records'. APPEND ls_text TO lt_text.

ls_text-entry = 'Confirmation'. APPEND ls_text TO lt_text.

ls_text-entry = 'Report generated by Hovitaga Report Generator'. APPEND ls_text TO lt_text.

ls_text-entry = 'at'. APPEND ls_text TO lt_text.

ls_text-entry = 'Report title:'. APPEND ls_text TO lt_text.

ls_text-entry = 'Created by:'. APPEND ls_text TO lt_text.

ls_text-entry = 'Created on:'. APPEND ls_text TO lt_text.

ls_text-entry = 'Fields for the selection screen'. APPEND ls_text TO lt_text.

ls_text-entry = 'You have unsaved modifications of a command text'. APPEND ls_text TO lt_text.

ls_text-entry = 'Linked Query Assistant'. APPEND ls_text TO lt_text.

ls_text-id = 'R'.

ls_text-entry = 'Hovitaga OpenSQL Editor free edition'. APPEND ls_text TO lt_text.

LOOP AT lt_text INTO ls_text.

IF sy-tabix > 79.

ls_text-key = sy-tabix + 1.

ELSE.

ls_text-key = sy-tabix.

ENDIF.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = ls_text-key

IMPORTING

output = ls_text-key.

ls_text-key = ls_text-key+5(3).

ls_text-length = STRLEN( ls_text-entry ).

MODIFY lt_text FROM ls_text INDEX sy-tabix.

ENDLOOP.

INSERT textpool sy-repid FROM lt_text LANGUAGE sy-langu.

DATA: lv_transaction TYPE sy-tcode.

lv_transaction = sy-repid.

CALL FUNCTION 'RPY_TRANSACTION_INSERT'

EXPORTING

transaction = lv_transaction

program = sy-repid

dynpro = '0100'

shorttext = 'Hovitaga OpenSQL Editor Free Edition'

easy_web_transaction = ' '

professionel_user_transaction = 'X'

html_enabled = 'X'

java_enabled = 'X'

wingui_enabled = 'X'

genflag = 'X'

suppress_authority_check = 'X'

suppress_corr_insert = 'X'

EXCEPTIONS

cancelled = 1

already_exist = 2

permission_error = 3

name_not_allowed = 4

name_conflict = 5

illegal_type = 6

object_inconsistent = 7

db_access_error = 8

OTHERS = 9.

IF sy-subrc <> 0.

ENDIF.

DATA: ls_t100a TYPE t100a,

lt_t100a TYPE TABLE OF t100a,

lv_msgclass TYPE t100a-arbgb.

lv_msgclass = 'ZSQL_FREE'.

SELECT SINGLE arbgb FROM t100a

INTO ls_t100a-arbgb

WHERE arbgb = lv_msgclass.

IF sy-subrc EQ 4.

ls_t100a-arbgb = lv_msgclass.

ls_t100a-masterlang = sy-langu.

* ls_t100a-APPLCLASS

ls_t100a-respuser = sy-uname.

ls_t100a-lastuser = sy-uname.

ls_t100a-ldate = sy-datum.

ls_t100a-ltime = sy-uzeit.

ls_t100a-stext = 'Hovitaga OpenSQL Editor Free Edition'.

INSERT t100a FROM ls_t100a.

DATA: ls_t100t TYPE t100t,

lt_t100t TYPE TABLE OF t100t.

ls_t100t-arbgb = lv_msgclass.

ls_t100t-sprsl = sy-langu.

ls_t100t-stext = 'Hovitaga OpenSQL Editor Free Edition'.

INSERT t100t FROM ls_t100t.

DATA: ls_t100 TYPE t100,

lt_t100 TYPE TABLE OF t100.

ls_t100-arbgb = lv_msgclass.

ls_t100-sprsl = sy-langu.

ls_t100-text = ' *** Core Classes ***'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Don''t write any commands after the closing dot'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Internal error during syntax check'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Internal error: generated program could not be called'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'The command cannot be interpreted'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'An ending quotation mark is missing'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Keyword ''&1'' is missing'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Field ''&1'' not found in table ''&2'''. APPEND ls_t100 TO lt_t100.

ls_t100-text = '''&1'' was not expected in the FROM clause'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'FROM clause ended unexpectedly with ''&1'''. APPEND ls_t100 TO lt_t100.

ls_t100-text = '''&1'' was not expected in the field list'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Field list ended unexpectedly with ''&1'''. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Field list: can not find table alias &1'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'No tables were found'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Table ''&1'' does not exist or is not active'. APPEND ls_t100 TO lt_t100.

ls_t100-text = '''&1'' is not a table'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Field ''&1'' does not belong to any of the tables'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Field list is missing'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Wrong order of keywords: &1 on wrong position'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'A syntax error occured'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'The command must have the FOR ALL ENTRIES clause'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'The command must have the WHERE clause'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Not an update command'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Not a delete command'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Only one table name can be entered for a DELETE/UPDATE command'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Zenith: textedit get_text Potential data loss'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Zenith: node xref not found'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Please adopt changes to the command by pressing the Simulate button'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Command copied to Clipboard'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Folder copied to Clipboard'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Rows fetched: &1 Updated: &2 Inserted: &3 Deleted: &4'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Zenith: tree get node error'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'No text table for &1'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Table &1 does not exist or is not active'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'No errors were found'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'To edit the result set, key fields &1 must be included in the field list'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Field ''&1'' does not belong to tables ''&2'''. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Checktable Relationships for &1'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Could not find field &1 in table &2 (type &3)'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Domain: &1 Length: &2'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Empty fieldcatalog'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Copy of Table &1 for ZSQL Command &2'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'ZENITH Generated Table for Command &1'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Transparent table succesfully created and activated'. APPEND ls_t100 TO lt_t100.

* GAP HANDLED IN LOOP

ls_t100-text = 'First execute the parent command'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'At least one record was not found in the DB with the primary key'. APPEND ls_t100 TO lt_t100.

ls_t100-text = '&1 records fetched in &2 seconds &3 bytes transferred'. APPEND ls_t100 TO lt_t100.

ls_t100-text = '&1 records updated in &2 seconds'. APPEND ls_t100 TO lt_t100.

ls_t100-text = '&1 records deleted in &2 seconds'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Parent command not found'. APPEND ls_t100 TO lt_t100.

ls_t100-text = '&1 records inserted'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'At least one record was not inserted'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'At least one record was not deleted'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'All lines were successfully inserted or updated'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'One or more lines could not be inserted or updated'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Key incomplete, update not allowed'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Table &1 already exists'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Maximum records must be at least 1'. APPEND ls_t100 TO lt_t100.

* GAP HANDLED IN LOOP

ls_t100-text = 'Command cannot be displayed'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'You don''t have the authority to execute this command type'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'ABAP documentation launched for keyword &1'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Nothing found in the ABAP documentation for keyword &1'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Command is locked by &1'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Error when locking the selected command'. APPEND ls_t100 TO lt_t100.

ls_t100-text = '&1 records updated &2 inserted &3 deleted in &4 seconds'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Error while updating table'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Do not use the ''FOR UPDATE'' addition'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Lock argument too long'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Table &1 locked by &2'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Table &1 client &2 locked by &3'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Error when locking table &1'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Error when unlocking table &1'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Some inserted rows were locked, update cancelled'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Record locked by &1'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Unable to create command'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Cannot assign a command ID'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Field list empty'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Error parsing the command'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Command is not a select command'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Error generating the structure for the result list'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Table list empty'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Error executing the command'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Error unlocking the table'. APPEND ls_t100 TO lt_t100.

ls_t100-text = '&1 &2 &3 &4 &5 &6'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Nothing to display'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Some records cannot be written to the database'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Command does not beging with the keyword ''&1'''. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Record not found or action resulted in duplicate primary keys'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Field &1 missing from result set, please adjust tree settings'. APPEND ls_t100 TO lt_t100.

ls_t100-text = '&1 records updated in table &2'. APPEND ls_t100 TO lt_t100.

ls_t100-text = '&1 records inserted into table &2'. APPEND ls_t100 TO lt_t100.

ls_t100-text = '&1 records modified in table &2'. APPEND ls_t100 TO lt_t100.

ls_t100-text = '&1 reports being processed'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Loop-at Workbench executed in &1 seconds'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'CALL METHOD lo_select->mo_pipacs_select->create_new: NO_ID exception'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'CALL METHOD lo_select->mo_pipacs_select->create_new: OTHERS exception'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Parsing statement in program &1 at line &2 resulted in errors'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'General Error'. APPEND ls_t100 TO lt_t100.

ls_t100-text = '&1 statements processed'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Executing statement in program &1 at line &2 resulted in errors'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Could not remove previously generated programs'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Updating result of statement in program &1 at line &2 resulted in errors'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Generated program name: &1'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Error generating structure for statement in program &1 at line &2'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Editing result sets is not allowed. See longtext for further help'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Error unlocking table &1 in generated program &2'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Argument too long when locking table &1 in generated program &2'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Error when locking table &1 in generated program &2'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Error generating lock argument for table &1 in &2, generated program &3'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Unable to get lock argument in &1'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Could not find field &2 in table &1'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Test entry already locked for table &1 in &2, generated program &3'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Unable to create lock argument in &1'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Unable to display data element'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'NUMBER_GET_NEXT returncode = &1'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Synchronize the Loop-at Workbench with its parent command first'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Table structures are different. Possible field type mismatch.'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Table &1 already exists'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'No syntax errors found'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Value Ranges are not available for Pooled and Clustered tables'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'You don''t have authorization to use keyword CLIENT SPECIFIED'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Aggregate functions in the field list are not supported'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'At least one key field must be included in the field list'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'You have no authorization to access data in table &1'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'All records must be locked before executing a Loop-at Workbench'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'The command must be executed first'. APPEND ls_t100 TO lt_t100.

ls_t100-text = '* Results from command &1 executed at &2 &3'. APPEND ls_t100 TO lt_t100.

ls_t100-text = '* &1 records saved, &2 bytes transferred'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'No table exists for the selected command'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Really delete the command and the underlying backup table &1?'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Backup table &1 successfully deleted'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Exactly one column must be selected to invoke the Column Options dialog'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Background job could not be started'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Background job &1 successfully started'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Output file &1 could not be created'. APPEND ls_t100 TO lt_t100.

ls_t100-text = '&1 Displaying records from &2 to &3'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'There result contains &1 records'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'The query returned &1 record(s)'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Output file &1 successfully created'. APPEND ls_t100 TO lt_t100.

ls_t100-text = '&1 records successfully updated/deleted'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Cannot open file &1'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Result set could not be imported from file &1'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Field list has changed, cannot display the results'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Unable to open file on the application server'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Table could not be locked'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'No records were updated/deleted'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'You have no authorization to display any of the selected fields'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'Report succesfully generated'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'The command must be parsed successfully before generating a report'. APPEND ls_t100 TO lt_t100.

ls_t100-text = 'You have no authorization to create records with the specified keys'. APPEND ls_t100 TO lt_t100.

ls_t100-text = '&1 records read from the database'. APPEND ls_t100 TO lt_t100.

LOOP AT lt_t100 INTO ls_t100.

IF sy-tabix < 45.

ls_t100-msgnr = sy-tabix - 1.

ELSEIF ( sy-tabix > 44 ) AND ( sy-tabix < 59 ).

ls_t100-msgnr = sy-tabix.

ELSEIF sy-tabix > 58.

ls_t100-msgnr = sy-tabix + 1.

ENDIF.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = ls_t100-msgnr

IMPORTING

output = ls_t100-msgnr.

MODIFY lt_t100 FROM ls_t100 INDEX sy-tabix.

ENDLOOP.

INSERT t100 FROM TABLE lt_t100.

DATA: ls_t100u TYPE t100u,

ls_tadir TYPE tadir.

LOOP AT lt_t100 INTO ls_t100.

ls_t100u-arbgb = lv_msgclass.

ls_t100u-msgnr = ls_t100-msgnr.

ls_t100u-name = sy-uname.

ls_t100u-datum = sy-datum.

ls_t100u-selfdef = '3'.

INSERT t100u FROM ls_t100u.

ENDLOOP.

ls_tadir-pgmid = 'R3TR'.

ls_tadir-object = 'MSAG'.

ls_tadir-devclass = '$TMP'.

ls_tadir-obj_name = lv_msgclass.

ls_tadir-cproject = ' L'.

ls_tadir-srcsystem = sy-sysid.

ls_tadir-author = sy-uname.

ls_tadir-masterlang = sy-langu.

INSERT tadir FROM ls_tadir.

ENDIF.

CALL FUNCTION 'RS_TOOL_ACCESS'

EXPORTING

operation = 'ACTIVATE'

object_name = sy-repid

object_type = 'PROG'

with_objectlist = 'X'

with_worklist = 'X'

EXCEPTIONS

OTHERS = 1.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

DATA: lv_str TYPE string.

CONCATENATE 'Now you can use transaction ' sy-repid '.' INTO lv_str SEPARATED BY ''.

CALL FUNCTION 'POPUP_TO_INFORM'

EXPORTING

titel = 'Installation completed'

txt1 = lv_str

txt2 = 'If you like this application, please share it with your '

txt3 = 'friends on social networks, forums and blogs.'

txt4 = 'Thank you! This message will not pop up again.'.

LEAVE PROGRAM.

ENDIF.

ENDFORM. " INSTALL

*&---------------------------------------------------------------------*

*& Form update

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM update.

DATA: uri TYPE saeuri,

content_txt TYPE soli_tab,

lv_latestversion LIKE LINE OF content_txt,

lv_latestver_int TYPE i.

uri = 'http://www.hovitaga.com/files/oe_latestversion_700.txt'.

PERFORM get_file USING uri CHANGING content_txt.

CHECK content_txt IS NOT INITIAL.

READ TABLE content_txt INTO lv_latestversion INDEX 1.

IF sy-subrc EQ 0.

lv_latestver_int = lv_latestversion.

IF lv_latestversion GT gc_version.

DATA: lv_current TYPE string,

lv_latest TYPE string,

lv_answer TYPE c.

DATA: lv_url(255) TYPE c.

DATA: content_bin_255 TYPE solix_tab.

CONCATENATE 'Current version:' gc_version INTO lv_current SEPARATED BY space.

CONCATENATE 'Latest version:' lv_latestversion INTO lv_latest SEPARATED BY space.

CALL FUNCTION 'POPUP_TO_DECIDE'

EXPORTING

* DEFAULTOPTION = '1'

textline1 = 'An newer version is available.'

textline2 = lv_current

textline3 = lv_latest

text_option1 = 'Update'

text_option2 = 'No thanks'

* ICON_TEXT_OPTION1 = ' '

* ICON_TEXT_OPTION2 = ' '

titel = 'Update forund'

* START_COLUMN = 25

* START_ROW = 6

cancel_display = ' '

IMPORTING

answer = lv_answer.

IF lv_answer EQ '1'.

uri = 'http://www.hovitaga.com/files/oe_source_700.txt'.

PERFORM get_file USING uri CHANGING content_txt.

DATA: lv_msg TYPE string,

lv_line TYPE n,

lv_word TYPE char50,

lv_replace TYPE string.

CONCATENATE 'gc_hash(32) TYPE c VALUE ''' gc_hash '''' INTO lv_replace.

REPLACE ALL OCCURRENCES OF 'gc_hash(32) TYPE c VALUE ''e130d57ba1c629c83107bce22ae5f594''' IN TABLE content_txt WITH lv_replace.

SYNTAX-CHECK FOR content_txt

MESSAGE lv_msg

LINE lv_line

WORD lv_word

PROGRAM sy-repid.

IF sy-subrc NE 0.

MESSAGE 'Syntax check failed. Please download the update manually from hovitaga.com' TYPE 'I'.

CONCATENATE 'http://www.hovitaga.com/'

'updated.php?h='

gc_hash

'&oldversion='

gc_version

'&newversion='

lv_latestversion

'&statuscode=SyntaxCheckFailed'

INTO lv_url.

CONDENSE lv_url NO-GAPS.

CALL FUNCTION 'DP_GET_STREAM_FROM_URL'

EXPORTING

url = lv_url

TABLES

data = content_bin_255

EXCEPTIONS

dp_fail = 1

dp_failed_init = 2

OTHERS = 3.

IF sy-subrc <> 0.

* RETURN.

ENDIF.

RETURN.

ENDIF.

INSERT REPORT sy-repid FROM content_txt.

IF sy-subrc EQ 0.

CONCATENATE 'http://www.hovitaga.com/'

'updated.php?h='

gc_hash

'&oldversion='

gc_version

'&newversion='

lv_latestversion

'&statuscode=Success'

INTO lv_url.

CONDENSE lv_url NO-GAPS.

CALL FUNCTION 'DP_GET_STREAM_FROM_URL'

EXPORTING

url = lv_url

TABLES

data = content_bin_255

EXCEPTIONS

dp_fail = 1

dp_failed_init = 2

OTHERS = 3.

IF sy-subrc <> 0.

* RETURN.

ENDIF.

CALL FUNCTION 'POPUP_TO_DECIDE'

EXPORTING

* DEFAULTOPTION = '1'

textline1 = 'In order to make the changes effective,'

textline2 = 'the program has to be restarted.'

text_option1 = 'Exit'

text_option2 = 'Show changelog'

* ICON_TEXT_OPTION1 = ' '

* ICON_TEXT_OPTION2 = ' '

titel = 'Update successful'

* START_COLUMN = 25

* START_ROW = 6

cancel_display = ' '

IMPORTING

answer = lv_answer.

IF lv_answer EQ '2'.

DATA: lv_string TYPE string.

lv_string = 'http://www.hovitaga.com/files/oe_changelog_700.txt'.

CALL METHOD cl_gui_frontend_services=>execute

EXPORTING

document = lv_string.

ENDIF.

LEAVE PROGRAM.

ELSE.

MESSAGE 'Update failed (INSERT REPORT subrc NE 0)' TYPE 'I'.

CONCATENATE 'http://www.hovitaga.com/'

'updated.php?h='

gc_hash

'&oldversion='

gc_version

'&newversion='

lv_latestversion

'&statuscode=InsertReportFailed'

INTO lv_url.

CONDENSE lv_url NO-GAPS.

CALL FUNCTION 'DP_GET_STREAM_FROM_URL'

EXPORTING

url = lv_url

TABLES

data = content_bin_255

EXCEPTIONS

dp_fail = 1

dp_failed_init = 2

OTHERS = 3.

IF sy-subrc <> 0.

* RETURN.

ENDIF.

ELSE.

RETURN.

ENDIF.

ENDFORM. "update

*&---------------------------------------------------------------------*

*& Form get_file

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* -->URL text

* -->CONTENT text

*----------------------------------------------------------------------*

FORM get_file USING url TYPE saeuri CHANGING content TYPE soli_tab.

DATA: content_bin_255 TYPE solix_tab.

CALL FUNCTION 'DP_GET_STREAM_FROM_URL'

EXPORTING

url = url

TABLES

data = content_bin_255

EXCEPTIONS

dp_fail = 1

dp_failed_init = 2

OTHERS = 3.

IF sy-subrc <> 0.

RETURN.

ENDIF.

CHECK content_bin_255 IS NOT INITIAL.

DATA: lv_string TYPE string.

CALL FUNCTION 'SCMS_BINARY_TO_STRING'

EXPORTING

input_length = 999999999

IMPORTING

text_buffer = lv_string

* output_length = lv_len_out

TABLES

binary_tab = content_bin_255.

CLEAR content.

SPLIT lv_string AT cl_abap_char_utilities=>cr_lf INTO TABLE content.

ENDFORM. "get_file

*&---------------------------------------------------------------------*

*& Form CHECK_MESSAGE_001

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM check_message_001.

DATA: ls_t100 TYPE t100.

CHECK sy-langu = 'E'.

SELECT SINGLE * FROM t100 INTO ls_t100

WHERE sprsl = 'E' AND

arbgb = '00' AND

msgnr = '001'.

IF ls_t100-text = 'No vendor specified'.

* This message has not been translated correctly to English

* and causes many OpenSQL Editor messages to be displayed incorrectly

CALL FUNCTION 'POPUP_TO_INFORM'

EXPORTING

titel = 'Error in standard message class 00'

txt1 = 'The English text of message 001 of message class 00 is wrong.'

txt2 = 'Correct the message text to ''&1&2&3&4&5&6&7&8'''

txt3 = 'or contact Hovitaga for support'.

LEAVE PROGRAM.

ENDIF.

ENDFORM. " CHECK_MESSAGE_001

2.创建自定屏幕

创建窗口号：100，屏幕上不用修改，程序中如下：

PROCESS BEFORE OUTPUT.
MODULE status_0100.

PROCESS AFTER INPUT.
MODULE user_command_0100_exit.
MODULE user_command_0100.

PROCESS BEFORE OUTPUT.

MODULE status_0100.

PROCESS AFTER INPUT.

MODULE user_command_0100_exit.

MODULE user_command_0100.

3.增加SAP GUI状态

状态条名：100_MAIN。

4.增加GUI 标题

GUI 标题名：100_TITLE，内容：&

5. 运行

激活后，就可以运行了，

运行后如图，

最后编辑：2020-12-09

作者：yangsen

本站为个人博客网站，全由我个人维护，我从事SAP开发13年，其它ERP开发7年，基本都是零售行业。本站记录工作学习的过程，有SAP相关询问专、兼职工作可随时联系我。有网站相关的问题可直接在文章下方留言，或者联系我。邮件：yan252@163.com给我。 QQ:415402519

站内专栏站点

自定义SQL查询或者更新

1.创建ABAP代码

2.创建自定屏幕

3.增加SAP GUI状态

4.增加GUI 标题

5. 运行

您可能还会对这些文章感兴趣！