UJKT

*&---------------------------------------------------------------------*
*& 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'.