File download from DMS into Webdynpro for ABAP application

Question

I need to download the file from DMS content server on the PC and with my application on clicking of file name, file needs to be displayed.
To achieve the downloading part I tried BAPI_DOCUMENT_CHECKOUTVIEW2, but it is not working.
If I pass the parameters
PF_HTTP_DEST              = 'SAPHTTPA'
PF_FTP_DEST               = 'SAPFTPA', then it returns error message saying file can not be saved.
If I don't pass above parameters then it gives me 'RFC_START_PROGRAM' error.
How to download the file from DMS in WebDynpro and read/display the content?
Please help.
Thanks, in advance.

Answer 1

Hi,
I had the same problem, but found a solution. All I changed was the hostname to 'DEFAULT'
Use the code below:
DATA: lt_drao TYPE TABLE OF drao,
         wa_drao TYPE drao,
         wa_bin TYPE x LENGTH 2550,
         lt_bin LIKE TABLE OF wa_bin,
         file_data TYPE xstring,
         v_line TYPE i,
         size TYPE i.
   CALL FUNCTION 'CVAPI_DOC_CHECKOUTVIEW_DIALOG'
     EXPORTING
       pf_dokar                 = ls_input-dokar
       pf_doknr                 = ls_input-doknr
       pf_dokvr                 = ls_input-dokvr
       pf_doktl                 = ls_input-doktl
*     PF_FTP_DEST              = 'SAPFTPA'
*     PF_HTTP_DEST             = ' '
      pf_hostname              = 'DEFAULT'
      pf_content_provide       = 'TBL'
*     PS_API_CONTROL           =
*   IMPORTING
*     PSX_MESSAGE              =
*     PSX_FILE                 =
*     PSX_DRAW                 =
    TABLES
      ptx_content              = lt_drao.
   LOOP AT lt_drao INTO wa_drao.
     wa_bin = wa_drao-orblk.
     APPEND wa_bin TO lt_bin.
   ENDLOOP.
   DESCRIBE TABLE lt_drao LINES v_line.
   size = 2550 * v_line.
   CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
     EXPORTING
       input_length       = size
*     FIRST_LINE         = 0
*     LAST_LINE          = 0
    IMPORTING
      buffer             = file_data
     TABLES
       binary_tab         = lt_bin
*   EXCEPTIONS
*     FAILED             = 1
*     OTHERS             = 2
   IF sy-subrc <> 0.
* Implement suitable error handling here
   ENDIF.
CALL METHOD cl_wd_runtime_services=>attach_file_to_response
     EXPORTING
       i_filename      = 'abc.pdf'
       i_content       = file_data
       i_mime_type     = 'application/pdf'
*     i_in_new_window = ABAP_FALSE
*     i_inplace       =  ABAP_FALSE