Tiempo de ejecución en ABAP
Muchas veces, queremos saber si un SELECT va a ejecutar más rápido utilizando SELECT o INNER JOIN…O simplemente queremos saber que condiciones en el WHRE nos va a ayudar a mejorar el performance…Con este código podemos hacer pruebas de RunTime y determinar la mejor opción.
REPORT Z_TEST_RUNTIME.
DATA: T1 TYPE I,
T2 TYPE I,
T TYPE P DECIMALS 2,
N TYPE I VALUE 1000.
DATA: NUM TYPE I.
NUM = 10.
T = 0.
DO N TIMES.
GET RUN TIME FIELD T1.
*—–Inicio código a validar—–*
WHILE NUM GT 0.
WRITE:/ NUM.
NUM = NUM - 1.
ENDWHILE.
*—–Fín código a validar—–*
GET RUN TIME FIELD T2.
T2 = T2 - T1.
T = T + T2 / N.
ENDDO.
SKIP 1.
WRITE:/ ‘Tiempo de Ejecución: ‘, T, ‘microsegundos’.
El resultado en mi sistema…
10
9
8
7
6
5
4
3
2
1
Tiempo de Ejecución: 0.17 microsegundos
Saludos,
Blag.