Convert spool to pdf & show in portal

I need to display a pdf of abap spool (not OTF spool) in portal (html) .
for this purpose i write this code below
this code work fine for simple spools , but for other (like 101 report in HR)
the adobe reader return " The file is damaged and could not be repaired "
* Convert to PDF
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
    EXPORTING
*      src_spoolid     = spoolid
       src_spoolid     = '10455'
      no_dialog       = 'X'
      pdf_destination = ''
    IMPORTING
      pdf_bytecount = pdf_fsize
    TABLES
      pdf           = it_pdf_output
    EXCEPTIONS
      OTHERS        = 0.
* Transfer the 132-long strings to 255-long strings
LOOP AT it_pdf_output.
    TRANSLATE it_pdf_output USING '~'.
    CONCATENATE gd_buffer it_pdf_output INTO gd_buffer.
ENDLOOP.
TRANSLATE gd_buffer USING '~'.
DO.
    pdf_table_2 = gd_buffer.
    APPEND pdf_table_2.
    SHIFT gd_buffer LEFT BY 255 PLACES.
    IF gd_buffer IS INITIAL.
      EXIT.
    ENDIF.
ENDDO.
CALL FUNCTION 'SCMS_BINARY_TO_FTEXT'
    EXPORTING
      input_length          = 99999999
*   FIRST_LINE            = 0
*   LAST_LINE             = 0
*WRAP_LINES            = ''
   APPEND_TO_TABLE       = ''
*   MIMETYPE              = ' '
* IMPORTING
*   OUTPUT_LENGTH         =
    TABLES
      binary_tab            = pdf_table_2
      ftext_tab             = pdf_table.
(pdf_table : type table of SOLISTI1 )
and in the side of the portal they past the text of the pdf_table table ,and show the pdf file
any idea what the problem ? or there another way to show pdf of spool in portal.

Similar Messages

Convert spool to pdf for Chinese characters

Hi,
I need to convert spool to pdf for chinese font.
Spool is creating successfully, and contents are displaying properly. When try to convert the spool to pdf using 'RSTXPDFT4', the pdf is generated successfully, when trying open the pdf, contents are missing, its like empy white pdf page. This is happening for the Chinese font. The same script is working fine for the English font.
Plz suggets
Thanks
Balaji

Hi Balaji,
I am having a similar issue with Simplified Chinese, Traditional Chinese, and Thai fonts when saving spools to PDF. Have you found any more information on why the output shows up as a blank screen?
We are printing Purchase Orders and the T&Cs are coming through fine because they are saved as picture files but the smartform does not display at all.
Any information would be appreciated!
Thanks,
Josh

URGENT ----- Problem in converting spool to pdf .

Error - File cannot be opened because of no pages ......
Hi experts,
I am passing internal table contents to spool --> then spool to pdf -
> then mail sending.
Everything is fine but only error is in the receiving mail the above error is coming.
given the code...
I think the error is in converting into pdf function module
Help me to solve this problem as it is very urgent
include data_declare. " pasted down
select * from kna1 into table itab up to 50 rows.
CALL FUNCTION 'RSPO_OPEN_SPOOLREQUEST'
EXPORTING
dest = 'LP01'
immediate_print = 'X'
IMPORTING
handle = handle
SPOOLID = spoolid.
loop at itab.
concatenate itab-kunnr itab-name1 itab-land1 into text separated by
space.
CALL FUNCTION 'RSPO_WRITE_SPOOLREQUEST'
EXPORTING
handle = handle
text = text.
endloop.
CALL FUNCTION 'RSPO_CLOSE_SPOOLREQUEST'
EXPORTING
handle = handle.
Convert Spool to PDF **********************************
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
 EXPORTING
 src_spoolid = spoolid "gd_spool_nr
 no_dialog = c_no
 dst_device = c_device
 IMPORTING
 pdf_bytecount = gd_bytecount
 TABLES
 pdf = it_pdf_output
 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.
CHECK sy-subrc = 0.
Transfer the 132-long strings to 255-long strings
LOOP AT it_pdf_output.
 TRANSLATE it_pdf_output USING ' ~'.
 CONCATENATE gd_buffer it_pdf_output INTO gd_buffer.
ENDLOOP.
TRANSLATE gd_buffer USING '~ '.
DO.
 it_mess_att = gd_buffer.
 APPEND it_mess_att.
 SHIFT gd_buffer LEFT BY 255 PLACES.
 IF gd_buffer IS INITIAL.
 EXIT.
 ENDIF.
ENDDO.
Processing Mail Sending ************************************
DATA: p_email LIKE somlreci1-receiver,
 p_sender LIKE somlreci1-receiver,
 sub(40).
DESCRIBE TABLE it_mess_att LINES gd_recsize.
CHECK gd_recsize > 0.
REFRESH it_mess_bod.
Default subject matter
gd_subject = 'Subject'.
gd_attachment_desc = text-002.
it_mess_bod = text-001.
APPEND it_mess_bod.
IF p_sender EQ space.
 gd_sender_type = space.
ELSE.
 gd_sender_type = 'INT'.
ENDIF.
MOVE 'Orders Rejeced on' TO sub.
WRITE: sy-datum DD/MM/YYYY TO sub+27(10).
Send file by email as .xls speadsheet
PERFORM send_file_as_email_attachment
 TABLES it_mess_bod
 it_mess_att
 USING
 p_email
 sub "text-009
 'PDF'
 gd_attachment_name
 gd_attachment_desc
 p_sender
 gd_sender_type
 CHANGING gd_error
 gd_reciever.
ENDFORM. " process_email
*& Form send_file_as_email_attachment
 text
 -->P_IT_MESS_BOD text
 -->P_IT_MESS_ATT text
 -->P_TEXT_009 text
 -->P_1058 text
 -->P_GD_ATTACHMENT_NAME text
 -->P_GD_ATTACHMENT_DESC text
 <--P_GD_ERROR text
 <--P_GD_RECIEVER text
FORM send_file_as_email_attachment TABLES it_message
 it_attach
 USING
 p_email
 p_mtitle
 p_format
 p_filename
 p_attdescription
 p_sender_address
 p_sender_addres_type
 CHANGING p_error
 p_reciever.
DATA: ld_error TYPE sy-subrc,
 ld_reciever TYPE sy-subrc,
 ld_mtitle LIKE sodocchgi1-obj_descr,
 ld_email LIKE somlreci1-receiver,
 ld_format TYPE so_obj_tp ,
 ld_attdescription TYPE so_obj_nam ,
 ld_attfilename TYPE so_obj_des ,
 ld_sender_address LIKE soextreci1-receiver,
 ld_sender_address_type LIKE soextreci1-adr_typ,
 ld_receiver LIKE sy-subrc.
DATA: t_packing_list LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE,
 t_contents LIKE solisti1 OCCURS 0 WITH HEADER LINE,
 t_receivers LIKE somlreci1 OCCURS 0 WITH HEADER LINE,
 t_attachment LIKE solisti1 OCCURS 0 WITH HEADER LINE,
 t_object_header LIKE solisti1 OCCURS 0 WITH HEADER LINE,
 w_cnt TYPE i,
 w_sent_all(1) TYPE c,
 w_doc_data LIKE sodocchgi1.
ld_email = p_email.
ld_mtitle = p_mtitle.
ld_format = p_format.
ld_attdescription = p_attdescription.
ld_attfilename = p_filename.
ld_sender_address = p_sender_address.
ld_sender_address_type = p_sender_addres_type.
Fill the document data.
w_doc_data-doc_size = 1.
Populate the subject/generic message attributes
w_doc_data-obj_langu = sy-langu.
w_doc_data-obj_name = 'SAPRPT'.
w_doc_data-obj_descr = ld_mtitle .
w_doc_data-sensitivty = 'F'.
Fill the document data and get size of attachment
CLEAR w_doc_data.
READ TABLE it_attach INDEX w_cnt.
w_doc_data-doc_size =
 ( w_cnt - 1 ) * 255 + STRLEN( it_attach ).
