Logoff SAP session without warning

As a measure of control or simpy to release resources, we can force, with abap code, the shutdown of all instances of the current logon session. Here is a small program to show how to do that.

data: begin of l_data, rlmbp type rlmbp, trprp type lmbpt_trprp, actual type lmbpt_it_actual, do type lmbpt_it_do, step type lmbpt_it_scrstack, move type lmbpt_it_move, end of l_data. clear: l_data. free: l_data. call function 'LMBP_RESOURCE_LOGOFF' changing cs_rlmbp = l_data-rlmbp cs_trprp = l_data-trprp ct_actual = l_data-actual ct_do = l_data-do ct_step = l_data-step ct_move = l_data-move. clear: l_data. free: l_data.

ABAP communication with COMM Ports ( Serial Ports )

One need that sometimes arise, is to allow the system to communicate with scales, printers or other devices. As far as I know, there isn't a simple and straigth forward way to do that.
In this post I'll present a class to make this possible. This class uses OLE to allow the desktop PC to communicate using a serial port. In a future post, I'll show how to create a webservice, running in a given PC, that can be accessed by a SAP Server in order to allow the communication in background and/or allow any pc to read a remote serial port.
For now, this only works in the running PC and there is the need to create and register the MSCOMM32.OCX (I'll show how to create a script to do this for 32 and 64 windows)

1 - Download MSCOMM32.OCX ( for instance, you can download it from here : Link)

2 - Create a text file named comm.reg with the following content:
Windows Registry Editor version 5.00 [HKEY_CLASSES_ROOT\Licenses\4250E830-6AC2-11cf-8ADB-00AA00C00905] "VALUE"="REG_SZ=kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun"

3 - Create a batch file comm.bat with the following content:

copy MSCOMM32.ocx %SYSTEMROOT%\SysWOW64\ if not exist %SYSTEMROOT%\SysWOW64\mscomm32.ocx (copy MSCOMM32.ocx %SYSTEMROOT%\system32\) if exist %SYSTEMROOT%\SysWOW64\mscomm32.ocx (regsvr32 /s MSCOMM32.OCX) if exist %SYSTEMROOT%\SysWOW64\mscomm32.ocx (regedit /s comm.reg) if exist %SYSTEMROOT%\system32\mscomm32.ocx (regsvr32 /s MSCOMM32.OCX) if exist %SYSTEMROOT%\system32\mscomm32.ocx (regedit /s comm.reg)

4 - Place all three files in the same location and run, with administrator privileges, the comm.bat file).

5 - Now, the ABAP Class. Create the following class:

6 - Create these class attributes:

7 - Create these methods:

8 - Give these parameters to the created methods:

9 - Insert the appropriate code bellow in each of the corresponding methods:

method CLOSE. set property of w_connection 'PortOpen' = 0. endmethod. method CONSTRUCTOR. initialization( exceptions no_authorization = 1 object_not_created = 2 others = 3 ). case sy-subrc. when 0. if i_com_port is supplied. w_com_port = i_com_port. endif. if i_settings is supplied. w_settings = i_settings. endif. when 1. raise NO_AUTHORIZATION. when 2. raise OBJECT_NOT_CREATED. when others. endcase. endmethod. method INITIALIZATION. call function 'AUTHORITY_CHECK_OLE' exporting program = sy-repid activity = sabc_act_call application = 'MSCOMMLIB.MSCOMM.1' exceptions no_authority = 1 activity_unknown = 2 others = 3. if not sy-subrc is initial. raise NO_AUTHORIZATION. endif. create object w_connection 'MSCOMMLib.MSComm.1'. if not sy-subrc is initial. raise OBJECT_NOT_CREATED. endif. endmethod. method OPEN. set property of w_connection 'CommPort' = w_com_port. set property of w_connection 'Settings' = w_settings. set property of w_connection 'InputLen' = 0. set property of w_connection 'PortOpen' = 1. endmethod. method READ. data: l_buffer type i. clear: l_buffer, e_input. do 10 times. get property of w_connection 'InBufferCount' = l_buffer. if l_buffer > 0. get property of w_connection 'Input' = e_input. exit. endif. enddo. clear: l_buffer. free: l_buffer. endmethod. method WRITE. set property of w_connection 'Output' = i_output. set property of w_connection 'Output' = cl_abap_char_utilities=>cr_lf. endmethod.

