Sentencias superfluas: SELECT * tiene un cuerpo vacío
 

Buenas,

En la verificación ampliada para un programa ABAP, al ejecutar, me salen mensajes de sentencias superfluas, los cuales indican:

La Select en cuestión es...

SELECT NACHN NACH2 VORNA
FROM pa0002 CLIENT SPECIFIED
INTO CORRESPONDING FIELDS OF t_lista
WHERE mandt EQ sy-mandt AND
PERNR = t_lista-ippers AND
BEGDA LE t_lista-evdat AND ENDDA GE t_lista-evdat.
ENDSELECT.

¿Sabéis a qué se debe ese mensaje?
No tengo errores ni de sintaxis, ni advertencias, ni nada. Como digo, son 'Mensajes' que salen al ejecutar la verificación ampliada para un programa ABAP.

Saludos

Yo creo que te da ese mensaje indicandote que dentro del bucle SELECT... ENDSELECT no hay codigo (esta vacio)

Prueba a sustituir tu select

SELECT NACHN NACH2 VORNA
FROM pa0002 CLIENT SPECIFIED
INTO CORRESPONDING FIELDS OF t_lista
WHERE mandt EQ sy-mandt AND
PERNR = t_lista-ippers AND
BEGDA LE t_lista-evdat AND ENDDA GE t_lista-evdat.
ENDSELECT.

Por

data: t_tabla like t_lista occurs 0.

SELECT NACHN NACH2 VORNA
FROM pa0002 CLIENT SPECIFIED
INTO CORRESPONDING FIELDS OF TABLE t_tabla
WHERE mandt EQ sy-mandt AND
PERNR = t_lista-ippers AND
BEGDA LE t_lista-evdat AND ENDDA GE t_lista-evdat.

Mandt
 

Prueba a quitar "CLIENT SPECIFIED" y "mandt EQ sy-mandt AND" dado que si no se especificaca lo contrario, siempre se accede por el mandante en el que estemos, siendo por tanto la sentencia superflua.

Ya lo había probado y no es por esto.

Gracias

Yo creo que lo que comenta es que entre el select y endselect no hay nada. Depende de lo que necesites hacer se puede arreglar de varias maneras.
Seleccionar todos los registros que cumplan la condición:

SELECT NACHN NACH2 VORNA
FROM pa0002 CLIENT SPECIFIED
INTO CORRESPONDING FIELDS OF t_lista
WHERE mandt EQ sy-mandt AND
PERNR = t_lista-ippers AND
BEGDA LE t_lista-evdat AND ENDDA GE t_lista-evdat.
APPEND t_lista.
ENDSELECT.
O mejor como dice ballan

SELECT NACHN NACH2 VORNA
FROM pa0002 CLIENT SPECIFIED
INTO CORRESPONDING FIELDS OF TABLE t_tabla
WHERE mandt EQ sy-mandt AND
PERNR = t_lista-ippers AND
BEGDA LE t_lista-evdat AND ENDDA GE t_lista-evdat.

Si solo quieres recuperar un único registro incluye UP TO 1 ROWS en la sentencia select (y usa el ORDER BY para recuperar el que te interese).