Problem generating Adobe form in ABAP

Question

Hi Experts,
I have just written a function module that calls a form that I created, which is meant to generate a pdf form and email it to a specific email address. However, I have the problem where the pdf is not being generated properly and is actually empty.
I tried to debug the program and sy-subrc returns a usage error when calling the function module generated at runtime from my form. The end result is a pdf attachment that is 1K in size and contains nothing. I get an error when I try to open the attachment, with the message being the document type is not supported or the document is corrupted or something is wrong with the coding.
Would anyone be able to shed some light on this? Its quite urgent, so any help will be appreciated and rewarded. I have also pasted my code below:
FUNCTION z_vip_vendor_survey_01.
""Local Interface:
*"  TABLES
*"      I_INPUT TYPE  ZZVENDOR_MATNR
*"  CHANGING
*"     VALUE(ET_TLINE) TYPE  TLINE
*---- Line of Table
  DATA: lt_vendor_matnr  LIKE LINE OF it_vendor_matnr,
  fp_outputparams TYPE sfpoutputparams,
  fm_name TYPE funcname,
  fp_docparams TYPE sfpdocparams,
  fp_formoutput TYPE fpformoutput,
  pdf TYPE fpformoutput-pdf,
  lt_att_content_hex TYPE solix_tab.
  TABLES: tvarvc.
  it_vendor_matnr[] = i_input[].
  fp_outputparams-nodialog = 'X'.
  fp_outputparams-getpdf   = 'X'.
  CALL FUNCTION 'FP_FUNCTION_MODULE_NAME'
    EXPORTING
      i_name     = 'Z_VENDOR_ADOBE_FORMS_FORM'
    IMPORTING
      e_funcname = fm_name.
    E_INTERFACE_TYPE           =
  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.
  fp_docparams-langu = 'E'.
  fp_docparams-country = 'AU'.
  fp_docparams-fillable = 'X'.
fp_docparams-dynamic = 'X'.
  CALL FUNCTION fm_name
    EXPORTING
      /1bcdwb/docparams  = fp_docparams
     vendornumber       = '123'
     vendordesc         = 'test vendor'
     materialnumber     = '456'
     materialdesc       = 'test material'
    IMPORTING
      /1bcdwb/formoutput = fp_formoutput
    EXCEPTIONS
      usage_error        = 1
      system_error       = 2
      internal_error     = 3
      OTHERS             = 4.
  pdf = fp_formoutput-pdf.
  CALL FUNCTION 'FP_JOB_CLOSE'
IMPORTING
  E_RESULT             =
   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.
CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
   EXPORTING
     buffer                = fp_formoutput-pdf
  APPEND_TO_TABLE       = ' '
IMPORTING
  OUTPUT_LENGTH         =
   TABLES
     binary_tab            = lt_att_content_hex
  CLASS cl_bcs DEFINITION LOAD.
  DATA:
  lo_send_request TYPE REF TO cl_bcs VALUE IS INITIAL.
  lo_send_request = cl_bcs=>create_persistent( ).
  DATA:
  lt_message_body TYPE bcsy_text VALUE IS INITIAL,
  lo_document TYPE REF TO cl_document_bcs VALUE IS INITIAL.
LOOP AT it_vendor_matnr INTO lt_vendor_matnr.
  SELECT SINGLE * FROM  tvarvc INTO tvarvc
                  WHERE name = 'ZZTEST'
                  AND   type = 'P'.
   tvarvc-low  = lt_vendor_matnr-lifnr.
   tvarvc-high = lt_vendor_matnr-SMTP_ADDR.
   MODIFY tvarvc.
  APPEND 'Dear ' TO lt_message_body.
  APPEND lt_vendor_matnr-lifnr TO lt_message_body.
  APPEND ',' TO lt_message_body.
  APPEND '' TO lt_message_body.
  APPEND 'Please fill in the attached form and send it back to the email address in the sender field.' TO lt_message_body.
  APPEND '' TO lt_message_body.
  APPEND 'Thank you.' TO lt_message_body.
  lo_document = cl_document_bcs=>create_document(
  i_type = 'RAW'
  i_text = lt_message_body
  i_subject = 'Test Survey - Please complete' ).
  DATA: lx_document_bcs TYPE REF TO cx_document_bcs VALUE IS INITIAL,
  attdoctype TYPE soodk-objtp,
  atttitle TYPE sood-objdes,
  attsize TYPE sood-objlen.
  attdoctype = 'PDF'.
  atttitle = 'test survey'.
  attsize = XSTRLEN( pdf ).
  lt_att_content_hex = cl_document_bcs=>xstring_to_solix(
     ip_xstring = pdf ).
  TRY.
      lo_document->add_attachment(
      EXPORTING
         i_attachment_type = attdoctype
         i_attachment_subject = atttitle
         i_attachment_size = attsize
         i_attachment_language = sy-langu
         i_att_content_hex = lt_att_content_hex ).
    CATCH cx_document_bcs INTO lx_document_bcs.
  ENDTRY.
  lo_send_request->set_document( lo_document ).
  DATA:
  lo_sender TYPE REF TO if_sender_bcs VALUE IS INITIAL,
  lo_send TYPE adr6-smtp_addr VALUE <senderemail>.
  lo_sender = cl_cam_address_bcs=>create_internet_address( lo_send ).
  lo_send_request->set_sender(
  EXPORTING
     i_sender = lo_sender ).
  DATA:
  lo_recipient TYPE REF TO if_recipient_bcs VALUE IS INITIAL,
  lo_rec TYPE adr6-smtp_addr VALUE <recipientemail>.
  lo_recipient = cl_cam_address_bcs=>create_internet_address( lo_rec ).
  lo_send_request->add_recipient(
  EXPORTING
     i_recipient = lo_recipient
     i_express = 'X' ).
  DATA: lv_sent_to_all(1) TYPE c VALUE IS INITIAL.
  lo_send_request->send(
  EXPORTING
     i_with_error_screen = 'X'
     RECEIVING
     result = lv_sent_to_all ).
  COMMIT WORK.
ENDLOOP.
et_tline-tdformat = 'S'.
CONCATENATE 'Triggered the Forms successfully for'
lt_vendor_matnr-lifnr
INTO
et_tline-tdline .
ENDFUNCTION.

Answer 1

Check your ADS configuration.
Raja T