Problem concerting spool to PDF format

Question

Hi all,
I am trying a small program to write ABAP list to spool, and within the same program I am trying to convert the spool into PDF format. I am including all the code , please can any one check and tell me where I am going wrong. I am getting a message saying 0 bytes transferred.
Even the contents of the table pdf_table is empty.
REPORT ZWRITE_SPOOL .
tables tsp01.
DATA: val(1) TYPE c,
      pripar TYPE pri_params,
      arcpar TYPE arc_params,
      lay   TYPE pri_params-paart,
      lines TYPE pri_params-linct value 60,
      rows  TYPE pri_params-linsz value 80.
data : w_spoolnumber like tsp01-RQIDENT.
data : w_device like  tsp03-PADEST value 'H278' .
data begin of pdf_table occurs 0.
        include structure tline.
data end   of pdf_table.
data : MI_BYTECOUNT type i ,
       MC_FILENAME LIKE RLGRAP-FILENAME.
DATA: MTAB_PDF LIKE TLINE OCCURS 0 WITH HEADER LINE .
data pdf_fsize type i.
DATA: MSTR_PRINT_PARMS LIKE PRI_PARAMS ,
      MC_VALID(1) TYPE C .
CONCATENATE 'C:\TEMP\' sy-repid '.PDF' INTO MC_FILENAME.
*---- Code added
pripar-pdest = 'H278'.
pripar-prcop = 001.
pripar-plist = sy-repid.
pripar-prnew = 'X'.
pripar-pexpi = 8.
pripar-linct = 65.
pripar-linsz = 80.
pripar-paart = 'X_65_80'.
pripar-prsap = 'D'.
pripar-prrec = sy-uname.
pripar-prdsn = 'LIST1S'.
pripar-ptype = 'TEXT'.
pripar-armod = 1.
*---- End of code
perform format.
select single RQIDENT from tsp01 into w_spoolnumber
where RQ2NAME = sy-repid .
  NEW-PAGE PRINT OFF.
write w_spoolnumber.
perform spool_to_pdf.
     Form  format
FORM format.
  CALL FUNCTION 'GET_PRINT_PARAMETERS'
       EXPORTING
            in_archive_parameters  = arcpar
            in_parameters          = pripar
            layout                 = lay
            line_count             = lines
            line_size              = rows
            no_dialog              = 'X'
       IMPORTING
            out_archive_parameters = arcpar
            out_parameters         = pripar
            valid                  = val
       EXCEPTIONS
            archive_info_not_found = 1
            invalid_print_params   = 2
            invalid_archive_params = 3
            OTHERS                 = 4.
  IF val <> space AND sy-subrc = 0.
    PERFORM list.
  ENDIF.
endform.                    " format
FORM list.
  NEW-PAGE PRINT ON
    NEW-SECTION
    PARAMETERS pripar
    ARCHIVE PARAMETERS arcpar
    NO DIALOG.
write 'SAP PROGRAMMING USING ABAP'.
ENDFORM.
     Form  spool_to_pdf
form spool_to_pdf.
call function 'CONVERT_ABAPSPOOLJOB_2_PDF'
     exporting
          src_spoolid   = w_spoolnumber
          no_dialog     = 'X'
          DST_DEVICE    = w_device
     importing
          pdf_bytecount = pdf_fsize
     tables
          pdf           = pdf_table
     exceptions
          others        = 0.
CALL FUNCTION 'DOWNLOAD'
EXPORTING
BIN_FILESIZE = MI_BYTECOUNT
FILENAME = MC_FILENAME
FILETYPE = 'BIN'
IMPORTING
ACT_FILENAME = MC_FILENAME
TABLES
DATA_TAB = MTAB_PDF
EXCEPTIONS
INVALID_FILESIZE = 1
INVALID_TABLE_WIDTH = 2
INVALID_TYPE = 3
NO_BATCH = 4
UNKNOWN_ERROR = 5
GUI_REFUSE_FILETRANSFER = 6
CUSTOMER_ERROR = 7
OTHERS = 8.
endform.                    " spool_to_pdf
Thanks,
Varun.

Answer 1

hi Varun,
    Check for the <b>internal Table data/work area</b> as whether data is getting populated in to that or not.
i.e,
CALL FUNCTION 'DOWNLOAD'
EXPORTING
BIN_FILESIZE = MI_BYTECOUNT
FILENAME = MC_FILENAME
FILETYPE = 'BIN'
IMPORTING
ACT_FILENAME = MC_FILENAME
TABLES
<b>DATA_TAB = MTAB_PDF</b>
EXCEPTIONS
INVALID_FILESIZE = 1
INVALID_TABLE_WIDTH = 2
INVALID_TYPE = 3
NO_BATCH = 4
UNKNOWN_ERROR = 5
GUI_REFUSE_FILETRANSFER = 6
CUSTOMER_ERROR = 7
OTHERS = 8.
<b>check whether data is getting populated in MATAB_PDF in debug mode.</b>
Regards,
Santosh