REPORT z_barry_send_message NO STANDARD PAGE HEADING LINE-SIZE 120 .
INCLUDE <list>.
DATA: BEGIN OF usr_tabl OCCURS 0.
INCLUDE STRUCTURE uinfo.
DATA: END OF usr_tabl.
DATA: l_length TYPE i,
t_abaplist LIKE abaplist OCCURS 0 WITH HEADER LINE.
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 ……