Una vez llamado al programa rpg después del OPNQRYF, y antes del DLTOVR y el CLOF, en teoría debería tener seleccionado únicamente los registros que yo deseo, pero no es así...
Mi programa rpg lee todos los registros...
Parado con el debug dentro del RPG, si yo hago un DSPPFM del fichero , veo todos los registros... si hago un SQL, sigo viendo todos los registros...
Extraño, verdad??
| Carlos Iglesias <[EMAIL PROTECTED]>
Enviado por: [EMAIL PROTECTED] 06/03/2003 17:30
|
|
Correcto, pero no ese el problema...
Después del OPNQRYF me ha faltado poner un call a un programa... lo siento.
Gracias
| [EMAIL PROTECTED]
Enviado por: [EMAIL PROTECTED] 06/03/2003 17:22
|
|
Carlos, me parece que te sobra el segundo bloque DLTOVR / CLOF, el que
tienes despues del OPNQRYF.
Saludos.
Jesús Humberto Olague Alcalá
Líder de Proyectos
Envases y Tapas Modelo, S.A. de C.V.
e-mail: [EMAIL PROTECTED]
Tel: (478) 985 4100 Ext. 247
Fax: (478) 985 4100 Ext. 249
Carlos Iglesias
<[EMAIL PROTECTED] Para: [EMAIL PROTECTED]
om> cc:
Enviado por: Asunto: OPNQRYF q no da buen resultado.
forum.help400-request@
combios.es
06/03/2003 10:09
Por favor, responda a
forum.help400
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)
--------------------------------------------------------------------------
" Este mensaje es confidencial. Si usted no es el destinatario de este
mensaje, le suplicamos se lo notifique al remitente mediante un correo
electrónico y que borre el presente mensaje y sus anexos de su computadora
sin retener copia de los mismos. No debe copiar este mensaje o usarlo para
cualquier propósito ni divulgar su contenido. Muchas gracias.
This e-mail is confidential and may also be privileged. If you are not the
intended recipient please immediately advise the sender by reply e-mail and
delete this message and its attachments from your computer without
retaining a copy. You should not copy it or use it for any purpose nor
disclose its contents to any other person. Thank you. "
_____________________________________________________
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]
