S.O.O ABAP por favor ayuda que paso ?

**kreuzigen** · 15/01/2010, 18:31:24

Que que paso?

Es muy sencillo, tienes anidados 5 selects!!!!!!!

Es el programa mas ineficiente que he visto; debes contactar al autor de este programa para pedirle que optimize este código.

La lógica puede ser correcta, sin embargo esta consumiendo al maximo los recursos del servidor.

**braschilester** · 15/01/2010, 21:49:23

Amigo Gracias - Select

Amigo eso quier decir qur al tener una cadena de SELECT

Utiliza mucho recurso en el servidor.-

CUAL PUEDE SER LA SOLUCION SEGUN TU ???

YO TENGO Q REALIZA EL CAMBIO EL AUTOR NO ESTA MAS.

**VLozano** · 18/01/2010, 07:13:06

Lo primero y más importante, mantener la calma.

Primero la parrafada tocapelotas, y en el mensaje siguiente un poco de ayuda.

Cuando consigas eso, si el problema persiste y tienes que preguntar en un foro, intenta poner un asunto al hilo que sea relevante. "Ayuda", "No funciona" y cosas así no sirven de nada. O sí, para que la gente NO entre a leer el mensaje y te deje tirado.

Por ejemplo, este hilo podría "asuntarse": Error de ejecución por Time-out
Entonces, los que crean que pueden echarte un cable, entrarán a leer el hilo, y los que se crean incapaces de hacerlo, y no quieran entrar a aprender nada, podrán ignorar el mensaje y ahorrar tiempo y ancho de banda.

Cuando tengas solventado lo del asunto, empieza con el cuerpo del mensaje. Cosas que ayudan:

1- los mensajes de texto del DUMP ponlos en una cita (tag [ QUOTE]), así distinguiremos el problema del mensaje de error
2- el código en un bloque de código (tag [ CODE]), así distinguiremos el problema del mensaje del código (excepto como en este caso, cuando el código forme parte del mensaje de error)

Y a continuación, la respuesta.

**VLozano** · 18/01/2010, 07:29:34

Y ahora un poco de ayuda específica (el mensaje anterior también es de utilidad, pero más generalizada).

El problema que tienes es que tu programa ("tu" porque ahora está bajo tu responsabilidad) accede a un montón de datos de la forma menos optimizada posible. Y si ha funcionado hasta ahora probablemente ha sido por casualidad.

Opciones:

1- verifica todas las tablas LF* (¿datos de clientes?), busca sus campos comunes (LIFNR probablemente para todas, y luego algunas más específicas) y monta una JOIN (IMPORTANTE: asegúrate de utilizar los índices, o podrías llegar a empeorar el problema)

2- crea secuencas de SQL llamándolas para rellenar tablas internas (INTO TABLE) y encadenadas con sentencias FOR ALL ENTRIES IN (IMPORTANTE: si vas a usar el FAEI, asegúrate antes de que la tabla interna de referencia tiene datos, o bajarás la tabla entera empeorando el problema)

Yo en este caso optaría por la opción 1, pero tomaría esa decisión en base a los datos que contienen MIS tablas LF*.

**VLozano** · 18/01/2010, 07:30:05

Cómo construir la JOIN:
- haz una lista de las SQL en un papel
- para cada SQL, anota los campos del WHERE
- subraya para cada campo WHERE aquellos que apuntan a una SQL anterior
- construye la nueva SQL con tantas JOIN como hagan falta
- Nota: las tablas realmente pequeñas (como la T024E, en MI caso) no las metas en la JOIN, esa lectura no afecta realmente al rendimiento, aunque no sea código optimizado.

Ejemplo:

Tenemos tres tablas, y buscamos:
- de la tabla 1, lo campos campo1 y campo2 con unas condiciones
- de la tabla 2, el campo 3 de aquellos registros que tienen el campo1 de la búsqueda anterior
- de la tabla 3, el campo 4 de aquellos registros que tienen el campo1 de la primera búsqueda y el campo3 de la anterior

Tu programa (el feo) sería algo así:

Código:

SELECT * FROM tabla1 WHERE condiciones.
  SELECT * FROM tabla2 WHERE campo1 = tabla1-campo1.
    SELECT * FROM tabla 3 WHERE campo1 = tabla1-campo1 AND campo3 = tabla2-campo3.
*    Aquí se hace algo
    ENDSELECT.
  ENDSELECT.
ENDSELECT.

Código:

DATA: BEGIN OF w_join,
        campo1 TYPE tabla1-campo1,
        campo2 TYPE tabla1-campo2,
        campo3 TYPE tabla2-campo3,
        campo4 TYPE tabla3-campo4,
      END OF w_join,
      t_join LIKE TABLE t_join.

SELECT t1~campo1 t1~campo2 t2~campo3 t3~campo4
  INTO CORRESPONDING FIELDS OF TABLE t_join
  FROM tabla1 AS t1
       INNER JOIN tabla2 AS t2
             ON t1~campo1 = t2~campo1
       INNER JOIN tabla3 AS t3
             ON t2~campo1 = t3~campo1 AND t2~campo3 = t3~campo3
  WHERE condiciones.

IF sy-subrc <> 0.
* Ups!

**VLozano** · 18/01/2010, 07:35:19

Cómo usar el FOR ALL ENTRIES IN:
En caso de tener muchos datos, y no tener claras las relaciones entre las tablas (pojemplo, campo1 y campo2 no son claves en las otras tablas), el FOR ALL ENTRIES IN es una buena opción.

IMPORTANTE: antes de cada SQL hay que verificar que la anterior ha devuelto datos. Si usas un FAEI con una tabla vacía, el sistema te devolverá LA TABLA ENTERA, independientemente de lo que haya en el WHERE (en serio, de verdad, aunque no te lo puedas creer).

