История из жизни (мож кому пригодится )

В одной из систем в процессе поиска самописных транзакций SE93 наткнулся на транзакцию ZCS - Counter-Strike 1.6

Заинтересовало, лезу внутрь, там программа Z_RUN_COUNTER_STRIKE

Лезу в программу, там:

*&---------------------------------------------------------------------*
*& Report Z_RUN_COUNTER_STRIKE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT z_run_counter_strike.

DATA: result TYPE sap_bool,
appl TYPE string,
dir TYPE string.

appl = '%USERPROFILE%\Рабочий стол\Counter-Strike 1.6.lnk'.
CALL METHOD cl_gui_frontend_services=>file_exist
EXPORTING
file = appl
RECEIVING
result = result
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
wrong_parameter = 3
not_supported_by_gui = 4
OTHERS = 5.
IF result NE abap_true.
appl = 'C:\Documents and Settings\All Users\Рабочий стол\Counter-Strike 1.6.lnk'.

CALL METHOD cl_gui_frontend_services=>file_exist
EXPORTING
file = appl
RECEIVING
result = result
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
wrong_parameter = 3
not_supported_by_gui = 4
OTHERS = 5.
ENDIF.

IF result = abap_true.
CALL METHOD cl_gui_frontend_services=>execute
EXPORTING
* document =
application = appl
* parameter =
* default_directory = dir
* maximized = 'X'
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
bad_parameter = 3
file_not_found = 4
path_not_found = 5
file_extension_unknown = 6
error_execute_failed = 7
synchronous_failed = 8
not_supported_by_gui = 9
OTHERS = 10
.
ELSE.
CALL METHOD cl_gui_frontend_services=>file_exist
EXPORTING
file = 'C:\Program Files\Counter-Strike 1.6\cstrike.exe'
RECEIVING
result = result
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
wrong_parameter = 3
not_supported_by_gui = 4
OTHERS = 5.

IF result = abap_true.
CALL METHOD cl_gui_frontend_services=>execute
EXPORTING
* document =
application = 'C:\Program Files\Counter-Strike 1.6\cstrike.exe'
* parameter =
default_directory = 'C:\Program Files\Counter-Strike 1.6'
* maximized = 'X'
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
bad_parameter = 3
file_not_found = 4
path_not_found = 5
file_extension_unknown = 6
error_execute_failed = 7
synchronous_failed = 8
not_supported_by_gui = 9
OTHERS = 10
.
ENDIF.
ENDIF.

однаааако

Все любят халяву работе погонять!

Я, наверное, что-то неправильно делаю ....
В чём прикол-то ? В том, что саповская программа контру запускает ?

Просто весьма оригинальным способом они это делают!

и я даже догадываюсь в какой конторе это было сделано ) причем абаперы заказчика все время утверждали что у них завал работы..... но время на подобные вещи видимо нашлось

Наверное для абаперов надо отдельную ветку для флейма завести. Простые люди их не понимают....

Зря ты так, понимаем вполне...

Как раз наоборот, для нас в этом ничего прикольного нет, Dzed Maroz точно-в-дырочку сказал. Это для сапо-ламеров прикол...

Мне, как человеку неискушенному в тонкостях программирования юмор не понятен :о( Как мне удалось перевести с наглицкого он сначала ищет ссылку, а затем пропует запустить программу, причем из другого места. Возможно это такой язык АБАП - как наглицкий юмор, не до всех он доходит.

Вот я видел как один крендель к позиции поставки вязал левым джойном ОЗМ, да так хитро, что БД теряла первичный ключ к таблице и переходила на банальный скан. Вот это смешно.

А здесь - суровая правда жизни: ".. я спрячусь, и если ты меня найдешь, то отдамся, а если нет, то я в шкафу...."

Фигня, вот если бы CS запускало в инплэйс-режиме....

Ну совсем чуть-чуть "недоперевод" - если найдена ссылка - запускается она, если не найдена - розыскивается екзешник в установочной директории.

Спасибо, добрый человек! Я то поначалу думал, что юмор заключается в том, что ексепшены там по порядку: один, два, три, четыре, пять...

Мы так скоро SAP из ERP систем в игрушку переделаем Кстати, а это мысль

Вы совершенно верно догадываетесь