Como lo pasas de *QRYDFN a *QMQRY, ¿ es a esto a lo que te
refieres con: "es
redefinirlo como QMQRY " si es así ¿como lo
haces?
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de RUBIO-ENRIQUEZ Franc
Enviado el: viernes, 16 de septiembre de 2005 12:27
Para: [email protected]
Asunto: Re: RE: QRY con selección variable
Jesús:
yo cuando quiero pasar parámetros a un query/400 tradicional, lo que hago es redefinirlo como QMQRY y luego lo convierto a SQL (opción 10), poniendo las variables con el & (churrito/ampersand).
De esta manera en el mandato STRQMQRY puedo pasarle el parámetro con SETVAR.
Espero que te valga
Francisco Rubio Enríquez
Analista
Cibernos
Consulting, SAU
>
> Igual estoy haciendo un imposible la consulta QRY que tengo es un tipo
> *QRYDFN, no *QMQRY
>
>
> DCL VAR(&COM) TYPE(*CHAR) LEN(1) VALUE('"')
> DCL VAR(&FECHA) TYPE(*CHAR) LEN(10)
> DCL VAR(&DESTINO) TYPE(*CHAR) LEN(12)
>
> CHGVAR VAR(&DESTINO) VALUE(&COM || &FECHA || &COM)
>
> STRQMQRY QMQRY(JULIO/VIDRIO2) OUTPUT(*OUTFILE) +
> QMFORM(*SYSDFT) OUTFILE(JULIO/VIDRIO) +
> SETVAR((FECHA &DESTINO))
>
> (he probado con QMFORM(*SYSDFT) y QMFORM(*qmqry)
>
> ERROR:
>
> Causa . . . . . : No se encontró el objeto VIDRIO2 en la
> biblioteca JULIO
>
> tipo *QMQRY. No es correcto el nombre de objeto, el nombre de
> biblioteca o
>
> el tipo de objeto. Si no está especificado el nombre de
> biblioteca, el
>
> objeto puede estar en una biblioteca que no está contenida en la
> lista de
>
> bibliotecas.
>
>
> _____
>
> De: [EMAIL PROTECTED] [EMAIL PROTECTED]
> En nombre de Marti Riera
> Enviado el: viernes, 16 de septiembre de 2005 9:54
> Para: [email protected]
> Asunto: Re: QRY con selección variable
>
>
> Hola Jesus:
>
> Lo prometido es deuda:
>
> PGM PARM(&DESTIN)
> DCL VAR(&COM) TYPE(*CHAR) LEN(1) VALUE('''')
> DCL VAR(&DESTIN) TYPE(*CHAR) LEN(50)
> DCL VAR(&DESTINO) TYPE(*CHAR) LEN(52)
>
> CHGVAR VAR(&DESTINO) VALUE(&COM || &DESTIN || &COM)
> STRQMQRY QMQRY(lib/file) OUTPUT(*PRINT) QMFORM(*QMQRY) +
> SETVAR((DESTIN &DESTINO))
>
>
> Saludos.
>
> El día 15/09/05, Jesus Ropero <[EMAIL PROTECTED]>
> escribió:
>
> Buenas tardes:
>
> Llevo toda la tarde "pegándome" con este CL que como veis
> incorpora un
> STRQMQRY:
>
>
> DCL VAR(&FECHA) TYPE(*CHAR) LEN(10) /* Variable +
> del QRY */
> DCL VAR(&COM) TYPE(*CHAR) LEN(1) VALUE(X'7D') /* +
> Comillas */
> DCL VAR(&TOT) TYPE(*CHAR) LEN(12) /* +
> Comillas-fecha-comillas */
> CHGVAR VAR(&TOT) VALUE(&COM *TCAT &FECHA *TCAT &COM)
>
> STRQMQRY QMQRY(JULIO/VIDRIO2) QMFORM(*QMQRY) +
> ALWQRYDFN(*YES) SETVAR((&FECHA &TOT))
>
> y por desgracia este es el resultado:
>
>
>
> 8>> call crtetiqv00
>
> 313 - STRQMQRY QMQRY(JULIO/VIDRIO2) QMFORM(*QMQRY)
> ALWQRYDFN(*YES)
> SETVAR((' ' ''''''))
>
> no es una variable de Gestión de Consultas válida.
>
> Se ha encontrado un error en el mandato STRQMQRY.
>
> Error de función. CPF0001 no supervisado por CRTETIQV00 en la
> sentencia
> 313, instrucción X'001C'.
>
> ¿ me podeis dar alguna idea, por favor ?
>
> Muchas gracias
>
> [EMAIL PROTECTED]
>
>
>
>
>
>
>
> --
> Marti Riera
>
