Schlagwort: spfpflpar-parname

* 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.