ABAP - Putting Values In a Range Selection Table.

Fill a range table
Quite often we have the task of putting values in a range table. This always means to set the SIGN, OPTION, LOW and if required HIGH field of a seletion range. We have some additional code lines for this and after filling the range (i.e. in a LOOP), we do good in removing duplicate values.
Take the following FORM to do it efficiently for any kind of range table.
*&---------------------------------------------------------------------*
*& Form insert_range
*&---------------------------------------------------------------------*
* insert selection range - handles any range type "CLI20061218
*----------------------------------------------------------------------*
FORM insert_range USING p_signopt TYPE c "#EC CALLED
p_low TYPE any
p_high TYPE any
CHANGING pt_range TYPE table.
FIELD-SYMBOLS:
TYPE ANY,
TYPE ANY,
TYPE ANY,
TYPE ANY,
TYPE ANY.
DATA:
lv_ref TYPE REF TO data.
CHECK NOT ( p_signopt IS INITIAL AND
p_low IS INITIAL AND
p_high IS INITIAL ).
CREATE DATA lv_ref LIKE LINE OF pt_range.
ASSIGN lv_ref->* TO .
CHECK sy-subrc = 0.
ASSIGN COMPONENT 'SIGN' OF STRUCTURE TO .
CHECK sy-subrc = 0.
ASSIGN COMPONENT 'OPTION' OF STRUCTURE TO .
CHECK sy-subrc = 0.
ASSIGN COMPONENT 'LOW' OF STRUCTURE TO .
CHECK sy-subrc = 0.
ASSIGN COMPONENT 'HIGH' OF STRUCTURE TO .
CHECK sy-subrc = 0.
= p_signopt(1).
= p_signopt+1(2).
= p_low.
= p_high.
READ TABLE pt_range WITH KEY table_line = BINARY SEARCH
TRANSPORTING NO FIELDS.
CHECK sy-subrc <> 0.
INSERT INTO pt_range INDEX sy-tabix.
ENDFORM. " insert_range
Usage is like
PERFORM insert_range using changing .
Sample:
data:
lt_r_matnr type range of mara-matnr,
lv_matnr type mara-matnr.
select matnr into lv_matnr up to 100 rows.
perform insert_range using 'IEQ' lv_matnr '' changing lt_r_matnr.
endselect.
Once we have integrated this FORM in a common include (or copy it from program to program) it saves a lot of coding lines and reduces errors drastically.
Additionally, this is no macro. This means you can debug the code whenever you need to (I did not, for long time).