Skip to Content
0
Former Member
Feb 20, 2009 at 07:06 PM

Conversion of OTF(SapSCRIPT) to BASE64 data

1288 Views

How to make a SPOOL JOB created from SAPSCRIPT(OTF) to BASE64 Format for WEB. I have the following code ...but i am unable to convert PDF data into STR to further convert to BASE64 format?

CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'

EXPORTING

SRC_SPOOLID = ISPOOLID

NO_DIALOG = ''

  • DST_DEVICE = '014L'

IMPORTING

PDF_BYTECOUNT = IBYTE

TABLES

PDF = ITLINE

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.

CALL FUNCTION 'SX_TABLE_LINE_WIDTH_CHANGE'

EXPORTING

LINE_WIDTH_SRC = 134

LINE_WIDTH_DST = 255

  • TRANSFER_BIN = ' '

TABLES

CONTENT_IN = ITLINE

CONTENT_OUT = IPDF

  • 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.

DATA: STR TYPE STRING,

XSTR TYPE XSTRING.

CALL FUNCTION 'CONVERT_TABLE_TO_STRING'

EXPORTING

I_TABLINE_LENGTH = 255

IMPORTING

E_STRING = STR

TABLES

IT_TABLE = IPDF. "ITLINE.

DATA IDX TYPE I.

DESCRIBE TABLE IPDF LINES IDX.

IDX = ( IDX - 2 ) * 255.

SEARCH STR FOR 'EOF' STARTING AT IDX.

IDX = IDX + SY-FDPOS + 4.

STR = STR(IDX).

CALL FUNCTION 'SCMS_STRING_TO_XSTRING'

EXPORTING

TEXT = STR

IMPORTING

BUFFER = XSTR

EXCEPTIONS

FAILED = 1

OTHERS = 2

.

IF SY-SUBRC <> 0.

RAISE ERROR.

ENDIF.

CALL FUNCTION 'SCMS_BASE64_ENCODE_STR'

EXPORTING

INPUT = XSTR

IMPORTING

OUTPUT = STR.

CALL FUNCTION 'CONVERT_STRING_TO_TABLE'

EXPORTING

I_STRING = STR

I_TABLINE_LENGTH = 255

TABLES

ET_TABLE = IPDF.

ELSE.

ENDIF.

ENDFUNCTION.

Edited by: Madhu Gudur on Feb 21, 2009 10:39 PM