Update ztoad.prog.abap

src/ztoad.prog.abap

@@ -525,7 +525,7 @@
         ENDIF.
 
       WHEN 'DELETE_HIST'.
-        CONCATENATE sy-uname '+++' INTO lw_queryid.
+        CONCATENATE sy-uname '***' INTO lw_queryid. " Change +++ to wildcard symbol ***
         LOOP AT t_node_repository INTO ls_histo
                 WHERE queryid CP lw_queryid.
           PERFORM repo_delete_history USING ls_histo-node_key
@@ -1488,7 +1488,7 @@
 * Remove * comment
   LOOP AT lt_query INTO ls_query WHERE line(1) = '*'.
     CLEAR ls_query-line.
     MODIFY lt_query FROM ls_query.
   ENDLOOP.
 
 * Remove " comment
@@ -1504,7 +1504,7 @@
         FIND ALL OCCURRENCES OF '''' IN ls_query-line(ls_find-offset)
              RESULTS lt_find_sub.
         IF sy-subrc = 0.
           DESCRIBE TABLE lt_find_sub LINES lw_lines.
           lw_lines = lw_lines MOD 2.
           IF lw_lines = 1.
             CONTINUE.
@@ -1517,7 +1517,7 @@
         EXIT. "exit loop
       ENDIF.
     ENDLOOP.
     MODIFY lt_query FROM ls_query.
   ENDLOOP.
 
 * Find active query
@@ -1540,7 +1540,7 @@
       READ TABLE lt_query INTO ls_query INDEX ls_find-line.
       FIND ALL OCCURRENCES OF '''' IN ls_query(ls_find-offset)
            RESULTS lt_find_sub.
       DESCRIBE TABLE lt_find_sub LINES lw_lines.
       lw_lines = lw_lines MOD 2.
 * If open ' found, ignore the dot
       IF lw_lines = 1.
@@ -1555,11 +1555,11 @@
     OR ( lw_last = abap_true AND fw_force_last = abap_true ).
 * Delete all query after query active
       ls_find-line = ls_find-line + 1.
       DELETE lt_query FROM ls_find-line.
       ls_find-line = ls_find-line - 1.
 * Do not keep the . for active query
       IF ls_find-offset = 0.
         DELETE lt_query FROM ls_find-line.
       ELSE.
         ls_query-line = ls_query-line(ls_find-offset).
         MODIFY lt_query FROM ls_query INDEX ls_find-line.
@@ -1888,7 +1888,7 @@
          lw_strlen_string    TYPE string,
          lw_explicit         TYPE string.
 
   DEFINE c.
     lw_strlen_string = &1.
     perform add_line_to_table using lw_strlen_string
                               changing lt_code_string.
@@ -1938,7 +1938,7 @@
   SPLIT lw_from AT space INTO TABLE lt_split.
   LOOP AT lt_split INTO lw_string.
     IF lw_string IS INITIAL OR lw_string CO space.
       DELETE lt_split.
     ENDIF.
   ENDLOOP.
   DO.
@@ -2597,7 +2597,7 @@
     READ TABLE lt_ddic_fields TRANSPORTING NO FIELDS
                WITH KEY tabname = ls_table_list-table.
     IF sy-subrc NE 0.
       DELETE lt_table_list.
       CONTINUE.
     ENDIF.
 
@@ -2691,10 +2691,10 @@
     MESSAGE a000(tree_control_msg).
   ENDIF.
 
   DESCRIBE TABLE lt_table_list LINES lw_tabix.
 
 * If no table found, display message
   IF lw_tabix = 0.
     MESSAGE 'No valid table found'(m15) TYPE c_msg_success
             DISPLAY LIKE c_msg_error.
 * If 1 table found, expand it
@@ -2899,7 +2899,7 @@
   APPEND s_node_repository TO t_node_repository.
 
   CLEAR lw_node_key.
-  CONCATENATE sy-uname '+++' INTO lw_queryid.
+  CONCATENATE sy-uname '***' INTO lw_queryid. " Change +++ to wildcard symbol ***
   LOOP AT lt_query_my INTO ls_query WHERE queryid NP lw_queryid.
     lw_node_key = lw_node_key + 1.
     CLEAR s_node_repository.
@@ -3063,7 +3063,7 @@
   CONCATENATE lw_date lw_time INTO ls_ztoad-text SEPARATED BY space.
 
   ls_ztoad-query = lw_query_with_cr.
   MODIFY ztoad FROM ls_ztoad.
 
   w_last_loaded_query = ls_ztoad-queryid.
 
@@ -3457,7 +3457,7 @@
          lw_started(1)       TYPE c,
          lw_started_field(1) TYPE c.
 
   DEFINE c.
     lw_strlen_string = &1.
     perform add_line_to_table using lw_strlen_string
                               changing lt_code_string.
@@ -3771,7 +3771,7 @@
   CONCATENATE fw_text 'pasted to SQL Editor'(m27)
               INTO lw_message SEPARATED BY space.
   MESSAGE lw_message TYPE c_msg_success.
 ENDFORM.                    " EDITOR_PASTE
 
 *&---------------------------------------------------------------------*
 *&      Form  QUERY_PROCESS_NATIVE
