World of ABAP

Logoff SAP session without warning

2013-11-06T13:55:00.000+00:00

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.

ABAP communication with COMM Ports ( Serial Ports )

2013-11-04T11:24:00.002+00:00

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:

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

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

2013-11-04T02:03:00.001+00:00

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

2013-11-01T00:57:00.004+00:00

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

2013-10-31T01:12:00.001+00:00

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.

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.

Talking ABAP

2013-10-25T12:07:00.002+01:00

Just for fun, you can make sap talk to the user or, for more serious work, you can give hearing aids to alert the users for some event or to help them be more aware of what is happening.

report ytest_lq00.

class lcl_speech definition.

public section.

methods: constructor,
           speak importing i_text type string.

private section.

data: w_voice type ole2_object.

endclass.
class lcl_speech implementation.

method constructor.

data: begin of l_data,
            ole   type ole2_object,
            voice type ole2_object,
          end of l_data.

clear: w_voice. free: w_voice..
      create object w_voice 'SAPI.SpVoice'.

endmethod.

method speak.

data: l_ole type ole2_object.

clear: l_ole. free: l_ole.
    if not w_voice is initial.
      call method of w_voice 'Speak' = l_ole exporting #1 = i_text.
      free object l_ole.
    endif.
    clear: l_ole. free: l_ole.

endmethod.

endclass.

start-of-selection.

data: l_speech type ref to lcl_speech.

