REPORT  z_salv_simple_list5.

DATA: gd_alv               TYPE REF TO cl_salv_table,  "Data for ALV
      gv_error_message     TYPE REF TO cx_salv_msg, "Error message
      gd_layout_settings   TYPE REF TO cl_salv_layout, "Layout
      gs_layout_key        TYPE salv_s_layout_key.

DATA: gt_filetable  TYPE filetable, "File selection
      gv_rc         TYPE i. "Error holder

TYPES:
  BEGIN OF ts_userdata,
    name      TYPE pd_vorna,
    lastname  TYPE pad_nachn,
  END OF ts_userdata,
  tt_userdata TYPE TABLE OF ts_userdata.


DATA: gt_userdata TYPE tt_userdata,
      iv_file_str   TYPE string.


*** IMPORT FILE ***
cl_gui_frontend_services=>file_open_dialog(
        CHANGING
          file_table              = gt_filetable
          rc                      = gv_rc
        EXCEPTIONS
          file_open_dialog_failed = 1
          cntl_error              = 2
          error_no_gui            = 3
          not_supported_by_gui    = 4
          OTHERS                  = 5
      ).

IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

IF lines( gt_filetable ) > 0.
  READ TABLE gt_filetable INDEX 1 INTO iv_file_str.

ENDIF.
*** /END OF FILE IMPORTING ***


*** READ & SEPARATE FILE DATA ***
CALL METHOD cl_gui_frontend_services=>gui_upload
  EXPORTING
    filename            = iv_file_str
    has_field_separator = 'X'
  CHANGING
    data_tab            = gt_userdata.
*** /END OF FILE READING ***

SORT gt_userdata BY lastname. "Sort data in table


*** IMPORT DATA IN SALV ***
TRY.
    cl_salv_table=>factory(
    IMPORTING
      r_salv_table = gd_alv
    CHANGING
      t_table      = gt_userdata ).
  CATCH cx_salv_msg INTO gv_error_message.
    MESSAGE 'Sorry, error appeard.' TYPE 'E'.
ENDTRY.
*** /END OF DATA IMPORTING IN SALV ***


* Layout settings *
gd_layout_settings = gd_alv->get_layout( ).
gs_layout_key-report = sy-repid.
gd_layout_settings->set_key( gs_layout_key ).
gd_layout_settings->set_save_restriction( if_salv_c_layout=>restrict_none ).
* /End of Layout Settings *


gd_alv->display( ).  "Display SALV

  Data:
    lv_Sym(1),
    lv_Str type string 'АБВГД....'.
   
    lv_Sym = lv_Str+3(1). "получаем 3-й знак в строке

  lv_Sym = lv_Str+9(1).

METHOD compare_char.

  DATA: lv_num1 TYPE i,
        lv_num2 TYPE i,
        lv_str  TYPE string VALUE 'AEIOUBCDFGHJKLMNPQRSTVWXYZ'.

  IF iv_char1 IS INITIAL AND iv_char2 IS NOT INITIAL.  "If first char is empty ' ', than lv_num1 gets value -1, otherwise 1
    ev_result = -1.
  ELSEIF iv_char2 IS INITIAL AND iv_char1 IS NOT INITIAL.
    ev_result = 1.
  ELSEIF iv_char2 IS INITIAL AND iv_char1 IS INITIAL.
    ev_result = 0.
  ELSE.
    FIND FIRST OCCURRENCE OF iv_char1 IN lv_str MATCH OFFSET lv_num1. "Get positions number for first imported char
    FIND FIRST OCCURRENCE OF iv_char2 IN lv_str MATCH OFFSET lv_num2. "Get positions number for second imported char

    IF lv_num1 = lv_num2.   "Compares chars depending on number (0 - comes first, 25 - last char)
      ev_result = 0.        "0: chars are the same. -1: first char comes first. +1: first char is bigger than second.
    ELSEIF lv_num1 < lv_num2.
      ev_result = -1.
    ELSE.
      ev_result = +1.
    ENDIF.
  ENDIF.

ENDMETHOD.