DATA: lv_docname
TYPE uj_docname
, lv_mode TYPE uj_run_mode ,
lv_user type UJ_USER_ID ,
lo_dispatch TYPE REF TO cl_ujk_dispatch,
lt_lgx TYPE ujk_t_script_logic_scripttable .
DATA: lo_old_context
type ref to if_uj_context
, lo_user type ref to CL_UJE_USER .
lo_old_context = cl_uj_context=>get_cur_context( ).
CALL METHOD lo_old_context->GET_USER_OBJ
RECEIVING RO_USER = lo_user.
lv_user = lo_user->D_OBJ_ID.
lv_mode = 'EXECUTE' .
lv_docname = '\ROOT\WEBFOLDERS\ZBP\ADMINAPP\Z_INCOME\ZINBDRCHAIN.LGF'. " путь до файла со скрипт логикой
CREATE OBJECT lo_dispatch.
CALL METHOD lo_dispatch->get_file
EXPORTING
i_appset = 'ZBP' " application
i_application = 'Z_INCOME' " model
i_user = lv_user
i_filename = lv_docname
IMPORTING
et_lgx = lt_lgx.
CALL FUNCTION 'UJK_SCRIPT_LOGIC_EXECUTE'
EXPORTING
I_APPSET = 'ZBP' " application
I_APPLICATION = 'Z_INCOME' " model
I_USER = lv_user
I_LOGIC = lt_lgx
I_FILE_TYPE = 'LGF'
I_MODULE = uj00_c_mod_name_dm
I_LGF = lv_docname
I_MODE = lv_mode.