Función para llenar un "Rango" con un "Set de Datos". (SAP-ABAP)

Se  creara una función.

1.- Crear "Grupo de Funciones" (se80).

2.- Crear "Módulo de Funciones".

     En la pestaña "Import" agregar los nombre de parámetros mostrados en la figura.

           IV_SET_NAME (nombre del set de datos)
           IV_DATA_ELEMENT (nombre del elemento de datos relacionado al set de datos)

3.- En la pestaña "Tablas", ingresar nombre de parámetro...

       ET_RANGE (es un rango, contendrá los datos del set datos)

4.- Finalmente en la pestaña "Código fuente" copiar el siguiente código:

 DATA: lv_new_setid        TYPE sethier-setid,
        lt_set_lines_basic  TYPE STANDARD TABLE OF rgsbv,
        ls_set_lines_basic  TYPE rgsbv.

  DATA: ls_tab  TYPE REF TO cl_rs_struc,
        lo_data TYPE REF TO data.

  FIELD-SYMBOLS: <tabla> TYPE STANDARD TABLE,
                 <linea> TYPE any,
                 <campo> TYPE any.

  CREATE OBJECT ls_tab.

  CALL METHOD ls_tab->add_element
    EXPORTING
      i_sconame = 'SIGN'
      i_type    = 'CHAR01'.

  CALL METHOD ls_tab->add_element
    EXPORTING
      i_sconame = 'OPTION'
      i_type    = 'CHAR02'.

  CALL METHOD ls_tab->add_element
    EXPORTING
      i_sconame = 'LOW'
      i_type    = iv_data_element.

  CALL METHOD ls_tab->add_element
    EXPORTING
      i_sconame = 'HIGH'
      i_type    = iv_data_element.

  CALL METHOD ls_tab->create
    EXPORTING
      i_dynamic              = rs_c_false
    RECEIVING
      r_r_data               = lo_data
    EXCEPTIONS
      wrong_struc_definition = 1
      no_struc_definition    = 2
      OTHERS                 = 3.

  ASSIGN lo_data->* TO <linea>.
  CREATE DATA lo_data LIKE TABLE OF <linea>.
  ASSIGN lo_data->* TO <tabla>.

  REFRESH: et_range[].

  PERFORM f_get_set_data TABLES <tabla>
                          USING iv_set_name.
  MOVE <tabla>[] TO et_range[].

*&--------------------------------------------------------------*
*&      Form  F_GET_SET_DATA
*&--------------------------------------------------------------*
FORM f_get_set_data TABLES p_t_range
                     USING p_v_set.
  REFRESH: p_t_range[].
  SELECT  setleaf~valsign   AS sign
          setleaf~valoption AS option
          setleaf~valfrom   AS low
          setleaf~valto     AS high
  INTO CORRESPONDING FIELDS OF TABLE p_t_range
  FROM  setheader INNER JOIN setleaf
    ON  setleaf~setclass  EQ setheader~setclass
   AND  setleaf~subclass  EQ setheader~subclass
   AND  setleaf~setname   EQ setheader~setname
  WHERE setheader~setname EQ p_v_set.

ENDFORM.                    "f_get_set_data

4.- Utilización:

  RANGES: lr_auart FOR vbak-auart.

  REFRESH: lr_auart[].

  CALL FUNCTION 'ZCFCL_FILL_SET'
    EXPORTING
      iv_set_name     = 'ZCFCL_SD_AUART_KIT'
      iv_data_element = 'AUART'
    TABLES
      et_range        = lr_auart.

     En el rango "LR_AUART" tenemos los datos del set.