From 786c845c0a7078dab3e432acf4655af11f7a35ce Mon Sep 17 00:00:00 2001
From: Christian Guenter <christianguenter@googlemail.com>
Date: Mon, 14 Aug 2017 20:04:23 +0000
Subject: [PATCH] add free area to delete

---
 src/zabapgit_object_shma.prog.abap | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/zabapgit_object_shma.prog.abap b/src/zabapgit_object_shma.prog.abap
index 994539262..0537a119f 100644
--- a/src/zabapgit_object_shma.prog.abap
+++ b/src/zabapgit_object_shma.prog.abap
@@ -167,6 +167,11 @@ CLASS lcl_object_shma IMPLEMENTATION.
           lcx_exception=>raise( |Error deleting SHMA { ms_item-obj_name }| ).
         ENDIF.
 
+        CALL METHOD ('\PROGRAM=SAPMSHM_MONITOR\CLASS=LCL_SHMM')=>('FREE_AREA_BY_NAME')
+          EXPORTING
+            area_name     = area_name
+            affect_server = cl_shm_area=>affect_all_servers.
+
         CREATE OBJECT lo_cts_if TYPE ('\FUNCTION-POOL=SHMA\CLASS=LCL_CTS_INTERFACE')
           EXPORTING
             area = area_name.