GET RUN TIME – Medir el tiempo de una búsqueda o proceso lógico

Si deseamos saber cuanto tarda una búsqueda o un determinado proceso podemos usar el siguiente bloque de código:

DATA: 	T1 TYPE I,
	T2 TYPE I,
	T TYPE P DECIMALS 2,
	N TYPE I VALUE 10000.

T = 0.
DO N TIMES.
  GET RUN TIME FIELD T1.

*****************************
*      Codigo a testear    *
*****************************

  GET RUN TIME FIELD T2.
  T2 = T2 - T1.
  T = T + T2 / N.
ENDDO.

WRITE: / 'Tiempo de ejecución: ', T, 'microsegundos'.

Esto sirve cuando queremos testear distintos tipos de búsquedas o si el usuario desea saber cuanto tardó en correr el programa o reporte.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: