*- Plant Code.
  PERFORM GET_USER_PARAMETERS USING    'WRK'
                              CHANGING ZTABLE-WERKS.

  FORM get_user_parameters  USING   pv_parid
                          CHANGING pv_filed.

  DATA : lt_param LIKE usparam OCCURS 0 WITH HEADER LINE.

  CLEAR: lt_param,   lt_param[].
  CALL FUNCTION 'S_TWB_U_GET_USER_PARAMETERS'
    EXPORTING
      user_name          = sy-uname
    TABLES
      set_get_parameters = lt_param.

  READ TABLE lt_param WITH KEY parid = pv_parid BINARY SEARCH.
  IF  sy-subrc EQ 0.
    pv_filed  = lt_param-parva.
  ENDIF.

ENDFORM.                    " GET_USER_PARAMETERS