No utilizo el opnqryf desde hace mucho tiempo, pero creo recordar que hay que pasarle 
el QRYSLT como un solo parametro, dado que no entiende tus parametros como tal sino 
como costantes. Puedes comprobarlo con un debug.
Monta los valores en una sola variable antes y luego ponla en QRYLST.

-----Original Message-----
From: Carlos Iglesias [mailto:[EMAIL PROTECTED]
Sent: jueves 6 de marzo de 2003 17:09
To: [EMAIL PROTECTED]
Subject: OPNQRYF q no da buen resultado.



Hola, 

tengo un CL que pas�ndole como par�metros el fichero y su campo clave y su valor, hace 
un OVRDBF + OPNQRYF. 

Seg�n mis c�lculos, deber�a alterarme temporalmente el archivo y seleccionarme 
�nicamente aquellos registros que yo estoy acotando. 

Pues resulta que este OPNQRYF est� pasando de mi... 
4 ojos ven m�s que dos... �alguna sugerencia? 

He aqu� mi CL... y gracias por adelantado!!! 

PGM        PARM(&USER &FORMATO &FILE &FLDUSU) 
                                                      
DCL        VAR(&USER) TYPE(*CHAR) LEN(10)             
DCL        VAR(&FORMATO) TYPE(*CHAR) LEN(30)         
DCL        VAR(&FILE) TYPE(*CHAR) LEN(10)             
DCL        VAR(&FLDUSU) TYPE(*CHAR) LEN(10)           
                                                      
DLTOVR     FILE(&FILE) LVL(*JOB)                     
MONMSG     MSGID(CPF0000)                             
CLOF       OPNID(&FILE)                               
MONMSG     MSGID(CPF0000)                             
                                                      
                                                      
OVRDBF     FILE(&FILE) TOFILE(&FILE) +               
             OVRSCOPE(*JOB) SHARE(*YES) SEQONLY(*YES) 

OPNQRYF    FILE((&FILE)) OPTION(*ALL) QRYSLT('"' *CAT + 
             &FLDUSU *CAT '" *EQ "' *CAT &USER *CAT +   
             '"') KEYFLD((&FLDUSU)) OPNID(&FILE)       

DLTOVR     FILE(&FILE) LVL(*JOB) 
MONMSG     MSGID(CPF0000)           
CLOF       OPNID(&FILE)           
MONMSG     MSGID(CPF0000)           


_____________________________________________________
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, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]

Responder a