OPNQRYF q no da buen resultado.

[Carlos Iglesias]

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)