WHO IS USING THIS TCODE

*&---------------------------------------------------------------------*
*& Report  Z_BARRY_TCODE_USER
*&
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*

REPORT  Z_BARRY_WHO_USE_THIS_TCODE NO STANDARD PAGE HEADING.
TABLES: tstc,tstct.

DATA opcode TYPE x.
DATA: BEGIN OF itab OCCURS 10.
        INCLUDE STRUCTURE uinfo2.
DATA: END OF itab.

SELECT-OPTIONS: s_tcode FOR tstc-tcode.

START-OF-SELECTION.

  opcode = 32.
  CALL FUNCTION 'TH_LONG_USR_INFO'
    EXPORTING
      user      = '*'
    TABLES
      user_info = itab.
  DELETE itab WHERE NOT tcode IN s_tcode.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_structure_name = 'UINFO2'
    TABLES
      t_outtab         = itab
    EXCEPTIONS
      program_error    = 1
      OTHERS           = 2.
  FREE MEMORY.