Conversion of .txt file to pdf file

Question

Hi Experts,
I want to convert a text file to pdf.
I was able to create a pdf document but unable to open.
I have followed the following logic
1) uploaded the file using GUI_UPLOAD
2)used the FM GET_PRINT_PARAMETERS to set printer settings
3)Then  used three function modules in order
       a) RSPO_OPEN_SPOOLREQUEST
       b) RSPO_WRITE_SPOOLREQUEST
       c) RSPO_CLOSE_SPOOLREQUEST
I was able to see the data which I uploaded with the spool id  created in  'SP01'
4)Then I used the FM CONVERT_ABAPSPOOLJOB_2_PDF followed by
5) GUI_DOWNLOAD.
whatever the file size I upload I was able to get just five entries in the table obatined from CONVERT_ABAPSPOOLJOB_2_PDF
The error which I got when trying to  open the pdf created is "This file cannot be opened becuase it has no pages".
could any one suggest some solutions

Answer 1

check the below code if it helps you.
   DATA:    LV_ARCPAR TYPE ARC_PARAMS,
            LV_PRINT_PARMS TYPE PRI_PARAMS,
            LV_BYTECOUNT   TYPE I,
            LV_RQIDENT     TYPE TSP01-RQIDENT,
            LV_MI_RQIDENT   TYPE  TSP01-RQIDENT,
            LV_TEXT TYPE PRI_PARAMS-PRTXT.   "List Text
   DATA:    LV_GD_BUFFER TYPE STRING.
   DATA :   LT_MESS_ATT TYPE STANDARD TABLE OF SOLISTI1,
            LT_MTAB_PDF TYPE STANDARD TABLE OF TLINE,
            LT_OBJPACK  TYPE STANDARD TABLE OF SOPCKLSTI1,
            LT_OBJTXT   TYPE STANDARD TABLE OF SOLISTI1,
            LT_OBJBIN   TYPE STANDARD TABLE OF SOLISTI1,
            LT_RECLIST  TYPE STANDARD TABLE OF SOMLRECI1,
            LT_DOC_CHNG TYPE  SODOCCHGI1,
            LT_OBJHEAD TYPE SOLI_TAB,
            LV_L_ATTACHMENT  TYPE I,
            LV_L_TESTO TYPE I.
   DATA:  LWA_MTAB_PDF TYPE TLINE,
          LWA_OBJPACK  TYPE SOPCKLSTI1,
          LWA_MESS_ATT TYPE SOLISTI1,
          LWA_OBJTXT   TYPE SOLISTI1,
          LWA_OBJBIN  TYPE SOLISTI1,
          LWA_RECLIST TYPE SOMLRECI1.
   DATA : LV_VAL(1).
   CONSTANTS : LC_LINES TYPE PRI_PARAMS-LINCT VALUE 65,  "Line count
               LC_ROWS  TYPE PRI_PARAMS-LINSZ VALUE 255,  "Rows
               LC_TEMP_PRINT_PAART TYPE PRI_PARAMS-PAART VALUE
               'X_65_255'.
   CALL FUNCTION 'GET_PRINT_PARAMETERS'
     EXPORTING
       NO_DIALOG              = 'X'
     IMPORTING
       OUT_PARAMETERS         = LV_PRINT_PARMS
       OUT_ARCHIVE_PARAMETERS = LV_ARCPAR
       VALID                  = LV_VAL
     EXCEPTIONS
       ARCHIVE_INFO_NOT_FOUND = 1
       INVALID_PRINT_PARAMS   = 2
       INVALID_ARCHIVE_PARAMS = 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.
   LV_PRINT_PARMS-PAART = LC_TEMP_PRINT_PAART.
   CALL FUNCTION 'GET_PRINT_PARAMETERS'
     EXPORTING
       IN_ARCHIVE_PARAMETERS  = LV_ARCPAR
       IN_PARAMETERS          = LV_PRINT_PARMS
       LAYOUT                 = 'X_65_255'
       LINE_COUNT             = LC_LINES
       LINE_SIZE              = LC_ROWS
       LIST_TEXT              = LV_TEXT
       NO_DIALOG              = 'X'
     IMPORTING
       OUT_ARCHIVE_PARAMETERS = LV_ARCPAR
       OUT_PARAMETERS         = LV_PRINT_PARMS
       VALID                  = LV_VAL
     EXCEPTIONS
       ARCHIVE_INFO_NOT_FOUND = 1
       INVALID_PRINT_PARAMS   = 2
       INVALID_ARCHIVE_PARAMS = 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.
   LV_MI_RQIDENT = P_SPOOL.
   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[].
Object with PDF.
   "   CLEAR LT_OBJBIN.
   REFRESH LT_OBJBIN.
   LT_OBJBIN[] = LT_MESS_ATT[].
   DESCRIBE TABLE  LT_OBJBIN LINES LV_L_ATTACHMENT.
Object with main text of the mail.
   LWA_OBJTXT = ''.
   APPEND LWA_OBJTXT TO LT_OBJTXT.
   CLEAR LWA_OBJTXT.
   DESCRIBE TABLE LT_OBJTXT LINES LV_L_TESTO.
Document information.
   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.
Pack to main body.
   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.
Pack to PDF.
   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 = 'Generated File details'.       
   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.
    REFRESH : LT_OBJPACK, LT_OBJHEAD, LT_OBJBIN, LT_OBJTXT,
             LT_RECLIST.