REPORT zcreate_fm.
DATA: date TYPE sy-datum,
time TYPE sy-uzeit,
pool_name TYPE rs38l-area,
func_name TYPE rs38l-name,
lt_codeline TYPE STANDARD TABLE OF char255,
l_function_include TYPE progname.
DATA it_exception_list TYPE TABLE OF rsexc.
DATA it_export_parameter TYPE TABLE OF rsexp.
DATA it_import_parameter TYPE TABLE OF rsimp.
DATA wa_rsimp TYPE rsimp.
DATA it_tables_parameter TYPE TABLE OF rstbl.
DATA it_changing_parameter TYPE TABLE OF rscha.
DATA wa_rscha TYPE rscha.
DATA it_parameter_docu TYPE TABLE OF rsfdo.
date = sy-datum.
time = sy-uzeit.
CONCATENATE 'ZTEST_FBS_' date time INTO pool_name.
CONCATENATE 'ZFB1_' pool_name INTO func_name.
CALL FUNCTION 'RS_FUNCTION_POOL_INSERT'
EXPORTING
function_pool = pool_name
short_text = 'TEST_FUGR_FBS' "#EC NOTEXT
devclass = '$TMP' "#EC NOTEXT
responsible = sy-uname
suppress_corr_check = space
EXCEPTIONS
name_already_exists = 1
name_not_correct = 2
function_already_exists = 3
invalid_function_pool = 4
invalid_name = 5
too_many_functions = 6
no_modify_permission = 7
no_show_permission = 8
enqueue_system_failure = 9
canceled_in_corr = 10
undefined_error = 11
OTHERS = 12.
IF sy-subrc <> 0.
WRITE:/ 'Fugr was not created!: ' , sy-subrc .
RETURN.
ENDIF.
wa_rsimp-parameter = 'P1_I'. "#EC NOTEXT
wa_rsimp-default = '10'. "#EC NOTEXT
wa_rsimp-reference = 'X'. "#EC NOTEXT
wa_rsimp-typ = 'I'. "#EC NOTEXT
APPEND wa_rsimp TO it_import_parameter.
wa_rscha-parameter = 'P1_C'. "#EC NOTEXT
wa_rscha-reference = 'X'. "#EC NOTEXT
wa_rscha-typ = 'I'. "#EC NOTEXT
APPEND wa_rscha TO it_changing_parameter.
CALL FUNCTION 'FUNCTION_CREATE'
EXPORTING
funcname = func_name
function_pool = pool_name
short_text = 'TEST_FUNC_FB' "#EC NOTEXT
IMPORTING
function_include = l_function_include
TABLES
exception_list = it_exception_list
export_parameter = it_export_parameter
import_parameter = it_import_parameter
tables_parameter = it_tables_parameter
changing_parameter = it_changing_parameter
parameter_docu = it_parameter_docu
EXCEPTIONS
double_task = 1
error_message = 2
function_already_exists = 3
invalid_function_pool = 4
invalid_name = 5
too_many_functions = 6
OTHERS = 7.
IF sy-subrc <> 0.
WRITE: / 'failed:', sy-subrc.
RETURN.
ENDIF.
READ REPORT l_function_include INTO lt_codeline.
DELETE lt_codeline INDEX lines( lt_codeline ).
DELETE lt_codeline WHERE table_line IS INITIAL.
WRITE: / 'created successful:', func_name.
APPEND | WRITE:/ 'OK'.| TO lt_codeline.
APPEND | WRITE:/ P1_I.| TO lt_codeline.
APPEND 'ENDFUNCTION.' TO lt_codeline.
INSERT REPORT l_function_include FROM lt_codeline.
COMMIT WORK AND WAIT.
DATA: ptab TYPE abap_func_parmbind_tab,
lv_i TYPE int4 VALUE 12.
ptab = VALUE #( ( name = 'P1_I'
kind = abap_func_exporting
value = REF #( 3 ) )
( name = 'P1_C'
kind = abap_func_changing
value = REF #( lv_i ) )
).
TRY.
CALL FUNCTION func_name
PARAMETER-TABLE ptab.
CATCH cx_root INTO DATA(cx_root).
WRITE: / cx_root->get_text( ).
ENDTRY.
CALL FUNCTION 'FUNCTION_DELETE'
EXPORTING
funcname = func_name.
CALL FUNCTION 'FUNCTION_POOL_DELETE'
EXPORTING
pool = pool_name.
要获取更多Jerry的原创文章，请关注公众号"汪子熙":
