How can I use Hash Table when processing the data from cdpos and cdhdr

Question

Hello Guru,
I've a question,
I need to reduce the access time to both cdhdr and cdpos.
Because may be I'll get a huge number of entries.
It looks like that by processing cdhdr and cdpos data will take many secondes,
it depends on how many data you need to find.
Hints : Putting instructions inside a form will slow down the program?
Also, I just want use Hash table and I need to put a loop-instruction going on the hash-table in form.
I know that it's no possible but I can declare an index inside my customized hash table.
For example :
DO
READ TABLE FOR specific_hash_table WITH KEY TABLE oindex = d_oindex.
Process data
d_oindex += 1.
UNTIL d_oindex = c_max_lines + 1.
Doing this would actually not necessary improve the performance.
Because It looks like I'm having a standard table, may be there's a hash function, but it could be a bad function.
Also I need to use for example COUNT (*) to know how many lines I get with the select.
FORM find_cdpos_data_with_loop
  TABLES
    i_otf_objcs TYPE STANDARD TABLE
  USING
    i_cdhdr_data TYPE HASHED TABLE
    i_objcl TYPE j_objnr
*    i_obj_lst TYPE any
    i_option TYPE c
  CHANGING
    i_global TYPE STANDARD TABLE.
  " Hint: cdpos is a cluster-table
  CONSTANTS : objectid TYPE string VALUE 'objectid = i_obj_lst-objectid',
              changenr TYPE string VALUE 'changenr = i_obj_lst-changenr',
              tabname TYPE string VALUE 'tabname = i_otf_objcs-tablename',
              tabnameo1 TYPE string VALUE 'tabname NE ''''',
              tabnameo2 TYPE string VALUE 'tabname NE ''DRAD''',
              fname TYPE string VALUE 'fname = i_otf_objcs-fieldname'.
  DATA : BEGIN OF i_object_list OCCURS 0,
            objectclas LIKE cdpos-objectclas,
            objectid LIKE cdpos-objectid,
            changenr LIKE cdpos-changenr,
         END OF i_object_list.
  DATA : i_cdpos LIKE TABLE OF i_object_list WITH HEADER LINE,
         i_obj_lst LIKE LINE OF i_cdpos.
  DATA : tabnamev2 TYPE string.
  IF i_option EQ 'X'.
    MOVE tabnameo2 TO tabnamev2.
  ELSE.
    MOVE tabnameo1 TO tabnamev2.
  ENDIF.
*LOOP AT i_cdhdr_data TO i_obj_lst.
  SELECT objectclas objectid changenr
    INTO TABLE i_cdpos
    FROM cdpos
    FOR ALL ENTRIES IN i_otf_objcs
    WHERE objectclas = i_objcl AND
          (objectid) AND
          (changenr) AND
          (tabname) AND
          (tabnamev2) AND
          (fname).
  LOOP AT i_cdpos.
    APPEND i_cdpos-objectid TO i_global.
  ENDLOOP.
*ENDLOOP.
ENDFORM.                    "find_cdpos_data

Answer 1

Hey Mart,
This is what I met, unfortunately I get the same performance with for all entries.
But with a lot of more code.
FORM find_cdpos_data
  TABLES
    i_otf_objcs TYPE STANDARD TABLE
  USING
    i_objcl TYPE j_objnr
    i_obj_lst TYPE any
    i_option TYPE c
  CHANGING
    i_global TYPE STANDARD TABLE.
  " Hint: cdpos is a cluster-table
  CONSTANTS : objectid TYPE string VALUE 'objectid = i_obj_lst-objectid',
              changenr TYPE string VALUE 'changenr = i_obj_lst-changenr',
              tabname TYPE string VALUE 'tabname = i_otf_objcs-tablename',
              tabnameo1 TYPE string VALUE 'tabname NE ''''',
              tabnameo2 TYPE string VALUE 'tabname NE ''DRAD''',
              fname TYPE string VALUE 'fname = i_otf_objcs-fieldname'.
*  DATA : BEGIN OF i_object_list OCCURS 0,
*            objectclas LIKE cdpos-objectclas,
*            objectid LIKE cdpos-objectid,
*            changenr LIKE cdpos-changenr,
*         END OF i_object_list.
** complete modified code [begin]
  DATA : BEGIN OF i_object_list OCCURS 0,
            objectclas LIKE cdpos-objectclas,
            objectid LIKE cdpos-objectid,
            changenr LIKE cdpos-changenr,
            tabname LIKE cdpos-tabname,
            fname LIKE cdpos-fname,
         END OF i_object_list.
** complete modified code [end]
  DATA : i_cdpos LIKE TABLE OF i_object_list WITH HEADER LINE.
  DATA : tabnamev2 TYPE string.
** complete modified code [begin]
FIELD-SYMBOLS : <otf> TYPE ANY,
                <otf_field_tabname>,
                <otf_field_fname>.
** complete modified code [end]
  IF i_option EQ 'X'.
    MOVE tabnameo2 TO tabnamev2.
  ELSE.
    MOVE tabnameo1 TO tabnamev2.
  ENDIF.
**  SELECT objectclas objectid changenr
**    INTO TABLE i_cdpos
*  SELECT objectid
*      APPENDING CORRESPONDING FIELDS OF TABLE i_global
*      FROM cdpos
*      FOR ALL ENTRIES IN i_otf_objcs
*      WHERE objectclas = i_objcl AND
*            (objectid) AND
*            (changenr) AND
*            (tabname) AND
*            (tabnamev2) AND
*            (fname).
** complete modified code [begin]
  SELECT objectid tabname fname
      INTO CORRESPONDING FIELDS OF TABLE i_cdpos
      FROM cdpos
      WHERE objectclas = i_objcl AND
            (objectid) AND
            (changenr) AND
            (tabnamev2).
ASSIGN LOCAL COPY OF i_otf_objcs TO <otf>.
  LOOP AT i_cdpos.
  LOOP AT i_otf_objcs INTO <otf>.
   ASSIGN COMPONENT 'TABLENAME' OF STRUCTURE <otf> TO <otf_field_tabname>.
   ASSIGN COMPONENT 'FIELDNAME' OF STRUCTURE <otf> TO <otf_field_fname>.
    IF ( <otf_field_tabname>  EQ i_cdpos-tabname ) AND ( <otf_field_fname> EQ i_cdpos-fname ).
      APPEND i_cdpos-objectid TO i_global.
      RETURN.
    ENDIF.
  ENDLOOP.
  ENDLOOP.
** complete modified code [end]
**  LOOP AT i_cdpos.
**    APPEND i_cdpos-objectid TO i_global.
**  ENDLOOP.
ENDFORM.                    "find_cdpos_data