report
  z**_test_aba_1
  no standard page heading
  line-size 132.

type-pools:
  abap.

data:
  token,
  begin of itab occurs 0,
    mandt type mandt,
    index type i,
  end   of itab.


load-of-program.

  data lcl_abap_compiler type ref to cl_abap_compiler.
  create object lcl_abap_compiler
    exporting p_name = sy-cprog.

  data t_scr_refs type scr_refs.
  lcl_abap_compiler->get_all( importing p_result = t_scr_refs ).

  data lref type ref to scr_ref.
  read table t_scr_refs transporting no fields with key name = 'TOKEN'.
  add 1 to sy-tabix.
  read table t_scr_refs reference into lref index sy-tabix.

  write / lref->name.