CONVERT_OTFSPOOLJOB_2_PDF

 CONVERT_OTFSPOOLJOB_2_PDF

REPORT ZEXAMPLE.
TABLES TSP01.
DATA: OTF LIKE ITCOO OCCURS 100 WITH HEADER LINE,
PDF LIKE TLINE OCCURS 100 WITH HEADER LINE.
DATA: NUMBYTES TYPE I,
PDFSPOOLID LIKE TSP01-RQIDENT,
OBJTYPE LIKE RSTSTYPE-TYPE,
TYPE LIKE RSTSTYPE-TYPE,
CANCEL.
PARAMETERS: SPOOLNO LIKE TSP01-RQIDENT,
P_FILE LIKE RLGRAP-FILENAME DEFAULT 'C:\TEMP\DATA.PDF'.
SELECT SINGLE * FROM TSP01 WHERE RQIDENT = SPOOLNO.
IF SY-SUBRC <> 0.
WRITE: / 'SPOOL', SPOOLNO, 'DOES NOT EXIST'.
EXIT.
ENDIF.
CALL FUNCTION 'RSTS_GET_ATTRIBUTES'
EXPORTING
AUTHORITY = 'SP01'
CLIENT = TSP01-RQCLIENT
NAME = TSP01-RQO1NAME
PART = 1
IMPORTING
TYPE = TYPE
OBJTYPE = OBJTYPE

EXCEPTIONS
FB_ERROR = 1
FB_RSTS_OTHER = 2
NO_OBJECT = 3
NO_PERMISSION = 4.
IF SY-SUBRC EQ 0.
IF OBJTYPE(3) = 'OTF'.
CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'
EXPORTING
SRC_SPOOLID = SPOOLNO
NO_DIALOG = ' '
IMPORTING
PDF_BYTECOUNT = NUMBYTES
PDF_SPOOLID = PDFSPOOLID
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 NE 0.
WRITE:/ SPOOLNO, 'NOT CONVERTED TO PDF'.
EXIT.
ENDIF.
ELSE.
WRITE:/ SPOOLNO, 'IS NOT AN OTF'.
ENDIF.

CALL FUNCTION 'DOWNLOAD'
EXPORTING
BIN_FILESIZE = NUMBYTES
FILENAME = P_FILE
FILETYPE = 'BIN'
IMPORTING
ACT_FILENAME = P_FILE
FILESIZE = NUMBYTES
CANCEL = CANCEL
TABLES
DATA_TAB = PDF.
IF CANCEL = SPACE.
WRITE: / NUMBYTES, 'BYTES DOWNLOADED TO FILE', P_FILE.
ENDIF.
ELSE.

WRITE:/ 'ATTRIBUTES OF SPOOL', SPOOLNO, 'NOT FOUND'.
ENDIF.