Hola Jesus:
Pues claro que no puedes ejecutar un STRQMQRY con un objeto *QRYDFN.
Pero si puedes convertir el QRY en QM, como? con RTVQMQRY recuperas el QRY en un fuente y despues con STRQM lo creas y pones en el campo FECHA por &FECHA y creas el QM.
Ojo lo he escrito de memoria, por lo que corregidme si me equivoco.
Saludos.
El día 16/09/05, Jesus Ropero <[EMAIL PROTECTED]> 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] > 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
--
Marti Riera
--
Marti Riera
