data: lv_rfcdest type ssm_rfc-rfcdest, mssg_ret_ls type mssg_ret, mssg_ret_lt type standard table of mssg_ret ... select single paramval into lv_rfcdest from zconstex where paramid eq 'L01_ERP'. "L01CLNT100" ... call function 'Z_LAGER_AU' destination lv_rfcdest tables ie_outpo = it_outpo. loop at it_outpo into hl_outpo. mssg_ret_ls-msgid = 'Z_S'. mssg_ret_ls-msgno = '024'. mssg_ret_ls-msgty = 'E'. mssg_ret_ls-msgv1 = hl_outpo-transmeans_id. append mssg_ret_ls TO mssg_ret_lt. delete jitodiaco_ct where outpo eq hl_outpo-transmeans_id. delete jitodiait_ct where outpo eq hl_outpo-transmeans_id. endloop. call function 'JIT03_SHOW_APPLICATION_LOG' exporting text_iv = 'Message' title_iv = 'Please read carefully' tables messages_it = mssg_ret_lt exceptions system_error = 1 others = 2.
