From bd8f75537f256e0e79829d0fca35e05894557712 Mon Sep 17 00:00:00 2001
From: Abo <andrea@borgia.bo.it>
Date: Sat, 10 Jul 2021 17:30:23 +0200
Subject: [PATCH] remove usage of CHAR10 domain (#777)

WIP #692
---
 src/zcl_excel.clas.abap        | 2 +-
 src/zcl_excel_common.clas.abap | 5 +++--
 src/zexcel_fill.dtel.xml       | 5 +++--
 src/zexcel_font.dtel.xml       | 5 +++--
 4 files changed, 10 insertions(+), 7 deletions(-)

diff --git a/src/zcl_excel.clas.abap b/src/zcl_excel.clas.abap
index 0366a3d..8c56788 100644
--- a/src/zcl_excel.clas.abap
+++ b/src/zcl_excel.clas.abap
@@ -151,7 +151,7 @@ protected section.
   data WORKSHEETS type ref to ZCL_EXCEL_WORKSHEETS .
 private section.
 
-  constants VERSION type CHAR10 value '7.2.0'. "#EC NOTEXT
+  constants VERSION type C length 10 value '7.2.0'. "#EC NOTEXT
   data AUTOFILTERS type ref to ZCL_EXCEL_AUTOFILTERS .
   data CHARTS type ref to ZCL_EXCEL_DRAWINGS .
   data DEFAULT_STYLE type ZEXCEL_CELL_STYLE .
diff --git a/src/zcl_excel_common.clas.abap b/src/zcl_excel_common.clas.abap
index 7bc79ac..fb4a6ef 100644
--- a/src/zcl_excel_common.clas.abap
+++ b/src/zcl_excel_common.clas.abap
@@ -127,13 +127,14 @@ public section.
     returning
       value(EP_VALUE) type ZEXCEL_CELL_VALUE .
   type-pools ABAP .
+  types: t_char10 type c length 10.
   class-methods SPLIT_FILE
     importing
       !IP_FILE type TEXT255
     exporting
       !EP_FILE type TEXT255
-      !EP_EXTENSION type CHAR10
-      !EP_DOTEXTENSION type CHAR10 .
+      !EP_EXTENSION type t_char10
+      !EP_DOTEXTENSION type t_char10 .
   class-methods CALCULATE_CELL_DISTANCE
     importing
       !IV_REFERENCE_CELL type CLIKE
diff --git a/src/zexcel_fill.dtel.xml b/src/zexcel_fill.dtel.xml
index c33e8f3..6ca3e74 100644
--- a/src/zexcel_fill.dtel.xml
+++ b/src/zexcel_fill.dtel.xml
@@ -5,7 +5,6 @@
    <DD04V>
     <ROLLNAME>ZEXCEL_FILL</ROLLNAME>
     <DDLANGUAGE>E</DDLANGUAGE>
-    <DOMNAME>CHAR10</DOMNAME>
     <HEADLEN>04</HEADLEN>
     <SCRLEN1>04</SCRLEN1>
     <SCRLEN2>04</SCRLEN2>
@@ -16,7 +15,9 @@
     <SCRTEXT_M>Font</SCRTEXT_M>
     <SCRTEXT_L>Font</SCRTEXT_L>
     <DTELMASTER>E</DTELMASTER>
-    <REFKIND>D</REFKIND>
+    <DATATYPE>CHAR</DATATYPE>
+    <LENG>000010</LENG>
+    <OUTPUTLEN>000010</OUTPUTLEN>
    </DD04V>
   </asx:values>
  </asx:abap>
diff --git a/src/zexcel_font.dtel.xml b/src/zexcel_font.dtel.xml
index 74ea83e..4074869 100644
--- a/src/zexcel_font.dtel.xml
+++ b/src/zexcel_font.dtel.xml
@@ -5,7 +5,6 @@
    <DD04V>
     <ROLLNAME>ZEXCEL_FONT</ROLLNAME>
     <DDLANGUAGE>E</DDLANGUAGE>
-    <DOMNAME>CHAR10</DOMNAME>
     <HEADLEN>04</HEADLEN>
     <SCRLEN1>04</SCRLEN1>
     <SCRLEN2>04</SCRLEN2>
@@ -16,7 +15,9 @@
     <SCRTEXT_M>Font</SCRTEXT_M>
     <SCRTEXT_L>Font</SCRTEXT_L>
     <DTELMASTER>E</DTELMASTER>
-    <REFKIND>D</REFKIND>
+    <DATATYPE>CHAR</DATATYPE>
+    <LENG>000010</LENG>
+    <OUTPUTLEN>000010</OUTPUTLEN>
    </DD04V>
   </asx:values>
  </asx:abap>