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
>
-- Disclaimer ------------------------------------ Ce message ainsi que les eventuelles pieces jointes constituent une correspondance privee et confidentielle a l'attention exclusive du destinataire designe ci-dessus. Si vous n'etes pas le destinataire du present message ou une personne susceptible de pouvoir le lui delivrer, il vous est signifie que toute divulgation, distribution ou copie de cette transmission est strictement interdite. Si vous avez recu ce message par erreur, nous vous remercions d'en informer l'expediteur par telephone ou de lui retourner le present message, puis d'effacer immediatement ce message de votre systeme. *** This e-mail and any attachments is a confidential correspondence intended only for use of the individual or entity named above. If you are not the intended recipient or the agent responsible for delivering the message to the intended recipient, you are hereby notified that any disclosure, distribution or copying of this communication is strictly prohibited. If you have received this communication in error, please notify the sender by phone or by replying this message, and then delete this message from your system.
