Moving DATA from Internal Table to Ranges

Question

Hi All,
I have an Internal table and a range variable both  contain one field. Internal table is having only one table. I am populating the table data from a select query. Now I want to transfer the data to a range field. The internal table is having thousands of records so I want to do this <b>without LOOP</b>. Can anybody suggest the efficient way to achieve this?
Any help would be appreciated.
Thanks so much.
Jignesh.

Answer 1

... the sump with too big range tables is a pure oracle sickness. AFAIK the size limit for the select statement has been extended from 16k to 32k, so this danger is smaller than it used to be.
Anyway you can use the FOR ALL ENTRIES IN clause and the ABAP-SQL-interface will handle the package size very efficienly. There was a time I believed that FOR ALL ENTRIES IN should not be used because it would slow down the data selection. I have learned that this is not true at all because of the package technique.
And now for everyone who wants to built ranges of any size (no limit for internal tables):
Call this like (just as an example for initializing select-options:
PERFORM append_range USING:
  'IEQ' sy-datum(4) '' CHANGING s_gjahr[],
  'IBT' 1 'ZZZZZZZZZZ' CHANGING s_prctr[],
  'IBT' 1 16           CHANGING s_monat[].
Note that SIGN and OPTION are combined into one parameter saving time and gaining overview (?).
I created the FORM once and used it so many times...
Actually you don't need so many "CHECK sy-subrc = 0" if you know how to use the form.
*&      Form  append_range
      append selection range
FORM append_range  USING    p_signopt     TYPE c
                            p_low         TYPE any
                            p_high        TYPE any
                   CHANGING pt_range      TYPE table.
  FIELD-SYMBOLS:
    <range>                               TYPE ANY,
    <sign>                                TYPE ANY,
    <option>                              TYPE ANY,
    <low>                                 TYPE ANY,
    <high>                                TYPE ANY.
  DATA:
    l_ref                                 TYPE REF TO data.
  CREATE DATA l_ref                       LIKE LINE OF pt_range.
  ASSIGN l_ref->* TO <range>.
  CHECK sy-subrc                          = 0.
  ASSIGN COMPONENT 'SIGN' OF STRUCTURE <range> TO <sign>.
  CHECK sy-subrc                          = 0.
  ASSIGN COMPONENT 'OPTION' OF STRUCTURE <range> TO <option>.
  CHECK sy-subrc                          = 0.
  ASSIGN COMPONENT 'LOW' OF STRUCTURE <range> TO <low>.
  CHECK sy-subrc                          = 0.
  ASSIGN COMPONENT 'HIGH' OF STRUCTURE <range> TO <high>.
  CHECK sy-subrc                          = 0.
  <sign>                                  = p_signopt(1).
  <option>                                = p_signopt+1(2).
  <low>                                   = p_low.
  <high>                                  = p_high.
  APPEND <range> TO pt_range.
ENDFORM.                    " append_range
Enjoy your ranges,
Clemens