ABAP Prog Propios LUSERS

  1. REPORT ZNADAR_PERSO line-size 255.
  2.  
  3. tables: adrp, usr21.
  4. data: txt(123).
  5. data: begin of itab occurs 0,
  6.         bname      like usr21-bname,
  7.         name_first like adrp-name_first,
  8.         name_last  like adrp-name_last,
  9.         txt(123),
  10.       end of itab.
  11.  
  12. end-of-selection.
  13.  
  14. SELECT F~bname P~name_first p~name_last
  15.     INTO corresponding fields of table itab
  16.     FROM usr21 AS F INNER JOIN adrp AS P ON F~PERSNUMBER = P~PERSNUMBER.
  17.  
  18. sort itab by NAME_FIRST name_last.
  19. loop at itab.
  20.   translate itab-name_first      to lower case.
  21.   translate itab-name_first+0(1) to upper case.
  22.   translate itab-name_last       to lower case.
  23.   translate itab-name_last+0(1)  to upper case.
  24.   modify itab.
  25. endloop.
  26. uline /001(65).
  27. loop at itab.
  28.      concatenate itab-NAME_FIRST itab-NAME_LAST into itab-txt
  29.      separated by ' '.
  30.      condense itab-txt.
  31.      check not itab-txt is initial.
  32.      write: / sy-vline, itab-bname, sy-vline, itab-txt, at 65 sy-vline.
  33. endloop.
  34. uline /001(65).
[$[Get Code]]