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.