Internal table - select if in range ?

Question

Hello ABAP Experts,
I have a internal i_gl_account table which has some of the following fields:
glacctfrom, glacctto, flag
i have to select a record from this internal table based on a fixed gl_account_fix.
i cannot write this statement
read table i_gl_account with key
           glacctfrom >= gl_account_fix
           glacctto <= gl_account_fix
since read does not allow the '>' or '<' operators.
one alternative possible is:
loop i_gl_account.
  if ( glacctfrom >= gl_account_fix and
       glacctto <= gl_account_fix).
  exit.
  endif.
endloop.
This solutions, lookups at each and every record one by one and then does the if comparisions. Incase the i_gl_account is large then this is huge cost and processing.
wondering if there is any other possible method of achieving the same with lesser processing and cost.
Any suggetions are appreciated.
Thanks,
BWer

Answer 1

You could also something simular to this sample program.  If know that the start point is in the table.  Here the program is reading the first line where the start value is =,  then it is reading each line after that untill it reaches the end point.  But it is not reading the entire internal table.
report  zrich_0001.
data: begin of itab occurs 0,
      field1(10) type c,
       field2(10) type c,
       field3(10) type c,
      end of itab.
itab-field1 = 'A'.
itab-field2 = '1'.
itab-field3 = '001'.
append itab.
itab-field1 = 'A'.
itab-field2 = '2'.
itab-field3 = '123'.
append itab.
itab-field1 = 'A'.
itab-field2 = '3'.
itab-field3 = '124'.
append itab.
itab-field1 = 'A'.
itab-field2 = '4'.
itab-field3 = '125'.
append itab.
itab-field1 = 'A'.
itab-field2 = '5'.
itab-field3 = '999'.
append itab.
sort itab ascending by field1 field2 field3.
data: index type sy-index.
data: start like itab-field3 value '123'.
data: end like itab-field3 value '125'.
read table itab with key field3 = start.
if sy-subrc  = 0.
  write:/ itab-field1, itab-field2, itab-field3.
  index = sy-tabix + 1.
  while sy-subrc = 0.
    read table itab index index.
    if sy-subrc = 0
        and itab-field3 <= end.
      write:/ itab-field1, itab-field2, itab-field3.
    else.
      sy-subrc  = 4.
    endif.
    index = index + 1.
  endwhile.
endif.
Regards,
Rich Heilman