*&---------------------------------------------------------------------*
*& Report ZUJKT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zujkt.
DATA: l_docname TYPE uj_docname..
DATA: gt_text TYPE ujk_t_script_logic_scripttable,
l_record TYPE LINE OF ujk_t_script_logic_scripttable.
DATA: gt_cv TYPE ujk_t_cv.
DATA: gs_badi_param TYPE ujk_s_badi_param,
g_keydate TYPE uj_date. "TDH qyh051112
DATA:gt_lgx TYPE ujk_t_script_logic_scripttable,
gt_log TYPE ujk_t_single_string.
DATA: l_string_error_message TYPE string.
TYPES:
BEGIN OF ujk_s_scrn,
appset_id TYPE uja_appset_info-appset_id,
application_id TYPE uja_appl-application_id,
user_id TYPE uj0_s_user-user_id,
END OF ujk_s_scrn.
DATA scrn TYPE ujk_s_scrn.
l_record-original_line = 1.
l_record-content = |*XDIM_MEMBERSET Z_ACCOUNT = PL04|.
l_record-original_file = 'screen'.
INSERT l_record INTO TABLE gt_text.
l_record-original_line = 2.
l_record-content = |*START_BADI PL04_STEP1|.
l_record-original_file = 'screen'.
INSERT l_record INTO TABLE gt_text.
l_record-original_line = 3.
l_record-content = |WRITE = ON|.
l_record-original_file = 'screen'.
INSERT l_record INTO TABLE gt_text.
l_record-original_line = 4.
l_record-content = |QUERY = ON|.
l_record-original_file = 'screen'.
INSERT l_record INTO TABLE gt_text.
l_record-original_line = 5.
l_record-content = |*END_BADI|.
l_record-original_file = 'screen'.
INSERT l_record INTO TABLE gt_text.
CONCATENATE '\ROOT\WEBFOLDERS\' 'WMPLAN ' ' \ADMINAPP\' 'Planning' '\PL04_PCD_STEP1.LGF' INTO l_docname.
gs_badi_param-splitter = |;|.
gs_badi_param-splitter = |=|.
gs_badi_param-parameter = ||.
g_keydate = sy-datum.
scrn-appset_id = |WMPLAN|.
scrn-application_id = |Planning|.
scrn-user_id = |PL13|.
DATA: l_mode TYPE uj_run_mode.
l_mode = |EXECUTE|.
DATA uj00_c_mod_name_dm TYPE uj_module_id VALUE 'DM'.
CALL FUNCTION 'UJK_SCRIPT_LOGIC_EXECUTE'
EXPORTING
i_appset = scrn-appset_id
i_application = scrn-application_id
i_user = scrn-user_id
i_logic = gt_text
i_file_type = 'LGF'
i_module = uj00_c_mod_name_dm
it_cv = gt_cv
i_lgf = l_docname
i_mode = l_mode
is_badi_param = gs_badi_param
i_keydate = g_keydate "TDH qyh051112
IMPORTING
et_lgx = gt_lgx
e_fm_error_message = l_string_error_message
et_log = gt_log.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