Para el mismo ejemplo anterior, el código FAEI sería:

Código:

SELECT campo1 campo2
  INTO TABLE t_tabla1
  FROM tabla1
  WHERE condiciones.

IF sy-subrc = 0.
  SELECT campo1 campo3
    INTO TABLE t_tabla2
    FROM tabla2
    FOR ALL ENTRIES IN t_tabla1
    WHERE campo1 = t_tabla1-campo1.
  IF sy-subrc = 0.
    SELECT campo1 campo3 campo4
      INTO TABLE t_tabla3
      FROM tabla3
      FOR ALL ENTRIES IN t_tabla2
      WHERE campo1 = t_tabla2-campo1
        AND campo3 = t_tabla2-campo3.
      IF sy-subrc = 0.
*        Aquí se hace algo con las 3 tablas
*        Con un LOOP en la 1, haciendo READ TABLE para las otras 2
      ENDIF.
    ENDIF.
  ENDIF.
ENDIF.

**VLozano** · 18/01/2010, 07:41:25

Cosas a tener en cuenta:

1- Evita declaraciones tipo TABLES. No representan realmente una mejora, y hacen que el código siga difícil de "leer" para el que no conoce el programa.
2- Pon siempre una lista de los campos a traer en las SQL, ahorrarás memoria, ancho de banda y algunos motores de BBDD lo agradecerán en sus oraciones nocturnas
3- No uses declaraciones de tabla usando el OCCURS o el WITH HEADER LINE, hacen los programas más difíciles de seguir

Esos tres consejos van en contra de la vagancia al teclado, pero un verdadero vago (como yo) los sigue, porque sabe que a la larga te ahorran trabajo.

Cómo:
1- Declara variables t_nombretabla TYPE TABLE OF tabla
2- Usa el "CORRESPONDING" en las sentencias INTO si declaras como en 1, o define las tablas/líneas con un BEGIN o un TYPES
3- Declara dos variables: una t_xx TYPE TABLE OF xx y una w_xx TYPE xx. Los READ, LOOP y demás hazlos INTO w_xx, y siempre sabrás si estás tratando con la tabla (t_xx) o la línea (w_xx)

Son tonteridas de vejete, pero ayudan un montón al que viene detrás.

Suerte.

**bisonye** · 19/01/2010, 10:28:50

Joder Vic, te has quedado a gusto!!

**braschilester** · 19/01/2010, 13:52:50

VLozano- gracias

VLozano TIENES UN MAIL PARA ENVIARTE UN CODIGO CON UN ERROR

ES EL MISMO PROGRAMA YA ESTA SOLUCIONADO EL ERROR PERO AHORA

CARGA TODOS LOS ARCHIVOS MENOS UNO..DEJA UNO VACIO SIN DATOS

**Rodolfo SAP** · 19/01/2010, 14:08:30

Felicitaciones

Respecto al hilo del tema no tengo mas que agregar si no por el contrario quiero felicitar a VLozano por tan eficiente y completa respuesta.

Felicidades

Saludos.

**VLozano** · 19/01/2010, 14:12:22

Originalmente publicado por braschilester

VLozano TIENES UN MAIL PARA ENVIARTE UN CODIGO CON UN ERROR

ES EL MISMO PROGRAMA YA ESTA SOLUCIONADO EL ERROR PERO AHORA

CARGA TODOS LOS ARCHIVOS MENOS UNO..DEJA UNO VACIO SIN DATOS

Si me mandas un mensaje de ese tipo, incluye un NIF y una cuenta bancaria donde girar la factura. Aunque probablemente tampoco lo responderé.

Yo entro aquí para aprender y para echar un cable a la gente. Si alguien hace una pregunta y yo le respondo aquí, la próxima vez que alguien tenga esa misma pregunta (y use el motor de búsqueda) tendrá la respuesta a mano. Si me haces una pregunta por correo y te la contesto por correo, la próxima vez que alguien tenga esa misma pregunta, o la pondrá en el foro, y tendré que repetir el esfuerzo, o me mandará un correo y además de repetir el esfuerzo acabaré harto.

Haz las preguntas que tengas que hacer en el foro, y si puedo echarte una mano (a tí y a quien sea), lo haré en el foro. No para colgarme medallas y decirle al mundo lo mucho que molo (que es mucho, en serio), sino para que los que vengan detrás tengan también esa información y así además de ayudarte a tí (o a quien sea) habré ayudado a esos "que vienen detrás". Es el objetivo (a veces secundario) de este tipo de foros: compartir información para ayudarnos entre todos.

Así que en vez de mandarme un mensaje, haces caso de mi primer mensaje en este hilo: redactas un mensaje con la pregunta, le pones un asunto explicativo, le das un formato legible y lo pones aquí.
Si puedo, lo leeré, pensaré en el problema si creo que puedo ayudar, y escribiré lo que crea conveniente para que tú y quien venga detrás tengáis más opciones para solventar ese tipo de problemas.

Espero que las parrafadas con las que me "he quedado a gusto" hayan sido de utilidad, al menos

(por cierto, bisonye, ¿nos conocemos?)

**braschilester** · 19/01/2010, 14:32:28

VLozano- gracias- NO SE QUIEN REALIZO ESTE CODE,,SOY NUEVO AQUI EN LA EMPRESA.

Form File_tabped.
If P_unix Ne Space.
Transfer Tabped To P_pedid Length 39.
Endif.
Append Tabped.
Endform. " File_tabped

S.O.O ABAP por favor ayuda que paso ?

S.O.O ABAP por favor ayuda que paso ?

Comentario

Comentario

Comentario

Comentario

Comentario

Comentario

Comentario

Comentario

Comentario

Comentario

Comentario

Comentario