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