10 - Enjoy :)

ABAP File Operations : Desktop and Server

Sometimes, we need to get a file from the presentation server or the application server. Usually, we need to fork the code in order to be able to use one or the other. Here, I'll show a simple class to make this task a lot easier. All the usual file/directory operations, are called the same way. The only distinction is a flag to indicate that the file should be considered in the desktop or in the server.
The class only has static methods, to use it, you just need to call any of the public methods.
This is the beggining, in the future I'll try to allow FTP, network shares, among others and consider to create a instanciable class to deal with connection, autentication, etc.

1 - Create the following Class

2 - Create the following Methods:

3 - Use the following parameters for each method:

4 - Insert the appropriate code in each method:

method COPY_FILE. data: l_file_from type string, l_path_from type string, l_file_to type string, l_path_to type string. l_file_from = i_file_from. l_path_from = i_path_from. if i_file_to is initial. l_file_to = i_file_from. endif. if i_path_to is initial. l_path_to = i_path_from. endif. if not l_file_from = l_file_to and not l_path_from = l_path_to. if i_desktop = 'X'. copy_file_desktop( exporting i_file_from = l_file_from i_file_to = l_file_to i_path_from = l_path_from i_path_to = l_path_to exceptions error = 1 others = 2 ). else. copy_file_server( exporting i_file_from = l_file_from i_file_to = l_file_to i_path_from = l_path_from i_path_to = l_path_to exceptions error = 1 others = 2 ). endif. endif. if not sy-subrc is initial. raise ERROR. endif. endmethod. method COPY_FILE_DESKTOP. data: l_file_from type string, l_file_to type string. free: l_file_from, l_file_to. concatenate i_path_from i_file_from into l_file_from. concatenate i_path_to i_file_to into l_file_to. cl_gui_frontend_services=>file_copy( exporting source = l_file_from destination = l_file_to overwrite = 'X' exceptions cntl_error = 1 error_no_gui = 2 wrong_parameter = 3 disk_full = 4 access_denied = 5 file_not_found = 6 destination_exists = 7 unknown_error = 8 path_not_found = 9 disk_write_protect = 10 drive_not_ready = 11 not_supported_by_gui = 12 others = 13 ). if not sy-subrc is initial. raise error. endif. clear: l_file_from, l_file_to. free: l_file_from, l_file_to. endmethod. method COPY_FILE_SERVER. data: l_file_from type string, l_file_to type string, l_file_line type dxrawdata, l_line_length type i. clear: l_file_from, l_file_to, l_file_line, l_line_length. concatenate i_path_from i_file_from into l_file_from. concatenate i_path_to i_file_to into l_file_to. open dataset l_file_from for input in binary mode. if sy-subrc is initial. open dataset l_file_to for output in binary mode. if sy-subrc is initial. read dataset l_file_from into l_file_line actual length l_line_length. if sy-subrc is initial. transfer l_file_line to l_file_to length l_line_length. else. close dataset l_file_from. close dataset l_file_to. endif. else. close dataset l_file_from. raise error. endif. else. raise error. endif. clear: l_file_from, l_file_to, l_file_line, l_line_length. free: l_file_from, l_file_to, l_file_line, l_line_length. endmethod. method DELETE_FILE. if i_desktop = 'X'. delete_file_desktop( exporting i_file = i_file i_path = i_path exceptions error = 1 others = 2 ). else. delete_file_server( exporting i_file = i_file i_path = i_path exceptions error = 1 others = 2 ). endif. if not sy-subrc is initial. raise ERROR. endif. endmethod. method DELETE_FILE_DESKTOP. data: l_file type string, l_rc type i. clear: l_file, l_rc. concatenate i_file i_path into l_file. cl_gui_frontend_services=>file_delete( exporting filename = l_file changing rc = l_rc exceptions file_delete_failed = 1 cntl_error = 2 error_no_gui = 3 file_not_found = 4 access_denied = 5 unknown_error = 6 not_supported_by_gui = 7 wrong_parameter = 8 others = 9 ). if not sy-subrc is initial. raise error. endif. clear: l_file, l_rc. free: l_file, l_rc. endmethod. method DELETE_FILE_SERVER. data: l_file type string. clear: l_file. concatenate i_path i_file into l_file. call function 'ISH_N2_DELETE_FILE_APP_SERVER' exporting ss_file = l_file exceptions error = 1 others = 2. if not sy-subrc is initial. raise ERROR. endif. clear: l_file. free: l_file. endmethod. method DOWNLOAD. if i_desktop = 'X'. download_desktop( exporting i_file = i_file i_path = i_path importing et_table = et_table exceptions error = 1 others = 2 ). else. download_server( exporting i_file = i_file i_path = i_path importing et_table = et_table exceptions error = 1 others = 2 ). endif. if not sy-subrc is initial. raise ERROR. endif. endmethod. method DOWNLOAD_DESKTOP. data: l_file type string, l_type(10). clear: l_file, l_type. cl_gui_frontend_services=>gui_download( exporting filename = l_file filetype = l_type changing data_tab = et_table exceptions file_write_error = 1 no_batch = 2 gui_refuse_filetransfer = 3 invalid_type = 4 no_authority = 5 unknown_error = 6 header_not_allowed = 7 separator_not_allowed = 8 filesize_not_allowed = 9 header_too_long = 10 dp_error_create = 11 dp_error_send = 12 dp_error_write = 13 unknown_dp_error = 14 access_denied = 15 dp_out_of_memory = 16 disk_full = 17 dp_timeout = 18 file_not_found = 19 dataprovider_exception = 20 control_flush_error = 21 not_supported_by_gui = 22 error_no_gui = 23 others = 24 ). if not sy-subrc is initial. raise ERROR. endif. clear: l_file, l_type. free: l_file, l_type. endmethod. method DOWNLOAD_SERVER. data: l_file type string. field-symbols: <lt_table> type standard table, <l_table_line> type any. clear: l_file. assign et_table to <lt_table>. concatenate i_path i_file into l_file. if i_type = 'BIN'. open dataset l_file for output in binary mode. else. open dataset l_file for output in text mode encoding default. endif. if sy-subrc is initial. loop at <lt_table> assigning <l_table_line>. transfer <l_table_line> to l_file. if not sy-subrc is initial. close dataset l_file. exit. endif. endloop. else. raise ERROR. endif. clear: l_file. free: l_file. endmethod. method MOVE_FILE. if i_desktop = 'X'. move_file_desktop( exporting i_file = i_file i_path_from = i_path_from i_path_to = i_path_to exceptions error = 1 others = 2 ). else. move_file_server( exporting i_file = i_file i_path_from = i_path_from i_path_to = i_path_to exceptions error = 1 others = 2 ). endif. if not sy-subrc is initial. raise ERROR. endif. endmethod. method MOVE_FILE_DESKTOP. copy_file_desktop( exporting i_file_from = i_file i_path_from = i_path_from i_file_to = i_file i_path_to = i_path_to exceptions error = 1 others = 2 ). if sy-subrc is initial. delete_file_desktop( exporting i_file = i_file i_path = i_path_from exceptions error = 1 others = 2 ). if not sy-subrc is initial. raise ERROR. endif. else. raise ERROR. endif. endmethod. method MOVE_FILE_SERVER. copy_file_server( exporting i_file_from = i_file i_path_from = i_path_from i_file_to = i_file i_path_to = i_path_to exceptions error = 1 others = 2 ). if sy-subrc is initial. delete_file_server( exporting i_file = i_file i_path = i_path_from exceptions error = 1 others = 2 ). if not sy-subrc is initial. raise ERROR. endif. else. raise ERROR. endif. endmethod. method SELECT_FILE. if i_desktop = 'X'. select_file_desktop( exporting i_mask = i_mask changing ch_file = ch_file ch_path = ch_path exceptions error = 1 others = 2 ). else. select_file_server( exporting i_mask = i_mask changing ch_file = ch_file ch_path = ch_path exceptions error = 1 others = 2 ). endif. if not sy-subrc is initial. raise ERROR. endif. endmethod. method SELECT_FILE_DESKTOP. data: lt_file_table type filetable, l_file_table_line like line of lt_file_table, l_file type string, l_rc type i. cl_gui_frontend_services=>file_open_dialog( exporting window_title = '' default_filename = ch_file initial_directory = ch_path multiselection = ' ' changing file_table = lt_file_table rc = l_rc exceptions file_open_dialog_failed = 1 cntl_error = 2 error_no_gui = 3 not_supported_by_gui = 4 others = 5 ). if sy-subrc is initial. read table lt_file_table index 1 into l_file_table_line. if sy-subrc is initial. l_file = l_file_table_line. split_path_desktop( exporting i_file = l_file importing e_file = ch_file e_path = ch_path exceptions error = 1 others = 2 ). if not sy-subrc is initial. raise ERROR. endif. else. raise ERROR. endif. else. raise ERROR. endif. endmethod. method SELECT_FILE_SERVER. data: l_file type string. clear: l_file. call function '/SAPDMC/LSM_F4_SERVER_FILE' exporting directory = ch_path * filemask = ' ' importing serverfile = l_file exceptions canceled_by_user = 1 others = 2. if sy-subrc is initial. split_path_server( exporting i_file = l_file importing e_file = ch_file e_path = ch_path exceptions error = 1 others = 2 ). if not sy-subrc is initial. raise ERROR. endif. else. raise ERROR. endif. clear: l_file. free: l_file. endmethod. method SELECT_PATH. if i_desktop = 'X'. select_path_desktop( changing ch_path = ch_path exceptions error = 1 others = 2 ). else. select_path_server( changing ch_path = ch_path exceptions error = 1 others = 2 ). endif. if not sy-subrc is initial. raise ERROR. endif. endmethod. method SELECT_PATH_DESKTOP. cl_gui_frontend_services=>directory_browse( exporting window_title = '' initial_folder = ch_path changing selected_folder = ch_path exceptions cntl_error = 1 error_no_gui = 2 not_supported_by_gui = 3 others = 4 ). if not sy-subrc is initial. raise ERROR. endif. endmethod. method SELECT_PATH_SERVER. data: l_file type string. clear: l_file. select_file_server( changing ch_file = l_file ch_path = ch_path exceptions error = 1 others = 2 ). if not sy-subrc is initial. raise ERROR. endif. clear: l_file. free: l_file. endmethod. method SPLIT_PATH. if i_desktop = 'X'. split_path_desktop( exporting i_file = i_file importing e_file = e_file e_path = e_path exceptions error = 1 others = 2 ). else. split_path_server( exporting i_file = i_file importing e_file = e_file e_path = e_path exceptions error = 1 others = 2 ). endif. if not sy-subrc is initial. raise ERROR. endif. endmethod. method SPLIT_PATH_DESKTOP. data: lt_path type table of string, l_path like line of lt_path, l_lines type i, l_separator. clear: l_lines, l_separator, l_path, lt_path, lt_path[]. cl_gui_frontend_services=>get_file_separator( changing file_separator = l_separator exceptions cntl_error = 1 error_no_gui = 2 not_supported_by_gui = 3 others = 4 ). if sy-subrc is initial. split i_file at l_separator into table lt_path. describe table lt_path lines l_lines. read table lt_path into l_path index l_lines. if sy-subrc is initial. e_file = l_path. delete lt_path index l_lines. loop at lt_path into l_path. if sy-tabix = 1. concatenate l_path l_separator into e_path. else. concatenate e_path l_path l_separator into e_path. endif. endloop. else. raise ERROR. endif. else. raise ERROR. endif. clear: l_lines, l_separator, l_path, lt_path, lt_path[]. free: l_lines, l_separator, l_path, lt_path, lt_path[]. endmethod. method SPLIT_PATH_SERVER. data: lt_path type table of string, l_path like line of lt_path, l_lines type i, l_separator. clear: l_lines, l_separator, l_path, lt_path, lt_path[]. call function 'WSAF_BUILD_SEPARATOR' importing separator = l_separator exceptions separator_not_maintained = 1 wrong_call = 2 wsaf_config_not_maintained = 3 others = 4. if sy-subrc is initial. split i_file at l_separator into table lt_path. describe table lt_path lines l_lines. read table lt_path into l_path index l_lines. if sy-subrc is initial. e_file = l_path. delete lt_path index l_lines. loop at lt_path into l_path. if sy-tabix = 1. concatenate l_path l_separator into e_path. else. concatenate e_path l_path l_separator into e_path. endif. endloop. else. raise ERROR. endif. else. raise ERROR. endif. clear: l_lines, l_separator, l_path, lt_path, lt_path[]. free: l_lines, l_separator, l_path, lt_path, lt_path[]. endmethod. method UPLOAD. if i_desktop = 'X'. upload_desktop( exporting i_type = i_type i_path = i_path i_file = i_file importing et_table = et_table exceptions error = 1 others = 2 ). else. upload_server( exporting i_type = i_type i_path = i_path i_file = i_file importing et_table = et_table exceptions error = 1 others = 2 ). endif. if not sy-subrc is initial. raise ERROR. endif. endmethod. method UPLOAD_DESKTOP. data: l_file type string, l_type(10). clear: l_file, l_type. concatenate i_path i_file into l_file. case i_type. when 'ASC'. l_type = 'ASC'. when 'BIN'. l_type = 'BIN'. endcase. cl_gui_frontend_services=>gui_upload( exporting filename = l_file filetype = l_type changing data_tab = et_table exceptions file_open_error = 1 file_read_error = 2 no_batch = 3 gui_refuse_filetransfer = 4 invalid_type = 5 no_authority = 6 unknown_error = 7 bad_data_format = 8 header_not_allowed = 9 separator_not_allowed = 10 header_too_long = 11 unknown_dp_error = 12 access_denied = 13 dp_out_of_memory = 14 disk_full = 15 dp_timeout = 16 not_supported_by_gui = 17 error_no_gui = 18 others = 19 ). if not sy-subrc is initial. raise ERROR. endif. clear: l_file, l_type. free: l_file, l_type. endmethod. method UPLOAD_SERVER. data: l_file type string, l_file_line type dxrawdata, l_table_line type ref to data. field-symbols: <lt_table> type standard table, <l_table_line> type any. clear: l_file, l_file_line, l_table_line. assign et_table to <lt_table>. create data l_table_line like line of <lt_table>. assign l_table_line to <l_table_line>. concatenate i_path i_file into l_file. if i_type = 'BIN'. open dataset l_file for input in binary mode. else. open dataset l_file for input in text mode encoding default. endif. if sy-subrc is initial. read dataset l_file into l_file_line. if sy-subrc is initial. <l_table_line> = l_file_line. append <l_table_line> to <lt_table>. else. close dataset l_file. endif. else. raise ERROR. endif. clear: l_file, l_file_line, l_table_line. free: l_file, l_file_line, l_table_line. endmethod.

