data: l_idx like sy-tabix.
          read table l_t_range with key
               fieldname = 'DATEFROM'.
          l_idx = sy-tabix.


          DATA lv_date TYPE datum.
          DATA lv_temp TYPE TVARV_VAL.

          SELECT single low from tvarvc INTO lv_temp WHERE name =
          'ZCN15_PERIOD'.
            IF sy-subrc <> 0.
              lv_date = sy-datum.
            ELSE.
              lv_date = lv_temp.
            ENDIF.

            l_t_range-iobjnm = 'DATEFROM'.
            l_t_range-fieldname = 'DATEFROM'.
            l_t_range-sign = 'I'.
            l_t_range-option = 'BT'.
            l_t_range-low = '10000101'.
            l_t_range-high = lv_date.


          if l_idx <> 0.
            modify l_t_range index l_idx.
          else.
            append l_t_range.
          endif.
          p_subrc = 0.

data: l_idx like sy-tabix.
          read table l_t_range with key
               fieldname = 'DATETO'.
          l_idx = sy-tabix.


          DATA lv_date TYPE datum.
          DATA lv_temp TYPE TVARV_VAL.

          SELECT single high from tvarvc INTO lv_temp WHERE name =
          'ZCN15_PERIOD'.
            IF sy-subrc <> 0.
              lv_date = sy-datum.
            ELSE.
              lv_date = lv_temp.
            ENDIF.

            l_t_range-iobjnm = 'DATETO'.
            l_t_range-fieldname = 'DATETO'.
            l_t_range-sign = 'I'.
            l_t_range-option = 'BT'.
            l_t_range-low = lv_date.
            l_t_range-high = '99991231'.


          if l_idx <> 0.
            modify l_t_range index l_idx.
          else.
            append l_t_range.
          endif.
          p_subrc = 0.