SAP ABAP PERFORM subr ON COMMIT

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'的数据插入数据库。