You can do something like this :
data :
BEGIN OF t_user OCCURS 0,
counter TYPE i,
selection TYPE c,
mandt LIKE sy-mandt,
bname LIKE sy-uname,
name_first LIKE v_adrp_cp-name_first,
name_last LIKE v_adrp_cp-name_last,
department LIKE v_adrp_cp-department,
tel_number LIKE v_adrp_cp-tel_number,
END OF t_user,
l_client LIKE sy-mandt,
l_userid LIKE uinfo-bname,
l_opcode TYPE x,
l_funct_code(1) TYPE c,
l_test(200) TYPE c.
l_opcode = 2.
CALL 'ThUsrInfo' ID 'OPCODE' FIELD l_opcode
ID 'TAB' FIELD usr_tabl-sys.
CLEAR t_user. REFRESH t_user.
LOOP AT usr_tabl.
t_user-mandt = usr_tabl-mandt.
t_user-bname = usr_tabl-bname.
APPEND t_user.
ENDLOOP.
SORT t_user.
DELETE ADJACENT DUPLICATES FROM t_user.
LOOP AT t_user.
t_user-counter = sy-tabix.
SELECT v~name_first
v~name_last
v~department
v~tel_number
INTO (t_user-name_first,
t_user-name_last,
t_user-department,
t_user-tel_number)
FROM usr21 AS u
JOIN v_adrp_cp AS v
ON upersnumber = vpersnumber AND
uaddrnumber = vaddrnumber
WHERE u~bname = t_user-bname.
ENDSELECT.
MODIFY t_user.
ENDLOOP.
SORT t_user BY name_last name_first.
table t_user now contains all the user details
Bluesky
