DATA l_date TYPE sy-datum.
  CALL FUNCTION 'RP_CALC_DATE_IN_INTERVAL'
    EXPORTING
      date      = sy-datum
      days      = 0
      months    = 30
      signum    = '-'
      years     = 0
    IMPORTING
      calc_date = l_date
    EXCEPTIONS
      OTHERS    = 1.