ITAB TO SPOOL

Question

Dear Experts,
There are many threads regarding spool.
But here I had given task by functional that I had to develop an object which show a some data list, in which i have to tick mark and send selected list as a mail to particular party.
Also same thing to do as mass mailing for scheduling in back ground for all party.
Now problem is I have an internal table with list of customer and it's particular details which i have to send by email.
Now i know how to convert spool to pdf but i don't know how to convert internal table to spool.
Please note i had try with many example which had already posted in sad.sap.com.
i had got only one binary spool from it successfully. but which is not convert into pdf.
Please i know that if i develop smartform for it is to easy but i want to do mass mailing and i had already developed module-pool for it.
Please guide
how do i convert my internal table to spool in specific layout with out using smart form. if it is in oops then it will be more helpful for conceptually.
thanks & regards,
Nayan Lad

Answer 1

Hi,
please find below prgroms are use full this Spool program will convert to PDF RSTXPDFT4.
and this program Spool download
               T A B L E S   & T Y P E S                             *
TYPES : BEGIN OF ty_mail_data ,
          text(4000),
       END OF ty_mail_data.
DATA : t_mail_data TYPE TABLE OF ty_mail_data WITH HEADER LINE ,
       l_mail_data TYPE TABLE OF ty_mail_data WITH HEADER LINE,
       w_char(4000),
       w_char1(4000),
       filenamee LIKE ibipparms-path.
PARAMETERS: p_spool TYPE tsp01-rqident.
Fetching Spool data into internal table
CALL FUNCTION 'RSPO_RETURN_ABAP_SPOOLJOB'
     EXPORTING
          rqident = p_spool
     TABLES
          buffer  = t_mail_data.
DELETE t_mail_data WHERE text(1) = '-'.
READ TABLE  t_mail_data WITH KEY text(1) = '|'.
IF sy-subrc EQ 0.
  formatting Internal table according to file fromat...
  LOOP AT t_mail_data.
    IF t_mail_data-text(1) EQ '|' OR  t_mail_data-text(1) EQ '-'.
      l_mail_data-text = w_char .
      APPEND l_mail_data.
      WRITE :/ w_char.
      CLEAR w_char.
      w_char = t_mail_data-text.
    ELSE.
      MOVE t_mail_data-text TO w_char1.
      CONCATENATE w_char w_char1 INTO w_char.
    ENDIF.
  ENDLOOP.
  l_mail_data-text = w_char .
  APPEND l_mail_data.
  WRITE :/ w_char.
ENDIF.
CALL FUNCTION 'F4_FILENAME'
     IMPORTING
          file_name = filenamee.
CALL FUNCTION 'GUI_DOWNLOAD'
     EXPORTING
          bin_filesize            = 1024
          filename                = filenamee
          filetype                = 'ASC'
     TABLES
          data_tab                = l_mail_data
     EXCEPTIONS
          file_write_error        = 1
          no_batch                = 2
          gui_refuse_filetransfer = 3
          invalid_type            = 4
          OTHERS                  = 5.
IF sy-subrc <> 0.
MESSAGE e000 WITH text-i02.    "Exception in GUI_DOWNLOAD
ENDIF.
Edited by: BRsankar on Sep 29, 2011 9:13 AM
Edited by: BRsankar on Sep 29, 2011 9:14 AM