No sé de donde conseguí esta información pero creo que es lo que buscas.
Un saludo.
Javier Mora
1. Edite o cree una definición de consulta con el mandato WRKQRY.
2. Diríjase a la opción Seleccionar registros e introduzca su selección de
registros. Por ejemplo:
AND/OR Campo Prueba Valor (Campo, Número, 'Caracteres', o
...)
CAMPO1 EQ :VAR1
AND CAMPO2 EQ 9
AND CAMPO3 EQ 'ADIOS'
Observe que en la primera línea se ha utilizado un nombre que comienza
con dos puntos (:). Con esta nomenglatura se le indica al QUERY que lo que va a
continuación de los dos puntos es el nombre de una variable. En nuestro ejemplo
se llama :VAR1. El valor de esta variable podrá asignarse justo en el momento
de la ejecución de la consulta.
3. Al pulsar la tecla Intro para confirmar el criterio de selección,
aparecerá una pantalla similiar a ésta:
Especificar calificadores de valores dependientes
Teclee elecciones, pulse Intro.
Tipo calificador . . . 1 1=Consulta, 2=Archivo
Consulta o archivo . . MICONSUL Nombre, F4 para lista de
archivos
Biblioteca . . . . . MIBIBL Nombre, *LIBL, F4 para lista
Para elección 2=Archivo:
Miembro archivo. . . Nombre, *FIRST, F4 para
lista
F3=Salir F4=Solicitud F10=Procesar/anterior
F12=Cancelar
F13=Diseño F18=Archivos
En el Tipo de calificador deje el valor uno (1). En la opción de
Consulta o archivo introduzca el nombre de una consulta, aunque ésta no exista.
4. Guarde la definición de la consulta.
5. En el programa ya no podrá utilizar el mandato RUNQRY para ejecutar la
consulta anterior. En su lugar debe usar el mandato STRQMQRY. En la siguiente
figura puede ver un ejemplo de un programa CL:
PGM PARM(&VALUE1)
DCL VAR(&VALUE1) TYPE(*DEC) LEN(9 0)
DCL VAR(&VALUE2) TYPE(*CHAR) LEN(9)
CHGVAR VAR(&VALUE2) VALUE(&VALUE1)
STRQMQRY QMQRY(BIBLIOTECA/CONSULTA) OUTPUT(*PRINT) +
ALWQRYDFN(*YES) SETVAR((VAR1 &VALUE2))
MONMSG MSGID(QWM2701 QWM2703) EXEC(RETURN)
RETURN
ENDPGM
En este caso, el valor variable es numérico. Para poder utilizarlo en
la selección de registro es necesario transformarlo a un valor alfanumérico.
Con el parámetro SETVAR del mandato STRQMRY se asigna el valor a la variable
:VAR1.
Cuando ejecute este programa podrá especificar en el parámetro el valor a
seleccionar. STRQMQRY se encargará de tomar la definición de la consulta y
asignar el valor del parámetro a :VAR1.
Una cuestión más, si utiliza variables alfanuméricas en la selección de
registro, deberá de añadir las dobles comillas al principio y final del valor.
________________________________
De: [email protected]
[mailto:[email protected]] En nombre de Pedro Molina
Enviado el: viernes, 05 de marzo de 2010 15:51
Para: [email protected]
Asunto: Pasar parámetros a un QRY desde un CL
Hola foro!!
Recuerdo que hace tiempo me pareció ver en el foro , publicada una solución
para poder pasar parámetros a un QRY desde un CL, alguien tiene ese documento
que me lo pueda facilitar?
Saludos cordiales y feliz fin de semana
<http://gfx2.hotmail.com/mail/w4/pr01/ltr/emoticons/soccerball.gif>
<http://www.bandoo.com/wp/ie.php?plg=ie&ad2=0&subs=hotmail&elm=sign>
________________________________
Get news, entertainment and everything you care about at Live.com. Check it
out! <http://www.live.com/getstarted.aspx>
____________________________________________________
© Publicaciones Help400, S.L. - Todos los
derechos reservados http://www.help400.es
----------------------------------------------------
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
