REPORT  zz_jodoe_test                           .
TABLES: tgsbt.
DATA: x TYPE syuname.
DATA ztgsbt LIKE tgsbt OCCURS 10 WITH HEADER LINE.

PARAMETER name TYPE syuname.

START-OF-SELECTION.

SELECT * FROM tgsbt INTO TABLE ztgsbt.
  x = sy-uname.

  sy-uname = name.

  LOOP AT ztgsbt.
    AUTHORITY-CHECK OBJECT 'ZENERGCONT'
             ID 'GSBER' FIELD ztgsbt-gsber.
    IF sy-subrc = '0'.
      WRITE: sy-uname, ztgsbt-gsber.
    ENDIF.
  ENDLOOP.
  sy-uname = x.