SQL Query Benchmark

d stopwatch       ds                  qualified
d  start                          z
d  end                            z
d  seconds                      10u 0

d i               s             10i 0 inz(0)

d rec           e ds                  extname(orders)

 /free

  exec sql set option commit = *none;

  clear sqlca;

  stopwatch.start = %timestamp();

  for i = 1 to 1000;
    exec sql select * into :rec from orders
     where orderno = :i;
  endfor;

  stopwatch.end   = %timestamp();
  stopwatch.seconds = %diff(stopwatch.end:stopwatch.start:*ms);

  dsply %char(stopwatch.seconds);

  *inlr = *on;

 /end-free