ABAP Week Operations

Some SAP objects must deal with week periods. Here I'll show a small class to deal with some of the needs that arise when making calculations with week periods. This class makes simplier to use only one object to provide the needed calculations with weeks. As usual, there is allways room for improvement.

1 - Create the Class:

2 - Create the Methods:

3 - Define Methods Parameters

4 - Insert the code in the appropriate methods:

method ADD_NUMBER.

data: l_first_day type dats.


  do im_numb times.
    l_first_day = get_first_day( im_week = ch_week ).
    l_first_day = l_first_day + 7.
    ch_week     = get_from_day( im_day = l_first_day ).
  enddo.

endmethod.
method DIFFERENCE.

  if im_week2(4) = im_week1(4).
    re_no_weeks = im_week1+4(2) - im_week2+4(2).
  elseif im_week1(4) > im_week2(4).
    re_no_weeks = ( ( im_week1(4) - im_week2(4) ) * 52 ) + im_week1+4(2)
                                                         - im_week2+4(2).
  else.
    clear: re_no_weeks.
  endif.

endmethod.
method GET_FIRST_DAY.

  call function 'WEEK_GET_FIRST_DAY'
    exporting
      week         = im_week
    importing
      date         = re_day
    exceptions
      week_invalid = 1
      others       = 2.

