From a785bcdb99d82d72439933b739dda05369c063bd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Christian=20G=C3=BCnter?= Date: Sat, 2 May 2020 16:51:52 +0200 Subject: [PATCH] DDLS: Ignore baseinfo file not exists error (#3334) MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Co-authored-by: Christian Günter --- src/objects/zcl_abapgit_object_ddls.clas.abap | 21 ++++++++++++++++++- 1 file changed, 20 insertions(+), 1 deletion(-) diff --git a/src/objects/zcl_abapgit_object_ddls.clas.abap b/src/objects/zcl_abapgit_object_ddls.clas.abap index 0df5abfcb..dd07d86a1 100644 --- a/src/objects/zcl_abapgit_object_ddls.clas.abap +++ b/src/objects/zcl_abapgit_object_ddls.clas.abap @@ -13,6 +13,9 @@ CLASS zcl_abapgit_object_ddls DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje METHODS is_baseinfo_supported RETURNING VALUE(rv_supported) TYPE abap_bool . + METHODS read_baseinfo + RETURNING + VALUE(rv_baseinfo_string) TYPE string. ENDCLASS. @@ -196,7 +199,8 @@ CLASS ZCL_ABAPGIT_OBJECT_DDLS IMPLEMENTATION. ASSIGN COMPONENT 'BASEINFO_STRING' OF STRUCTURE TO . ASSERT sy-subrc = 0. - = mo_files->read_string( 'baseinfo' ) ##no_text. + + = read_baseinfo( ). ASSIGN COMPONENT 'DDLNAME' OF STRUCTURE TO . ASSERT sy-subrc = 0. @@ -410,4 +414,19 @@ CLASS ZCL_ABAPGIT_OBJECT_DDLS IMPLEMENTATION. ig_data = ). ENDMETHOD. + + + METHOD read_baseinfo. + + TRY. + rv_baseinfo_string = mo_files->read_string( 'baseinfo' ) ##no_text. + + CATCH zcx_abapgit_exception. + " File not found. That's ok, as the object could have been created in a + " system where baseinfo wasn't supported. + RETURN. + ENDTRY. + + ENDMETHOD. + ENDCLASS.