HR: Рекурсивный поиск элеменотов орг.структуры

Задача:
  SELECT * FROM hrp1001
   WHERE otype = 'O'
     AND objid = '80100000'
     AND plvar = '01'
     AND rsign = 'B'
     AND relat = '003'
     AND sclas = 'S'
     AND begda <= p_date
     AND endda >= p_date.

    pertab-orgeh   = '80100000'.
    pertab-sobid   = hrp1001-sobid.

    REFRESH infty_9901.
    CALL FUNCTION 'RHOM_READ_INFTY_BUFFERED'
      EXPORTING
        plvar     = '01'
        otype     = 'S'
        objid     = hrp1001-sobid
        infty     = '9901'
        begda     = p_date
        endda     = p_date
      TABLES
        infty_dat = infty_9901.

    IF sy-subrc <> 0.
    ELSE.
      pertab-oldrate = infty_9901-zrate.
    ENDIF.

    APPEND pertab.
    CLEAR  pertab.
  ENDSELECT.