ABAP: Leer dominios (SE11)

Otra de esas funciones que no quiero tener que volver a buscar. Traer la lista de valores de un dominio.

*&---------------------------------------------------------------------*
*&      Form  LEE_DOMINIO
*&---------------------------------------------------------------------*

FORM lee_dominio  USING    dominio
                           valor
                  CHANGING texto.

  DATA t_dd07v TYPE TABLE OF dd07v WITH HEADER LINE.

  CALL FUNCTION 'TB_DOMAINVALUES_GET'
    EXPORTING
      domain  = dominio
    TABLES
      t_dd07v = t_dd07v.

  READ TABLE t_dd07v WITH KEY domvalue_l = valor.
  IF sy-subrc = 0.
    texto = t_dd07v-ddtext.
  ELSE.
    CLEAR texto.
  ENDIF.

ENDFORM.                    " LEE_DOMINIO