REPORT  zemail.

DATAc(50).
DATAsent LIKE sonv-flag.
DATAemail_id LIKE sofolenti1-object_id.
DATABEGIN OF email_data.
        INCLUDE STRUCTURE sodocchgi1.
DATAEND OF email_data.
DATABEGIN OF email_send OCCURS 10.
        INCLUDE STRUCTURE somlreci1.
DATAEND OF email_send.
DATABEGIN OF email_text OCCURS 10.
        INCLUDE STRUCTURE solisti1.
DATAEND OF email_text.
DATAftab LIKE solisti1  OCCURS WITH HEADER LINE.
DATA act_filetype LIKE  rlgrap-filetype.
DATA act_filename LIKE  rlgrap-filename.

SELECT-OPTIONS send_to FOR NO INTERVALS LOWER CASE.
SELECTION-SCREEN SKIP.
PARAMETERSsubject(30).
SELECTION-SCREEN SKIP.
PARAMETERSfile LIKE rlgrap-filename DEFAULT 'c:\temp'.
SELECTION-SCREEN SKIP.
PARAMETERSl1(84).
PARAMETERSl2(84).
PARAMETERSl3(84).
PARAMETERSl4(84).
PARAMETERSl5(84).
PARAMETERSl6(84).
PARAMETERSl7(84).
PARAMETERSl8(84).
PARAMETERSl9(84).

INITIALIZATION.
  send_to-low '@.'.
  APPEND send_to.

START-OF-SELECTION.
  PERFORM upload.
  PERFORM send.

END-OF-SELECTION.

*---------------------------------------------------------------------*
*       FORM SEND                                                     *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
FORM send.
  email_text-line l1.
  APPEND email_text.
  email_text-line l2.
  APPEND email_text.
  email_text-line l3.
  APPEND email_text.
  email_text-line l4.
  APPEND email_text.
  email_text-line l5.
  APPEND email_text.
  email_text-line l6.
  APPEND email_text.
  email_text-line l7.
  APPEND email_text.
  email_text-line l8.
  APPEND email_text.
  email_text-line l9.
  APPEND email_text.

  email_data-obj_name 'MESSAGE'.
  email_data-obj_descr subject.
  email_data-obj_langu 'E'.
  email_data-sensitivty 'P'.
  email_data-obj_prio '1'.
  email_data-no_change 'X'.
  email_data-priority '1'.

  LOOP AT send_to.
    email_send-receiver send_to-low.
    email_send-rec_type 'U'.
    email_send-com_type 'INT'.
    email_send-express 'X'.
    APPEND email_send.
  ENDLOOP.

  WRITE:'End of program'.

*****************************************************

  DATA lines TYPE i,
         f_lines TYPE i.
  DATA e_packing_tab LIKE sopcklsti1 OCCURS WITH HEADER LINE.

*
  DESCRIBE TABLE email_text LINES lines.
  e_packing_tab-transf_bin space.
  e_packing_tab-head_start 1.
  e_packing_tab-head_num   0.
  e_packing_tab-body_start 1.
  e_packing_tab-body_num   lines.
  e_packing_tab-doc_type   'RAW'.
  APPEND e_packing_tab.

  DESCRIBE TABLE ftab LINES f_lines.
  DATA doc_size TYPE i.
  doc_size f_lines * 255.

  DATAobjhead LIKE solisti1 OCCURS WITH HEADER LINE.
  objhead act_filenameAPPEND objhead.


  DATAdoc_type(3).
  SPLIT act_filename AT '.' INTO act_filename doc_type.

  e_packing_tab-transf_bin 'X'.
  e_packing_tab-head_start 1.
  e_packing_tab-head_num   1.
  e_packing_tab-body_start 1.
  e_packing_tab-body_num   f_lines.
  e_packing_tab-doc_type   doc_type.
  e_packing_tab-obj_name