Si FLDUSU debe ser una variable la sentencia CHGVAR deberia ser:
CHGVAR VAR(&SEL) VALUE(&FLDUSU *BCAT '*EQ "' *TCAT &USER *TCAT '"')
Saludos Feliu Soler
From: "Feliu Soler" <[EMAIL PROTECTED]> Reply-To: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Subject: RE: OPNQRYF q no da buen resultado. Date: Thu, 06 Mar 2003 19:27:34 +0100
Prueba el codigo que inserto mas abajo.
He a�adido una variable &SEL que contendra los criterios de seleccion.
FLDUSU imagino que es el nombre del campo en el fichero. Si es asi debe ir sin & (que es unicamente para las variables y no entiendo que lo pases como parametro). El criterio es seleccionar los registros de &FILE que en el campo FLDUSU contenga el valor de &USER.
Uso *bcat (concatena dejando un blanco y *tcat que concatena eliminando blancos.
Como no tengo el AS a mano puede haber alg�n error sintactico. Suerte.
Feliu Soler
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)
DCL VAR(&SEL) TYPE(*CHAR) LEN(30) CHGVAR VAR(&SEL) VALUE("FLDUSU" *BCAT '*EQ "' *TCAT &USER *TCAT '"')
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(&SEL) KEYFLD((FLDUSU)) + OPNID(&FILE)
CALL PROGRAMA
DLTOVR FILE(&FILE) LVL(*JOB) MONMSG MSGID(CPF0000) CLOF OPNID(&FILE) MONMSG MSGID(CPF0000)
From: Carlos Iglesias <[EMAIL PROTECTED]> Reply-To: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Subject: RE: OPNQRYF q no da buen resultado. Date: Thu, 6 Mar 2003 18:55:09 +0100
He hecho vuestras pruebas, y nada... contin�o leyendo el fichero entero...
Incluso le he puesto en el OPNQRYF la sentencia fija, sin variables ni nada... pero no consigo buenos resultados.
�?
_________________________________________________________________ MSN. M�s �til Cada D�a http://www.msn.es/intmap/
_____________________________________________________ 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]
_________________________________________________________________
MSN Fotos: la forma m�s f�cil de compartir e imprimir fotos. http://photos.msn.es/support/worldwide.aspx
_____________________________________________________ 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]
