diff --git a/src/zabapgit_tadir.prog.abap b/src/zabapgit_tadir.prog.abap
index 8b678d823..b99a3bbe6 100644
--- a/src/zabapgit_tadir.prog.abap
+++ b/src/zabapgit_tadir.prog.abap
@@ -126,9 +126,9 @@ CLASS lcl_tadir IMPLEMENTATION.
 
   METHOD build.
 
-    DATA: lt_tadir    TYPE lif_defs=>ty_tadir_tt,
-          lt_tdevc    TYPE STANDARD TABLE OF tdevc,
-          lv_path     TYPE string.
+    DATA: lt_tadir TYPE lif_defs=>ty_tadir_tt,
+          lt_tdevc TYPE STANDARD TABLE OF tdevc,
+          lv_path  TYPE string.
 
     FIELD-SYMBOLS: <ls_tdevc> LIKE LINE OF lt_tdevc,
                    <ls_tadir> LIKE LINE OF rt_tadir.
@@ -137,6 +137,7 @@ CLASS lcl_tadir IMPLEMENTATION.
     SELECT * FROM tadir
       INTO CORRESPONDING FIELDS OF TABLE rt_tadir
       WHERE devclass = iv_package
+      AND pgmid = 'R3TR'
       AND object <> 'DEVC'
       AND object <> 'SOTR'
       AND object <> 'SFB1'