Pregunta... el campo de la fecha es numerico o alfanumerico? 

generalmente me sucede esto cuando paso un parametro alfa a uno numerico o
viceversa...

en caso de que fuera numerico no necesitarias encerrar la fecha entre
comillas en tu string...

por si no queda claro... cambiar comando 

    CHGVAR     VAR(&DESTINO) VALUE(&COM || &FECHA || &COM)  

por 

    CHGVAR     VAR(&DESTINO) VALUE(&FECHA)  

Saludos,

Dario.-

> -----Mensaje original-----
> De:   Jesus Ropero [SMTP:[EMAIL PROTECTED]
> Enviado el:   Viernes, 16 de Septiembre de 2005 08:36
> Para: [email protected]
> Asunto:       RE: QRY con selección variable
> 
> Esto que indicas ya lo he cambiado, pero ... Yo creo que la cuestión es
> otra. Si miras el CL 
> 
>                                                              
>     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(*QMQRY) OUTFILE(JULIO/VIDRIO) +      
>                  ALWQRYDFN(*YES) SETVAR((FECHA &DESTINO))    
>                                                              
> .... Y EL ERROR 
> 
> 
>    OUTFILE(JULIO/VIDRIO) ALWQRYDFN(*YES) SETVAR((FECHA '"          "'))
>  Consulta derivada del objeto *QRYDFN VIDRIO2 de JULIO, código 00.      
>  Nombre "          " no permitido.                                      
>  Se ha producido un error en el mandato RUN QUERY con un SQLCODE -113.  
>  El mandato RUN QUERY finalizó debido a un error.                       
> 
> Es normal que me dé este error la consulta que tiene el campo variable
> (:FECHA)no se detiene para que pueda teclearla.
> 
> Perdonarme, por seguir por este camino, se que lo podia hacer de otras
> formas, pero quisiera terminarlo ya con el QM, que como veis estoy "pez".
> 
> Gracias de nuevo
>  
> 
> -----Mensaje original-----
> De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> En nombre de Fernando Martínez
> Enviado el: viernes, 16 de septiembre de 2005 12:44
> Para: [email protected]
> Asunto: Re: QRY con selección variable
> 
> 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
> 
> 
> __________________________________________________
> 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

__________________________________________________
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

Responder a