From 4fbfbf06037ea6c20a645f3319d40e8757ed0cfc Mon Sep 17 00:00:00 2001
From: larshp <larshp@hotmail.com>
Date: Sun, 21 Jan 2018 07:02:42 +0000
Subject: [PATCH] TADIR, CHECK_EXISTS, add progress indicator #1148

TADIR, CHECK_EXISTS, add progress indicator #1148
---
 src/zabapgit_tadir.prog.abap | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/src/zabapgit_tadir.prog.abap b/src/zabapgit_tadir.prog.abap
index 7f65c77a8..ae982eb49 100644
--- a/src/zabapgit_tadir.prog.abap
+++ b/src/zabapgit_tadir.prog.abap
@@ -175,15 +175,24 @@ CLASS lcl_tadir IMPLEMENTATION.
 
   METHOD check_exists.
 
-    DATA: lv_exists TYPE abap_bool,
-          ls_item   TYPE zif_abapgit_definitions=>ty_item.
+    DATA: lv_exists   TYPE abap_bool,
+          lo_progress TYPE REF TO zcl_abapgit_progress,
+          ls_item     TYPE zif_abapgit_definitions=>ty_item.
 
     FIELD-SYMBOLS: <ls_tadir> LIKE LINE OF it_tadir.
 
 
+    CREATE OBJECT lo_progress
+      EXPORTING
+        iv_total = lines( it_tadir ).
+
 * rows from database table TADIR are not removed for
 * transportable objects until the transport is released
     LOOP AT it_tadir ASSIGNING <ls_tadir>.
+      lo_progress->show(
+        iv_current = sy-tabix
+        iv_text    = |Check object exists { <ls_tadir>-object } { <ls_tadir>-obj_name }| ).
+
       ls_item-obj_type = <ls_tadir>-object.
       ls_item-obj_name = <ls_tadir>-obj_name.
       ls_item-devclass = <ls_tadir>-devclass.