Problems with "convert_abapspooljob_2_pdf" and Adobe 8.0

Question

Hi
I have created a report which converts a spool file to PDF using FM convert_abapspooljob_2_pdf, an sends  it as an email attachment using FM SO_DOCUMENT_SEND_API1.
When using Adobe acrobat reader 7.0 on the client it works just fine, but if i'm trying to open the document with Adobe acrobat reader 8.0 ; I get the error message "There was an error opening this document. The file is damaged and could not be repaired".
Have any of you faced this problem, and how do I solve this ?
Regards
Morten Nielsen

Answer 1

Hi
hmmm....   it looks like the report RSTXPDFT4 convert the spool file correctly - the error must be ind the send mail part of the report.  Do you have any Suggestions her ?
Regards
Morten Nielsen
Source Code extract:
FORM create_mail .
  DATA: lt_pdf       TYPE tline        OCCURS 0 WITH HEADER LINE,
        lt_pdf_out   TYPE solisti1     OCCURS 0 WITH HEADER LINE,
        lt_cont_bin  TYPE solisti1    OCCURS 0 WITH HEADER LINE,
        l_docdata    LIKE sodocchgi1,
        lt_plist     LIKE sopcklsti1   OCCURS 0 WITH HEADER LINE,
        lt_rec       LIKE somlreci1    OCCURS 0 WITH HEADER LINE,
        lt_cont      LIKE solisti1     OCCURS 0 WITH HEADER LINE,
        lt_attach    LIKE solisti1     OCCURS 0 WITH HEADER LINE,
        lt_objhead   LIKE solisti1     OCCURS  1 WITH HEADER LINE,
        l_sender     LIKE soextreci1-receiver,
        l_numbytes   TYPE i,
        l_pdfspoolid LIKE tsp01-rqident,
        l_jobname    LIKE tbtcjob-jobname,
        l_jobcount   LIKE tbtcjob-jobcount.
  DATA: wa_yum_sd_receiver TYPE yum_sd_receiver.
  DATA: tab_lines TYPE i.
  CONSTANTS: c_mail_subj_prefix type string  value 'IT Registration For '.
  LOOP AT lt_control .
    REFRESH: lt_pdf, lt_plist, lt_rec, lt_cont, lt_attach.
Convert Spool File To PDF                                            *
    CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
      EXPORTING
        src_spoolid                    = lt_control-spool_id
  NO_DIALOG                      =
  DST_DEVICE                     =
  PDF_DESTINATION                =
      IMPORTING
        pdf_bytecount              = l_numbytes
        pdf_spoolid                = l_pdfspoolid
        btc_jobname                = l_jobname
        btc_jobcount               = l_jobcount
      TABLES
        pdf                            = lt_pdf
      EXCEPTIONS
        err_no_abap_spooljob           = 1
        err_no_spooljob                = 2
        err_no_permission              = 3
        err_conv_not_possible          = 4
        err_bad_destdevice             = 5
        user_cancelled                 = 6
        err_spoolerror                 = 7
        err_temseerror                 = 8
        err_btcjob_open_failed         = 9
        err_btcjob_submit_failed       = 10
        err_btcjob_close_failed        = 11
        OTHERS                         = 12
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
Collect Information For Sendmail Purpose                             *
*Document Header data
    l_docdata-obj_name = 'OBJNAME'.
   l_docdata-obj_descr = 'Process RoleRequest for user'.
    CONCATENATE c_mail_subj_prefix
                lt_control-yum_user
           into l_docdata-obj_descr.
*Get Receiver
    SELECT SINGLE * FROM  yum_sd_receiver INTO wa_yum_sd_receiver
           WHERE  subsyst  = lt_control-subsystem.
    lt_rec-receiver = wa_yum_sd_receiver-receiver.
    lt_rec-rec_type = wa_yum_sd_receiver-rec_type.
    IF sy-subrc NE 0.
      MESSAGE e021(yum) WITH lt_control-subsystem.
  ERROR ! No Servicedesk mail-adress from for system & in YUM_SD_RECEIVER
    ENDIF.
    APPEND lt_rec.
*Sender
    l_sender = lt_control-requester.
*Create Mail Content
    CONCATENATE 'Please process approved role assignment for user'(017)
                lt_control-yum_user
                'in system'(018)
                lt_control-subsystem
       INTO lt_cont-line SEPARATED BY space.
    APPEND lt_cont.
    DESCRIBE TABLE lt_cont LINES tab_lines.
    READ TABLE lt_cont INDEX tab_lines.
    l_docdata-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( lt_cont ).
    CLEAR lt_plist.
    CLEAR lt_plist-transf_bin.
    lt_plist-head_start = 1.
    lt_plist-head_num = 0.
    lt_plist-body_start = 1.
    lt_plist-body_num = tab_lines.
    lt_plist-doc_type = 'TXT'.
    APPEND lt_plist.
*Create Packing list
   create attachment
    CALL FUNCTION 'SX_TABLE_LINE_WIDTH_CHANGE'
     EXPORTING
       line_width_src                    = 134
       line_width_dst                    = 255
  TRANSFER_BIN                      = ' '
      TABLES
        content_in                        = lt_pdf
        content_out                       = lt_pdf_out
      EXCEPTIONS
        err_line_width_src_too_long       = 1
        err_line_width_dst_too_long       = 2
        err_conv_failed                   = 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.
    APPEND LINES OF lt_pdf_out TO lt_cont_bin.
    lt_objhead = 'RoleRequest.PDF'.
    APPEND lt_objhead.
    DESCRIBE TABLE lt_cont_bin LINES tab_lines.
    READ TABLE lt_cont_bin INDEX tab_lines.
    l_docdata-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( lt_cont_bin ).
   clear lt_plist.
   clear lt_plist-transf_bin.
    lt_plist-transf_bin = 'X'.
    lt_plist-head_start = 1.
    lt_plist-head_num = 1.
    lt_plist-body_start = 1.
    lt_plist-body_num = tab_lines.
    lt_plist-doc_type = 'PDF'.
    lt_plist-obj_name = 'Attachment'.
    lt_plist-obj_descr = 'RoleRequest'.
    lt_plist-doc_size = tab_lines * 255.
    APPEND lt_plist.
Send Mail                                                            *
    IF p_send EQ 'X'. "Do Not Send in Test Mode
      CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
        EXPORTING
          document_data                    = l_docdata
          put_in_outbox                    = 'X'
          sender_address                   = l_sender
          sender_address_type              = 'B'
          commit_work                      = 'X'
    IMPORTING
      SENT_TO_ALL                      =
      NEW_OBJECT_ID                    =
      SENDER_ID                        =
        TABLES
          packing_list                     = lt_plist
          object_header                    = lt_objhead
          contents_bin                     = lt_cont_bin
          contents_txt                     = lt_cont
      CONTENTS_HEX                     =
      OBJECT_PARA                      =
      OBJECT_PARB                      =
          receivers                        = lt_rec
       EXCEPTIONS
         too_many_receivers               = 1
         document_not_sent                = 2
         document_type_not_exist          = 3
         operation_no_authorization       = 4
         parameter_error                  = 5
         x_error                          = 6
         enqueue_error                    = 7
         OTHERS                           = 8
      IF sy-subrc <> 0.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
    ENDIF.
  ENDLOOP.
ENDFORM.                    " create_mail