Pues no Alex, he comprobado (con el debug) el valor que llega a &PCLI y es 
perfectamente válido.
No se, me sigue dando problemas.
 
> 
> ----------------------------------------------------------------------
> 
> Message: 1
> Date: Thu, 21 Apr 2011 20:58:34 +0200
> From: alex martinez <[email protected]>
> Subject: Re: QUERY CON PARAMETROS
> To: "forum.help400" <[email protected]>
> Message-ID: <[email protected]>
> Content-Type: text/plain; charset="iso-8859-1"
> 
> Hola
> 
> se tratado en el foro
> http://www.mail-archive.com/[email protected]/msg20312.html
> 
> <http://www.mail-archive.com/[email protected]/msg20312.html>me
> inclino por pensar que posiblemente el valor de &PCLI no tiene un valor
> válido
> 
> Salu2
> 
> El 21 de abril de 2011 16:38, Fco. Javier B. L. <[email protected]>escribió:
> 
> > Buenas tardes :
> > Estoy haciendo un CL que llama a un query que recibe parámetros y me da un
> > error.
> > Lo curioso es que he hecho otro, el primero, y me ha ido bien, y son muy
> > parecidos.
> > El query lo coge de otros ficheros pero la "sustancia" es la misma.
> > No lo entiendo, ¿alguien me puede ayudar?
> > **
> > *CL :*
> >
> > PGM PARM(&PCLI &PFECD &PFECH)
> > /* declaración de parámetros */
> >
> > DCL VAR(&PCLI) TYPE(*CHAR) LEN(4)
> > DCL VAR(&PFECD) TYPE(*CHAR) LEN(8)
> > DCL VAR(&PFECH) TYPE(*CHAR) LEN(8)
> >
> > /* crear query con salida a fichero */
> >
> > DLTF FILE(DEPOTF/SALIDA2)
> > MONMSG MSGID(CPF0000)
> > STRQMQRY QMQRY(CONSULTAS/FRASARKAS2) OUTPUT(*OUTFILE) +
> > QMFORM(*QMQRY) OUTFILE(DEPOTF/SALIDA2) +
> > ALWQRYDFN(*NO) SETVAR((WCLI &PCLI))
> > DLTSPLF FILE(QPQXPRTF)
> > MONMSG MSGID(CPF0000)
> >
> > ENDPGM
> >
> > *Condiciones del query :*
> >
> > INCLIE EQ :wcli
> > AND INFEPR RANGE 20110101 20110131
> > AND T02.TATIPO EQ 'TICO'
> > AND WCON LIST '01' '02' '03' '07'
> >
> > *Error :*
> >
> > No se ha encontrado el objeto SALIDA2 en DEPOTF de tipo *FILE.
> > No se ha encontrado el objeto FRASARKAS2 en la biblioteca CONSULTAS.
> > El mandato RUN QUERY finalizó debido a un error.
> > Anomalía en mandato STRQMQRY.
> > Error de función. QWM2701 no supervisado por MTU086C en la sentencia 477,
> > instrucción X'0017'.
> > MTU086C ha recibido QWM2701 en la sentencia 477. (C D I R)
> > MTU086C ha recibido QWM2701 en la sentencia 477. (C D I R)
> >
> > Un saludo y muchas gracia.
> > Javier.
> >
> > **
> > *
> > ------------------------------
> > *
> >
> > *Este mensaje y cualquier fichero adjunto esta dirigido únicamente a sus
> > destinatarios y pueden contener información confidencial. Si usted
> > considera que ha recibido este correo electrónico por error (por el asunto,
> > por el remitente o por cualquier otra causa), le informamos que cualquier
> > revisión, alteración, impresión, copia o transmisión de este mensaje o de
> > cualquier fichero adjunto está prohibida y puede constituir un acto ilegal.
> > Por favor, notifíquele el error al remitente respondiendo a este e-mail
> > y elimine el mensaje y su contenido inmediatamente. ** *
> >
> > **
> >
> > *This e-mail and any files transmitted with it are intended solely for the
> > use of the intended recipients and may contain confidential information. If
> > it appears (from the subject matter or address information or otherwise)
> > that you received this email in error, please note that any review,
> > dissemination, disclosure, alteration, printing, copying or transmission of
> > this e-mail or any file transmitted with it is prohibited and may be
> > unlawful. Please notify us by return email and delete this email and its
> > contents immediately. *
> > *
> > ------------------------------
> > *
> >
> >
> >
> >
> > ____________________________________________________
> > Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
> > Forum.Help400 © Publicaciones Help400, S.L.
> >
> ------------ próxima parte ------------
> Se ha borrado un adjunto en formato HTML...
> URL: 
> <http://listas.combios.es/cgi-bin/mailman/private/forum.help400/attachments/20110421/7b820a2e/attachment-0001.html>
> 
> ------------------------------
> 
                                          
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Responder a