From a959c0c69ae9a3bb07a4b7d442d8608444239142 Mon Sep 17 00:00:00 2001
From: Abo <andrea@borgia.bo.it>
Date: Sat, 9 Oct 2021 19:54:19 +0200
Subject: [PATCH] remove uses of CHAR20 ( WIP #692 ) (#846)

both DTEL and "STRU"

Co-authored-by: sandraros <34005250+sandraros@users.noreply.github.com>
---
 src/zexcel_condition_operator.dtel.xml     | 5 +++--
 src/zexcel_condition_rule.dtel.xml         | 5 +++--
 src/zexcel_condition_rule_iconset.dtel.xml | 5 +++--
 src/zexcel_s_style_font.tabl.xml           | 8 ++++++--
 src/zexcel_sheet_orienatation.dtel.xml     | 5 +++--
 src/zexcel_style_font_scheme.dtel.xml      | 5 +++--
 src/zexcel_style_font_underline.dtel.xml   | 5 +++--
 7 files changed, 24 insertions(+), 14 deletions(-)

diff --git a/src/zexcel_condition_operator.dtel.xml b/src/zexcel_condition_operator.dtel.xml
index 4fe6b2d..e2a8289 100644
--- a/src/zexcel_condition_operator.dtel.xml
+++ b/src/zexcel_condition_operator.dtel.xml
@@ -5,7 +5,6 @@
    <DD04V>
     <ROLLNAME>ZEXCEL_CONDITION_OPERATOR</ROLLNAME>
     <DDLANGUAGE>E</DDLANGUAGE>
-    <DOMNAME>CHAR20</DOMNAME>
     <HEADLEN>20</HEADLEN>
     <SCRLEN1>10</SCRLEN1>
     <SCRLEN2>18</SCRLEN2>
@@ -16,7 +15,9 @@
     <SCRTEXT_M>Condition operator</SCRTEXT_M>
     <SCRTEXT_L>Condition operator</SCRTEXT_L>
     <DTELMASTER>E</DTELMASTER>
-    <REFKIND>D</REFKIND>
+    <DATATYPE>CHAR</DATATYPE>
+    <LENG>000020</LENG>
+    <OUTPUTLEN>000020</OUTPUTLEN>
    </DD04V>
   </asx:values>
  </asx:abap>
diff --git a/src/zexcel_condition_rule.dtel.xml b/src/zexcel_condition_rule.dtel.xml
index bc5b3ef..1da441e 100644
--- a/src/zexcel_condition_rule.dtel.xml
+++ b/src/zexcel_condition_rule.dtel.xml
@@ -5,7 +5,6 @@
    <DD04V>
     <ROLLNAME>ZEXCEL_CONDITION_RULE</ROLLNAME>
     <DDLANGUAGE>E</DDLANGUAGE>
-    <DOMNAME>CHAR20</DOMNAME>
     <HEADLEN>20</HEADLEN>
     <SCRLEN1>10</SCRLEN1>
     <SCRLEN2>15</SCRLEN2>
@@ -16,7 +15,9 @@
     <SCRTEXT_M>Condition rule</SCRTEXT_M>
     <SCRTEXT_L>Condition rule</SCRTEXT_L>
     <DTELMASTER>E</DTELMASTER>
-    <REFKIND>D</REFKIND>
+    <DATATYPE>CHAR</DATATYPE>
+    <LENG>000020</LENG>
+    <OUTPUTLEN>000020</OUTPUTLEN>
    </DD04V>
   </asx:values>
  </asx:abap>
diff --git a/src/zexcel_condition_rule_iconset.dtel.xml b/src/zexcel_condition_rule_iconset.dtel.xml
index a92551f..6712a9e 100644
--- a/src/zexcel_condition_rule_iconset.dtel.xml
+++ b/src/zexcel_condition_rule_iconset.dtel.xml
@@ -5,7 +5,6 @@
    <DD04V>
     <ROLLNAME>ZEXCEL_CONDITION_RULE_ICONSET</ROLLNAME>
     <DDLANGUAGE>E</DDLANGUAGE>
-    <DOMNAME>CHAR20</DOMNAME>
     <HEADLEN>22</HEADLEN>
     <SCRLEN1>10</SCRLEN1>
     <SCRLEN2>18</SCRLEN2>
@@ -16,7 +15,9 @@
     <SCRTEXT_M>Cond. rule iconset</SCRTEXT_M>
     <SCRTEXT_L>Condition rule iconset</SCRTEXT_L>
     <DTELMASTER>E</DTELMASTER>
-    <REFKIND>D</REFKIND>
+    <DATATYPE>CHAR</DATATYPE>
+    <LENG>000020</LENG>
+    <OUTPUTLEN>000020</OUTPUTLEN>
    </DD04V>
   </asx:values>
  </asx:abap>
diff --git a/src/zexcel_s_style_font.tabl.xml b/src/zexcel_s_style_font.tabl.xml
index bee2e09..2bd8c1b 100644
--- a/src/zexcel_s_style_font.tabl.xml
+++ b/src/zexcel_s_style_font.tabl.xml
@@ -36,9 +36,13 @@
     </DD03P>
     <DD03P>
      <FIELDNAME>UNDERLINE_MODE</FIELDNAME>
-     <ROLLNAME>CHAR20</ROLLNAME>
      <ADMINFIELD>0</ADMINFIELD>
-     <COMPTYPE>E</COMPTYPE>
+     <INTTYPE>C</INTTYPE>
+     <INTLEN>000040</INTLEN>
+     <DATATYPE>CHAR</DATATYPE>
+     <LENG>000020</LENG>
+     <MASK>  CHAR</MASK>
+     <DDTEXT>Underline mode</DDTEXT>
     </DD03P>
     <DD03P>
      <FIELDNAME>STRIKETHROUGH</FIELDNAME>
diff --git a/src/zexcel_sheet_orienatation.dtel.xml b/src/zexcel_sheet_orienatation.dtel.xml
index fab90f4..e22d489 100644
--- a/src/zexcel_sheet_orienatation.dtel.xml
+++ b/src/zexcel_sheet_orienatation.dtel.xml
@@ -5,7 +5,6 @@
    <DD04V>
     <ROLLNAME>ZEXCEL_SHEET_ORIENATATION</ROLLNAME>
     <DDLANGUAGE>E</DDLANGUAGE>
-    <DOMNAME>CHAR20</DOMNAME>
     <HEADLEN>20</HEADLEN>
     <SCRLEN1>10</SCRLEN1>
     <SCRLEN2>17</SCRLEN2>
@@ -16,7 +15,9 @@
     <SCRTEXT_M>Sheet orientation</SCRTEXT_M>
     <SCRTEXT_L>Sheet orientation</SCRTEXT_L>
     <DTELMASTER>E</DTELMASTER>
-    <REFKIND>D</REFKIND>
+    <DATATYPE>CHAR</DATATYPE>
+    <LENG>000020</LENG>
+    <OUTPUTLEN>000020</OUTPUTLEN>
    </DD04V>
   </asx:values>
  </asx:abap>
diff --git a/src/zexcel_style_font_scheme.dtel.xml b/src/zexcel_style_font_scheme.dtel.xml
index b332805..1444b94 100644
--- a/src/zexcel_style_font_scheme.dtel.xml
+++ b/src/zexcel_style_font_scheme.dtel.xml
@@ -5,7 +5,6 @@
    <DD04V>
     <ROLLNAME>ZEXCEL_STYLE_FONT_SCHEME</ROLLNAME>
     <DDLANGUAGE>E</DDLANGUAGE>
-    <DOMNAME>CHAR20</DOMNAME>
     <HEADLEN>20</HEADLEN>
     <SCRLEN1>10</SCRLEN1>
     <SCRLEN2>15</SCRLEN2>
@@ -16,7 +15,9 @@
     <SCRTEXT_M>Font scheme</SCRTEXT_M>
     <SCRTEXT_L>Font scheme</SCRTEXT_L>
     <DTELMASTER>E</DTELMASTER>
-    <REFKIND>D</REFKIND>
+    <DATATYPE>CHAR</DATATYPE>
+    <LENG>000020</LENG>
+    <OUTPUTLEN>000020</OUTPUTLEN>
    </DD04V>
   </asx:values>
  </asx:abap>
diff --git a/src/zexcel_style_font_underline.dtel.xml b/src/zexcel_style_font_underline.dtel.xml
index 194a2be..bc7b5da 100644
--- a/src/zexcel_style_font_underline.dtel.xml
+++ b/src/zexcel_style_font_underline.dtel.xml
@@ -5,7 +5,6 @@
    <DD04V>
     <ROLLNAME>ZEXCEL_STYLE_FONT_UNDERLINE</ROLLNAME>
     <DDLANGUAGE>E</DDLANGUAGE>
-    <DOMNAME>CHAR20</DOMNAME>
     <HEADLEN>20</HEADLEN>
     <SCRLEN1>10</SCRLEN1>
     <SCRLEN2>15</SCRLEN2>
@@ -16,7 +15,9 @@
     <SCRTEXT_M>Font underline</SCRTEXT_M>
     <SCRTEXT_L>Font underline</SCRTEXT_L>
     <DTELMASTER>E</DTELMASTER>
-    <REFKIND>D</REFKIND>
+    <DATATYPE>CHAR</DATATYPE>
+    <LENG>000020</LENG>
+    <OUTPUTLEN>000020</OUTPUTLEN>
    </DD04V>
   </asx:values>
  </asx:abap>