If this is your first visit, be sure to
check out the FAQ by clicking the
link above. You may have to register
before you can post: click the register link above to proceed. To start viewing messages,
select the forum that you want to visit from the selection below.
Función para buscar el minimo y maximo de una tabla interna
Yo tampoco conozco ninguna función pero se me ocurre que se podría pasar a otra tabla ordenada y de esta tomar el primero con un read table index 1. Para esto ya habría que evaluar la performance dependiendo que tan grande sea la tabla.
min = 0.
max = 0.
LOOP AT tabla_interna.
IF min = 0.
min = tabla_interna-campo.
ENDIF.
IF max = 0.
max = tabla_interna-campo.
ENDIF.
if min > tabla_interna-campo.
min = tabla_interna-campo.
ENDIF.
IF max < tabla_interna-campo.
max = tabla_interna-campo.
ENDIF.
ENDLOOP.
Editado por última vez por ic_man_777; 30/04/2008, 20:28:41.
Como muy bien dijo antes Gerbeltran, la mejor opción (desde el punto de vista del rendimiento del código) es la presentada por Ice_man_777. La cota de complejidad en ambos casos sería la siguiente:
Ordenar la tabla: n*log n
Bucle a la tabla interna: n
Si la primera opción incluye reservar espacio para una tabla interna adicional, además de la cota de complejidad, el código incluiría más gasto en memoria, por lo que la segunda opción resulta también mejor en este sentido.
ok pero entonces cual seria mi error, anexo el codigo
IF P_EMPLOYEE-SALARY_AMT1 GE P_SALARY-MAX .
CASE P_MONTH_NUMBER.
WHEN C_MONTH_NUMBER1.
MAX = P_EMPLOYEE-SALARY_AMT1.
P_SALARY-MAX = MAX.
ENDCASE.
ENDIF.
IF P_EMPLOYEE-SALARY_AMT2 GE P_SALARY-MAX2 .
CASE P_MONTH_NUMBER.
WHEN C_MONTH_NUMBER2.
MAX = P_EMPLOYEE-SALARY_AMT2.
P_SALARY-MAX2 = MAX.
ENDCASE.
ENDIF.
IF P_EMPLOYEE-SALARY_AMT3 GE P_SALARY-MAX3.
CASE P_MONTH_NUMBER.
WHEN C_MONTH_NUMBER3.
MAX = P_EMPLOYEE-SALARY_AMT3.
P_SALARY-MAX3 = MAX.
ENDCASE.
ENDIF.
IF P_SALARY-MIN EQ '0' .
MIN = P_EMPLOYEE-SALARY1.
P_SALARY-MIN = MIN.
ENDIF.
IF P_SALARY-MIN2 EQ '0' .
MIN = P_EMPLOYEE-SALARY2.
P_SALARY-MIN2 = MIN.
ENDIF.
IF P_SALARY-MIN3 EQ '0' .
MIN = P_EMPLOYEE-SALARY3.
P_SALARY-MIN3 = MIN.
ENDIF.
IF P_EMPLOYEE-SALARY_AMT1 LE P_SALARY-MIN AND C_MONTH_NUMBER1 ='1' .
MIN = P_EMPLOYEE-SALARY_AMT1.
P_SALARY-MIN = MIN.
ENDIF.
IF P_EMPLOYEE-SALARY_AMT2 LE P_SALARY-MIN2 AND C_MONTH_NUMBER2 ='2' .
MIN = P_EMPLOYEE-SALARY_AMT2.
P_SALARY-MIN2 = MIN.
ENDIF.
IF P_EMPLOYEE-SALARY_AMT3 LE P_SALARY-MIN3 AND C_MONTH_NUMBER3 ='3' .
MIN = P_EMPLOYEE-SALARY_AMT3.
P_SALARY-MIN3 = MIN.
ENDIF.
Comentario