11-29-2005 6:40 PM
Hi All,
My task is to email the list(ABAP Program) output. I had successfully generated the spool.
<b>Problem is, when i try convert the spool into PDF thru FM CONVERT_ABAPSPOOLJOB_2_PDF, the output internal table is showing some system understandable data...</b>
Dont know what to do, to get my list output from this internal table data.
Any help...
Regards,
Raj
11-29-2005 7:02 PM
Hi Raj;
Check this post; it looks like someone else had a similar problem.
http://groups.yahoo.com/group/ABAP/message/3634
Cheers,
John
11-29-2005 7:08 PM
11-29-2005 7:08 PM
11-29-2005 7:09 PM
I Hope this will solve your Problem.
Please close this thread if your problem solves.
If it helps please reward .
thanks
vijay
Message was edited by: Vijay Babu Dudla
11-29-2005 8:29 PM
This might be of some help.
FORM DOWNLOAD_TO_PDF .
DATA: VAL(1) TYPE C,
PRIPAR TYPE PRI_PARAMS,
ARCPAR TYPE ARC_PARAMS.
DATA: LIST_NAME LIKE PRI_PARAMS-PLIST.
DATA: LIST_TEXT LIKE PRI_PARAMS-PRTXT.
DATA: LAYOUT LIKE PRI_PARAMS-PAART.
DATA: LINESIZE LIKE PRI_PARAMS-LINSZ.
DATA: BEGIN OF PDF OCCURS 1.
INCLUDE STRUCTURE TLINE.
DATA: END OF PDF.
DATA: BYTES TYPE I.
DATA: CRE_TIME LIKE TSP01-RQCRETIME.
get time field rtime.
concatenate sy-datum rtime into cre_time.
*Get UTC (Universal Time Coordination)
DATA: RTIME TYPE TIMESTAMP.
GET TIME STAMP FIELD RTIME.
CRE_TIME = RTIME.
SHIFT CRE_TIME LEFT DELETING LEADING SPACE.
LIST_NAME = 'SRSOUT'.
LIST_TEXT = 'SRS OUT SERVICE'.
LAYOUT = 'X_65_132'.
LINESIZE = 132.
CALL FUNCTION 'GET_PRINT_PARAMETERS'
EXPORTING DESTINATION = 'LOCL'
COPIES = 1
LIST_NAME = LIST_NAME
LIST_TEXT = LIST_TEXT
IMMEDIATELY = ' '
RELEASE = 'X'
NEW_LIST_ID = 'X'
EXPIRATION = 1
LINE_SIZE = LINESIZE
LINE_COUNT =
LAYOUT = LAYOUT
SAP_COVER_PAGE = ' '
COVER_PAGE = ' '
RECEIVER = 'SAP*'
DEPARTMENT = TEXT-020 " Retail
NO_DIALOG = 'X'
IMPORTING OUT_PARAMETERS = PRIPAR
VALID = VAL.
CHECK VAL EQ 'X'.
NEW-PAGE PRINT ON
NEW-SECTION
NO-TITLE
PARAMETERS PRIPAR
ARCHIVE PARAMETERS ARCPAR
NO DIALOG.
SKIP 1.
CLEAR V_TOTAL.
LOOP AT IT_OUTPUT.
V_TOTAL = V_TOTAL + IT_OUTPUT-PRICE.
WRITE:/5(6) it_output-item,
(19) it_output-upc,
(19) it_output-matnr,
(41) it_output-maktx,
(10) it_output-qty,
(17) it_output-price.
WRITE:/5(6) IT_OUTPUT-ITEM,
(19) IT_OUTPUT-V_UPC,
(19) IT_OUTPUT-V_MATNR,
(41) IT_OUTPUT-MAKTX,
(10) IT_OUTPUT-V_QTY,
(17) IT_OUTPUT-PRICE RIGHT-JUSTIFIED.
AT LAST.
WRITE 😕 SY-ULINE.
WRITE :/90(20) TEXT-022, " Total Price
105(17) V_TOTAL RIGHT-JUSTIFIED.
ENDAT.
ENDLOOP.
WRITE:/ SY-ULINE.
NEW-PAGE PRINT OFF.
COMMIT WORK AND WAIT.
DATA: RDI_SPOOL_ID LIKE TSP01-RQIDENT.
SELECT RQIDENT FROM TSP01 INTO RDI_SPOOL_ID WHERE
RQCLIENT = SY-MANDT AND
RQ1NAME = PRIPAR-PDEST AND
RQ2NAME = LIST_NAME AND
RQOWNER = SY-UNAME AND
RQDEST = PRIPAR-PDEST AND
RQTITLE = LIST_TEXT AND
RQCRETIME >= CRE_TIME
ORDER BY RQIDENT.
ENDSELECT.
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
EXPORTING
SRC_SPOOLID = RDI_SPOOL_ID
NO_DIALOG = 'X'
IMPORTING
PDF_BYTECOUNT = BYTES
TABLES
PDF = 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.
ENDFORM. " download_to_pdf
11-29-2005 8:53 PM
Hi,
Refer to the program RSTXPDF5 OR..
You can use the following code .
read ABAP spooljob and convert to PDF, write into new spooljob
*
constants: c_pdfcnv_pdfdst_spooljob type c value 'S'.
data: pdf like tline occurs 1.
data: cur_system_lang like sy-langu,
otf_pagecount type i,
toolarge,
pdf_bytecount type i,
pdf_spoolid like tsp01-rqident,
subrc like sy-subrc.
cur_system_lang = SY-LANGU.
convert to PDF
pdf_bytecount = 0.
perform pdfcnv_convertlist(SAPLSTXW)
tables pdf
using spoolno
c_pdfcnv_pdfdst_spooljob
dstdevic
pdf_spoolid
pdf_bytecount.