d bulkCopy        pr                  extpgm('BULKCOPY')

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

d i               s              5u 0 inz

 /free

  stopwatch.start = %timestamp();

  for i = 1 to 130;
   bulkCopy();
  endfor;

  stopwatch.end   = %timestamp();
  stopwatch.seconds = %diff(stopwatch.end:stopwatch.start:*seconds);
  dsply %char(stopwatch.seconds);
  *inlr = *on;

 /end-free