Output of a report to spool

Question

Hi All,
how to send output of a report to spool and output of of report should not be display  and i need spool number in status bar of the selection screen.all this function should happen when i exectute selcetion after providing varient in selection and selection secreen should not change and in staus bar i need spool number.
thanks in advance

Answer 1

Try this too
Consider ZSPOOLTEST holds all your write statements.
call ZSPOOLTEST from a program in this manner
data: mstr_print_parms like pri_params.
data: mi_rqident       like tsp01-rqident.
call function 'GET_PRINT_PARAMETERS'
    exporting
      authority = space
      copies   = '1'
      cover_page                   = space
      data_set = space
      department                   = space
      destination                  = space
      expiration                   = '1'
      immediately                  = space
      in_archive_parameters        = space
      in_parameters                = space
      layout   = space
      mode     = space
      new_list_id                  = 'X'
      no_dialog = 'X'
      user     = sy-uname
    importing
      out_parameters               = mstr_print_parms
      valid    = mc_valid
    exceptions
      archive_info_not_found       = 1
      invalid_print_params         = 2
      invalid_archive_params       = 3
      others   = 4.
   if mstr_print_parms-pdest = space.
     mstr_print_parms-pdest = 'LOCL'.
   endif.
submit (ZSPOOLTEST) to sap-spool without spool dynpro  "Include any selection screen entries if any
                    spool parameters mstr_print_parms
                    and return.
perform get_spool_number using sy-repid
                                  sy-uname
                 changing mi_rqident.
if mi_rqident is not initial.
message s000(ZSD) with mi_rqident.     "Your message triggers here
endif.
form get_spool_number using f_repid
                         f_uname
                 changing f_rqident.
   data: lc_rq2name like tsp01-rq2name.
   concatenate f_repid+0(8)
               f_uname+0(3)
     into lc_rq2name separated by '__'.
   select * from tsp01 where  rq2name = lc_rq2name
   order by rqcretime descending.
     f_rqident = tsp01-rqident.
     exit.
   endselect.
   if sy-subrc ne 0.
     clear f_rqident.
   endif.
endform." get_spool_number