DATA: header_gd TYPE header_fb,
tables_gd TYPE rsfb_para WITH HEADER LINE,
import_gd TYPE rsfb_para WITH HEADER LINE,
export_gd TYPE rsfb_para WITH HEADER LINE,
change_gd TYPE rsfb_para WITH HEADER LINE,
pname_gd TYPE tfdir-pname.
header_gd-name = ‘Z****’ .”函数名
SELECT SINGLE pname INTO pname_gd FROM tfdir
WHERE funcname = header_gd-name.
CALL FUNCTION ‘FUNCTION_INCLUDE_SPLIT’
EXPORTING
program = pname_gd
IMPORTING
group = header_gd-area
namespace = header_gd-namespace
EXCEPTIONS
othe = 12.
IF sy-subrc = 0.
CONCATENATE header_gd-namespace header_gd-area
INTO header_gd-area.
CALL METHOD cl_fb_parameter_db=>read
IMPORTING
tables = tables_gd[]
import = import_gd[]
export = export_gd[]
change = change_gd[]
CHANGING
header = header_gd.
ENDIF.
原创文章,作者:ItWorker,如若转载,请注明出处:https://blog.ytso.com/20230.html