Want to fill number of ranges through a common form - how?

Question

I have a number of select-options and ranges I want to add values to when processing a screen where I am using selection screen as a subscreen in my dialog programme.  What I want to be able to do is to call a form passing the range/select option and the values to fill like this:
example:
ranges: r_date for sy-datum,
        r_cust for kna1-kunnr.
LOOP AT ITAB.
perform fill_range tables r_date
                   using  ITAB-DATE.
PERFORM FILL_OPTION  tables  r_cust
                     using  ITAB-KUNNR.
ENDLOOP.
The problem I have is that when I try and define the a generic structure for the tables within the FORM it keeps telling me that R_DATE is too short.  I am using RSVDATYN as the structure but I have tried other structures that mimic the range structure of SIGN,OPTION, LOW and HIGH.  The only thing I can think of is that because my LOW and HIGH fields are different it won't pass the value or convert it.
Is it even possible to do this or do I have to code each range/select-option separate like this without passing this into a generic form to be filled:
r_date-sign   = 'I'.
r_sign-option = 'EQ'.
r_date-low   = value.
append r_date
Any ideas?

Answer 1

Hi,
  You can write a macro instead..
  For example,
  DEFINE fill_range.
    &1-sign = 'I'.
    &1-option = 'EQ'.
    &1-low = &2.
    APPEND &1.
  END-OF-DEFINITION.
  ranges: r_date for sy-datum,
          r_cust for kna1-kunnr.
  LOOP AT itab.
    fill_range r_date itab-date.
    fill_range r_cust itab-kunnr.
  ENDLOOP.
  Hope this helps..
Sri