From 66a45b840a0b11e29e3680fdbc9730a07f71cda3 Mon Sep 17 00:00:00 2001
From: Abo <andrea@borgia.bo.it>
Date: Sat, 9 Oct 2021 20:04:05 +0200
Subject: [PATCH] remove CHAR255 ( WIP #692 ) (#847)

DTEL, "STRU" and CLAS

Co-authored-by: sandraros <34005250+sandraros@users.noreply.github.com>
---
 src/not_cloud/zcl_excel_ole.clas.abap | 6 ++++--
 src/zcl_excel_worksheet.clas.abap     | 3 ++-
 src/zexcel_s_style_font.tabl.xml      | 8 ++++++--
 src/zexcel_style_font_name.dtel.xml   | 5 +++--
 4 files changed, 15 insertions(+), 7 deletions(-)

diff --git a/src/not_cloud/zcl_excel_ole.clas.abap b/src/not_cloud/zcl_excel_ole.clas.abap
index 55f7a62..098b7bf 100644
--- a/src/not_cloud/zcl_excel_ole.clas.abap
+++ b/src/not_cloud/zcl_excel_ole.clas.abap
@@ -4,9 +4,11 @@ CLASS zcl_excel_ole DEFINITION
   CREATE PUBLIC .
 
   PUBLIC SECTION.
-    class-METHODS bind_alv_ole2
+    TYPES ty_doc_url TYPE c LENGTH 255.
+
+    CLASS-METHODS bind_alv_ole2
       IMPORTING
-        !i_document_url      TYPE char255 DEFAULT space
+        !i_document_url      TYPE ty_doc_url DEFAULT space
         !i_xls               TYPE c DEFAULT space
         !i_save_path         TYPE string
         !io_alv              TYPE REF TO cl_gui_alv_grid
diff --git a/src/zcl_excel_worksheet.clas.abap b/src/zcl_excel_worksheet.clas.abap
index 55f15a4..fd9e7c5 100644
--- a/src/zcl_excel_worksheet.clas.abap
+++ b/src/zcl_excel_worksheet.clas.abap
@@ -31,6 +31,7 @@ CLASS zcl_excel_worksheet DEFINITION
       END OF mty_s_outline_row .
     TYPES:
       mty_ts_outlines_row TYPE SORTED TABLE OF mty_s_outline_row WITH UNIQUE KEY row_from row_to .
+    TYPES ty_doc_url TYPE c LENGTH 255.
 
     CONSTANTS c_break_column TYPE zexcel_break VALUE 2.     "#EC NOTEXT
     CONSTANTS c_break_none TYPE zexcel_break VALUE 0.       "#EC NOTEXT
@@ -83,7 +84,7 @@ CLASS zcl_excel_worksheet DEFINITION
         zcx_excel .
     METHODS bind_alv_ole2
       IMPORTING
-        !i_document_url      TYPE char255 DEFAULT space
+        !i_document_url      TYPE ty_doc_url DEFAULT space
         !i_xls               TYPE c DEFAULT space
         !i_save_path         TYPE string
         !io_alv              TYPE REF TO cl_gui_alv_grid
diff --git a/src/zexcel_s_style_font.tabl.xml b/src/zexcel_s_style_font.tabl.xml
index 2bd8c1b..65691cc 100644
--- a/src/zexcel_s_style_font.tabl.xml
+++ b/src/zexcel_s_style_font.tabl.xml
@@ -68,9 +68,13 @@
     </DD03P>
     <DD03P>
      <FIELDNAME>NAME</FIELDNAME>
-     <ROLLNAME>CHAR255</ROLLNAME>
      <ADMINFIELD>0</ADMINFIELD>
-     <COMPTYPE>E</COMPTYPE>
+     <INTTYPE>C</INTTYPE>
+     <INTLEN>000510</INTLEN>
+     <DATATYPE>CHAR</DATATYPE>
+     <LENG>000255</LENG>
+     <MASK>  CHAR</MASK>
+     <DDTEXT>Name</DDTEXT>
     </DD03P>
     <DD03P>
      <FIELDNAME>FAMILY</FIELDNAME>
diff --git a/src/zexcel_style_font_name.dtel.xml b/src/zexcel_style_font_name.dtel.xml
index 221bc19..da509b6 100644
--- a/src/zexcel_style_font_name.dtel.xml
+++ b/src/zexcel_style_font_name.dtel.xml
@@ -5,7 +5,6 @@
    <DD04V>
     <ROLLNAME>ZEXCEL_STYLE_FONT_NAME</ROLLNAME>
     <DDLANGUAGE>E</DDLANGUAGE>
-    <DOMNAME>CHAR255</DOMNAME>
     <HEADLEN>20</HEADLEN>
     <SCRLEN1>10</SCRLEN1>
     <SCRLEN2>15</SCRLEN2>
@@ -16,7 +15,9 @@
     <SCRTEXT_M>Font name</SCRTEXT_M>
     <SCRTEXT_L>Font name</SCRTEXT_L>
     <DTELMASTER>E</DTELMASTER>
-    <REFKIND>D</REFKIND>
+    <DATATYPE>CHAR</DATATYPE>
+    <LENG>000255</LENG>
+    <OUTPUTLEN>000255</OUTPUTLEN>
    </DD04V>
   </asx:values>
  </asx:abap>