From 9a3c97d58103141a4a1386c2e04e42ba72e22a6d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Christian=20G=C3=BCnter?= <christianguenter@googlemail.com>
Date: Thu, 26 Oct 2017 09:53:04 +0000
Subject: [PATCH] Fix bug WEBI output parameter

---
 src/zabapgit_object_webi.prog.abap | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/src/zabapgit_object_webi.prog.abap b/src/zabapgit_object_webi.prog.abap
index 4c5d35dc2..a69100167 100644
--- a/src/zabapgit_object_webi.prog.abap
+++ b/src/zabapgit_object_webi.prog.abap
@@ -179,6 +179,11 @@ CLASS lcl_object_webi IMPLEMENTATION.
 
   METHOD handle_function.
 
+    CONSTANTS: BEGIN OF co_parameter_type,
+                 import TYPE vepparamtype VALUE 'I',
+                 export TYPE vepparamtype VALUE 'O',
+               END OF co_parameter_type.
+
     DATA: li_parameter TYPE REF TO if_ws_md_vif_param,
           li_soap      TYPE REF TO if_ws_md_soap_ext_func,
           li_fault     TYPE REF TO if_ws_md_vif_fault,
@@ -205,16 +210,22 @@ CLASS lcl_object_webi IMPLEMENTATION.
 
       LOOP AT is_webi-pvepparameter ASSIGNING <ls_parameter>
           WHERE function = <ls_function>-function.
+
         CASE <ls_parameter>-vepparamtype.
-          WHEN 'I'.
+          WHEN co_parameter_type-import.
+
             li_parameter = li_function->create_incoming_parameter(
               <ls_parameter>-vepparam ).
-          WHEN 'E'.
+
+          WHEN co_parameter_type-export.
+
             li_parameter = li_function->create_outgoing_parameter(
               <ls_parameter>-vepparam ).
+
           WHEN OTHERS.
             ASSERT 0 = 1.
         ENDCASE.
+
         li_parameter->set_name_mapped_to( <ls_parameter>-mappedname ).
         li_parameter->set_is_exposed( <ls_parameter>-is_exposed ).
         li_parameter->set_is_optional( <ls_parameter>-is_optional ).