How to create a spool?

Question

Hi, some answers would be greatly appreciated.
In an ABAP program there is this internal table full of data, and I have to write its contents into a PDF. The only way it seems is to make a spool and then use CONVERT_ABAPSPOOLJOB_2_PDF function to convert that spool into PDF.
The question is how do I make a spool within the ABAP program?
Thanks!

Answer 1

Hi Welcome to SDN.
Check out the following code sample to create spool withing program.
data: loc_dest like pri_params-pdest .
  clear : wf_listname , loc_dest , wf_listtext .
  move: 'List name' to   wf_listname .
  move: 'List header text' to   wf_listtext .
select single spld into usr01-spld from usr01 where bname eq sy-uname .
  if sy-subrc eq 0 .
    move: usr01-spld to loc_dest .
  endif .
  call function 'GET_PRINT_PARAMETERS'
       exporting
            destination    = loc_dest
            copies         = wf_copies
            list_name      = wf_listname
            list_text      = wf_listtext
            immediately    = ' '
            release        = ' '
            new_list_id    = 'X'
            expiration     = wf_days
            line_size      = 200
            line_count     = 65
            layout         = 'X_65_200'
            sap_cover_page = 'X'
            receiver       = 'SAP*'
            department     = ''
            no_dialog      = 'X'
       importing
            out_parameters = wf_params
            valid          = wf_valid.
  if wf_valid <> space.
    new-page print on parameters wf_params no dialog.
    perform write_summary .
    new-page print off.
  endif .
within the write_summary do a normal write operation.
loop at <itab> .
write:/
endloop .
Hope this is clear.
REgards
Raja