w_doc_data-obj_langu = sy-langu.
w_doc_data-obj_name = 'SAPRPT'.
w_doc_data-obj_descr = ld_mtitle.
w_doc_data-sensitivty = 'F'.
CLEAR t_attachment.
REFRESH t_attachment.
t_attachment[] = it_attach[].
Describe the body of the message
CLEAR t_packing_list.
REFRESH t_packing_list.
t_packing_list-transf_bin = space.
t_packing_list-head_start = 1.
t_packing_list-head_num = 0.
t_packing_list-body_start = 1.
DESCRIBE TABLE it_message LINES t_packing_list-body_num.
t_packing_list-doc_type = 'RAW'.
APPEND t_packing_list.
Create attachment notification
t_packing_list-transf_bin = 'X'.
t_packing_list-head_start = 1.
t_packing_list-head_num = 1.
t_packing_list-body_start = 1.
DESCRIBE TABLE t_attachment LINES t_packing_list-body_num.
t_packing_list-doc_type = ld_format.
t_packing_list-obj_descr = ld_attdescription.
t_packing_list-obj_name = ld_attfilename.
t_packing_list-doc_size = t_packing_list-body_num * 255.
APPEND t_packing_list.
Add the recipients email address
CLEAR t_receivers.
REFRESH t_receivers.
t_receivers-rec_type = 'U'.
t_receivers-com_type = 'INT'.
t_receivers-notif_del = 'X'.
t_receivers-notif_ndel = 'X'.
CLEAR gt_mail.
SELECT SINGLE * FROM zmail INTO gt_mail
 WHERE grpnr = '1'.
IF NOT gt_mail-mail1 IS INITIAL.
 t_receivers-receiver = gt_mail-mail1.
 APPEND t_receivers.
ENDIF.
IF NOT gt_mail-mail2 IS INITIAL.
 t_receivers-receiver = gt_mail-mail2.
 APPEND t_receivers.
ENDIF.
IF NOT gt_mail-mail3 IS INITIAL.
 t_receivers-receiver = gt_mail-mail3.
 APPEND t_receivers.
ENDIF.
IF NOT gt_mail-mail4 IS INITIAL.
 t_receivers-receiver = gt_mail-mail4.
 APPEND t_receivers.
ENDIF.
LOOP AT gt_mail.
 t_receivers-receiver = gt_mail-mailid..
 APPEND t_receivers.
ENDLOOP.
CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
 EXPORTING
 document_data = w_doc_data
 put_in_outbox = 'X'
 sender_address = ld_sender_address
 sender_address_type = ld_sender_address_type
 commit_work = 'X'
 IMPORTING
 sent_to_all = w_sent_all
 TABLES
 packing_list = t_packing_list
 contents_bin = t_attachment
 contents_txt = it_message
 receivers = t_receivers
 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.
Populate zerror return code
ld_error = sy-subrc.
Populate zreceiver return code
LOOP AT t_receivers.
 ld_receiver = t_receivers-retrn_code.
ENDLOOP.
ENDFORM. " send_file_as_email_attachment
Data Declaration ************************************
DATA : handle LIKE sy-tabix.
data itab like kna1 occurs 0 with header line.
data: text(50) type c.
data: spoolid type TSP01-RQIDENT.
DATA : gt_listobject LIKE abaplist OCCURS 10 .
DATA : gt_objcont LIKE soli OCCURS 10 WITH HEADER LINE.
DATA : gt_objcont1 LIKE soli OCCURS 10 WITH HEADER LINE.
DATA : gt_objhead LIKE soli OCCURS 10 WITH HEADER LINE.
DATA : gt_att_head LIKE soli OCCURS 10 WITH HEADER LINE.
DATA : gt_receivers LIKE soos1 OCCURS 10 WITH HEADER LINE.
DATA : gt_packing_list LIKE soxpl OCCURS 10 WITH HEADER LINE.
DATA : gt_so_ali LIKE soli OCCURS 100 WITH HEADER LINE.
DATA : gt_so_ali1 LIKE soli OCCURS 100 WITH HEADER LINE.
DATA : gt_document_data LIKE sood1.
DATA: lineno TYPE i , length TYPE i , size TYPE i.
DATA: gt_message LIKE soli OCCURS 10 WITH HEADER LINE,
 gt_message1 LIKE soli OCCURS 10 WITH HEADER LINE.
DATA: gt_scheme LIKE ztrc_scheme OCCURS 0 WITH HEADER LINE,
 gt_mail LIKE zmail_prov OCCURS 0 WITH HEADER LINE.
 gt_mail LIKE zmail." occurs 0 with header line.
DATA: gd_recsize TYPE i.
Spool IDs
TYPES: BEGIN OF t_tbtcp.
 INCLUDE STRUCTURE tbtcp.
TYPES: END OF t_tbtcp.
DATA: it_tbtcp TYPE STANDARD TABLE OF t_tbtcp INITIAL SIZE 0,
 wa_tbtcp TYPE t_tbtcp.
Job Runtime Parameters
DATA: gd_eventid LIKE tbtcm-eventid,
 gd_eventparm LIKE tbtcm-eventparm,
 gd_external_program_active LIKE tbtcm-xpgactive,
 gd_jobcount LIKE tbtcm-jobcount,
 gd_jobname LIKE tbtcm-jobname,
 gd_stepcount LIKE tbtcm-stepcount,
 gd_error TYPE sy-subrc,
 gd_reciever TYPE sy-subrc.
DATA: w_recsize TYPE i.
DATA: gd_subject LIKE sodocchgi1-obj_descr,
 it_mess_bod LIKE solisti1 OCCURS 0 WITH HEADER LINE,
 it_mess_att LIKE solisti1 OCCURS 0 WITH HEADER LINE,
 gd_sender_type LIKE soextreci1-adr_typ,
 gd_attachment_desc TYPE so_obj_nam,
 gd_attachment_name TYPE so_obj_des.
Spool to PDF conversions
DATA: gd_spool_nr LIKE tsp01-rqident,
 gd_destination LIKE rlgrap-filename,
 gd_bytecount LIKE tst01-dsize,
 gd_buffer TYPE string.
Binary store for PDF
DATA: BEGIN OF it_pdf_output OCCURS 0.
 INCLUDE STRUCTURE tline.
DATA: END OF it_pdf_output.
CONSTANTS: c_dev LIKE sy-sysid VALUE 'DEV',
 c_no(1) TYPE c VALUE ' ',
 c_device(4) TYPE c VALUE 'LOCL'.
DATA: check TYPE c,
 days TYPE i.


Hi Prashant,
Thanks for your reply. Really it is very useful one.
In this, the output list is getting populated into spool and to pdf.
But my requirement sending the internal table contents to spool directly without dispalying in the output list.
I did the program like the above mentioned one already. But my requirement is not that one.
Regards
chakradhar

Problem in converting Spool to PDF file, having non-English characters

