From 72836670b987c5e45602366869f33f7fd707b638 Mon Sep 17 00:00:00 2001
From: larshp <larshp@hotmail.com>
Date: Tue, 4 Jul 2017 17:03:14 +0000
Subject: [PATCH] fix #806

---
 src/zabapgit_tadir.prog.abap | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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'