Simplemente:
Select 'x' (una constante o el campo que tu quieras)
Into :x
From fichero
Where
K1 = :k1 and
K2 = :k2 and …. (la clave de acceso completa que necesites)
Luego preguntas por el codigo de retorno del Sql que si en 100 significa que no existe reg.
sqlcod ifeq 100
move *on *in10 (por ejemplo, o lo que tu quuieras)
endif
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] On Behalf Of Juan Carlos Paredes
Sent: 21 January 2005 18:19
To: Forum Help 400
Subject: Sustituir un Chain
Buenas tardes, foro:
En un programa ILE RPG utilizo un fichero que est� creado por un CREATE TABLE de SQL con una restricci�n de clave exclusiva. Necesito comprobar si existe o no un determinado registro. Si intento hacer un chain, el compilador me dice que intento ejecutar una operaci�n de claves sobre un fichero que no las tiene. �Existe alguna forma que no sea un SELECT COUNT(*) de comprobar si existe o no un determinado registro en un fichero?
Gracias y saludos a todos.
Juan Carlos.
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.7.1 - Release Date: 19/01/2005
