Problem in sending the Smartform Output as PDF through Mail

Question

Dear All,
I am sending the Smartform Output as an attachment by converting it into PDF. But when I am recieve this attachment I am unable to open the PDF file, it is giving error that FILE IS DAMAGED. Below is the code:
REPORT  Y_SEND_MAIL2.
TABLES: vbrk, vbrp.
TYPE-POOLS: abap.
DATA: it_vbrk TYPE TABLE OF vbrk WITH HEADER LINE.
DATA: i_formname      TYPE       tdsfname,
      i_fm_name       TYPE       rs38l_fnam,
      it_vbak TYPE TABLE OF vbak WITH HEADER LINE,
      it_ekko TYPE TABLE OF ekko WITH HEADER LINE.
DATA:  is_bil_invoice TYPE lbbil_invoice,
       output_options      TYPE ssfcompop,
       control_parameters  TYPE ssfctrlop,
       e_devtype           TYPE rspoptype,
       job_output_info     TYPE ssfcrescl,
       bin_file            TYPE xstring,
       lines               TYPE TABLE OF tline WITH HEADER LINE,
       doctab_archive      TYPE TABLE OF docs WITH HEADER LINE,
       filelength          TYPE i,
       bin_filesize        TYPE i,
       docs          TYPE TABLE OF docs WITH HEADER LINE.
*"Types
TYPES: t_document_data TYPE sodocchgi1,
       t_packing_list TYPE sopcklsti1,
       t_attachment TYPE solisti1,
       t_body_msg TYPE solisti1,
       t_receivers TYPE somlreci1,
       t_pdf TYPE tline.
*"Workareas
DATA :w_document_data TYPE t_document_data,
      w_packing_list TYPE t_packing_list,
      w_attachment TYPE t_attachment,
      w_body_msg TYPE t_body_msg,
      w_receivers TYPE t_receivers,
      w_pdf TYPE t_pdf.
*internal tables
DATA : i_document_data TYPE STANDARD TABLE OF t_document_data,
       i_packing_list TYPE STANDARD TABLE OF t_packing_list,
       i_attachment TYPE STANDARD TABLE OF t_attachment,
       i_body_msg TYPE STANDARD TABLE OF t_body_msg,
       i_receivers TYPE STANDARD TABLE OF t_receivers,
       i_pdf TYPE STANDARD TABLE OF t_pdf.
DATA: BEGIN OF line_bin,
         data(1024) TYPE x,
      END OF line_bin.
DATA: data_tab_bin LIKE STANDARD TABLE OF line_bin.
So please suggest a solution.
Regards,
Vishal

Answer 1

Continued:
SELECT-OPTIONS: s_vbeln FOR vbrk-vbeln,
                s_fkdat FOR vbrk-fkdat OBLIGATORY DEFAULT sy-datum.
SELECT * FROM vbrk
INTO TABLE it_vbrk
WHERE fkdat IN s_fkdat
      AND vbeln IN s_vbeln.
i_formname = 'Z_SD_JINDAL_INVOICE10'.
output_options-tddest        = 'LP02'.
output_options-tdimmed       = 'X'.
output_options-tdnewid       = 'X'.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
  EXPORTING
    formname           = i_formname
  IMPORTING
    fm_name            = i_fm_name
  EXCEPTIONS
    no_form            = 1
    no_function_module = 2
    OTHERS             = 3.
IF sy-subrc <> 0.          "checking subrc
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.                     "IF sy-subrc <> 0
READ TABLE it_vbrk INDEX 1.
IF sy-subrc = 0.
  is_bil_invoice-hd_gen-bil_number = it_vbrk-vbeln.
ENDIF.
control_parameters-no_dialog = 'X'.
control_parameters-getotf = 'X'.
CALL FUNCTION i_fm_name        "'/1BCDWB/SF00000097'
  EXPORTING
   control_parameters         = control_parameters
   output_options             = output_options
   user_settings              = space
   is_bil_invoice             = is_bil_invoice
IMPORTING
   job_output_info            = job_output_info
TABLES
   it_vbak                    = it_vbak
EXCEPTIONS
   formatting_error           = 1
   internal_error             = 2
   send_error                 = 3
   user_canceled              = 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.
*FORM convert_otf_2_pdf.
  CALL FUNCTION 'CONVERT_OTF_2_PDF'
*      EXPORTING
*        USE_OTF_MC_CMD               = 'X'
*        ARCHIVE_INDEX                =
    IMPORTING
      bin_filesize                 = bin_filesize
    TABLES
      otf                          = job_output_info-otfdata[]
      doctab_archive               = docs[]
      lines                        = lines[]
    EXCEPTIONS
      err_conv_not_possible        = 1
      err_otf_mc_noendmarker       = 2
      OTHERS                       = 3.
  IF sy-subrc <> 0.
*      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
*ENDFORM.                    "convert_otf_2_pdf