@@ -3836,7 +3836,7 @@
     CONDENSE lw_msg.
     MESSAGE lw_msg TYPE c_msg_success.
   ENDIF.
 ENDFORM.                    " QUERY_PROCESS_NATIVE
 
 *&---------------------------------------------------------------------*
 *&      Form  ddic_add_tree_zspro
@@ -3957,7 +3957,7 @@
     ls_node-isfolder = abap_true.
 
     ASSIGN COMPONENT 'NODETYPE' OF STRUCTURE <fs_zspro> TO <fw_zspro>.
     IF <fw_zspro> = 1. "table entry
       ls_node-n_image = '@PO@'.
       ls_node-exp_image = '@PO@'.
     ENDIF.
@@ -3968,7 +3968,7 @@
     ls_item-node_key = lw_nodekey.
     ls_item-class = cl_gui_column_tree=>item_class_text.
     ls_item-item_name = c_ddic_col1.
     IF <fw_zspro> = 1. "table entry
       ASSIGN COMPONENT 'NODEPARAM' OF STRUCTURE <fs_zspro> TO <fw_zspro>.
       ls_item-text = <fw_zspro>.
     ELSE.
@@ -3979,7 +3979,7 @@
 
     ls_item-item_name = c_ddic_col2.
     ASSIGN COMPONENT 'NODETYPE' OF STRUCTURE <fs_zspro> TO <fw_zspro>.
     IF <fw_zspro> = 1. "table entry
       ASSIGN COMPONENT 'TEXT' OF STRUCTURE <fs_zspro> TO <fw_zspro>.
       ls_item-text = <fw_zspro>.
     ELSE.
@@ -4034,7 +4034,7 @@
                  TRANSPORTING NO FIELDS.
       IF sy-subrc NE 0.
         lw_found = abap_true.
         DELETE t_node_zspro.
         DELETE t_item_zspro WHERE node_key = ls_node-node_key.
       ENDIF.
     ENDLOOP.
@@ -4042,7 +4042,7 @@
       EXIT.
     ENDIF.
   ENDDO.
 ENDFORM.                    "ddic_add_tree_zspro
 
 *&---------------------------------------------------------------------*
 *&      Form  REPO_DELETE_HISTORY
@@ -4067,7 +4067,7 @@
     ENDIF.
   ENDIF.
   fw_subrc = sy-subrc.
 ENDFORM.                    " REPO_DELETE_HISTORY
 
 *&---------------------------------------------------------------------*
 *&      Form  options_load
@@ -4082,10 +4082,10 @@
     SPLIT lw_options AT ';' INTO lw_rows
                                  s_customize-paste_break
                                  s_customize-techname
                                  lw_options. "dummy
     s_customize-default_rows = lw_rows.
   ENDIF.
 ENDFORM.                    " options_load
 
 *&---------------------------------------------------------------------*
 *&      Form  options_save
@@ -4111,10 +4111,10 @@
     EXCEPTIONS
       OTHERS          = 2.
   IF sy-subrc <> 0.
     MESSAGE e082(s1). "Error saving parameter changes
   ENDIF.
 
 ENDFORM.                    "options_save
 
 *&---------------------------------------------------------------------*
 *&      Form  DDIC_REFRESH_TREE
@@ -4174,7 +4174,7 @@
 
 * Refresh ddic tree with list of table/fields of the actual query
   PERFORM ddic_set_tree USING lw_from.
 ENDFORM.                    " DDIC_REFRESH_TREE
 
 *&---------------------------------------------------------------------*
 *&      Form  DDIC_FIND_IN_TREE
@@ -4219,11 +4219,11 @@
         error_in_fields = 1
         OTHERS          = 2.
     IF sy-subrc NE 0 OR lw_returncode NE space.
       EXIT. "exit do
     ENDIF.
     READ TABLE lt_sval INTO ls_sval INDEX 1.
     IF ls_sval-value = space.
       EXIT. "exit do
     ENDIF.
 
 * For new search, start from line 1
@@ -4266,7 +4266,7 @@
     ENDIF.
 
   ENDDO.
 ENDFORM.                    " DDIC_FIND_IN_TREE
 
 *&---------------------------------------------------------------------*
 *&      Form  OPTIONS_INIT
@@ -4352,7 +4352,7 @@
     EXPORTING
       properties = lt_ptab
       refresh    = abap_true.
 ENDFORM.                    " OPTIONS_INIT
 
 *&---------------------------------------------------------------------*
 *&      Form  OPTIONS_DISPLAY
@@ -4413,7 +4413,7 @@
 
 * Save values in user parameters
   PERFORM options_save.
 ENDFORM.                    " OPTIONS_DISPLAY
 
 *&---------------------------------------------------------------------*
 *&      Form  RESULT_SAVE_FILE
@@ -4477,7 +4477,7 @@
     EXCEPTIONS
       OTHERS                = 0.
 
 ENDFORM.                    " RESULT_SAVE_FILE
 
 *&---------------------------------------------------------------------*
 *&      Form  DDIC_F4
