ON CHANGE OF 的简单用法

DATA: SPFLI_WA      TYPE SPFLI,
      CARRID_BUFFER TYPE SPFLI-CARRID.

CLEAR CARRID_BUFFER.
CARRID_BUFFER = '402'.

SELECT *
       FROM SPFLI
       ORDER BY CARRID
       INTO @SPFLI_WA.


*****on change of 的用法相当于IF SPFLI_WA-CARRID <> CARRID_BUFFER.
*  IF SPFLI_WA-CARRID <> CARRID_BUFFER.
*    CARRID_BUFFER = SPFLI_WA-CARRID.
*  ENDIF.

  ON CHANGE OF CARRID_BUFFER.
    WRITE: CARRID_BUFFER.
  ENDON.

ENDSELECT.