From ca8c9faccd3feadb9ecf929ef1bad9bd66b9c2ca Mon Sep 17 00:00:00 2001 From: larshp Date: Sun, 6 Mar 2016 10:35:51 +0000 Subject: [PATCH] move abapGit to new abapGit --- zabapgit.prog.abap | 8 ++- zabapgit.prog.xml | 127 ++++++++++++++++++++++++--------------------- 2 files changed, 74 insertions(+), 61 deletions(-) diff --git a/zabapgit.prog.abap b/zabapgit.prog.abap index 56fdd6437..da43a0e8c 100644 --- a/zabapgit.prog.abap +++ b/zabapgit.prog.abap @@ -1740,7 +1740,8 @@ CLASS lcl_xml_output DEFINITION FINAL INHERITING FROM lcl_xml CREATE PUBLIC. METHODS: add IMPORTING iv_name TYPE clike - ig_data TYPE any, + ig_data TYPE any + RAISING lcx_exception, render IMPORTING iv_normalize TYPE sap_bool DEFAULT abap_true RETURNING VALUE(rv_xml) TYPE string. @@ -1759,6 +1760,11 @@ CLASS lcl_xml_output IMPLEMENTATION. ASSERT NOT iv_name IS INITIAL. + READ TABLE mt_stab WITH KEY name = iv_name TRANSPORTING NO FIELDS. + IF sy-subrc = 0. + _raise 'XML mt_stab name already exists'. + ENDIF. + APPEND INITIAL LINE TO mt_stab ASSIGNING . -name = iv_name. GET REFERENCE OF ig_data INTO -value. diff --git a/zabapgit.prog.xml b/zabapgit.prog.xml index 280a42a6b..0dcf5e580 100644 --- a/zabapgit.prog.xml +++ b/zabapgit.prog.xml @@ -1,62 +1,69 @@  - - - ZABAPGIT - A - - - X - S - - - - - 1 - - - - 00000000 - - 00000000 - - - - - - X - - 00000000 - - 00000000 - - D$S - X - - - - - - - - - - - - - - - - - - - - - - - R - - abapGit - 7 - - + + + + + ZABAPGIT + A + + + X + S + + + + + 1 + + + + 0000-00-00 + + 0000-00-00 + + + + + + X + + 0000-00-00 + + 0000-00-00 + + D$S + X + + + + + + + + + + + + + + + + + + + + + + + + + + R + + abapGit + 7 + + + +