Validar Parametros de Entrada

[luise32]

Buenas tardes a todos, espero puedan ayudarme a resolver mi duda:

Tengo 12 parámetros de entrada, todo ellos declarados como Select Options. Necesito validarlos antes de ejecutar el programa para activar un flag que me permita identificar si el primero de estos campos esta lleno y todos los demás están vacíos.

Es decir, tengo el parametro SO_1.

Si este campo esta lleno lo validaría de la siguiente forma:

IF NOT so_1 IS INITIAL.
END IF.

Ahora necesito validar si todos los demás están vacíos y no quiero anidar varios IF para llegar hasta el final.

IF NOT so_1 IS INITIAL.
  IF so_2 IS INITIAL.
    IF so_3 IS INITIAL.
    .
    .
    .
    END IF.
  END IF.
END IF.

existe otra forma para hacer este tipo de validaciones? No quisiera que el día de mañana si agregan mas parámetros, sea necesario adecuar esta rutina para evitar errores.

Gracias a todos por su colaboración!

[sconoredhot]

hola

Primero de todo creo que la mejor forma de validar un select-options
es IF so_1[] is initial, ya que son rangos, es conveniente usar corchetes.

Despues, se puede hacer lo que necesitas si es que respetan la numeracion que se ve que estan usando. Por ejemplo algo asi:

DATA: var1 type string,
var2 type i,
var_aux1 type string,
var_aux2 Type string.

var1 = 'SO_'.

DO.
var2 = var2 + 1.
move var2 to var_aux1.
concatenate var1
var_aux1
into var_aux2.

IF (var_aux2)[] is initial.
EXIT.
ENDIF.

ENDDO.

Espero que te sirva