From f127551eaeea4167b7d60c69bb5146375e5e30c1 Mon Sep 17 00:00:00 2001
From: Tomek Mackowski <tmackowski@gmail.com>
Date: Sun, 10 Apr 2011 21:14:48 +0000
Subject: [PATCH] Fix #81 - remove trailing bytes from app. server file

git-svn-id: https://subversion.assembla.com/svn/abap2xlsx/trunk@156 b7d68dce-7c3c-4a99-8ce0-9ea847f5d049
---
 ZA2X/PROG/ZDEMO_EXCEL25.slnk | 31 +++++--------------------------
 1 file changed, 5 insertions(+), 26 deletions(-)

diff --git a/ZA2X/PROG/ZDEMO_EXCEL25.slnk b/ZA2X/PROG/ZDEMO_EXCEL25.slnk
index 8337e63..ac21a92 100644
--- a/ZA2X/PROG/ZDEMO_EXCEL25.slnk
+++ b/ZA2X/PROG/ZDEMO_EXCEL25.slnk
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-16"?>
-<PROG NAME="ZDEMO_EXCEL25" VARCL="X" SUBC="1" CNAM="FEMIA" CDAT="20110317" UNAM="FEMIA" UDAT="20110401" VERN="000017" RSTAT="T" RMAND="001" RLOAD="E" FIXPT="X" SDATE="20110401" STIME="154408" IDATE="20110401" ITIME="154408" UCCHECK="X">
+<PROG NAME="ZDEMO_EXCEL25" VARCL="X" SUBC="1" CNAM="FEMIA" CDAT="20110317" UNAM="BCUSER" UDAT="20110410" VERN="000024" RSTAT="T" RMAND="001" RLOAD="E" FIXPT="X" SDATE="20110410" STIME="230852" IDATE="20110410" ITIME="230852" UCCHECK="X">
  <textPool>
   <language SPRAS="E">
    <textElement ID="R" ENTRY="abap2xlsx Demo: Hello World" LENGTH="27 "/>
@@ -7,7 +7,7 @@
   </language>
  </textPool>
  <source>*&amp;---------------------------------------------------------------------*
-*&amp; Report  ZDEMO_EXCEL1
+*&amp; Report  ZDEMO_EXCEL25
 *&amp;
 *&amp;---------------------------------------------------------------------*
 *&amp;
@@ -18,22 +18,12 @@ REPORT  zdemo_excel25.
 
 DATA: lo_excel                TYPE REF TO zcl_excel,
       lo_excel_writer         TYPE REF TO zif_excel_writer,
-      lo_worksheet            TYPE REF TO zcl_excel_worksheet,
-      lo_hyperlink            TYPE REF TO zcl_excel_hyperlink,
-      column_dimension        TYPE REF TO zcl_excel_worksheet_columndime.
+      lo_worksheet            TYPE REF TO zcl_excel_worksheet.
 
-DATA: lv_file                 TYPE xstring,
-      lv_bytecount            TYPE i,
-      lt_file_tab             TYPE solix_tab,
-      ls_file_tab             TYPE solix.
+DATA: lv_file                 TYPE xstring.
 
-DATA: lv_full_path      TYPE string,
-      lv_workdir        TYPE string,
-      lv_filename       TYPE string,
-      lv_file_separator TYPE c.
 
 CONSTANTS: lv_default_file_name TYPE string VALUE &apos;/tmp/25_HelloWorld.xlsx&apos;.
-
 &quot; Creates active sheet
 CREATE OBJECT lo_excel.
 
@@ -45,18 +35,7 @@ lo_worksheet-&gt;set_cell( ip_column = &apos;B&apos; ip_row = 2 ip_value = &apos
 CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007.
 lv_file = lo_excel_writer-&gt;write_file( lo_excel ).
 
-&quot; Convert to binary
-CALL FUNCTION &apos;SCMS_XSTRING_TO_BINARY&apos;
-  EXPORTING
-    buffer        = lv_file
-  IMPORTING
-    output_length = lv_bytecount
-  TABLES
-    binary_tab    = lt_file_tab.
-
 OPEN DATASET lv_default_file_name FOR OUTPUT IN BINARY MODE.
-LOOP AT lt_file_tab INTO ls_file_tab.
-  TRANSFER ls_file_tab  TO lv_default_file_name.
-ENDLOOP.
+TRANSFER lv_file  TO lv_default_file_name.
 CLOSE DATASET lv_default_file_name.</source>
 </PROG>