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

@@ -87,7 +87,7 @@ CLASS lcl_output IMPLEMENTATION.
 
 * After 6.40 via cl_bcs_convert
     cl_output->t_rawdata = cl_bcs_convert=>xstring_to_solix( iv_xstring  = cl_output->xdata ).
-    cl_output->bytecount = XSTRLEN( cl_output->xdata ).
+    cl_output->bytecount = xstrlen( cl_output->xdata ).
 
 * before 6.40
 *  CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
@@ -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 'GET_DYNP_VALUE'
-      EXPORTING
-        i_field = 'P_PATH'
-        i_repid = repid
-        i_dynnr = dynnr
-      CHANGING
-        o_value = new_path.
+    ls_dynpfields-fieldname = 'P_PATH'.
+    APPEND ls_dynpfields TO lt_dynpfields.
 
+    CALL FUNCTION 'DYNP_VALUES_READ'
+      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 <> 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=>directory_browse(