Field symbols assign

    PERFORM existe_dominio USING    'gtd_dom_tratamiento'
                                    lwa_aspirante-trata
                           CHANGING p_lc_rpta.
    ls_error = 'No existe el tratamiento ingresado.'.
    CHECK p_lc_rpta = 'T'.

FORM existe_dominio USING    ps_tabla   TYPE c
                             pa_clave   TYPE any
                    CHANGING pc_rpta    TYPE c.
  FIELD-SYMBOLS:  LIKE gtd_dom_tratamiento.
  ASSIGN (ps_tabla) TO .
  READ TABLE  TRANSPORTING NO FIELDS
       WITH KEY domvalue_l = pa_clave.
  IF sy-subrc EQ 0.
    pc_rpta = 'T'.
  ELSE.
    pc_rpta = 'F'.
  ENDIF.
ENDFORM.                    "funcion