Save PDF File Without Display

Question

Hi Folks,
I have a scenario where i need to save a PDF file on desktop without opening it. I've implemented the following approach and code:
1. Created a UI Element fileDownload and associated it with PDFSource variable of type XSTRING in context
2. Called the following method in init method of view
METHOD manual_save .
* Table in XML Format
  DATA : ixml TYPE string.
* Table Data in Hexadecimal Format
  DATA : lv_xstring TYPE xstring.
* Function Module Calling
  DATA : w_fmname TYPE rs38l_fnam,     "FM Name
         fp_outputparams   TYPE sfpoutputparams. "FM Output Parameters
* Form Parameters
  DATA :   fpdocparams TYPE sfpdocparams ,   "Form Parameters
           fpformoutput TYPE fpformoutput .  "Form Output Data
* Get Context Refrence and Table Data
  DATA lo_nd_skutab TYPE REF TO if_wd_context_node.
  DATA lo_nd_skudata TYPE REF TO if_wd_context_node.
  DATA lo_el_skudata TYPE REF TO if_wd_context_element.
  DATA ls_skudata TYPE wd_this->element_skudata.
* navigate from <CONTEXT> to <SKUTAB> via lead selection
  lo_nd_skutab = wd_context->get_child_node( name = wd_this->wdctx_skutab ).
* navigate from <SKUTAB> to <SKUDATA> via lead selection
  lo_nd_skudata = lo_nd_skutab->get_child_node( name = wd_this->wdctx_skudata ).
* @TODO handle not set lead selection
  IF lo_nd_skudata IS INITIAL.
  ENDIF.
* get element via lead selection
  lo_el_skudata = lo_nd_skudata->get_element(  ).
* @TODO handle not set lead selection
  IF lo_el_skudata IS INITIAL.
  ENDIF.
* get all declared attributes
  lo_el_skudata->get_static_attributes(
    IMPORTING
      static_attributes = ls_skudata ).
* Convert Table Data to XML Format (type String)
  CALL METHOD lo_nd_skudata->to_xml
    RECEIVING
      xml = ixml.
* Convert String to Xstring Format
*CALL FUNCTION 'CRM_IC_XML_STRING2XSTRING'
*  EXPORTING
*    instring         = IXML
* IMPORTING
*   OUTXSTRING       = LV_XSTRING
  CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
    EXPORTING
      text           = ixml
*   MIMETYPE       = ' '
*   ENCODING       =
    IMPORTING
      buffer         = lv_xstring
EXCEPTIONS
   failed         = 1
   OTHERS         = 2
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
*  Set Output Parameters
  fp_outputparams-nodialog = 'X'.
  fp_outputparams-getpdf = 'X'.
  fp_outputparams-connection = 'ADS'.
*  Job Open
  CALL FUNCTION 'FP_JOB_OPEN'
    CHANGING
      ie_outputparams = fp_outputparams
    EXCEPTIONS
      cancel          = 1
      usage_error     = 2
      system_error    = 3
      internal_error  = 4
      OTHERS          = 5.
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
*&-  Identify FM for PDF Form
  CALL FUNCTION 'FP_FUNCTION_MODULE_NAME'
    EXPORTING
      i_name           = 'ZTEST_SKU_PDF_FORM'
    IMPORTING
      e_funcname       = w_fmname
*      e_interface_type =
* set form parametsrs
  fpdocparams-langu = 'E'.
  fpdocparams-country = 'US'.
*fpdocparams-FILLABLE = 'X'.
* Generate form
  CALL FUNCTION w_fmname      "'/1BCDWB/SM00000021'
    EXPORTING
     /1bcdwb/docparams        = fpdocparams
      /1bcdwb/docxml           = lv_xstring
   IMPORTING
     /1bcdwb/formoutput       = fpformoutput
   EXCEPTIONS
     usage_error              = 1
     system_error             = 2
     internal_error           = 3
     OTHERS                   = 4
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
* Job Close
  CALL FUNCTION 'FP_JOB_CLOSE'
    EXCEPTIONS
      usage_error    = 1
      system_error   = 2
      internal_error = 3
      OTHERS         = 4.
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
* Bind Data to PDF source
  DATA lo_el_context TYPE REF TO if_wd_context_element.
  DATA ls_context TYPE wd_this->element_context.
  DATA lv_pdf LIKE ls_context-pdf.
* get element via lead selection
  lo_el_context = wd_context->get_element(  ).
  lv_pdf = fpformoutput-pdf.
  CALL METHOD lo_el_context->set_attribute
    EXPORTING
      value = lv_pdf
      name  = 'PDF'.
ENDMETHOD.
To explain in simple terms, i've done the following:
1. Stored the context table data in a XML format in a string variable
2. Converted the string variable to xstring format using fm 'SCMS_STRING_TO_XSTRING'
3. Job Open
4. Identify the Actual FM Name
5. Genarate Form
6. Job Close
7. Bind data (fpformoutput-pdf) to the PDF Source variable in context
Issue is, when i run application and download, i am only able to get a PDf with no data in it.
Interestingly, in debug mode, i am able to see some data.
Points to add: When i display in a PDF UIElement the output comes in two pages, and in debug mode when i see the variable FPFORMOUTPUT-PAGES, it has a value of 1.
May be am following the wrong approach or missing someting in code.
Any inputs, appreciated.
Thanks,
Santosh Verma,
Deloitte.

Answer 1

Hi SV,
Below is code that i am writing for preparing the ZSTRING.
      DATA : ixml TYPE string.
Table Data in Hexadecimal Format
      DATA : lv_xstring TYPE xstring.
      CALL METHOD lo_nd_main_node->to_xml
        RECEIVING
          xml = ixml.
      ixml = ixml+33.
      CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
        EXPORTING
          text           = ixml
  MIMETYPE       = ' '
  ENCODING       =
       IMPORTING
         buffer         = lv_xstring
       EXCEPTIONS
         failed         = 1
         OTHERS         = 2
      IF sy-subrc <> 0.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
*Convert XSTRING into internal table
      DATA: gt_formdata  TYPE STANDARD TABLE OF lxe_xtab,
            gwa_formdata TYPE lxe_xtab.
      CALL FUNCTION 'LXE_COMMON_XSTRING_TO_TABLE'
        EXPORTING
          in_xstring       = lv_xstring
IMPORTING
  PSTATUS          =
        TABLES
          ex_tab           = gt_formdata
1. I have around 20 fields on my form which i need to capture in this XSTRING.
2. This method is capturing only 10 fields.
3. I am not getting
Inputs would be highly appreciated!!!
Thanks,
Ashish