@@ -4502,11 +4502,11 @@
          lw_dummy      type c.                              "#EC NEEDED
 
 * Get selection in ddic tree
   CALL METHOD s_tab_active-o_tree_ddic->get_selected_node "line selected
     IMPORTING
       node_key = lw_nodekey.
   IF lw_nodekey IS INITIAL.
     CALL METHOD s_tab_active-o_tree_ddic->get_selected_item "item selected
       IMPORTING
         node_key  = lw_nodekey
         item_name = lw_item.
@@ -4576,7 +4576,7 @@
     PERFORM editor_paste USING lw_val lw_line_start lw_pos_start.
   ENDIF.
 
 ENDFORM.                    " DDIC_F4
 
 *&---------------------------------------------------------------------*
 *&      Form  EDITOR_GET_DEFAULT_QUERY
@@ -4606,7 +4606,7 @@
   APPEND 'WHERE <conditions>' TO ft_query.                  "#EC NOTEXT
   APPEND '.' TO ft_query.                                   "#EC NOTEXT
 
 ENDFORM.                    " EDITOR_GET_DEFAULT_QUERY
 
 *&---------------------------------------------------------------------*
 *&      Form  TAB_NEW
@@ -4617,7 +4617,7 @@
   DATA : l_numb TYPE i,
          l_tab TYPE string.
 
   DESCRIBE TABLE t_tabs LINES l_numb.
   IF l_numb GE 30.
     MESSAGE 'You cannot open more than 30 tabs'(m64)
             TYPE c_msg_success DISPLAY LIKE c_msg_error.
@@ -4648,7 +4648,7 @@
 * Tab management
   APPEND s_tab_active TO t_tabs.
 
 ENDFORM.                    " TAB_NEW
 
 *&---------------------------------------------------------------------*
 *&      Form  LEAVE_CURRENT_TAB
@@ -4682,7 +4682,7 @@
 
   MODIFY t_tabs FROM s_tab_active INDEX w_tabstrip-activetab+3.
   CLEAR s_tab_active.
 ENDFORM.                    " LEAVE_CURRENT_TAB
 
 *&---------------------------------------------------------------------*
 *&      Form  TAB_UPDATE_TITLE
@@ -4735,7 +4735,7 @@
   PERFORM editor_get_query USING space CHANGING lw_query.
   <fs> = lw_query.
 
 ENDFORM.                    " TAB_UPDATE_TITLE
 
 *&---------------------------------------------------------------------*
 *&      Form  Export_xml
@@ -4802,10 +4802,10 @@
   lo_xml = cl_ixml=>create( ).
   lo_document = lo_xml->create_document( ).
 
   lo_root  = lo_document->create_simple_element( name = c_xmlnode_root
                                                  parent = lo_document ).
   LOOP AT lt_ztoad INTO ls_ztoad.
     lo_element  = lo_document->create_simple_element( name = c_xmlnode_file
                                                       parent = lo_root ).
     lw_string = ls_ztoad-visibility.
     lo_element->set_attribute( name = c_xmlattr_visibility value = lw_string ).
@@ -4832,7 +4832,7 @@
       filetype = 'BIN'
     CHANGING
       data_tab = lt_xml.
 ENDFORM.                    "Export_xml
 
 *&---------------------------------------------------------------------*
 *&      Form  Import_xml
@@ -4931,7 +4931,7 @@
     lw_node_name = lo_node->get_name( ).
     IF lw_node_name = c_xmlnode_file.
 * Cast node to element
       lo_element ?= lo_node. "->query_interface( ixml_iid_element ).
       CLEAR ls_ztoad.
       ls_ztoad-visibility_group = lw_group.
       ls_ztoad-owner = sy-uname.
@@ -4958,7 +4958,7 @@
         IF sy-subrc NE 0.
           READ TABLE lt_ztoad WITH KEY queryid = lw_guid TRANSPORTING NO FIELDS.
           IF sy-subrc NE 0.
             EXIT. "exit do
           ENDIF.
         ENDIF.
       ENDDO.
@@ -4976,15 +4976,15 @@
 
   INSERT ztoad FROM TABLE lt_ztoad.
   IF sy-subrc = 0.
     MESSAGE s031(r9). "Query saved
   ELSE.
     MESSAGE e220(iqapi). "Error when saving the query
   ENDIF.
 
 * Refresh repository to display new saved query
   PERFORM repo_fill.
 
 ENDFORM.                    "import_xml
 
 *&---------------------------------------------------------------------*
 *&      Form  SET_STATUS_010
@@ -5010,7 +5010,7 @@
   ENDIF.
   SET TITLEBAR 'STATUS010'.
 
   DESCRIBE TABLE t_tabs LINES lw_max.
 
   LOOP AT SCREEN.
     IF screen-name(6) = 'S_TAB-'.
@@ -5023,4 +5023,4 @@
       MODIFY SCREEN.
     ENDIF.
   ENDLOOP.
 ENDFORM.                    " SET_STATUS_010