Hi All,
I have problem in converting Spool to PDF format.
Scenario : I have a spool which has non-English characters. I am using CONVERT_ABAPSPOOLJOB_2_PDF FM to perform conversion. But my output is having junk values( ie # ) for non-English characters. Any pointers to solve this issue will be appreciated.
I even tried with report RSTXPDFT4 , it also gives me the same junk characters.
Regards,
Navin.

Hi All,
I have problem in converting Spool to PDF format.
Scenario : I have a spool which has non-English characters. I am using CONVERT_ABAPSPOOLJOB_2_PDF FM to perform conversion. But my output is having junk values( ie # ) for non-English characters. Any pointers to solve this issue will be appreciated.
I even tried with report RSTXPDFT4 , it also gives me the same junk characters.
Regards,
Navin.

Problem in converting spool to pdf

Hi Experts,
I want an internal table to be converted to the PDF. For this RSPO_OPEN_SPOOLREQUEST, RSPO_WRITE_SPOOLREQUEST and RSPO_CLOSE_SPOOLREQUEST to create the spool. However, somehow the table tsp01 does not gets updated as a result i could not convert the data to PDF. Can any one help me how this problem could be solved.
Thank.
Warm Regards,
Harshad.

Hi,
you can refer this sample code.
DATA: t_otfdata_tab LIKE ITCOO OCCURS 0 WITH HEADER LINE.
CALL FUNCTION 'CLOSE_FORM'
TABLES
OTFDATA = t_otfdata_tab
fill the exceptions..
IF SY-SUBRC = 0.
ENDIF.
then pass the t_otfdata_tab to this function module..
CONSTANTS: c_pdf(03) VALUE 'PDF'.
PDF File size
DATA: w_file_size TYPE I.
Internal Table to hold Form contents in PDF format
DATA: t_pdfdata_tab LIKE tline OCCURS 0 WITH HEADER LINE.
for converting. the output format from OTF to PDF
CALL FUNCTION 'CONVERT_OTF'
EXPORTING
FORMAT eq c_pdf
IMPORTING
BIN_FILESIZE = w_file_size
TABLES
OTF eq t_otfdata_tab
LINES eq t_pdfdata_tab
EXCEPTIONS...
use these links, hope it will be useful to you....
Problem in converting spool to PDF file
Problem in converting the spool to PDF.
Thanks and Regards,
Ahamed.

Background Submit to Spool, convert spool to PDF send via email

I am calling an ABAP in the background. this abap makes use of a custom table as the main driver ie on each change of vendor within this custom table I want to create a spool and email the spool - the spool is suppossed to be created via a submit RMCB0300 with screen selection to to sap-spool and return. I then want the program to take the spool convert it to PDF and email.
Problems I am encountering:
1. writing to the spool via background ABAP as follows
 submit RMCB0300 with selection-table rspar
 to sap-spool
 spool parameters %_print
 archive parameters %_archive
 without spool dynpro and return.
Doesn't appear to be creating the spool - rspar is populated.
2. Best way to retrieve the correct spool number.
3. how to successfully convert PDF output after CONVERT_ABAPSPOOLJOB_2_PDF for email attachment - if this returns IT_PDF_OUTPUT.
is this the best way to do it:
Loop at IT_PDF_OUTPUT
 Translate IT_PDF_OUTPUT using ' ~'.
 concatenate gd_buffer it_pdf_output into gd_buffer
 endloop.
 translate gd_buffer using '~ '
Do it_mess_att = gd_buffer.
 append it_mess_att.
 shift gd_buffer left by 255 places
 if gd_buffer is initial
 exit.
 endif.
enddo.
Thanks
Mark
Edited by: Matt on Apr 2, 2009 11:03 AM - amended title with formatting problems.

Please find the code for converting SPool to pdf and sending mail
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
 EXPORTING
 SRC_SPOOLID = LV_MI_RQIDENT
 NO_DIALOG = 'X'
 DST_DEVICE = LV_PRINT_PARMS-PDEST
 IMPORTING
 PDF_BYTECOUNT = LV_BYTECOUNT
 PDF_SPOOLID = LV_RQIDENT
 TABLES
 PDF = LT_MTAB_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.
 LOOP AT LT_MTAB_PDF INTO LWA_MTAB_PDF.
 TRANSLATE LWA_MTAB_PDF USING ' ~'.
 CONCATENATE LV_GD_BUFFER LWA_MTAB_PDF INTO LV_GD_BUFFER.
 CLEAR LWA_MTAB_PDF.
 ENDLOOP.
 TRANSLATE LV_GD_BUFFER USING '~ '.
 DO.
 LWA_MESS_ATT = LV_GD_BUFFER.
 APPEND LWA_MESS_ATT TO LT_MESS_ATT.
 CLEAR LWA_MESS_ATT.
 SHIFT LV_GD_BUFFER LEFT BY 255 PLACES.
 IF LV_GD_BUFFER IS INITIAL.
 EXIT.
 ENDIF.
 ENDDO.
 CLEAR: LWA_RECLIST, LT_RECLIST[],
 LT_OBJHEAD, LT_OBJHEAD[],
 LWA_OBJTXT, LT_OBJTXT[],
 LWA_OBJBIN, LT_OBJBIN[],
 LWA_OBJPACK, LT_OBJPACK[].
 " CLEAR LT_OBJBIN.
 REFRESH LT_OBJBIN.
 LT_OBJBIN[] = LT_MESS_ATT[].
 DESCRIBE TABLE LT_OBJBIN LINES LV_L_ATTACHMENT.
 LWA_OBJTXT = ''.
 APPEND LWA_OBJTXT TO LT_OBJTXT.
 CLEAR LWA_OBJTXT.
 DESCRIBE TABLE LT_OBJTXT LINES LV_L_TESTO.
 LT_DOC_CHNG-OBJ_NAME = 'STATUS_REPORT'.
 LT_DOC_CHNG-EXPIRY_DAT = SY-DATUM + 10.
 LT_DOC_CHNG-OBJ_DESCR = 'Generated File'. "#EC NOTEXT
 LT_DOC_CHNG-SENSITIVTY = 'F'.
 LT_DOC_CHNG-SENSITIVTY = 'O'.
 LT_DOC_CHNG-OBJ_PRIO = '1'.
 LT_DOC_CHNG-DOC_SIZE = LV_L_TESTO * 255.
 CLEAR LWA_OBJPACK-TRANSF_BIN.
 LWA_OBJPACK-HEAD_START = 1.
 LWA_OBJPACK-HEAD_NUM = 0.
 LWA_OBJPACK-BODY_START = 1.
 LWA_OBJPACK-BODY_NUM = LV_L_TESTO.
 LWA_OBJPACK-DOC_TYPE = 'RAW'.
 APPEND LWA_OBJPACK TO LT_OBJPACK.
 CLEAR LWA_OBJPACK.
 LWA_OBJPACK-TRANSF_BIN = 'X' .
 LWA_OBJPACK-HEAD_START = 1.
 LWA_OBJPACK-HEAD_NUM = 1.
 LWA_OBJPACK-BODY_START = 1.
 LWA_OBJPACK-BODY_NUM = LV_L_ATTACHMENT.
 LWA_OBJPACK-DOC_TYPE = 'PDF'.
 LWA_OBJPACK-OBJ_NAME ='SPOOL'.
 LWA_OBJPACK-OBJ_DESCR = 'Test'.
 LWA_OBJPACK-DOC_SIZE = LV_L_ATTACHMENT * 255.
 APPEND LWA_OBJPACK TO LT_OBJPACK.
 CLEAR LWA_OBJPACK.
 CLEAR LWA_RECLIST.
 LWA_RECLIST-COPY = 'X'.
 LWA_RECLIST-RECEIVER = P_EMAIL.
 LWA_RECLIST-REC_TYPE = 'U'.
 LWA_RECLIST-NOTIF_DEL = 'X'.
 LWA_RECLIST-NOTIF_NDEL = 'X'.
 APPEND LWA_RECLIST TO LT_RECLIST.
 CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
 EXPORTING
 DOCUMENT_DATA = LT_DOC_CHNG
 PUT_IN_OUTBOX = ' '
 COMMIT_WORK = 'X'
 TABLES
 PACKING_LIST = LT_OBJPACK
 OBJECT_HEADER = LT_OBJHEAD
 CONTENTS_BIN = LT_OBJBIN
 CONTENTS_TXT = LT_OBJTXT
 RECEIVERS = LT_RECLIST
 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.

Convert spool to PDF and send as email attachment

When i try to convert SAP spool to PDF and send it as email attachment, size of PDF document becomes large as compared to size of the PDF cocument i download using the same spool.
I am using following FMs.
CONVERT_ABAPSPOOLJOB_2_PDF to convert spool to PDF
and
SO_NEW_DOCUMENT_ATT_SEND_API1 to send email with attchment.
some times size of attchment exceeds 2MB and email results in error in SAP connect (SOST).
Any idea on how to compress the PDF attchment??
Thanks

Hi Venkat,
Can you plesae assist me.
I have a requirement to convert spool to pdf
send an email to users
issue is that attachement is big cant go through
I have used compress, but when I open the pdf file error that file was not correclty decoded
please assist, anyone

Double print in one line,when convert spool to PDF

Dear Expert:
I have a problem to solve when convert spool to PDF,there is one line will double imaged.
The form is created by smartforms.
I have tryed many ways,retype the text or start a new line,all didn't works.
So could any one tell me how to solve this problem.
Many thanks.
[Picture of the PDF|http://picasaweb.google.com/nika.wei/SAP#5274740000941172338]
Edited by: Nika Wei on Dec 1, 2008 9:50 AM

Thanks for your quick response.
I used the program you mentioned to download spool to PDF.The download file is like the link picture.
And the form will not overlap when I print it immediately.But it will overlap the first line when preview or convert to PDF. My user don't want to print it immediately they want to save it to PDF.
I know maybe there is something wrong with the format, I tryed retype the text but it didn't works.

While converting spool to PDF marathi character shown as symbolic in PDF

Hi guys,
I have requirement to send payslip via mail.i have developed program everything working well.get payslip,create spool and convert spool to pdf is working well.But issue is while converting spool into PDF then marathi character display like special symbols in PDF (in payslip emp.name , emp location,designation,department are in Marathi).
code as follow,
CALL FUNCTION 'GET_PAYSLIP'
 EXPORTING
 EMPLOYEE_NUMBER = WA-PERNR
 SEQUENCE_NUMBER = WA_PC261-SEQNR
 PAYSLIP_VARIANT = FORMULAR " 'ZN01'
 IMPORTING
 RETURN = RETURN
 P_INFO = PINFO
 TABLES
 P_FORM = PFORM.
 CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
 EXPORTING
 FORMNAME = 'ZHR_ESS_PAYSLIP_TO_PDF'
* VARIANT = ' '
* DIRECT_CALL = ' '
 IMPORTING
 FM_NAME = FNAME.
* EXCEPTIONS
* NO_FORM = 1
* NO_FUNCTION_MODULE = 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.
 SF_CONTROL_PARAMETERS-DEVICE = 'PRINTER'.
 SF_CONTROL_PARAMETERS-NO_DIALOG = 'X'.
 SF_OUTPUT_OPTIONS-TDNEWID = 'X'.
 SF_CONTROL_PARAMETERS-LANGU = SY-LANGU.
 SF_OUTPUT_OPTIONS-TDDEST = 'LP01'.
* SF_OUTPUT_OPTIONS-tdprinter = 'PDFUC'.
 CALL FUNCTION FNAME "'/1BCDWB/SF00000499'
 EXPORTING
* ARCHIVE_INDEX =
* ARCHIVE_INDEX_TAB =
* ARCHIVE_PARAMETERS =
 CONTROL_PARAMETERS = SF_CONTROL_PARAMETERS
* MAIL_APPL_OBJ =
* MAIL_RECIPIENT =
* MAIL_SENDER =
 OUTPUT_OPTIONS = SF_OUTPUT_OPTIONS
 USER_SETTINGS = ''
 PINFO = PINFO
 PFORM = PFORM
 IMPORTING
* DOCUMENT_OUTPUT_INFO =
 JOB_OUTPUT_INFO = JOB_OUTPUT_INFO
* JOB_OUTPUT_OPTIONS =
 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.
 IF JOB_OUTPUT_INFO-SPOOLIDS IS NOT INITIAL.
 LOOP AT JOB_OUTPUT_INFO-SPOOLIDS INTO LV_SPOOL.
 EXIT.
 ENDLOOP.
 REFRESH IT_TY_TAB_PDF.
 CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'
 EXPORTING
 SRC_SPOOLID = LV_SPOOL
 NO_DIALOG = ' '
 TABLES
 PDF = IT_TY_TAB_PDF
 EXCEPTIONS
 ERR_NO_OTF_SPOOLJOB = 1
 ERR_NO_SPOOLJOB = 2
 ERR_NO_PERMISSION = 3
 ERR_CONV_NOT_POSSIBLE = 4
 ERR_BAD_DSTDEVICE = 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.
 APPEND LINES OF IT_TY_TAB_PDF TO IT_TY_TAB_PDF1..
Please guys help on this issue.its urgent.

i am doing this...
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
 EXPORTING
 src_spoolid = l_spool_nr1
 no_dialog = 'X'
 dst_device = 'LOCL'
 IMPORTING
 pdf_bytecount = l_bytecount
 LIST_PAGECOUNT = l_page1
 TABLES
 pdf = itab_pdf_output
 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.
now l_bytecount stores the total number of bytes in the internal table itab_pdf_output. The value of this differs when i run in foreground nad background seperately

How to convert spool to pdf & then sent mail ?

For Billing document in SD module ,via VF02 we are creating spools.
We are using RSTXPDFT4, to convert spool request to PDF.
There are some 100 Invoices, & hence there are 100 spools.
We have to give this spool no one by one in the above program to convert to PDF, which is taking time.
Is there any way, where we can convert all the spools at one go & conver to PDF ?.Also, can this Billing document PDF, be directly sent to some recipients via e-mail from SAP ??
for the above problem ..i got the below link
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/8cd6adbb-0301-0010-39ba-938c601d5db9
in the program,what to give in selection screen.
which program is being called in submit.
also when i run the report....no mail is fired.
<removed_by_moderator>
Edited by: Julius Bussche on Oct 31, 2008 12:43 PM

try following code:
PERFORM frm_pro_email.
FORM frm_pro_email.
PERFORM convert_spool_to_pdf.
DESCRIBE TABLE gt_mess_att LINES gd_recsize.
CHECK gd_recsize > 0.
PERFORM send_email.
ENDFORM. " process_email
FORM convert_spool_to_pdf.
CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'
 EXPORTING
 src_spoolid = gs_scriptresults-tdspoolid
 no_dialog = ' '
 DST_DEVICE =
 PDF_DESTINATION =
 IMPORTING
 pdf_bytecount = numbytes
 pdf_spoolid = pdfspoolid
 OTF_PAGECOUNT =
 btc_jobname = jobname
 btc_jobcount = jobcount
 TABLES
 pdf = pdf
 EXCEPTIONS
 err_no_otf_spooljob = 1
 err_no_spooljob = 2
 err_no_permission = 3
 err_conv_not_possible = 4
 err_bad_dstdevice = 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.
IF sy-subrc <> 0.
 RAISE conversion_to_pdf.
ENDIF.
CHECK sy-subrc = 0.
CLEAR: gd_buffer, gt_mess_att.
REFRESH: gt_mess_att[].
Transfer the 132-long strings to 255-long strings
LOOP AT pdf.
 TRANSLATE pdf USING ' ~'.
 CONCATENATE gd_buffer pdf INTO gd_buffer.
ENDLOOP.
TRANSLATE gd_buffer USING '~ '.
DO.
 gt_mess_att = gd_buffer.
 APPEND gt_mess_att.
 SHIFT gd_buffer LEFT BY 255 PLACES.
 IF gd_buffer IS INITIAL.
 EXIT.
 ENDIF.
ENDDO.
ENDFORM. " conv
FORM send_email .
DATA: lv_sub(80).
CLEAR gd_subject.
REFRESH it_mess_bod.
Default subject matter
CONCATENATE 'IBM GLOBAL FINANCING ORDER CONFIRMATION'
 vbdka-vbeln
 INTO lv_sub SEPARATED BY space.
gd_attachment_desc = lv_sub.
DATA : p_sender LIKE somlreci1-receiver.
p_sender = gs_user-email.
If no sender specified - default blank
IF p_sender EQ space.
 gd_sender_type = space.
ELSE.
 gd_sender_type = 'INT'.
ENDIF.
it_mess_bod-line = c_head_text.
APPEND it_mess_bod.
it_mess_bod-line = c_email_text.
APPEND it_mess_bod.
it_mess_bod-line = c_email_text1.
APPEND it_mess_bod.
it_mess_bod-line = c_head_text.
APPEND it_mess_bod.
it_mess_bod-line = c_end_text.
APPEND it_mess_bod.
it_mess_bod-line = c_end_text.
APPEND it_mess_bod.
CLEAR it_mess_bod.
Send file by email as .pdf speadsheet
PERFORM send_file_as_email_attachment
 TABLES it_mess_bod
 gt_mess_att
 USING lv_sub
 'PDF'
 gd_attachment_name
 gd_attachment_desc
 p_sender
 gd_sender_type
 CHANGING gd_error
 gd_reciever.
ENDFORM. " send_email
FORM send_file_as_email_attachment TABLES it_message
 it_attach
 USING p_mtitle
 p_format
 p_filename
 p_attdescription
 p_sender_address
 p_sender_addres_type
 CHANGING p_error
 p_reciever.
DATA: ld_error TYPE sy-subrc,
 ld_mtitle LIKE sodocchgi1-obj_descr,
 ld_format TYPE so_obj_tp ,
 ld_attdescription(50), "TYPE so_obj_nam ,
 ld_attfilename TYPE so_obj_des ,
 ld_sender_address LIKE soextreci1-receiver,
 ld_sender_address_type LIKE soextreci1-adr_typ,
 ld_receiver LIKE sy-subrc.
DATA: t_packing_list LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE,
 t_receivers LIKE somlreci1 OCCURS 0 WITH HEADER LINE,
 t_attachment LIKE solisti1 OCCURS 0 WITH HEADER LINE,
 w_cnt TYPE i,
 w_sent_all(1) TYPE c, "#EC NEEDED
 w_doc_data LIKE sodocchgi1.
DATA : BEGIN OF gt_shptoemail OCCURS 0,
 lv_email LIKE somlreci1-receiver,
 END OF gt_shptoemail.
CLEAR gt_shptoemail.
REFRESH gt_shptoemail.
TABLES: vbpa.
SELECT SINGLE * FROM vbak
 WHERE vbeln = vbdka-vbeln.
SELECT SINGLE * INTO vbpa FROM vbpa
 WHERE vbeln = vbdka-vbeln
 AND parvw = 'RE'. " Bill to party
IF sy-subrc = 0.
 SELECT smtp_addr INTO TABLE gt_shptoemail FROM adr6
 WHERE addrnumber = vbpa-adrnr.
ELSE.
Can not find the Bill to part
 MESSAGE e999(zm) WITH
 text-e01.
ENDIF.
ld_mtitle = p_mtitle.
ld_format = p_format.
ld_attdescription = p_attdescription.
ld_attfilename = p_filename.
ld_sender_address = p_sender_address.
ld_sender_address_type = p_sender_addres_type.
Fill the document data.
w_doc_data-doc_size = 1.
Populate the subject/generic message attributes
w_doc_data-obj_langu = sy-langu.
w_doc_data-obj_name = 'SAPRPT'.
w_doc_data-obj_descr = ld_mtitle .
w_doc_data-sensitivty = 'F'.
Fill the document data and get size of attachment
CLEAR w_doc_data.
READ TABLE it_attach INDEX w_cnt.
w_doc_data-doc_size =
 ( w_cnt - 1 ) * 255 + STRLEN( it_attach ).
w_doc_data-obj_langu = sy-langu.
w_doc_data-obj_name = 'SAPRPT'.
w_doc_data-obj_descr = ld_mtitle.
w_doc_data-sensitivty = 'F'.
CLEAR t_attachment.
REFRESH t_attachment.
t_attachment[] = it_attach[].
Describe the body of the message
CLEAR t_packing_list.
REFRESH t_packing_list.
t_packing_list-transf_bin = space.
t_packing_list-head_start = 1.
t_packing_list-head_num = 0.
t_packing_list-body_start = 1.
DESCRIBE TABLE it_message LINES t_packing_list-body_num.
t_packing_list-doc_type = 'RAW'.
APPEND t_packing_list.
Create attachment notification
t_packing_list-transf_bin = 'X'.
t_packing_list-head_start = 1.
t_packing_list-head_num = 1.
t_packing_list-body_start = 1.
DESCRIBE TABLE t_attachment LINES t_packing_list-body_num.
t_packing_list-doc_type = ld_format.
t_packing_list-obj_descr = ld_attdescription.
t_packing_list-obj_name = ld_attfilename.
t_packing_list-doc_size = t_packing_list-body_num * 255.
APPEND t_packing_list.
Add the recipients email address
CLEAR t_receivers.
REFRESH t_receivers.
IF NOT gt_shptoemail[] IS INITIAL.
 SORT gt_shptoemail .
 DELETE ADJACENT DUPLICATES FROM gt_shptoemail.
 LOOP AT gt_shptoemail.
 t_receivers-receiver = gt_shptoemail-lv_email.
 t_receivers-rec_type = 'U'.
 t_receivers-com_type = 'INT'.
 t_receivers-notif_del = 'X'.
 t_receivers-notif_ndel = 'X'.
 APPEND t_receivers.
 CLEAR t_receivers.
 ENDLOOP.
ELSE.
There is no one to email the output to
 CLEAR: syst-msgv1, syst-msgv2, syst-msgv3, syst-msgv4.
 retcode = 1.
 syst-msgid = 'ZM'.
 syst-msgno = 005.
 syst-msgty = 'E'.
 syst-msgv1 = text-e02.
 PERFORM protocol_update.
ENDIF.
CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
 EXPORTING
 document_data = w_doc_data
 put_in_outbox = 'X'
 sender_address = ld_sender_address
 sender_address_type = ld_sender_address_type
 commit_work = 'X'
 IMPORTING
 sent_to_all = w_sent_all
 TABLES
 packing_list = t_packing_list
 contents_bin = t_attachment
 contents_txt = it_message
 receivers = t_receivers
 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.
 LOOP AT gt_shptoemail.
 syst-msgid = 'Z1'.
 syst-msgno = 075.
 syst-msgty = 'S'.
 syst-msgv1 = text-s01.
 syst-msgv2 = gt_shptoemail-lv_email.
 CLEAR syst-msgv3.
 CLEAR syst-msgv4.
 PERFORM protocol_update.
 IF sy-batch = 'X'.
 MESSAGE i999(z1) WITH text-s01 gt_shptoemail-lv_email.
 ENDIF.
 ENDLOOP.
ENDIF.
Populate zerror return code
ld_error = sy-subrc.
Populate zreceiver return code
LOOP AT t_receivers.
 ld_receiver = t_receivers-retrn_code.
ENDLOOP.
ENDFORM.

Convert spool to pdf and send in email sometimes attachment duplicated.

Hi all, I have a process that creates a spool, converts it to a pdf and then attaches it to an email. My problem is that sometimes, the same attachment is duplicated.
The process seems to work fine in debug mode (the attachment changes for each loop) but when I run it in the background, every few emails, it will duplicate an attachment.
I have noticed that the size of the pdf seems to change properly but that the content of the pdf does not match. So, it is like it gets the correct size of the pdf but not the body.
This is code that a consultant wrote and I am pretty new to abap/sap. I have changed some of the code because it was trying to handle an endless loop (I figured it should not have to handle (be in) an endless loop). I changed that code and it is working but this previous issue still exists. Thanks for your help.
*&      Form PROCESS_EMPLOYEE
FORM process_employee .
* process appraisal only
IF it_final[] IS NOT INITIAL .
*                READ DISTRIBUTION LIST                                *
    REFRESH : it_email, it_idlient.
*Sort by supervisor
    SORT it_final[] BY supervisor.
    LOOP AT it_final INTO wa_final .
      APPEND wa_final TO it_final1 .
      AT END OF supervisor .
* Perform to create the PDF from the Output
       report = 'zhr_pm_appemail'.
       PERFORM create_pdf using report.
** Perform to email the PDF attachment
** to the supervisor and the Mailing list
        subject = 'Performance Appraisals'.
        PERFORM process_email using subject.
        REFRESH it_final1 .
        CLEAR it_final1 .
        CLEAR wa_final .
        FREE MEMORY ID 'MEM'.
      ENDAT .
    ENDLOOP.
ENDIF.
ENDFORM.                    " PROCESS_EMPLOYEE
*&      Form CREATE_PDF
FORM create_pdf using report.
DATA: spoolno TYPE tsp01-rqident.
DATA : p_repid TYPE sy-repid .
DATA: v_len TYPE i , v_len1 TYPE i .
DATA: v_temp(8) TYPE c .
DATA: p_uname TYPE sy-uname .
DATA: it_tsp01 TYPE STANDARD TABLE OF tsp01 WITH HEADER LINE .
* DATA: it_pdf TYPE tline OCCURS 0 WITH HEADER LINE .
TABLES: tsp01.
DATA: var TYPE c .
*-- STRUCTURES
DATA:
    lc_rq2name TYPE tsp01-rq2name.
DATA:
    mstr_print_parms TYPE pri_params,
    mc_valid(1)      TYPE c,
    mi_bytecount     TYPE i,
    mi_length        TYPE i,
    mi_rqident       TYPE tsp01-rqident.
*-- INTERNAL TABLES
DATA:
    mtab_pdf    TYPE tline OCCURS 0 WITH HEADER LINE,
    mc_filename TYPE rlgrap-filename.
*-- SELECTION SCREEN
DATA:
    p_linsz TYPE sy-linsz VALUE 80, " Line size
    p_paart TYPE sy-paart VALUE 'X_65_80'. " Paper Format
    p_uname = sy-uname .
    var = var + 1.
    p_repid = report.
* START-OF-SELECTION .
concatenate p_repid+0(9)
              p_uname+0(3)
        into mc_filename
   separated by '_'.
translate mc_filename to upper case.
*-- Setup the Print Parmaters
CALL FUNCTION 'GET_PRINT_PARAMETERS'
    EXPORTING
      authority              = space
      copies                 = '1'
      cover_page             = space
      data_set               = space
      department             = space
      destination            = space
      expiration             = '1'
      immediately            = space
      new_list_id            = 'X'
      no_dialog              = 'X'
      user                   = sy-uname
    IMPORTING
      out_parameters         = mstr_print_parms
      valid                  = mc_valid
    EXCEPTIONS
      archive_info_not_found = 1
      invalid_print_params   = 2
      invalid_archive_params = 3
      OTHERS                 = 4.
IF sy-subrc = 0 .
*--Make sure that a printer destination has been set up. If this is not done the PDF module abends.
*-- Explicitly set line width, and output format so that
*-- the PDF conversion comes out OK
mstr_print_parms-linsz = p_linsz.
mstr_print_parms-paart = p_paart.
        EXPORT it_final1 it_email p_email1 p_sender p_date vl_nmth
        TO MEMORY ID 'MEM' .
      IF report =   'zhr_pm_appandprogemail'.
         SUBMIT zhr_pm_appandprogemail TO SAP-SPOOL WITHOUT SPOOL DYNPRO
      SPOOL PARAMETERS mstr_print_parms
      VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
      IF report =   'zhr_pm_appemail'.
         SUBMIT zhr_pm_appemail TO SAP-SPOOL WITHOUT SPOOL DYNPRO
      SPOOL PARAMETERS mstr_print_parms
      VIA SELECTION-SCREEN AND RETURN.
      ENDIF.
ENDIF.
*Find out what the spool number is that was just created
perform get_spool_number using p_repid p_uname changing mi_rqident.
*converting the spool request into pdf
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
    EXPORTING
      src_spoolid              = mi_rqident
      no_dialog                = space
      dst_device               = mstr_print_parms-pdest
    IMPORTING
      pdf_bytecount            = mi_bytecount
    TABLES
      pdf                      = it_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.
* call function 'DOWNLOAD'
*    exporting
*      bin_filesize      = mi_bytecount
*      filename          = mc_filename
*      filetype          = 'BIN'
*    importing
*      act_filename      = mc_filename
*    tables
*      data_tab          = it_mess_att.
CHECK sy-subrc = 0.
* Transfer the 132-long strings to 255-long strings
LOOP AT it_pdf INTO wa_pdf.
    TRANSLATE wa_pdf USING ' ~'.
    CONCATENATE v_gd_buffer wa_pdf INTO v_gd_buffer.
    CLEAR wa_pdf .
ENDLOOP.
TRANSLATE v_gd_buffer USING '~ '.
DO.
    it_mess_att = v_gd_buffer.
   APPEND it_mess_att.
    SHIFT v_gd_buffer LEFT BY 255 PLACES.
    IF v_gd_buffer IS INITIAL.
      EXIT.
    ENDIF.
ENDDO.
ENDFORM.                    " CREATE_PDF
* FORM get_spool_nunber *
* Get the most recent spool created by user/report                      *
form get_spool_number using f_repid
      f_uname changing f_rqident.
data:
        lc_rq2name TYPE rlgrap-filename.
concatenate f_repid+0(6)
              f_repid+7(3)
              f_uname+0(3)
        into lc_rq2name.
*   separated by '_'.
translate lc_rq2name to upper case.
select * from tsp01 where rq2name = lc_rq2name
    order by rqcretime descending.
      f_rqident = tsp01-rqident.
      exit.
      endselect.
      if sy-subrc ne 0.
        clear f_rqident.
      endif.
endform. " get spool number
*&      Form SEND_MAIL
FORM send_email USING p_email subject.
REFRESH it_mess_bod.
* Default subject matter
gd_subject         = text-019 ."'Subject'.
gd_attachment_desc = text-020 ."'Performance Appraisal'.
IF subject =   'Performance Appraisals and Progression I'.
    gd_attachment_desc = 'PerfAppAndProg'.
ENDIF.
IF subject =   'Performance Appraisals'.
    gd_attachment_desc = 'PerfAppraisal'.
ENDIF.
* If no sender specified - default blank
IF p_sender EQ space.
    gd_sender_type = space.
ELSE.
    gd_sender_type = 'INT'.
ENDIF.
* Send file by email as .pdf
PERFORM send_file_as_email_attachment
                               TABLES it_mess_bod
                                      it_mess_att
                                USING p_email
                                      subject
                                      'PDF'
                                      gd_attachment_desc
                                      gd_attachment_desc
                                      p_sender
                                      gd_sender_type
                             CHANGING gd_error
                                      gd_reciever.
ENDFORM.                    " SEND_MAIL
*       FORM process_email                                            *
FORM process_email using subject.
DESCRIBE TABLE it_mess_att LINES gd_recsize.
CHECK gd_recsize > 0.
PERFORM send_email USING p_email1 subject.
* perform send_email using p_email2.
ENDFORM.                    "process_email
*&      Form SEND_FILE_AS_EMAIL_ATTACHMENT
*       Send email
FORM send_file_as_email_attachment TABLES it_message
                                          it_attach
                                    USING p_email
                                          p_mtitle
                                          p_format
                                          p_filename
                                          p_attdescription
                                          p_sender_address
                                          p_sender_addres_type
                                 CHANGING p_error
                                          p_reciever.
CLEAR : ld_email , ld_mtitle , ld_format , ld_attdescription ,
    ld_attfilename , ld_sender_address , ld_sender_address_type ,
    w_doc_data.
REFRESH: t_packing_list.
ld_email   = p_email.
ld_mtitle = p_mtitle.
ld_format              = p_format.
ld_attdescription      = p_attdescription.
ld_attfilename         = p_filename.
ld_sender_address      = p_sender_address.
ld_sender_address_type = p_sender_addres_type.
* Fill the document data.
w_doc_data-doc_size = 1.
* Populate the subject/generic message attributes
w_doc_data-obj_langu = sy-langu.
w_doc_data-obj_name = 'SAPRPT'.
w_doc_data-obj_descr = ld_mtitle .
w_doc_data-sensitivty = 'F'.
* Fill the document data and get size of attachment
CLEAR w_doc_data.
READ TABLE it_attach INDEX w_cnt.
w_doc_data-doc_size =
     ( w_cnt - 1 ) * 255 + STRLEN( it_attach ).
w_doc_data-obj_langu = sy-langu.
w_doc_data-obj_name   = 'SAPRPT'.
w_doc_data-obj_descr = ld_mtitle.
w_doc_data-sensitivty = 'F'.
CLEAR t_attachment.
REFRESH t_attachment.
t_attachment[] = it_attach[].
* Describe the body of the message
CLEAR t_packing_list.
REFRESH t_packing_list.
t_packing_list-transf_bin = space.
t_packing_list-head_start = 1.
t_packing_list-head_num = 0.
t_packing_list-body_start = 1.
DESCRIBE TABLE it_message LINES t_packing_list-body_num.
t_packing_list-doc_type = 'RAW'.
APPEND t_packing_list.
* Create attachment notification
t_packing_list-transf_bin = 'X'.
t_packing_list-head_start = 1.
t_packing_list-head_num   = 1.
t_packing_list-body_start = 1.
DESCRIBE TABLE t_attachment LINES t_packing_list-body_num.
t_packing_list-doc_type   = ld_format.
t_packing_list-obj_descr = ld_attdescription.
t_packing_list-obj_name   = ld_attfilename.
t_packing_list-doc_size   = t_packing_list-body_num * 255.
APPEND t_packing_list.
* Add the recipients email address
CLEAR t_receivers.
t_receivers-receiver = ld_email.
t_receivers-rec_type = 'U'.
t_receivers-com_type = 'INT'.
t_receivers-notif_del = 'X'.
t_receivers-notif_ndel = 'X'.
APPEND t_receivers.
LOOP AT it_email.
* Add the recipients email address
    t_receivers-receiver = it_email.
    t_receivers-rec_type = 'U'.
    t_receivers-com_type = 'INT'.
    t_receivers-notif_del = 'X'.
    t_receivers-notif_ndel = 'X'.
    APPEND t_receivers.
ENDLOOP.
CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
       EXPORTING
            document_data              = w_doc_data
            put_in_outbox              = 'X'
            sender_address             = ld_sender_address
            sender_address_type        = ld_sender_address_type
            commit_work                = 'X'
       IMPORTING
            sent_to_all                = w_sent_all
       TABLES
            packing_list               = t_packing_list
            contents_bin               = t_attachment
*            CONTENTS_HEX               = t_attachment
            contents_txt               = it_message
            receivers                  = t_receivers
       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.
    PERFORM update_infotype_0019 .
ENDIF.
* Populate zerror return code
* ld_error = sy-subrc.
** stop .
* READ TABLE t_receivers WITH KEY retrn_code = '0' .
* IF sy-subrc = 0 .
*    v_update_flag = '1' .
*    EXPORT v_update_flag TO MEMORY ID 'MEM2' .
* ENDIF .
** Populate zreceiver return code
* LOOP AT t_receivers.
*    ld_receiver = t_receivers-retrn_code.
* ENDLOOP.
ENDFORM.                    "send_file_as_email_attachment
*&      Form GET_NEXT_MONTH
FORM get_next_month .
CLEAR v_month .
v_month = vl_nmth+4(2).
REFRESH it_t247 .
CLEAR it_t247 .
CALL FUNCTION 'IDWT_READ_MONTH_TEXT'
    EXPORTING
      langu = 'E'
      month = v_month
    IMPORTING
      t247 = it_t247.
CLEAR v_mon_text .
v_mon_text = it_t247-ltx .
ENDFORM.                    " GET_NEXT_MONTH
Edited by: Katie Doody on Feb 24, 2010 12:30 AM

Thank you for your response, this has allowed me to identify the problem. It is when I create the spool by using the code below. If I add a wait after this, the program works successfully. Is there another way to write the data to create a spool within my initial program rather than doing the submit? Could it be that it is putting data in memory?
SUBMIT zhr_pm_appandprogemail TO SAP-SPOOL WITHOUT SPOOL DYNPRO
      SPOOL PARAMETERS mstr_print_parms
      VIA SELECTION-SCREEN AND RETURN.
*& Report ZHR_PM_APPANDPROGEMAIL
REPORT ZHR_PM_APPANDPROGEMAIL
        NO STANDARD PAGE HEADING
        LINE-SIZE 80
        LINE-COUNT 65(8).
*        MESSAGE-ID zhr.
* INTERNAL TABLES DECLARATION
DATA: it_pdf TYPE tline OCCURS 0 ." WITH HEADER LINE .
* WORK AEA DECLARATION
DATA: wa_pdf TYPE tline .
* Spool to PDF conversions
*DATA: "gd_spool_nr TYPE tsp01-rqident,
*      gd_destination TYPE rlgrap-filename,
*      gd_bytecount TYPE tst01-dsize,
DATA:v_update_flag TYPE c .                                   "flag for updating infotype 41 last appraisal date
DATA: v_gd_buffer TYPE string.
DATA: BEGIN OF it_final1 OCCURS 0 ,
        supervisor      TYPE persno ,
        pernr           TYPE persno ,
        ename           TYPE pa0001-ename ,
        subgroup        TYPE persk ,
        stext           TYPE t503t-ptext ,
        lastapp         TYPE dats ,
        lastjob         TYPE dats ,
        email           TYPE ztype,
        darxx(5)        TYPE c,
        progression(1) TYPE c,
        supervisor_desc(50) TYPE c,
      END OF it_final1 .
DATA:   t_packing_list TYPE sopcklsti1 OCCURS 0 WITH HEADER LINE,
        t_contents TYPE solisti1 OCCURS 0 WITH HEADER LINE,
        t_receivers TYPE somlreci1 OCCURS 0 WITH HEADER LINE,
        t_attachment TYPE solisti1 OCCURS 0 WITH HEADER LINE,
        t_object_header TYPE solisti1 OCCURS 0 WITH HEADER LINE,
        w_cnt TYPE i,
        w_sent_all(1) TYPE c,
        w_doc_data TYPE sodocchgi1 .
DATA: gd_error    TYPE sy-subrc,
      gd_reciever TYPE sy-subrc.
DATA: v_flag TYPE c VALUE '1' .
DATA: BEGIN OF it_final OCCURS 0 ,
        subgroup       TYPE persk ,
        supervisor     TYPE persno ,
        pernr          TYPE persno ,
        ename          TYPE pa0001-ename ,
        stext          TYPE t503t-ptext ,
        lastapp        TYPE dats ,
        lastjob        TYPE dats ,
        email          TYPE ztype,
        progression(1) TYPE c,
        supervisor_desc(50) TYPE c,
      END OF it_final .
DATA:it_t247 TYPE STANDARD TABLE OF t247 WITH HEADER LINE .
DATA: it_email TYPE STANDARD TABLE OF zemail WITH HEADER LINE.
*VARIABLE DECLARATION
DATA: p_date   TYPE sy-datum ,               "excution date
      vl_date TYPE sy-datum ,
      p_email1 TYPE somlreci1-receiver ,     "receiver
      p_sender TYPE somlreci1-receiver .     "sender
DATA: w_recsize TYPE i.
DATA: gd_recsize TYPE i.
DATA : vl_nmth TYPE sy-datum.
DATA: v_month(2) TYPE n .
DATA: v_mon_text TYPE t247-ltx .
*START OF SELECTION
START-OF-SELECTION .
REFRESH t_receivers.
IMPORT it_final1 it_email p_email1 p_sender p_date vl_nmth FROM MEMORY ID 'MEM'.
PERFORM get_next_month .
LOOP AT it_final1 .
    IF it_final1-progression IS NOT INITIAL.
      MOVE-CORRESPONDING it_final1 TO it_final .
      APPEND it_final .
      CLEAR it_final .
*   Add the recipients email address
      t_receivers-receiver = it_final1-email.
      t_receivers-rec_type = 'U'.
      t_receivers-com_type = 'INT'.
      t_receivers-notif_del = 'X'.
      t_receivers-notif_ndel = 'X'.
      APPEND t_receivers.
    ENDIF.
ENDLOOP .
PERFORM write_output .
*END OF SELECTION
END-OF-SELECTION .
*&      Form WRITE_OUTPUT
FORM write_output .
DATA: l_date(14) TYPE c ,
        l_date_temp(14) TYPE c ,
        v_date(10) TYPE c ,
        v_date1(20) TYPE c ,
        v_date1_temp(20) TYPE c ,
        f_date(10) TYPE c.
DATA: lv_stext TYPE t503t-ptext .
CLEAR : v_date, v_date1.
CONCATENATE p_date+4(02) p_date+6(02) p_date+0(04)'.' INTO v_date.
CONCATENATE v_mon_text p_date+0(4) INTO l_date_temp SEPARATED BY space.
CONCATENATE l_date_temp '.' INTO l_date.
CONCATENATE v_mon_text vl_nmth+6(2) INTO v_date1_temp SEPARATED BY space.
CONCATENATE v_date1_temp ',' INTO v_date1_temp.
CONCATENATE v_date1_temp vl_nmth(4) INTO v_date1_temp SEPARATED BY space.
CONCATENATE v_date1_temp '.' INTO v_date1.
CONDENSE l_date .
FORMAT INTENSIFIED ON.
SKIP 4.
WRITE:/(80) text-001 CENTERED .         "'METROPOLITAN UTILITIES DISTRICT'.
WRITE:/(80) text-002 CENTERED .         "'OMAHA NEBR.'.
SKIP 2.
WRITE:/(80) text-003 CENTERED .        "'Inter-Departmental Communication'.
FORMAT INTENSIFIED OFF.
WRITE :/(80) v_date CENTERED using edit mask '__/__/____'.   " v_date.
SKIP 2.
WRITE: /10 text-004.                     "'SUBJECT:   Performance Appraisals and Progression Increase'.
SKIP 1.
WRITE: /10 text-005, it_final1-supervisor_desc. "'TO: Supervisor'.
SKIP 1.
WRITE: /10 text-006.                     "'FROM:      Anne M. Undajon, Director of Compensation and Benefits'.
SKIP 2.
WRITE:/10 text-007 .                       "'Listed below are the employees in your area who are due a '.
WRITE:/10 text-008 ,l_date.                "'Performance Appraisal during the month of ',l_date.'.      "v_mon_text , P_date+0(4)
WRITE:/10 text-009 .                       "'These employees are also eligible for a progression increase.
WRITE:/10 text-010 .                       "' A performance appraisal form can be found on-line in the MUD '.
WRITE:/10 text-011 .                       "'template section. The Performance Appraisal is to be completed '
WRITE:/10 text-012 .                       "'and discussed with the employee by the immediate supervisor.'
SKIP 2.
WRITE:/10 text-013.                        "Signed forms should be returned to the Human Resource Department by '.
WRITE:/10 v_date1.
SKIP 2 .
SORT it_final[] BY subgroup .
LOOP AT it_final .
    CLEAR: lv_stext .
    lv_stext = it_final-stext.
    AT NEW subgroup .
      TRANSLATE lv_stext TO UPPER CASE .
      WRITE:/(80) lv_stext CENTERED .
      SKIP 2 .
      WRITE: 10 text-014 .                      "'Employee name' .
      WRITE: 32 text-015 .                      "'Job Date' .
      WRITE :44 text-016 .                      "'Last Appraisal' .
      WRITE :59 text-021 .                      "'Employee' .
      WRITE :/10 '--------------------' , 32'----------', 44 '--------------', 59 '--------'.
    ENDAT .
    WRITE:/10 it_final-ename .
    WRITE: 32 it_final-lastjob using edit mask '__/__/____'.
    CONCATENATE it_final-lastapp+4(02) it_final-lastapp+6(02) it_final-lastapp+0(04) INTO f_date.
    WRITE :44 f_date using edit mask '__/__/____'.
    SHIFT it_final-pernr left deleting leading '0'.
    WRITE : 59 it_final-pernr.
    SKIP 2 .
ENDLOOP.
SKIP 4.
WRITE :10 text-017.             "'Anne M. Undajon'.
FORMAT INTENSIFIED ON.
WRITE:/10 text-018.              "'Director of Compensation & Benefits'.
FORMAT INTENSIFIED OFF.
ENDFORM.                    " WRITE_OUTPUT
*&      Form GET_NEXT_MONTH
FORM get_next_month .
CLEAR v_month .
v_month = vl_nmth+4(2).
REFRESH it_t247 .
CLEAR it_t247 .
CALL FUNCTION 'IDWT_READ_MONTH_TEXT'
    EXPORTING
      langu = 'E'
      month = v_month
    IMPORTING
      t247 = it_t247.
CLEAR v_mon_text .
v_mon_text = it_t247-ltx .
ENDFORM.                    " GET_NEXT_MONTH
Edited by: Katie Doody on Feb 24, 2010 4:07 PM

Data loss while converting spool to PDF in background

I am using CONVERT_ABAPSPOOLJOB_2_PDF to convert spool information to PDF.The bytecount in background is 1000 less than what i get by running the program forcibly in foregroud.I am very confused,any suggestions

i am doing this...
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
       EXPORTING
            src_spoolid              = l_spool_nr1
            no_dialog                = 'X'
            dst_device               = 'LOCL'
       IMPORTING
            pdf_bytecount            = l_bytecount
            LIST_PAGECOUNT           = l_page1
       TABLES
            pdf                      = itab_pdf_output
       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.
now l_bytecount stores the total number of bytes in the internal table itab_pdf_output. The value of this differs when i run in foreground nad background seperately

Problem with page size when converting spool to PDF

I have a SmartForm invoice which is formatted perfectly when I print it using the printer options specified when I open the form. However, when I send the output to spool, convert it to PDF using FM CONVERT_OTFSPOOLJOB_2_PDF, then print to the same printer, the format is not correct.
The PDF generation feature treats the page (standard letter size, portrait) as too large and shrinks the output to fit the page. It scales the entire invoice down by about 1/4 inch, which throws off our mailing envelope. If I change the page scaling option of Adobe Reader to 'None', my invoice is scrunched up into the top left corner of the page.
My page format is LETTER Portrait.
Any help or suggestions will be appreciated. Thanks.

hello see the sap note 843480

Converting spool to pdf to base64

Hello people
I am trying to convert a spool to pdf and then I need to convert the pdf to base64.
I used fm CONVERT_OTFSPOOLJOB_2_PDF to convert the spool to pdf, with the data returned in an internal table it_pdf of type tline.
I then need to convert it_pdf to base64, I did it as follows:
DATA: v_input       TYPE xstring,
          v_string64   TYPE string,
EXPORT it_pdf[] TO DATA BUFFER v_input. "convert to xstring
CALL FUNCTION 'SCMS_BASE64_ENCODE_STR'
    EXPORTING
      input = v_input
    IMPORTING
      output = v_string64
v_string64 seems to contain corrupt data, is this the correct way, anyone have any suggestions here?
Thanx in advance.

Just today someone has posted this link somewhere
https://wiki.sdn.sap.com/wiki/display/sandbox/Conversion%20of%20Spool%20Request%20Data%20into%20PDF%20and%20Excel%20Format%20and%20Send%20it%20into%20Mail

Problem while converting Spool to PDF

Hi,
I am sending ALV report output to Spool then converting the Spool to PDF using 'CONVERT_ABAPSPOOLJOB_2_PDF'.
I am able to send the mail but in the PDF, the first page contains data statistics(no. of records passed) but I want to supress it. I need to get my Actual output only.
Please help me regarding this.
Thanks,
Swathi

You need to set the print parameter of the ALV to avoid the statistics in the Spool.
Like:
data: ls_prnt type slis_print_alv.
ls_prnt-NO_PRINT_LISTINFOS = 'X'.
call function 'REUSE_ALV_GRID_DISPLAY'
is_print = ls_prnt
Regards,
Naimesh Patel

Convert spool to pdf & show in portal

Similar Messages

Maybe you are looking for