* im System vorhandene Profilparameter auflisten
DATA: it_parameters TYPE spfl_parameter_list_t.
IF cl_spfl_profile_parameter=>get_all_parameter( IMPORTING parameter_sub = it_parameters ) = 0.
LOOP AT it_parameters ASSIGNING FIELD-SYMBOL(<p>).
WRITE: / <p>-name, <p>-user_value, <p>-default_value, <p>-state.
ENDLOOP.
ENDIF.
* Metadaten zu allen im System vorhandenen Profilparameter auflisten
DATA: it_parameters TYPE spfl_parameter_metadata_list_t.
IF cl_spfl_profile_parameter=>get_all_metadata( IMPORTING metadata = it_parameters ) = 0.
LOOP AT it_parameters ASSIGNING FIELD-SYMBOL(<p>).
WRITE: / <p>-name, <p>-type, <p>-unit, <p>-pgroup, <p>-is_system.
ENDLOOP.
ENDIF.
* einen Profilparameter auslesen
PARAMETERS: p_ppar TYPE spfpflpar-parname DEFAULT 'login/min_password_lng'.
START-OF-SELECTION.
DATA(lv_ppar_value) = VALUE spfpflpar-pvalue( ).
CALL FUNCTION 'RSAN_SYSTEM_PARAMETER_READ'
EXPORTING
i_name = p_ppar
IMPORTING
e_value = lv_ppar_value
EXCEPTIONS
read_error = 1
OTHERS = 2.
IF sy-subrc = 0.
WRITE: / p_ppar, ':', lv_ppar_value.
ELSE.
WRITE: / 'Error:', sy-subrc.
ENDIF.