FUNCTION z_luw_call.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" REFERENCE(V_CARRID) TYPE SPFLI-CARRID
*" REFERENCE(V_CONNID) TYPE SPFLI-CONNID
*"----------------------------------------------------------------------
DATA: wa_spfli TYPE spfli.
wa_spfli-carrid = v_carrid.
wa_spfli-connid = v_connid.
INSERT spfli FROM wa_spfli.
ENDFUNCTION.
*&---------------------------------------------------------------------*
*& Report Z_DEMO_20090815 *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT z_demo_20090815 .
DATA: wa_spfli TYPE spfli.
wa_spfli-carrid = '100'.
wa_spfli-connid = '1000'.
PERFORM f ON COMMIT.
wa_spfli-carrid = '200'.
wa_spfli-connid = '2000'.
PERFORM f ON COMMIT.
wa_spfli-carrid = '300'.
wa_spfli-connid = '3000'.
COMMIT WORK.
*&--------------------------------------------------------------------*
*& Form f
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
FORM f.
CALL FUNCTION 'Z_LUW_CALL'
EXPORTING
v_carrid = wa_spfli-carrid
v_connid = wa_spfli-connid.
ENDFORM. "f
注:语句执行的结果只是将wa_spfli-carrid = '300' wa_spfli-connid = '3000'的数据插入数据库。
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" REFERENCE(V_CARRID) TYPE SPFLI-CARRID
*" REFERENCE(V_CONNID) TYPE SPFLI-CONNID
*"----------------------------------------------------------------------
DATA: wa_spfli TYPE spfli.
wa_spfli-carrid = v_carrid.
wa_spfli-connid = v_connid.
INSERT spfli FROM wa_spfli.
ENDFUNCTION.
*&---------------------------------------------------------------------*
*& Report Z_DEMO_20090815 *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT z_demo_20090815 .
DATA: wa_spfli TYPE spfli.
wa_spfli-carrid = '100'.
wa_spfli-connid = '1000'.
PERFORM f ON COMMIT.
wa_spfli-carrid = '200'.
wa_spfli-connid = '2000'.
PERFORM f ON COMMIT.
wa_spfli-carrid = '300'.
wa_spfli-connid = '3000'.
COMMIT WORK.
*&--------------------------------------------------------------------*
*& Form f
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
FORM f.
CALL FUNCTION 'Z_LUW_CALL'
EXPORTING
v_carrid = wa_spfli-carrid
v_connid = wa_spfli-connid.
ENDFORM. "f
注:语句执行的结果只是将wa_spfli-carrid = '300' wa_spfli-connid = '3000'的数据插入数据库。

本文展示了一个使用ABAP编程语言进行数据库操作的例子,重点介绍了如何通过定义局部接口并调用自定义函数来实现数据插入功能。具体演示了通过设置变量值并在不同场景下调用同一函数来向数据库中插入数据。
1120

被折叠的 条评论
为什么被折叠?



