Web dynpro - Download desktop file

Question

Hi guys,
How to download desktop file data into application server in the Web dynpro application?
Thanks.

Answer 1

Hi,
FORM error_file .
  DATA:  l_msg(80) TYPE c,
         l_name1(100) TYPE c,
         l_ext1(5)    TYPE c,
         l_file1(300) TYPE c.
  CLEAR : l_msg,
          l_name1,
          l_ext1,
          l_file1.
  MOVE p_file TO w_file.
*--- text-305 for '\in\'
  IF w_file CS text-305.
*&---Create log file to keep old & new characteristic values
    CLEAR w_error_file.
    CLEAR wa_error.
    SPLIT w_file AT c_dot INTO l_name1 l_ext1.
    CONCATENATE l_name1 sy-datum sy-uzeit c_dot l_ext1 INTO l_file1.
    MOVE l_file1 TO w_error_file.
*---text-305 for '\in\' & text-319 for '\error\'
    REPLACE text-305 IN w_error_file WITH text-319 IGNORING CASE.
    CONDENSE w_error_file NO-GAPS.
*---to set txt format
*---text-320   for 'csv'   & text-321   for 'txt'
    REPLACE text-320 IN w_error_file WITH text-321 IGNORING CASE .
  ENDIF.
  CLEAR w_count.
  DESCRIBE TABLE it_error LINES w_count.
  IF NOT w_count IS INITIAL.
    OPEN DATASET w_error_file
                 FOR OUTPUT IN TEXT MODE
                 ENCODING DEFAULT.    IF sy-subrc  0.
      WRITE:/ 'Error in opening file'.
    ELSE.
      wa_error-vbeln   = 'Order'.
      wa_error-posnr   = 'Item'.
      wa_error-matnr   = 'Material'.
      wa_error-error   = 'Error Description'.
      TRANSFER wa_error TO w_error_file.
      MOVE: sy-uline(200)
          TO wa_error.
      TRANSFER wa_error TO w_error_file.
      MOVE: '   '
            TO wa_error.
      TRANSFER wa_error TO w_error_file.
      LOOP AT it_error.
        CLEAR wa_error.
        wa_error-vbeln   = it_error-vbeln.
        wa_error-posnr   = it_error-posnr.
        wa_error-matnr   = it_error-matnr.
        wa_error-error   = it_error-error.
        TRANSFER wa_error TO w_error_file.
      ENDLOOP.*---text-317 for 'Error file saved successfully to :'
      CONCATENATE text-317 w_error_file INTO l_msg SEPARATED BY space.
     MESSAGE l_msg TYPE c_s. "Comment KC 10 Dec 08
*>>BC KC 10 Dec 08
*---pop up error message
      PERFORM popup_inform USING l_msg.
*<<EC 10 Dec 08
    ENDIF.
  ENDIF.
  IF w_error_file IS NOT INITIAL.
    CLOSE DATASET w_error_file..
Delete dataset w_error_file.   u201Cto delete file from AS  
  ENDIF.
ENDFORM.                    " ERROR_FILE
Regards
Md.MahaboobKhan