abap GET RUN TIME f 程序性能分析

*&---------------------------------------------------------------------*
*& Report  ZTCXHTEST_RUNTIME_ANALYSIS
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZTCXHTEST_RUNTIME_ANALYSIS.
DATA: wa_carrid TYPE spfli-carrid,
          wa_caonid TYPE spfli-connid,
          wa_carrname TYPE scarr-carrname.
DATA: t1  TYPE  i,
          t2  TYPE i,
          time TYPE i,
          n TYPE i VALUE 1000.
DO n TIMES.
  GET RUN TIME FIELD t1.
  SELECT carrid connid FROM spfli
      INTO  (wa_carrid, wa_caonid) WHERE cityfrom = 'SINGAPORE'.
    SELECT carrname FROM scarr
      INTO wa_carrname WHERE carrid = wa_carrid.
    ENDSELECT.
  ENDSELECT.
  GET RUN TIME FIELD t2.
  time =  time + t2 - t1.
ENDDO.

WRITE:  'runtime:',   time.