TYPES:  BEGIN OF st_code,
          progname  TYPE reposrc-progname,  "KEY: tadir-obj_name,
          r3state   TYPE reposrc-r3state,   "KEY: ABAP: статус программы (активно, сохранено, перенесено...)
          versdata  TYPE sy-datum,
          verstime  TYPE sy-uzeit,
          line_num  TYPE i.                 "KEY
        INCLUDE STRUCTURE abaptxt255.
TYPES:  END OF st_code.

"таблица 'Перечень программ' (заголовки)
DATA it_src TYPE STANDARD TABLE OF reposrc.
DATA wa_src LIKE LINE OF it_src.

"таблица 'Строки кода программ' (позиции)
DATA it_code  TYPE STANDARD TABLE OF st_code.
DATA wa_code  LIKE LINE OF it_code.

DATA it_abap  TYPE abaptxt255_tab.
DATA wa_abap  LIKE LINE OF it_abap.

"эти два поля как бы играют роль "номера версии"
DATA versdata  TYPE sy-datum.
DATA verstime  TYPE sy-uzeit.

DATA abaplines_cnt TYPE i.


START-OF-SELECTION.

  versdata = sy-datum.
  verstime = sy-uzeit.

  SELECT * FROM reposrc INTO TABLE it_src
      WHERE ( progname LIKE 'Z%' OR progname LIKE 'SAPLZ%' OR progname LIKE 'LZ%' )
        "AND cnam = '<ваш имя пользователя>' "создатель
        AND unam = 'IVANOV' "изменятель
        "AND progname = 'Z...'
        .

  SORT it_src BY progname r3state.
  LOOP AT it_src INTO wa_src.

    READ REPORT wa_src-progname INTO it_abap.

    LOOP AT it_abap INTO wa_abap.
      CLEAR wa_code.
      wa_code-line_num = sy-tabix.
      wa_code-progname = wa_src-progname.
      wa_code-r3state  = wa_src-r3state.
      wa_code-versdata = versdata.
      wa_code-verstime = verstime.
      wa_code-line     = wa_abap-line.
      APPEND wa_code TO it_code.
    ENDLOOP.

  ENDLOOP.

  abaplines_cnt = LINES( it_code ).
  WRITE: / abaplines_cnt.

  "и далее слив таблиц it_src и it_code в Excel

REPORT ZSHOW_CLIF_INCLUDES.

Parameters:
  p_Class type seoclsname.
Submit SEO_SHOW_CLIF_INCLUDES
  with p_class = p_Class.