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.
