Routine at the Infopackage level-Urgent

Question

Hi,
My requirement is I need to write an routine at the infopackage level for the fiscal period which should have the low value as the current period and the high value as current period +12 months.
For example.
As per the system date the
low value should be 2007.09
and the high value shoudl be 2008.09.
Could anyone help me with the ABAP code.Points would be assigned.
Regards,
vamsi

Answer 1

data: l_idx like sy-tabix.
          read table l_t_range with key
               fieldname = 'FISCPER'.
          l_idx = sy-tabix.
data: l_year                like T009B-BDATJ,
      l_period              like T009B-POPER,
      today                 like SY-DATUM.
data: l_fiscperlow like l_t_range-low.
data: l_fiscperhigh like l_t_range-high.
      today = SY-DATUM.
        CALL FUNCTION 'DATE_TO_PERIOD_CONVERT'
          EXPORTING
            I_DATE               = today
          I_MONMIT             = 00
            I_PERIV              = 'Z1'
          IMPORTING
            E_BUPER              = l_period
            E_GJAHR              = l_year
        EXCEPTIONS
          INPUT_FALSE          = 1
          T009_NOTFOUND        = 2
          T009B_NOTFOUND       = 3
          OTHERS               = 4
        IF SY-SUBRC <> 0.
      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
        ENDIF.
        concatenate l_year l_period+1(2) into l_fiscperlow.
      l_t_range-low = l_fiscperlow.
      l_t_range-high = l_fiscperlow+12.
      l_t_range-option = 'BT'.
      l_t_range-sign = 'I'.
      modify l_t_range index l_idx.
      p_subrc = 0.
          modify l_t_range index l_idx.
          p_subrc = 0.
This is the code which i had written but when i execute the infopackage i am aboe to see only the low value 200709 in the infopackage selections and unable to see the high value,Could any one suggest me if i missed something in the code.
regards,
Vamsi