1   DATA: header_gd TYPE header_fb,
 2         tables_gd TYPE rsfb_para WITH HEADER LINE,
 3         import_gd TYPE rsfb_para WITH HEADER LINE,
 4         export_gd TYPE rsfb_para WITH HEADER LINE,
 5         change_gd TYPE rsfb_para WITH HEADER LINE,
 6         pname_gd  TYPE tfdir-pname.   
 7 
 8   header_gd-name = ‘ZCREATE_PO‘ ."函数名
 9 
10   SELECT SINGLE pname INTO pname_gd FROM tfdir
11     WHERE funcname =  header_gd-name.
12   CALL FUNCTION ‘FUNCTION_INCLUDE_SPLIT‘
13     EXPORTING
14       program   = pname_gd
15     IMPORTING
16       group     = header_gd-area
17       namespace = header_gd-namespace
18     EXCEPTIONS
19       othe      = 12.
20   IF sy-subrc = 0.
21     CONCATENATE header_gd-namespace header_gd-area
22             INTO header_gd-area.
23     CALL METHOD cl_fb_parameter_db=>read
24       IMPORTING
25         tables = tables_gd[]
26         import = import_gd[]
27         export = export_gd[]
28         change = change_gd[]
29       CHANGING
30         header = header_gd.
31   ENDIF.