Несколько сильных сторон 1С в сравнении с SAP

REPORT  ZTURE2.

"внутренняя таблица
types: begin of z_line,
            id(5) type n,
            ii type i,
            name(25),
       end of z_line.
data tab_1 type z_line occurs 10 WITH HEADER LINE. "WITH HEADER LINE - это место под текущий элемент таблицы

DO 12 TIMES.
    data: line type z_line, tmp1(25), tmp2(25).
    line-ID = sy-index.
    line-ii = sy-index.
    line-name = '-'.
    append line to tab_1.
enddo.

"вставляем заполняем и вставляем строку в 4 позицию, сдвигая остальные ниже
tab_1-ID = '99'.
tab_1-II = -199.
tab_1-NAME = 'Уши Оленя'.
insert tab_1 index 3.

"обход таблицы, если указано WITH HEADER LINE
loop at tab_1.
  "sy-TABIX хранит текущее значение строки внутренней таблицы
  write: / sy-TABIX, tab_1-ID, tab_1-II, tab_1-NAME.
endloop.

"произвольный доступ на чтение, если указано WITH HEADER LINE
read table tab_1 index 5. "помещает 5-ю строку в заголовок
write: / ,/ sy-TABIX, tab_1-ID, tab_1-II, tab_1-NAME.

"поиск нужной строки по условиям
read table tab_1 with key id = '99'. 
if sy-SUBRC = 0.
  write: / ,/ sy-TABIX, tab_1-ID, tab_1-II, tab_1-NAME.
else.
  write: / ,/ 'строка не найдена'.
endif.

write / '-'.
"проверяем
loop at tab_1.  
  write: / sy-TABIX, tab_1-ID, tab_1-II, tab_1-NAME.
endloop.

REPORT  YTURE2.
" Описание типов
TYPES: phone_t(10) type  n,
       BEGIN OF person_t,
         id              TYPE n,
         first_name(20)  TYPE c,
         last_name(20)   TYPE c,
         full_name(100)  TYPE c,
         age             TYPE i,
         date            TYPE d,
         phone           TYPE phone_t OCCURS 1,
       END OF person_t.
" Объявление переменных
DATA: pr TYPE person_t.
DATA: tab_pr TYPE TABLE OF person_t.
" Делаем константу (вида всюду)
CONSTANTS: CNT TYPE i VALUE 100.

" Исполнение
START-OF-SELECTION.
" Заполнение таблицы (отдельной формой)
  PERFORM fill_data.
" Отображение таблицы (отдельной формой)
  PERFORM output.

" Описание формы заполнения
FORM fill_data.
  data phone type phone_t.
  DO CNT TIMES.
    pr-id = sy-index.
    pr-first_name = 'Жека'.
    pr-last_name = 'Ну понятно... ture'.
    " соединяем строки
    pr-full_name = |{ pr-first_name } { pr-last_name } - { sy-index } прикольно тут! |.
    pr-age = 15.
    pr-date = sy-datum.
    DO sy-index TIMES. 
      phone = '989157777700' + sy-index.
      APPEND phone to pr-phone.
    ENDDO.
    APPEND pr TO tab_pr.
  ENDDO.
ENDFORM.            

" Описание формы отображения
FORM output.
  DATA: gr_table      TYPE REF TO cl_salv_table.

* ALV Output
  TRY.
      cl_salv_table=>factory( IMPORTING
                                  r_salv_table = gr_table
                              CHANGING
                                  t_table      = tab_pr ).
  CATCH cx_salv_msg.
  ENDTRY.

* Display ALV
  gr_table->display( ).

ENDFORM.  

REPORT  YTURE_CLASS.

"описание типов
class person_t DEFINITION.  
  "выжен порядок секций
  PUBLIC SECTION.
      TYPES phone_t(10) type n.
      "конструктор (перегрузка конструктора запрещена, на параметры могут быть не обязательные)
      METHODS constructor IMPORTING name type c OPTIONAL
                                    age  type i OPTIONAL
                                    phone type PHONE_T DEFAULT '9151234567'.
                 
      "методы (перегрузка запрещена)
      METHODS write.                                                                    
      METHODS add_phone IMPORTING num type PHONE_T.
  PRIVATE SECTION.
      "константы
      CONSTANTS LEN type i VALUE 50.
      "члены данных
      data: name(LEN) type c VALUE 'Ну понятно... ture',
            age       type i VALUE 25,
            t_phone   type TABLE OF phone_t.      
ENDCLASS.

"Исполняемый фрагмент
data: obj_1 type ref to person_T,
      obj_2 like OBJ_1,
      obj_3 like OBJ_2.
CREATE OBJECT OBJ_1 EXPORTING name = 'Серёга, опять ты!'
                              age  = 30.
CREATE OBJECT OBJ_2 EXPORTING name = 'Диман'
                              phone = '9159876543'.
CREATE OBJECT OBJ_3.

call METHOD OBJ_1->ADD_PHONE EXPORTING num = '7777777777'.

data t_persons type TABLE OF REF TO person_t.
APPEND: obj_1 to t_persons,
        obj_2 to t_persons,
        obj_3 to t_persons.

data: obj type ref to person_T.
loop at t_persons into OBJ.
    CALL METHOD OBJ->WRITE.
ENDLOOP.  
  

"реализация после исполняемого фрагмента
class person_t IMPLEMENTATION.
      METHOD CONSTRUCTOR.
          if name is SUPPLIED.
            "это this такой
            me->name = name.
          ENDIF.
          if age is SUPPLIED.
            me->age = age.
          ENDIF.  
          APPEND phone to T_PHONE. 
      ENDMETHOD.
      METHOD write.  
          write: / 'имя = ', NAME, ' возраст = ', AGE.
          data phone type PHONE_T.
          loop at T_PHONE into phone.
              WRITE: / 'тел: ', phone.
          ENDLOOP.  
      ENDMETHOD.
      METHOD add_phone. 
          data temp type PHONE_T.           
          "table_line как алиас            
          READ TABLE T_PHONE WITH KEY table_line = num into TEMP. 
          if sy-SUBRC <> 0.
              APPEND num to T_PHONE. 
          endif.
      ENDMETHOD.      
ENDCLASS.

REPORT ture.
data: begin of rec,
    name(25) type c,
    id type i,
   end of rec.
  
  move 'Серега-Перец' to rec-NAME.
  move 1 to rec-ID.
  
 * дальше ошибка, не умеет типа этот "простой" английский язык печатать структуры, надо громоздить кучу write на каждое поле!!!!
  write / rec.