From 91a1608635868ff332a7db6d5c4aa14a32ba7662 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Christian=20G=C3=BCnter?= <christianguenter@googlemail.com>
Date: Sun, 8 Oct 2017 08:17:59 +0000
Subject: [PATCH] #966 PROG: force delete of used includes

---
 src/zabapgit_object_prog.prog.abap | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/src/zabapgit_object_prog.prog.abap b/src/zabapgit_object_prog.prog.abap
index 5e19022b3..1fac53228 100644
--- a/src/zabapgit_object_prog.prog.abap
+++ b/src/zabapgit_object_prog.prog.abap
@@ -84,19 +84,20 @@ CLASS lcl_object_prog IMPLEMENTATION.
 
     DATA: lv_program LIKE sy-repid.
 
-
     lv_program = ms_item-obj_name.
 
     CALL FUNCTION 'RS_DELETE_PROGRAM'
       EXPORTING
-        program            = lv_program
-        suppress_popup     = abap_true
+        program                    = lv_program
+        suppress_popup             = abap_true
+        force_delete_used_includes = abap_true
       EXCEPTIONS
-        enqueue_lock       = 1
-        object_not_found   = 2
-        permission_failure = 3
-        reject_deletion    = 4
-        OTHERS             = 5.
+        enqueue_lock               = 1
+        object_not_found           = 2
+        permission_failure         = 3
+        reject_deletion            = 4
+        OTHERS                     = 5.
+
     IF sy-subrc <> 0.
       zcx_abapgit_exception=>raise( |Error from RS_DELETE_PROGRAM: { sy-subrc }| ).
     ENDIF.