Gracias... estoy haciendo vuestras pruebas....
| ALDAVE-OLAVERRI Juan-Jose
<[EMAIL PROTECTED]>
Enviado por: [EMAIL PROTECTED] 06/03/2003 18:22
|
|
Lo puedes probar asi ?
> OPNQRYF FILE((&FILE)) OPTION(*ALL) QRYSLT ( '(&FLDUSU *EQ "' *CAT &USER
> *CAT +
> '" )') KEYFLD((&FLDUSU)) OPNID(&FILE)
> Saludos
>
Juanjo Aldave
Tel. 34 - 948133300
Fax. 34 - 948133332
E-mail: [EMAIL PROTECTED]
>
>
> 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
> Por favor, responda a
> [EMAIL PROTECTED]
>
> Para
> [EMAIL PROTECTED]
> cc
> Asunto
> Re: OPNQRYF q no da buen resultado.
>
>
>
>
>
>
>
> 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
>
> Por favor, responda a
> [EMAIL PROTECTED]
>
> Para
> [EMAIL PROTECTED]
> cc
> Asunto
> Re: OPNQRYF q no da buen resultado.
>
>
>
>
>
>
>
>
>
> 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]
>
>
>
_____________________________________________________
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]
