DATA: BEGIN OF SOURCE_TABLE OCCURS 0,
      LINE(150) TYPE C.
DATA: END OF SOURCE_TABLE.

DATA: NAME LIKE TRDIR-NAME.

NAME = 'Z_PROGRAM'.

READ REPORT NAME INTO SOURCE_TABLE.

LOOP AT SOURCE_TABLE.
WRITE:/ SOURCE_TABLE-LINE.
ENDLOOP.
 
 
Serkan AKKAVAK
Bilgisayar Mühendisi
serkurumsal@yandex.com