*&---------------------------------------------------------------------*
*& List
*&---------------------------------------------------------------------*
INITIALIZATION.
DATA:lt_para TYPE ustyp_t_parameters.
CALL FUNCTION 'SUSR_USER_READ'
EXPORTING
user_name = sy-uname
with_text = 'X'
TABLES
user_parameters = lt_para
EXCEPTIONS
user_name_not_exists = 1
internal_error = 2
OTHERS = 3.
IF sy-subrc EQ 0.
READ TABLE lt_para INTO DATA(wa_para) WITH KEY
parid = 'BUK'.
IF sy-subrc EQ 0.
s_bukrs-sign = 'I'.
s_bukrs-option = 'EQ'.
s_bukrs-low = wa_para-parva.
APPEND s_bukrs.
ENDIF.
ENDIF.