Por lo
general no uso el parametro SEQONLY ni OVRSCOPE en OVR previo al OPNQRYF y me va
bien
-----Mensaje original-----
De: Carlos Iglesias [mailto:[EMAIL PROTECTED]
Enviado el: Jueves, 06 de Marzo de 2003 01:09 p.m.
Para: [EMAIL PROTECTED]
Asunto: 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)
La informacion contenida en este correo es para uso exclusivo de los destinatarios del mismo. Esta prohibido a las personas o entidades que no sean los destinatarios de este correo realizar cualquier tipo de modificacion, copia o distribucion del mismo. Si Usted recibe este correo por error tenga bien notificar al emisor y eliminarlo. |
