Введение

В гугле можно найти много статей – противопоставлений: «Python vs C++», «Ruby vs Python», «Java vs C#» и т.д. В них языки, кроме своих выразительных способностей, сравниваются по скорости работы программ, написанных на этих языках. Но статей «ABAP vs …» я не нашёл. Хотелось бы узнать: насколько скорость работы программы на проприетарном языке программирования (ABAP), который используется только в SAP R/3, отличается от скорости работы программы, написанной на другим языке программирования, который используется не только в SAP R/3.

По скорости работы все языки сравниваются с C/C++. Так как последняя парочка обладает самыми большими способностями по написанию скоростных программ и хранится в парижской палате мер и весов.

Я не стал измерять скорость по базовым алгоритмам типа «а+б», quicksort или обходы по графу. Такие синтетические тесты может быть и дают некоторое понятие о порядке, но не надо забывать, что одна и та же функциональная часть программы может быть записана по разному в зависимости от способностей языка. Поэтому применяется реальный тест. Я взял главный алгоритм программы для формирования расшифровки строк баланса по основным средствам.

На abap его кодировал опытный разработчик.

Разработчика на С++ у меня не было, поэтому эту часть выполнял сам.

Результат теста

ABAP: ~40 секунд

C++: 0.15 секунды.

Анализ причин

Различие в скорости работы объясняется тем, что в С++ нет некоторых конструкций. Например, нет «loop at table where key = “x”». А в abap есть. С учётом этого abapером было написано:

Loop at lt_rowsettings into ls_rowsets.

Loop at lt_obj into ls_obj where type = ls_rowsets-type.

               append initial line to <out> assigning <ls_out>.

assign component “rownum” of structure <ls_out> to <ls_out_field>.

                              <ls_out_field> = ls_rowsets-rownum.

               Loop at lt_transactions into ls_trans where objnum = ls_obj-objnum.

               Loop at lt_columnsettings into ls_colsets where  type = ls_trans-type.

                              Assign component ls_colsets-colname of structure <ls_out> to <ls_out_field>.

                              Add lt_trans-sum to <ls_out_field>.

Endloop.

Endloop.

Endloop.

Endloop.

Далее шёл цикл, который делал «подсуммировку» сумм по колонкам (в структуре <ls_out> эти поля имеют имя colname) по полю rownum.

Но для решения задачи на С++ надо применять другие подходы. Дальше я буду рассматривать примеры преобразования реализации алгоритма на ABAP к реализации алгоритма на C++.

Пример 1.

В SAP есть некоторая таблица настроек, в которой мы задаём соответствие хозяйственной операции множеству кодов видов движений. В отображаемой alv-таблице суммы по каждой хозяйственной операции располагаются в своём столбце. По сути (но не по реализации) настроечная таблица (Таблица 1) выглядит так:

Таблица 1

Название столбца хоз. операции Columnsettings-colname	Название хоз. операции	Код хоз. операции в системе Columnsettings-type
SUM1	Приход	100
SUM1	Приход	Z01
SUM2	Расход	200
SUM2	Расход	Z02

В программе реализуется цикл по таблице объектов lt_obj , и для каждого объекта мы находим перечень операций. В зависимости от кода операции добавляем сумму операции в нужную колонку выходной таблицы lt_out. Это выглядит так:

               Loop at lt_obj into ls_obj.

               Loop at lt_transactions into ls_trans where objnum = ls_obj-objnum.

               Loop at lt_columnsettings into ls_colsets where  type = ls_trans-type.

                              Assign component ls_colsets-colname of structure <ls_out> to <ls_out_field>.

                              Add lt_trans-sum to <ls_out_field>.

Endloop.

Endloop.

Endloop.

Разумеется, это можно оптимизировать: заменим assign component по имени на assign по номеру. Но проблему это не решит. Проблема здесь – тройной цикл.

Делаем тот же расчёт на С++. Для начала определим, что входную таблицу (таблица 1) удобно преобразовать к виду, приведённому в Таблице 2:

Таблица 2

Код хоз. операции Columnsettings-type	Номер столбца хоз. операции Columnsettings-colnum
100	1
Z01	1
200	2
Z02	2

Далее преобразуем тип поля Columnsettings-type. В sap это NUMC 3 знака. Т.е. кроме цифр 100 и 200 можно задать и цифробуквенное сочетание. Например, значение Z01. Вводим 36 разрядную систему измерений, где 0 = 0, 1 = 1… A = 10, B=11…Z = 35. В результате, Z01 будет иметь значение 35*36*36 + 0* 36 + 1 = 45 361. Пишем функцию int typconv(const char*). Текст приводить не буду. Она небольшая и разумеется её выгодно сделать inline.

Максимально число видов движений 36^3 = 46 656.

Создаём массив нужного размера:

typedef unsigned int  uint;

std::vector<uint> typecol;

typecol.reserve(46656);

Заполняем его значениями:

for(const auto &ls: columnsettings){

typecol[typconv(ls.type)] = ls.colnum;

}

Теперь, когда в нужную колонку требуется добавить сумму, достаточно написать следующую конструкцию:

ls_out[row][typecol[typconv(lt_trans.type)]] += lt_trans.sum;

Никаких binary search  - все на порядки быстрее. Фактически, мы заменили внутренний цикл на конструкцию вида:

typeconv_outval = macros_typconv(lt_trans-type).

read table typecol into ls_typecol index typeconv_outval.

assign component ls_typecol of structure <ls_out> to <ls_out_field>.

add lt_trans-sum to <ls_out_field>.

Пример 2.

Изначально, речь шла про 4х-кратно вложенный цикл. Перед выводом поля структур с суммами в <lt_out> мы «подсуммируем» по номерам строки rownum. Над тройным циклом, описанным в прошлом примере, располагается ещё один, который служит для определения номера строки в alv-таблицу:

Loop at lt_rowsettings into ls_rowsets.

Assign component “rownum” of structure <ls_out> to <ls_out_field>.

                              <ls_out_field> = lt_rowsetttings-rownum.

Есть настройка для соответствия класса объекта и номером строки. Настроечная таблица (Таблица 3) выглядит так:

Таблица 3

Номер строки rowsettings-rownum	Название строки	Класс rowsettings-type
1	Здания