FWD » Core Development » Database

DEFINE BUFFER buf1 FOR adaptivept9.

DEFINE VARIABLE i AS INTEGER NO-UNDO.

DEFINE VARIABLE n AS INTEGER NO-UNDO INITIAL 20000.

DEFINE VARIABLE t AS INTEGER NO-UNDO.

/* clean slate */

FOR EACH adaptivept9:

   DELETE adaptivept9.

END.

DO i = 1 TO n TRANSACTION:

   CREATE adaptivept9.

   adaptivept9.k1 = i.

   adaptivept9.k2 = 1.

END.

DO TRANSACTION:

   FIND FIRST adaptivept9 WHERE adaptivept9.k1 = 1.

   adaptivept9.k2 = 999.

   ETIME(TRUE).

   DO i = 1 TO n:

      FIND FIRST buf1 WHERE buf1.k1 = i NO-ERROR.

   END.

   t = ETIME.

   MESSAGE "DIRTY find x" n "(100% cache miss) elapsed(ms):" t.

   UNDO, LEAVE.

END.