Existe un método muy sencillo de ejecutar querys enviando
variables y esto nos facilitará algunas tareas en programación.
Para conseguirlo realizaremos los siguientes pasos:
- Creamos un query que en este caso llamaremos CLIENTES.
- Especificas los ficheros necesarios para realizar la consulta
- En la opción de seleccionar registros pones las condiciones a cumplir y para el
campo que quieres que sea variable antepones ":". Por ejemplo:
Donde :CODCLI será la variable que recibirá la consulta..
- Al pulsar INTRO, te aparecerá la siguiente pantalla:
En el parámetro "Consulta o archivo" pon el nombre que quieras, ya que no sirve
para nada
- Ahora ya está terminada la consulta y puedes pulsar F3.
Al hacerlo, te avisará de que la consulta no podrá ejecutarse si utilizas valores
dependientes (variables).
- Ahora ya puedes llamar a la consulta creada pasándole variables.
Debes hacerlo de la forma siguiente:
STRQMQRY QMQRY(BIBLIOTECA/CLIENTES) ALWQRYDFN(*YES) +
QMFORM(*QMQRY) SETVAR((CODCLI 1250))
31-01-2002 Existen algunos problemas cuando la variable que
vamos a ejecutar es de tipo carácter. Esto queda solucionado de
la siguiente manera:
DCL VAR(&CHAR) TYPE(*CHAR) LEN(10)
DCL VAR(&COM) TYPE(*CHAR) LEN(1) VALUE(X'7D')
DCL VAR(&TOT) TYPE(*CHAR) LEN(12)
CHGVAR VAR(&TOT) VALUE(&COM *TCAT &CHAR *TCAT &COM)
La variable &COM es la que contiene las comillas
La variable &CHAR es la que contiene el valor a pasar
La variable &TOT es la que pasas, ya con las comillas.
05-05-2002
|
