Esto que indicas ya lo he cambiado, pero ... Yo creo que la cuestión es
otra. Si miras el CL
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(*QMQRY) OUTFILE(JULIO/VIDRIO) +
ALWQRYDFN(*YES) SETVAR((FECHA &DESTINO))
.... Y EL ERROR
OUTFILE(JULIO/VIDRIO) ALWQRYDFN(*YES) SETVAR((FECHA '" "'))
Consulta derivada del objeto *QRYDFN VIDRIO2 de JULIO, código 00.
Nombre " " no permitido.
Se ha producido un error en el mandato RUN QUERY con un SQLCODE -113.
El mandato RUN QUERY finalizó debido a un error.
Es normal que me dé este error la consulta que tiene el campo variable
(:FECHA)no se detiene para que pueda teclearla.
Perdonarme, por seguir por este camino, se que lo podia hacer de otras
formas, pero quisiera terminarlo ya con el QM, que como veis estoy "pez".
Gracias de nuevo
-----Mensaje original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
En nombre de Fernando Martínez
Enviado el: viernes, 16 de septiembre de 2005 12:44
Para: [email protected]
Asunto: Re: QRY con selección variable
Hola Jesus
El error que te indica es debido a que esta intentando ejecutar un QMQRY
cuando tu quieres ejecutar un QRYDFN. Puedes hacerlo poniendo el parametro
ALWQRYDFN(*YES) o ALWQRYDFN(*ONLY).
Salu2
Fernando Martinez
Jesus Ropero escribió:
> Marti:
>
> 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]
> [mailto:[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]
> <mailto:[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] <mailto:[EMAIL PROTECTED]>
>
>
>
>
>
>
> --
> Marti Riera
__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es _____________________________________________________
Para darte de baja visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400
__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400
