From 47e70827473b5d7d5eda7601290bad6cdab86682 Mon Sep 17 00:00:00 2001
From: larshp <larshp@hotmail.com>
Date: Thu, 5 Jan 2017 06:33:04 +0000
Subject: [PATCH] CLAS   SMIM   VCLS: minor fixes

---
 src/zabapgit_object_clas.prog.abap |  2 +-
 src/zabapgit_object_smim.prog.abap |  2 +-
 src/zabapgit_object_vcls.prog.abap | 10 ++++++++--
 3 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/src/zabapgit_object_clas.prog.abap b/src/zabapgit_object_clas.prog.abap
index f75117961..1adb24ba0 100644
--- a/src/zabapgit_object_clas.prog.abap
+++ b/src/zabapgit_object_clas.prog.abap
@@ -770,7 +770,7 @@ CLASS lcl_object_clas IMPLEMENTATION.
     ELSEIF lines( rt_source ) = 1.
       READ TABLE rt_source INDEX 1 INTO lv_line1.
       ASSERT sy-subrc = 0.
-      IF lv_line1(3) = '*"*' OR lv_line1 IS INITIAL.
+      IF lv_line1 IS INITIAL OR lv_line1(3) = '*"*'.
         mv_skip_testclass = abap_true.
       ENDIF.
     ELSEIF lines( rt_source ) = 0.
diff --git a/src/zabapgit_object_smim.prog.abap b/src/zabapgit_object_smim.prog.abap
index b03edb856..109ace172 100644
--- a/src/zabapgit_object_smim.prog.abap
+++ b/src/zabapgit_object_smim.prog.abap
@@ -191,7 +191,7 @@ CLASS lcl_object_smim IMPLEMENTATION.
           not_found          = 3
           permission_failure = 4
           OTHERS             = 5 ).
-      IF sy-subrc <> 0.
+      IF sy-subrc <> 0 AND sy-subrc <> 3.
         lcx_exception=>raise( 'error from mime api->get:' && sy-msgv1 ).
       ENDIF.
 
diff --git a/src/zabapgit_object_vcls.prog.abap b/src/zabapgit_object_vcls.prog.abap
index 0fad2048b..05094edfd 100644
--- a/src/zabapgit_object_vcls.prog.abap
+++ b/src/zabapgit_object_vcls.prog.abap
@@ -39,13 +39,19 @@ CLASS lcl_object_vcls IMPLEMENTATION.
   ENDMETHOD.                    "lif_object~get_metadata
 
   METHOD lif_object~exists.
-    DATA lv_vclname TYPE vcl_name.
 
-    SELECT SINGLE vclname INTO lv_vclname FROM vcldir
+    DATA lv_changedate TYPE vcldir-changedate.
+
+    SELECT SINGLE changedate INTO lv_changedate FROM vcldir
       WHERE vclname = ms_item-obj_name.
 
     rv_bool = boolc( sy-subrc = 0 ).
 
+    IF lv_changedate IS INITIAL.
+* same logic as in function module VIEWCLUSTER_GET_DEFINITION
+      rv_bool = abap_false.
+    ENDIF.
+
   ENDMETHOD.                    "lif_object~exists
 
   METHOD lif_object~serialize.