From a3749ac918357c31b4ba9abfcec9f453b24d0018 Mon Sep 17 00:00:00 2001
From: Gregor Wolf <gregor.wolf@gmail.com>
Date: Sat, 6 Apr 2013 18:02:05 +0000
Subject: [PATCH] Ready to test #259 replaced function module call
 GET_DYNP_VALUE in the F4_PATH method of ZDEMO_EXCEL_OUTPUTOPT_INCL by
 DYNP_VALUES_READ

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

diff --git a/ZA2X/PROG/ZDEMO_EXCEL_OUTPUTOPT_INCL.slnk b/ZA2X/PROG/ZDEMO_EXCEL_OUTPUTOPT_INCL.slnk
index 55baab7..aec5b00 100644
--- a/ZA2X/PROG/ZDEMO_EXCEL_OUTPUTOPT_INCL.slnk
+++ b/ZA2X/PROG/ZDEMO_EXCEL_OUTPUTOPT_INCL.slnk
@@ -87,7 +87,7 @@ CLASS lcl_output IMPLEMENTATION.
 
 * After 6.40 via cl_bcs_convert
     cl_output-&gt;t_rawdata = cl_bcs_convert=&gt;xstring_to_solix( iv_xstring  = cl_output-&gt;xdata ).
-    cl_output-&gt;bytecount = XSTRLEN( cl_output-&gt;xdata ).
+    cl_output-&gt;bytecount = xstrlen( cl_output-&gt;xdata ).
 
 * before 6.40
 *  CALL FUNCTION &apos;SCMS_XSTRING_TO_BINARY&apos;
@@ -125,19 +125,43 @@ CLASS lcl_output IMPLEMENTATION.
   METHOD f4_path.
     DATA: new_path TYPE string,
           repid    TYPE syrepid,
-          dynnr    TYPE sydynnr.
+          dynnr    TYPE sydynnr,
+          lt_dynpfields TYPE TABLE OF dynpread,
+          ls_dynpfields LIKE LINE OF lt_dynpfields.
 
 * Get current value
     dynnr = sy-dynnr.
     repid = sy-repid.
-    CALL FUNCTION &apos;GET_DYNP_VALUE&apos;
-      EXPORTING
-        i_field = &apos;P_PATH&apos;
-        i_repid = repid
-        i_dynnr = dynnr
-      CHANGING
-        o_value = new_path.
+    ls_dynpfields-fieldname = &apos;P_PATH&apos;.
+    APPEND ls_dynpfields TO lt_dynpfields.
 
+    CALL FUNCTION &apos;DYNP_VALUES_READ&apos;
+      EXPORTING
+        dyname               = repid
+        dynumb               = dynnr
+      TABLES
+        dynpfields           = lt_dynpfields
+      EXCEPTIONS
+        invalid_abapworkarea = 1
+        invalid_dynprofield  = 2
+        invalid_dynproname   = 3
+        invalid_dynpronummer = 4
+        invalid_request      = 5
+        no_fielddescription  = 6
+        invalid_parameter    = 7
+        undefind_error       = 8
+        double_conversion    = 9
+        stepl_not_found      = 10
+        OTHERS               = 11.
+    IF sy-subrc &lt;&gt; 0.
+      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
+              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
+      EXIT.
+    ENDIF.
+
+    READ TABLE lt_dynpfields INTO ls_dynpfields INDEX 1.
+
+    new_path = ls_dynpfields-fieldvalue.
     selected_folder = new_path.
 
     cl_gui_frontend_services=&gt;directory_browse(