clear: l_speech. free: l_speech.
  if not l_speech is bound.
    create object l_speech.
  endif.
  if l_speech is bound.
    l_speech->speak( 'Hello!' ).
    l_speech->speak( 'Let''''s speak a little bit.' ).
    l_speech->speak( 'Goodbye!' ).
    clear: l_speech. free: l_speech.
  endif.

As a final thought, I should say that, this is a simple example. As most of the times, you have plenty of room to improve.
Don't forget that this is an instanciation of a windows object. It will only work with SAP Gui for windows.

Remark: depending on the security settings of your SAP GUI configuration, a popup can appear asking for authorization to instanciate a windows object.

Batch Input with Objects

2013-10-24T13:08:00.002+01:00

Some times, we get such a requirement that forces us to use batch input for creation/changing of some SAP object/document. Usually, the resulting code isn't that elegant. In this post, I'll show how to use a ABAP Class to process call transaction and allow to future improvements that afects every program that uses it, without the need to change those same programs.
Those improvements could be:

Create Batch input in DB for latter processing
Create Enhanced Logs
Start Workflows
Etc

1 - Create an ABAP Class in transaction SE24, select an apropriate package:

2 - Create the following attributes:

3 - Create these methods:

4 - Pick the relevant code for the each method:

method CONSTRUCTOR.

clear: w_options, w_transaction, wt_bdcdata, wt_bdcdata[], wt_messages, wt_messages[].
  w_options-dismode  = im_dismode.
  w_options-updmode  = im_updmode.
  w_options-defsize  = im_defsize.
  w_options-racommit = im_racommit.
  w_transaction      = im_tcode.

endmethod.
method SET_CURSOR.

data: l_bdcdata like line of wt_bdcdata.

clear: l_bdcdata.
  l_bdcdata-fnam = 'BDC_CURSOR'.
  l_bdcdata-fval = im_field.
  append l_bdcdata to wt_bdcdata.
  clear: l_bdcdata.

endmethod.
method SET_FIELD.

data: l_bdcdata like line of wt_bdcdata.

clear: l_bdcdata.
  l_bdcdata-fnam = im_field.
  l_bdcdata-fval = im_value.
  append l_bdcdata to wt_bdcdata.
  clear: l_bdcdata.

endmethod.
method SET_OKCODE.

data: l_bdcdata like line of wt_bdcdata.

clear: l_bdcdata.
  l_bdcdata-fnam = 'BDC_OKCODE'.
  l_bdcdata-fval = im_okcode.
  append l_bdcdata to wt_bdcdata.
  clear: l_bdcdata.

endmethod.
method SET_SCREEN.

data: l_bdcdata like line of wt_bdcdata.

clear: l_bdcdata.
  l_bdcdata-program  = im_program.
  l_bdcdata-dynpro   = im_screen.
  l_bdcdata-dynbegin = 'X'.
  append l_bdcdata to wt_bdcdata.
  clear: l_bdcdata.

endmethod.
method START.

field-symbols: <l_message> like line of wt_messages.

call transaction w_transaction using wt_bdcdata options from w_options messages into wt_messages.
  if sy-subrc is initial.
    loop at wt_messages assigning <l_message> where msgtyp ca 'AXE'.
      exit.
    endloop.
    if sy-subrc is initial.
      re_success = ' '.
    else.
      re_success = 'X'.
    endif.
  else.
    re_success = ' '.
  endif.

endmethod.

5 - Save and activate the class.

6 - To help generate the code, the following program can be used:

*&---------------------------------------------------------------------*
*& Report  Y_CREATE_BATCH_INPUT
*&---------------------------------------------------------------------*
report zds_create_batch_input.

constants: c_data(132)    value 'data: & type ref to zdsbc_batch_input.',
           c_clear(132)   value '  clear: &.',
           c_free(132)    value '  free: &.',
           c_create1(132) value '  create object &1 exporting im_tcode    = ''&2''.',
           c_create2(132) value '*                            im_dismode  = ''N''',
           c_create3(132) value '*                            im_updmode  = ''S''',
           c_create4(132) value '*                            im_defsize  = ''X''',
           c_create5(132) value '*                            im_racommit = ''X''',
           c_screen(132)  value '  &1->set_screen( exporting im_program = ''&2'' im_screen = ''&3'' ).',
           c_okcode(132)  value '  &1->set_okcode( exporting im_okcode  = ''&2'' ).',
           c_cursor(132)  value '  &1->set_cursor( exporting im_field   = ''&2'' ).',
           c_field(132)   value '  &1->set_field(  exporting im_field   = ''&2'' im_value = ''&3'' ).',
           c_run1(132)    value '  if &->start( ) = ''X''.',
           c_run2(132)    value '*   Success!!!',
           c_run3(132)    value '  else.',
           c_run4(132)    value '*   Error!!!',
           c_run5(132)    value '  endif.',
           c_info(132)    value '* messages in &->wt_messages[].'.

data: begin of wt_data occurs 0,
        line(132),
      end of wt_data.

data: wt_bdcdata type table of bdcdata.

parameters: p_record type apqi-groupid obligatory,
            p_object type char30       obligatory lower case.

start-of-selection.

data: l_qid    type apqi-qid,
      l_value  like line of wt_data,
      l_length type i.

field-symbols: <l_bdcdata> like line of wt_bdcdata.

select single qid into l_qid from apqi where datatyp = '%BDC'
                                           and mandant = sy-mandt
                                           and groupid = p_record.
  if sy-subrc is initial.
    call function 'BDC_OBJECT_READ'
      exporting
        queue_id         = l_qid
      tables
        dynprotab        = wt_bdcdata
      exceptions
        not_found        = 1
        system_failure   = 2
        invalid_datatype = 3
        others           = 4.
    if sy-subrc is initial.
      l_length = strlen( p_object ). l_value = c_data.  replace '&' with p_object(l_length) into l_value. append l_value to wt_data.
      clear: l_value. append l_value to wt_data.
      l_length = strlen( p_object ). l_value = c_clear. replace '&' with p_object(l_length) into l_value. append l_value to wt_data.
      l_length = strlen( p_object ). l_value = c_free.  replace '&' with p_object(l_length) into l_value. append l_value to wt_data.
      clear: l_value. append l_value to wt_data.
      loop at wt_bdcdata assigning <l_bdcdata>.
        if <l_bdcdata>-dynbegin = 'T'.
          l_value = c_create1.
          l_length = strlen( p_object ). replace '&1' with p_object(l_length)         into l_value.
          l_length = strlen( <l_bdcdata>-fnam ). replace '&2' with <l_bdcdata>-fnam(l_length) into l_value.
          append l_value to wt_data.
          l_value = c_create2. append l_value to wt_data.
          l_value = c_create3. append l_value to wt_data.
          l_value = c_create4. append l_value to wt_data.
          l_value = c_create5. append l_value to wt_data.
        elseif <l_bdcdata>-dynbegin = 'X'.
          l_value = c_screen.
          l_length = strlen( p_object ). replace '&1' with p_object(l_length)            into l_value.
          l_length = strlen( <l_bdcdata>-program ). replace '&2' with <l_bdcdata>-program(l_length) into l_value.
          l_length = strlen( <l_bdcdata>-dynpro ). replace '&3' with <l_bdcdata>-dynpro(l_length)  into l_value.
          append l_value to wt_data.
        elseif <l_bdcdata>-fnam = 'BDC_OKCODE'.
          l_value = c_okcode.
          l_length = strlen( p_object ). replace '&1' with p_object(l_length)            into l_value.
          l_length = strlen( <l_bdcdata>-fval ). replace '&2' with <l_bdcdata>-fval(l_length)    into l_value.
          append l_value to wt_data.
        elseif <l_bdcdata>-fnam = 'BDC_CURSOR'.
          l_value = c_cursor.
          l_length = strlen( p_object ). replace '&1' with p_object(l_length)            into l_value.
          l_length = strlen( <l_bdcdata>-fval ). replace '&2' with <l_bdcdata>-fval(l_length)    into l_value.
          append l_value to wt_data.
        elseif <l_bdcdata>-fnam <> 'BDC_SUBSCR'.
          shift <l_bdcdata>-fval left deleting leading space.
          l_value = c_field.
          l_length = strlen( p_object ). replace '&1' with p_object(l_length)            into l_value.
          l_length = strlen( <l_bdcdata>-fnam ). replace '&2' with <l_bdcdata>-fnam(l_length)    into l_value.
          l_length = strlen( <l_bdcdata>-fval ). replace '&3' with <l_bdcdata>-fval(l_length)    into l_value.
          append l_value to wt_data.
        endif.
      endloop.
      l_value = c_run1.
      l_length = strlen( p_object ). replace '&' with p_object(l_length) into l_value. append l_value to wt_data.
      l_value = c_run2. append l_value to wt_data.
      l_value = c_run3. append l_value to wt_data.
      l_value = c_run4. append l_value to wt_data.
      l_value = c_run5. append l_value to wt_data.
      l_value = c_info.
      l_length = strlen( p_object ). replace '&' with p_object(l_length) into l_value. append l_value to wt_data.
      clear: l_value. append l_value to wt_data.
      l_length = strlen( p_object ). l_value = c_clear. replace '&' with p_object(l_length) into l_value. append l_value to wt_data.
      l_length = strlen( p_object ). l_value = c_free.  replace '&' with p_object(l_length) into l_value. append l_value to wt_data.
      editor-call for wt_data display-mode.
    endif.
  else.

endif.

The input for this program is the SHDB record and the program variable name.

7 - Example:

SHDB Record:

8 - Program Input

9 - Generated Code:

data: l_batch_input type ref to zdsbc_batch_input.

clear: l_batch_input.
  free: l_batch_input.

create object l_batch_input exporting im_tcode    = 'VL_COMPLETE'.
*                            im_dismode  = 'N'
*                            im_updmode  = 'S'
*                            im_defsize  = 'X'
*                            im_racommit = 'X'
  l_batch_input->set_screen( exporting im_program = 'SHP_DELIVERY_COMPLETE' im_screen = '1000' ).
  l_batch_input->set_cursor( exporting im_field   = 'S_ERDAT-HIGH' ).
  l_batch_input->set_okcode( exporting im_okcode  = '=ONLI' ).
  l_batch_input->set_field(  exporting im_field   = 'S_VBELN-LOW' im_value = '2102001998' ).
  l_batch_input->set_field(  exporting im_field   = 'S_ERDAT-LOW' im_value = '01.07.2013' ).
  l_batch_input->set_field(  exporting im_field   = 'S_ERDAT-HIGH' im_value = '31.07.2013' ).
  l_batch_input->set_field(  exporting im_field   = 'P_AEDAT' im_value = 'X' ).
  l_batch_input->set_screen( exporting im_program = 'SAPMSSY0' im_screen = '0120' ).
  l_batch_input->set_cursor( exporting im_field   = '04/03' ).
  l_batch_input->set_okcode( exporting im_okcode  = '=&ALL' ).
  l_batch_input->set_screen( exporting im_program = 'SAPMSSY0' im_screen = '0120' ).
  l_batch_input->set_cursor( exporting im_field   = '04/03' ).
  l_batch_input->set_okcode( exporting im_okcode  = '=COMP' ).
  l_batch_input->set_screen( exporting im_program = 'SAPLSPO1' im_screen = '0500' ).
  l_batch_input->set_okcode( exporting im_okcode  = '=OPT1' ).
  if l_batch_input->start( ) = 'X'.
*   Success!!!
  else.
*   Error!!!
  endif.
* messages in l_batch_input->wt_messages[].

clear: l_batch_input.
  free: l_batch_input.

Final remarks:
As you can see, the code is more understable and simplier to use.
The SHDB record name, must be unique, since it is selected by name.
With the generated code, you must add the coding for variable selection and remove unecessary inputs. The program only creates code for the relevant batch input lines.

Release transport orders in background

2010-12-31T14:49:00.001+00:00

It's a very simple task. Just run the RSWBO011 report.

SAP Texts Copy

2010-04-06T12:00:00.001+01:00

RSTXTCPY - This program is very useful to copy texts between SAP clients.

SAP Texts Transport

2010-03-11T15:49:00.002+00:00

An simple way of transport SAP texts is to use the program RSTXTRAN.

First, you must create a transport order, check if the task is of development/correction type.

After that, take not of the task number (not the request), and introduce it in the program, together with the text name, type and language.

Hello world!

2010-02-24T18:21:00.001+00:00

One of the simpliest programs that you can create in abap, is the famous Hello World.

report y_hello_world.

write:/ 'Hello World!'.

Scan string in ABAP programs

2010-02-18T14:49:00.003+00:00

As with sapscript, sometimes we need to find certain strings present in abap source code. For this, sap provides us with an interesting program: RPR_ABAP_SOURCE_SCAN

Scan string in SAPScript Sources

2010-02-18T13:55:00.006+00:00

Every now and then, there is the need to find an particular string in multiple layouts/languages. This could be done by displaying the form info and search there. However, this is painfully slow and boring. For that need, I've created a small and simple program that can show if an form has that string. Below is the source code for it. Just create an empty program and copy & paste. Enjoy.

*&---------------------------------------------------------------------*
*& Report  Y_SEARCH_SAPSCRIPT_SOURCE                                   *
*&---------------------------------------------------------------------*
report y_search_sapscript_source line-size 255.

tables: stxh, phtmlb_fli.

type-pools: sscr.

data: begin of wt_forms occurs 0,
        tdform  like stxh-tdform,
        tdspras like stxh-tdspras,
        found,
      end of wt_forms,
      begin of wt_final occurs 0,
        form    like stxh-tdform,
        lang    like stxh-tdspras,
        line_no like sy-tabix,
        format  type tdformat,
        line    type tline,
        string  type char30,
      end of wt_final,
      wt_lines type table of tline with header line,
      l_tabix  type sy-tabix.

field-symbols: <w_form>  like line of wt_forms,
               <w_line>  like line of wt_lines,
               <w_final> like line of wt_final.

selection-screen: begin of block b1 with frame.
  select-options: s_form for stxh-tdform,
                  s_lang for stxh-tdspras.
selection-screen: end of block b1.
selection-screen: skip.
selection-screen: begin of block b2 with frame.
  select-options: s_string for phtmlb_fli-fli_id lower case obligatory no intervals.
selection-screen: end of block b2.
selection-screen: skip.
selection-screen: begin of block b3 with frame.
  parameters: p_com as checkbox default ' ',
              p_par as checkbox default ' ',
              p_ins as checkbox default ' ',
              p_ele as checkbox default ' ',
              p_win as checkbox default ' '.
selection-screen: end of block b3.

initialization.

data: l_restriction type sscr_restrict,
      l_opt         type sscr_opt_list,
      l_assign      type sscr_ass.

clear: l_restriction, l_opt, l_assign.
  free:  l_restriction, l_opt, l_assign.
  l_opt-name       = 'ONE'.
  l_opt-options-eq = 'X'.
  l_assign-kind    = 'S'.
  l_assign-name    = 'S_STRING'.
  l_assign-sg_main = 'I'.
  l_assign-op_main = 'ONE'.
  append l_opt    to l_restriction-opt_list_tab.
  append l_assign to l_restriction-ass_tab.
  call function 'SELECT_OPTIONS_RESTRICT'
    exporting
      restriction            = l_restriction
    exceptions
      too_late               = 1
      repeated               = 2
      selopt_without_options = 3
      selopt_without_signs   = 4
      invalid_sign           = 5
      empty_option_list      = 6
      invalid_kind           = 7
      repeated_kind_a        = 8
      others                 = 9.
  clear: l_restriction, l_opt, l_assign.
  free:  l_restriction, l_opt, l_assign.

start-of-selection.

clear: wt_forms, wt_forms[], wt_lines, wt_lines[], wt_final, wt_final[].
  select tdform tdspras into corresponding fields of table wt_forms
         from stxh where tdobject =  'FORM'
                     and tdname   in s_form
                     and tdid     =  'TXT'
                     and tdspras  in s_lang.
  if sy-subrc is initial.
    clear: wt_lines.
    loop at wt_forms assigning <w_form>.
      clear: <w_form>-found, wt_lines,
             wt_lines[].
      free:  wt_lines, wt_lines[].
      call function 'READ_FORM'
        exporting
          form       = <w_form>-tdform
          language   = <w_form>-tdspras
        importing
          found      = <w_form>-found
        tables
          form_lines = wt_lines.
      if not <w_form>-found is initial and not wt_lines[] is initial.
        loop at wt_lines assigning <w_line>.
          if ( p_com = 'X' and <w_line>-tdformat    =  '/*' ) or
             ( p_par = 'X' and <w_line>-tdformat(1) <> '/'
                           and <w_line>-tdformat(1) <> '>'  ) or
             ( p_ins = 'X' and <w_line>-tdformat    =  '/:' ) or
             ( p_ele = 'X' and <w_line>-tdformat    =  '/E' ) or
             ( p_win = 'X' and <w_line>-tdformat    =  '/W' ) or
                               <w_line>-tdformat(1) =  '>'.
            continue.
          endif.
          l_tabix = sy-tabix.
          loop at s_string.
            if <w_line>-tdline cs s_string-low.
              wt_final-form    = <w_form>-tdform.
              wt_final-lang    = <w_form>-tdspras.
              wt_final-line_no = l_tabix.
              wt_final-format  = <w_line>-tdformat.
              wt_final-line    = <w_line>-tdline.
              wt_final-string  = s_string-low.
              append wt_final. clear wt_final.
            endif.
          endloop.
        endloop.
      endif.
    endloop.
    if not wt_final[] is initial.
      write:/ 'FORM            ', ';', 'LG', ';', 'LINE No    ', ';', 'STRING                        ', ';', '  ', ';', 'LINE'.
      loop at wt_final assigning <w_final>.
        write:/ <w_final>-form, ';', <w_final>-lang, ';', <w_final>-line_no, ';', <w_final>-string, ';', <w_final>-format, ';', <w_final>-line.
      endloop.
    else.
      write:/ 'Not Found!'.
    endif.
  else.
      write:/ 'Not Found!'.
  endif.