File opening error-smartform pdf

Question

dear friends ,
i created a smartform and converted the smart form into pdf file and downloaded the same but when im trying to open the file a pop-up is coming with the msg like the file is corrupted or damaged. can any one help me on this issue. for ur convineince im  putting the code also..
DATA :  I_OTF TYPE ITCOO OCCURS 0 WITH HEADER LINE,
        I_TLINE TYPE TABLE OF TLINE WITH HEADER LINE,
        I_RECEIVERS TYPE TABLE OF SOMLRECI1 WITH HEADER LINE,
        I_RECORD LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
        I_OBJPACK LIKE SOPCKLSTI1 OCCURS 0 WITH HEADER LINE,
        I_OBJTXT LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
        I_OBJBIN LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
        I_RECLIST LIKE SOMLRECI1 OCCURS 0 WITH HEADER LINE,
        PDF LIKE TLINE OCCURS 0 WITH HEADER LINE,
Work Area declarations
        WA_OBJHEAD TYPE SOLI_TAB,
        W_CTRLOP TYPE SSFCTRLOP,
        W_COMPOP TYPE SSFCOMPOP,
        W_RETURN TYPE SSFCRESCL,
        WA_DOC_CHNG TYPE SODOCCHGI1,
        W_DATA TYPE SODOCCHGI1,
        WA_BUFFER TYPE STRING,"To convert from 132 to 255
        V_FORM_NAME TYPE RS38L_FNAM,
        V_LEN_IN LIKE SOOD-OBJDBLEN,
        V_LEN_OUT LIKE SOOD-OBJLEN,
        V_LEN_OUTN TYPE I,
        V_LINES_TXT TYPE I,
        V_LINES_BIN TYPE I.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
FORMNAME = 'ZRD_PINU'"give ur smartform name
IMPORTING
FM_NAME = V_FORM_NAME
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.
W_CTRLOP-GETOTF = 'X'.
W_CTRLOP-NO_DIALOG = 'X'.
W_COMPOP-TDNOPREV = 'X'.
CALL FUNCTION V_FORM_NAME
EXPORTING
CONTROL_PARAMETERS = W_CTRLOP
OUTPUT_OPTIONS = W_COMPOP
USER_SETTINGS = 'X'
IMPORTING
JOB_OUTPUT_INFO = W_RETURN
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.
I_OTF[] = W_RETURN-OTFDATA[].
CALL FUNCTION 'CONVERT_OTF'
EXPORTING
FORMAT = 'PDF'
MAX_LINEWIDTH = 132
IMPORTING
BIN_FILESIZE = V_LEN_IN
TABLES
OTF = W_RETURN-OTFDATA
LINES = I_TLINE
EXCEPTIONS
ERR_MAX_LINEWIDTH = 1
ERR_FORMAT = 2
ERR_CONV_NOT_POSSIBLE = 3
OTHERS = 4.
Fehlerhandling
IF SY-SUBRC <> 0.
ENDIF.
CALL FUNCTION 'GUI_DOWNLOAD'
  EXPORTING
  BIN_FILESIZE                  =
    FILENAME                      = 'c:\ktsf.pdf'
   FILETYPE                      = 'ASC'
  APPEND                        = ' '
  WRITE_FIELD_SEPARATOR         = ''
  HEADER                        = '00'
  TRUNC_TRAILING_BLANKS         = ' '
  WRITE_LF                      = 'X'
  COL_SELECT                    = ' '
  COL_SELECT_MASK               = ' '
  DAT_MODE                      = ' '
IMPORTING
  FILELENGTH                    =
  TABLES
    DATA_TAB                      = I_TLINE
EXCEPTIONS
  FILE_WRITE_ERROR              = 1
  NO_BATCH                      = 2
  GUI_REFUSE_FILETRANSFER       = 3
  INVALID_TYPE                  = 4
  NO_AUTHORITY                  = 5
  UNKNOWN_ERROR                 = 6
  HEADER_NOT_ALLOWED            = 7
  SEPARATOR_NOT_ALLOWED         = 8
  FILESIZE_NOT_ALLOWED          = 9
  HEADER_TOO_LONG               = 10
  DP_ERROR_CREATE               = 11
  DP_ERROR_SEND                 = 12
  DP_ERROR_WRITE                = 13
  UNKNOWN_DP_ERROR              = 14
  ACCESS_DENIED                 = 15
  DP_OUT_OF_MEMORY              = 16
  DISK_FULL                     = 17
  DP_TIMEOUT                    = 18
  FILE_NOT_FOUND                = 19
  DATAPROVIDER_EXCEPTION        = 20
  CONTROL_FLUSH_ERROR           = 21
  OTHERS                        = 22
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Thanks in advance.
Regards..
DurgaPrasad.K

Answer 1

Hi again,
1. I just tried at my end,
   and now it works fine.
2. I have used another FM
   for converting to PDF.
CONVERT_OTF_2_PDF
3. use like this
(u may change the variable name as per ur requirement)
data : myline like table of tline with header line.
data : docs like table of DOCS with header line.
CALL FUNCTION 'CONVERT_OTF_2_PDF'
EXPORTING
  USE_OTF_MC_CMD               = 'X'
  ARCHIVE_INDEX                =
IMPORTING
  BIN_FILESIZE                 =
  TABLES
    OTF                          = otf
    DOCTAB_ARCHIVE               = docs
    LINES                        = myline
EXCEPTIONS
  ERR_CONV_NOT_POSSIBLE        = 1
  ERR_OTF_MC_NOENDMARKER       = 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.
4. Now download internal table
  MYLINE (using gui_download)
  in 'BIN' Format.
5. It will work fine !
regards,
amit m.