測試代碼運行時間的代碼

report  yhk3.

data: t1 type i,
      t2 type i,
      t  type p decimals 2.

parameters n type i default 10.

data: toff  type p decimals 2,
      tsel1 type p decimals 2,
      tsel2 type p decimals 2.

data sbook_wa type sbook.

t = 0.

  get run time field t1.

  select *
         from sbook
         into sbook_wa.
  endselect.

  get run time field t2.
  t2 = t2 - t1.
  t = t2.

tsel1 = t .
write: / 'Mean Runtime SELECT *   :',
         tsel1, 'microseconds'.