[ABAP] Alle ungesperrten Dialoguser auflisten

DATA: it_sel_range TYPE STANDARD TABLE OF bapiussrge.
DATA: it_users TYPE STANDARD TABLE OF bapiusname.
DATA: it_ret TYPE STANDARD TABLE OF bapiret2.

* ungesperrte Dialoguser ermitteln
INSERT VALUE #( parameter = 'LOGONDATA'
                field = 'USTYP'
                sign = 'I'
                option = 'EQ'
                low = 'A'
                high = '' ) INTO TABLE it_sel_range.

INSERT VALUE #( parameter = 'LOGONDATA'
                field = 'UFLAG'
                sign = 'I'
                option = 'EQ'
                low = '0'
                high = '' ) INTO TABLE it_sel_range.

CALL FUNCTION 'BAPI_USER_GETLIST'
  EXPORTING
    with_username   = abap_true
  TABLES
    selection_range = it_sel_range
    userlist        = it_users
    return          = it_ret.

LOOP AT it_users ASSIGNING FIELD-SYMBOL(<fs_line>).
  WRITE: / <fs_line>-username, <fs_line>-firstname, <fs_line>-lastname, <fs_line>-fullname.
ENDLOOP.