endmethod.
method GET_FROM_DAY.

  call function 'DATE_GET_WEEK'
    exporting
      date         = im_day
    importing
      week         = re_week
    exceptions
      date_invalid = 1
      others       = 2.

endmethod.
method GET_LAST_DAY.

  re_day = get_first_day( im_week = im_week ) + 6.

endmethod.
method SUBTRACT_NUMBER.

data: l_first_day type dats.


  do im_numb times.
    l_first_day = get_first_day( im_week = ch_week ).
    l_first_day = l_first_day - 7.
    ch_week     = get_from_day( im_day = l_first_day ).
  enddo.

endmethod.

Convert ALV to Excel and send it by email

One of the most requested abilities for an report is the possibility to run it as a job and send the output to a given user. However, the spool output of most ALV reports is unusable as is. To solve this problem, I'll show a simple class that takes an internal table, a fieldcatalog and a user email to create a xml excel file from the field catalog with the contents of the internal table and forward it to the email supplied.
I should warn that the excel output isn't something fancy. It's just a simple table. The class can be greatly enhanced.

1 - Create a class:

2 - Create the class atributes:

3 - Create the class methods:

4 - Create the method parameters:

5 - Insert the appropriate code in each method:
method CLOSE. data: l_xml_line like line of wt_xml. clear: l_xml_line. l_xml_line = im_element. append l_xml_line to wt_xml. clear: l_xml_line. free: l_xml_line. endmethod. method CLOSE_ROW. close( im_element = '</Row>' ). endmethod. method CLOSE_TABLE. close( im_element = '</Table>' ). endmethod. method CLOSE_WORKSHEET. close( im_element = '</Worksheet>' ). endmethod. method CLOSE_XML_HEADER. close( im_element = '</Workbook>' ). endmethod. method CONVERT_TABLE_TO_EXCEL_XML. * Excel XML file created according to: http://wiki.sdn.sap.com/wiki/display/Snippets/XML+TAGS+simplifies+Excel+Download data: l_formated_value(255), l_num_columns type i, l_comp_idx type sy-tabix. field-symbols: <l_data_line> type any, <l_value> type any, <l_fieldcatalog> type any, <l_fieldname> type any, <l_table_name> type any, <l_field_name> type any, <l_xml_line> type any, <l_xml> like line of wt_xml. clear: l_num_columns, l_formated_value, l_comp_idx, wt_xml, wt_xml[]. describe table it_fieldcatalog lines l_num_columns. open_xml_header( ). open_worksheet( im_name = 'PO Report' ). open_table( ). loop at it_data assigning <l_data_line>. if sy-tabix = 1. open_row( ). loop at it_fieldcatalog assigning <l_fieldcatalog>. assign component 'SELTEXT_M' of structure <l_fieldcatalog> to <l_value>. if not sy-subrc is initial. assign component 'SCRTEXT_M' of structure <l_fieldcatalog> to <l_value>. endif. if <l_value> is assigned. if <l_value> is initial. assign component 'REF_TABNAME' of structure <l_fieldcatalog> to <l_table_name>. if <l_table_name> is assigned. assign component 'REF_FIELDNAME' of structure <l_fieldcatalog> to <l_field_name>. if <l_field_name> is assigned. select single scrtext_m into <l_value> from dd03m where tabname = <l_table_name> and fieldname = <l_field_name> and ddlanguage = sy-langu. endif. endif. endif. insert_cell( exporting im_value = <l_value> ). endif. endloop. close_row( ). endif. open_row( ). if it_fieldcatalog[] is initial. clear: l_comp_idx. do. add 1 to l_comp_idx. assign component l_comp_idx of structure <l_data_line> to <l_value>. if sy-subrc is initial. write: <l_value> to l_formated_value. shift l_formated_value left deleting leading space. if <l_value> is initial. clear: l_formated_value. endif. insert_cell( exporting im_value = l_formated_value ). else. exit. endif. enddo. else. loop at it_fieldcatalog assigning <l_fieldcatalog>. assign component 'FIELDNAME' of structure <l_fieldcatalog> to <l_fieldname>. if sy-subrc is initial. assign component <l_fieldname> of structure <l_data_line> to <l_value>. if sy-subrc is initial. write: <l_value> to l_formated_value. shift l_formated_value left deleting leading space. if <l_value> is initial. clear: l_formated_value. endif. insert_cell( exporting im_value = l_formated_value ). endif. endif. endloop. endif. close_row( ). endloop. close_table( ). close_worksheet( ). close_xml_header( ). data: l_xml_line type ref to data. create data l_xml_line like line of et_xml. assign l_xml_line->* to <l_xml_line>. if sy-subrc is initial. loop at wt_xml assigning <l_xml>. <l_xml_line> = <l_xml>. insert <l_xml_line> into table et_xml. clear: <l_xml_line>. endloop. endif. clear: l_num_columns, l_formated_value, l_comp_idx, wt_xml, wt_xml[]. free: l_num_columns, l_formated_value, l_comp_idx, wt_xml, wt_xml[]. endmethod. method INSERT_CELL. data: l_data(128). clear: l_data. open( im_element = '<cell>'). concatenate '<data ss:Type="String">' im_value into l_data. open( im_element = l_data ). close( im_element = '</Data>' ). close( im_element = '</Cell>' ). clear: l_data. free: l_data. endmethod. method OPEN. data: l_xml_line like line of wt_xml. clear: l_xml_line. l_xml_line = im_element. append l_xml_line to wt_xml. clear: l_xml_line. free: l_xml_line. endmethod. method OPEN_ROW. open( im_element = '<row>' ). endmethod. method OPEN_TABLE. open( im_element = '<table>' ). endmethod. method OPEN_WORKSHEET. data: l_data(128). clear: l_data. l_data = '<worksheet ss:Name="&">'. replace '&' with im_name into l_data. open( im_element = l_data ). clear: l_data. free: l_data. endmethod. method OPEN_XML_HEADER. data: l_xml_line like line of wt_xml. clear: l_xml_line. l_xml_line = '<?xml version="1.0" encoding="utf-8" ?>'. append l_xml_line to wt_xml. l_xml_line = '<?mso-application progid="Excel.Sheet"?>'. append l_xml_line to wt_xml. l_xml_line = '<workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"'. append l_xml_line to wt_xml. l_xml_line = 'xmlns:o="urn:schemas-microsoft-com:office:office"'. append l_xml_line to wt_xml. l_xml_line = 'xmlns:x="urn:schemas-microsoft-com:office:excel"'. append l_xml_line to wt_xml. l_xml_line = 'xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"'. append l_xml_line to wt_xml. l_xml_line = 'xmlns:html="http://www.w3.org/TR/REC-html40">'. append l_xml_line to wt_xml. clear: l_xml_line. free: l_xml_line. endmethod. method SEND_TABLE_AS_EXCEL_BY_EMAIL. * mail sent as described here: http://forums.sdn.sap.com/thread.jspa?threadID=227475&start=30&tstart=0 data: lt_binary_content type solix_tab, lt_text type bcsy_text, lt_xml type srm_t_solisti1, l_sender type ref to if_sender_bcs, l_recipient type ref to if_recipient_bcs, l_send_request type ref to cl_bcs, l_document type ref to cl_document_bcs, l_xml_string type string, l_xl_content type xstring, l_subject type so_obj_des, l_len type sood-objlen, l_length type i, l_atta_sub type sood-objdes, begin of l_mail_address, ad_smtpadr type ad_smtpadr, end of l_mail_address. field-symbols: <l_xml> like line of lt_xml. clear: lt_binary_content, lt_binary_content[], lt_text, lt_text[], lt_xml, lt_xml[], l_send_request, l_xl_content, l_sender, l_recipient, l_document, l_xml_string, l_subject, l_len, l_mail_address, l_length, l_atta_sub. if im_filename is initial. raise NO_FILENAME. endif. if im_subject is initial. raise NO_SUBJECT. endif. if it_mail_addresses[] is initial. raise NO_RECEIVERS. endif. zcl_excel=>convert_table_to_excel_xml( exporting it_data = it_data it_fieldcatalog = it_fieldcatalog importing et_xml = lt_xml ). if not sy-subrc is initial. raise ERROR_GENERATING_XML. else. if lt_xml[] is initial. raise NO_XML. endif. loop at lt_xml assigning <l_xml>. if sy-tabix = 1. l_xml_string = <l_xml>. else. concatenate l_xml_string <l_xml> into l_xml_string separated by cl_abap_char_utilities=>cr_lf. endif. endloop. call function 'SCMS_STRING_TO_XSTRING' exporting text = l_xml_string mimetype = 'text/xml; charset=utf-8' importing buffer = l_xl_content. concatenate cl_abap_char_utilities=>byte_order_mark_utf8 l_xl_content into l_xl_content in byte mode. call function 'SCMS_XSTRING_TO_BINARY' exporting buffer = l_xl_content importing output_length = l_length tables binary_tab = lt_binary_content. move: l_length to l_len . try. clear: l_send_request. free: l_send_request. l_send_request = cl_bcs=>create_persistent( ). clear l_document . append 'Description' TO lt_text. l_subject = im_subject. l_document = cl_document_bcs=>create_document( i_type = 'HTM' i_text = lt_text i_subject = l_subject ). l_atta_sub = im_filename. l_document->add_attachment( exporting i_attachment_type = 'xls' i_attachment_subject = l_atta_sub i_attachment_size = l_len i_att_content_hex = lt_binary_content ). l_send_request->set_document( l_document ). CLEAR l_sender . l_sender = cl_cam_address_bcs=>create_internet_address( 'po_report@sap.colepccl' ). l_send_request->set_sender( exporting i_sender = l_sender ). loop at it_mail_addresses into l_mail_address. l_recipient = cl_cam_address_bcs=>create_internet_address( l_mail_address-ad_smtpadr ). l_send_request->add_recipient( exporting i_recipient = l_recipient i_express = 'X' ). endloop. l_send_request->set_status_attributes( exporting i_requested_status = 'E' i_status_mail = 'E' ). l_send_request->set_send_immediately( 'X' ). if l_send_request->send( i_with_error_screen = ' ' ) = 'X'. commit work. endif. catch cx_bcs. raise ERROR_SENDING_MAIL. exit. endtry. endif. clear: lt_binary_content, lt_binary_content[], lt_text, lt_text[], lt_xml, lt_xml[], l_send_request, l_xl_content, l_sender, l_recipient, l_document, l_xml_string, l_subject, l_len, l_mail_address, l_length, l_atta_sub. free: lt_binary_content, lt_binary_content[], lt_text, lt_text[], lt_xml, lt_xml[], l_send_request, l_xl_content, l_sender, l_recipient, l_document, l_xml_string, l_subject, l_len, l_mail_address, l_length, l_atta_sub. endmethod.