Pero si en vez de utilizar el Query/400 para definirlo, utilizas el STRQM (se define de forma muy parecida), tienes luego la posibilidad de transformarlo de forma automática en sentencias SQL que puedes modificar a tu gusto (poniendo paréntesis, OR, AND, las variables se identifican con el & tradicional.) y finalmente utilizar el STRQMQRY tal y como te dice Rafael Cubero para ejecutarlo.

En fin, que es más versátil. (yo lo utilizo).

Saludos,

Francisco Rubio Enríquez
Analista
Cibernos Consulting, SAU

----- Mensaje Original -----

De: Denis Antonio Calderon <[EMAIL PROTECTED]>

Fecha: Lunes 28 Noviembre 2005 15:34

Asunto: RE: Parametros para QRY

> Espero que te ayude, cualquier duda te envio un ejemplo en vivo
>
> COMO ENVIAR PARÁMETROS A UN QRY.
> Descripción del truco:
> Las últimas versiones de OS400 incluyeron los objetos QMQRY para
> permitir una mayor flexibilidad en la creación de queries. Pero
> ¿qué hacemos cuando tenemos un query del tipo QRYDFN al cual
> necesitamos proporcionarle parámetros para que sea útil? En lugar
> de reescribir el query tipo QRYDFN en una sentencia SQL para
> después crear un query del tipo QMQRY podemos hacer lo que
> describo a continuación.
> 1. Edita el query tipo QRYDFN como lo harías normalmente
> (WRKQRY y después opción 2 para cambiar).
> 2. Selecciona "Select Records" para ver el criterio de
> selección.
> 3. En el criterio de selección cambia el valor constante
> que quieres cambiar por un parámetro tecleando dos puntos (:) e
> inmediatamente despues el nombre de una variable por ejemplo VAR1.
> Este será el nombre del parámetro. En la columna de valores
> quedaría algo así como :VAR1
> 4. Posteriormente aparecerá una pantalla para proporcionar
> calificadores de valores dependientes (Specify Dependent Value
> Qualifiers). Aquí solamente deja 1 como tipo de calificador y en
> el nombre de query o archivo proporciona cualquier nombre (aunque
> el objeto no exista).
> 5. Graba el query.
> 6. Ahora para correr el query, en lugar de utilizar RUNQRY,
> puedes utilizar el comando STRQMQRY. Se vería algo así:
> STRQMQRY QMQRY(LIB/OBJ) ALWQRYDFN(*YES) SETVAR((VAR1 VALUE))
> donde:
> LIB es la biblioteca
> OBJ es el nombre del query tipo QRYDFN
> VAR1 es el nombre del parámetro definido en el query
> VALUE es el valor que tomará el parámetro. Recuerda que si el
> valor es una cadena debe de llevar 3 apóstrofes de cada lado.
> Eso es todo. El comando STRQMQRY tomará la información del
> objeto QRYDFN y reemplazará el parámetro por el valor que se
> proporcione.
>
> "Cubero, Rafael (R.)" <[EMAIL PROTECTED]> escribió:
> Conviertelo en QM qry. Ese si soporta parametros.
>
>
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:forum.help400-
> [EMAIL PROTECTED] On Behalf Of Vicente Ferrer(Andreu World)
> Sent: 25 November 2005 14:03
> To: [email protected]
> Subject: Parametros para QRY
>
>
> Creo que es un tema ya recurrente, pero en cualquier caso , ¿Es
> posible pasar valores de selección en un QRY?
>
> Gracias a todos por vuestra colaboración
> Saludos
> Vicente
>
>
>
> __________________________________________________
> Correo Yahoo!
> Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
> Regístrate ya - http://correo.espanol.yahoo.com/
-- Disclaimer ------------------------------------
Ce message ainsi que les eventuelles pieces jointes constituent une 
correspondance privee et confidentielle a l'attention exclusive du destinataire 
designe ci-dessus. Si vous n'etes pas le destinataire du present message ou une 
personne susceptible de pouvoir le lui delivrer, il vous est signifie que toute 
divulgation, distribution ou copie de cette transmission est strictement 
interdite. Si vous avez recu ce message par erreur, nous vous remercions d'en 
informer l'expediteur par telephone ou de lui retourner le present message, 
puis d'effacer immediatement ce message de votre systeme.
***
This e-mail and any attachments is a confidential correspondence intended only 
for use of the individual or entity named above. If you are not the intended 
recipient or the agent responsible for delivering the message to the intended 
recipient, you are hereby notified that any disclosure, distribution or copying 
of this communication is strictly prohibited. If you have received this 
communication in error, please notify the sender by phone or by replying this 
message, and then delete this message from your system.

Responder a