From 982282240347017127f5de145fc8598de8e9af04 Mon Sep 17 00:00:00 2001
From: Christian Guenter <christianguenter@googlemail.com>
Date: Wed, 18 Jul 2018 10:55:08 +0000
Subject: [PATCH] VCLS: Fix - replace meth corr_insert( )

Replaces the call of corr_insert( ) with its own call of FM
RS_CORR_INSERT because the parameters used in corr_insert
aren't valid for VCLS
---
 src/objects/zcl_abapgit_object_vcls.clas.abap | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/src/objects/zcl_abapgit_object_vcls.clas.abap b/src/objects/zcl_abapgit_object_vcls.clas.abap
index b6b9f66a6..43dd72f30 100644
--- a/src/objects/zcl_abapgit_object_vcls.clas.abap
+++ b/src/objects/zcl_abapgit_object_vcls.clas.abap
@@ -70,7 +70,24 @@ CLASS ZCL_ABAPGIT_OBJECT_VCLS IMPLEMENTATION.
         vclstrudep_tab = lt_vclstrudep
         vclmf_tab      = lt_vclmf.
 
-    corr_insert( iv_package ).
+    CALL FUNCTION 'RS_CORR_INSERT'
+      EXPORTING
+        object              = ms_item-obj_name
+        object_class        = ms_item-obj_type
+        devclass            = iv_package
+        master_language     = mv_language
+        mode                = 'INSERT'
+        global_lock         = abap_true
+      EXCEPTIONS
+        cancelled           = 1
+        permission_failure  = 2
+        unknown_objectclass = 3
+        OTHERS              = 4.
+    IF sy-subrc = 1.
+      zcx_abapgit_exception=>raise( 'Cancelled' ).
+    ELSEIF sy-subrc <> 0.
+      zcx_abapgit_exception=>raise( 'error from RS_CORR_INSERT' ).
+    ENDIF.
 
     lv_objectname = ls_vcldir_entry-vclname.
     CALL FUNCTION 'OBJ_GENERATE'