Login Daten Management

Code: Alles auswählen.

DATA : lr_proxy      TYPE REF TO proxy_class,
       ls_input      TYPE ddic_struc,
       ls_output     TYPE ddic_struc,
       lv_port_found TYPE abap_bool.

CONSTANTS: lc_proxy_class_name    TYPE c LENGTH 30 VALUE 'name_of_proxy_class',
           lc_port_user_prop_name TYPE c LENGTH 35 VALUE 'AuthenticationMethod.Basic.Username'.

CLEAR lv_port_found.

TRY.

    DATA(lo_query_handler) = cl_srt_public_factory=>get_query_handler( ).
    DATA(lt_ports) = lo_query_handler->get_lp_names( proxy_name = lc_proxy_class_name ).

    LOOP AT lt_ports ASSIGNING FIELD-SYMBOL(<ls_port>).

      DATA(lo_port_handler) = cl_srt_public_factory=>get_logical_port_handler( proxyclass = lc_proxy_class_name
                                                                               lp_name    = <ls_port> ).
      DATA(lt_port_properties) = lo_port_handler->get_properties( ).

      LOOP AT lt_port_properties ASSIGNING FIELD-SYMBOL(<ls_port_properties>).

        IF <ls_port_properties>-name-name = lc_port_user_prop_name.
          IF ls_user-username = <ls_port_properties>-value.
            lv_port_found = abap_true.
            EXIT.
          ENDIF.

        ENDIF.

      ENDLOOP.

      IF lv_port_found = abap_true.
        DATA(lv_port) = <ls_port>.
        EXIT.
      ENDIF.

    ENDLOOP.

    CREATE OBJECT lr_proxy
      EXPORTING
        logical_port_name = lv_port.

    CLEAR lr_proxy.


  CATCH cx_root.
    CLEAR lr_proxy.
ENDTRY.