From 5b12359538158283fa5a45cb16cd2e73fe0d76b2 Mon Sep 17 00:00:00 2001
From: larshp <larshp@hotmail.com>
Date: Wed, 23 Nov 2016 17:41:51 +0000
Subject: [PATCH] VARCL fix

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

diff --git a/src/zabapgit_objects.prog.abap b/src/zabapgit_objects.prog.abap
index ebd7eff61..54933d711 100644
--- a/src/zabapgit_objects.prog.abap
+++ b/src/zabapgit_objects.prog.abap
@@ -1194,7 +1194,10 @@ CLASS lcl_objects_program IMPLEMENTATION.
       lcx_exception=>raise( 'PROG, error inserting' ).
     ENDIF.
 
-    IF is_progdir-varcl = space AND ls_progdir_new = abap_true.
+    SELECT SINGLE * FROM progdir INTO ls_progdir_new
+      WHERE name = ls_progdir_new-name
+      AND state = ls_progdir_new-state.
+    IF sy-subrc = 0 AND is_progdir-varcl = space AND ls_progdir_new-varcl = abap_true.
 * function module UPDATE_PROGDIR does not update VARCL
       UPDATE progdir SET varcl = is_progdir-varcl
         WHERE name = ls_progdir_new-name