Filtering on hierarchy values in DTP

Having spent some time unsuccessfully googleing for a way to use a hierarchy as filter in a DTP I've come up with a (rather inelegant) solution myself.
Posting it here in hope it's helpful.

Code:

DATA: l_idx like sy-tabix.

DATA: lw_hier_id TYPE rshi_s_rshiedirkey.
DATA: lt_nodes_a_leaves TYPE rshi_t_hienode.
DATA: lw_nodes_a_leaves LIKE LINE OF lt_nodes_a_leaves.

DATA: l_hier_name TYPE rshienm.
DATA: lw_hier_type TYPE rshiedir.

          read table l_t_range with key
               fieldname = '/BIC/ZFIELD_NAME'.
          l_idx = sy-tabix.
*....

l_hier_name = 'ZH_HIER_NAME'.

SELECT SINGLE * FROM rshiedir INTO lw_hier_type
                              WHERE hienm = l_hier_name
                                AND objvers = 'A'.

IF sy-subrc = 0.
  lw_hier_id-hieid = lw_hier_type-hieid.
  lw_hier_id-objvers = 'A'.


CALL FUNCTION 'RSSH_HIERARCHY_READ'
 EXPORTING
  i_rshiedirkey           = lw_hier_id
 IMPORTING
   e_t_rsnodes             = lt_nodes_a_leaves
 EXCEPTIONS
  invalid_hierarchy       = 1
  name_error              = 2
  iobj_not_found          = 3
  OTHERS                  = 4
          .
IF sy-subrc <> 0.

DELETE lt_nodes_a_leaves WHERE iobjnm = '0HIER_NODE'.

Loop at lt_nodes_a_leaves INTO lw_nodes_a_leaves.

       l_t_range-fieldname = '/BIC/ZFIELD_NAME'.
       l_t_range-sign = 'I'.
       l_t_range-option = 'EQ'.
* substring is due to compounding, generally unneeded
       l_t_range-low = lw_nodes_a_leaves-nodename+2(4).

       append l_t_range.

endloop.

ENDIF.

ENDIF.


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

OK, this is all SAP BW jargon ;-)