|
Much�simas gracias, funciona a la perfecci�n.
Le has
puesto GENERATED BY DEFAULT. Esto hace que solo calcule el valor incremental
si no se informa el campo al hacer la inserci�n, lo cual creo que no se puede
hacer en rpg (en sql se hace informando la lista de campos
informados: 'insert into f (campo, campo2) values...').
Para que
te coja en el write el valor autoincremental, cambia el GENERATED BY DEFAULT
por GENERATED ALWAYS
Nota: con 'GENERATED ALWAYS' a�n se puede informar
el valor de la clave en sql, informando la cla�sula 'OVERRIDING SYSTEM VALUES'
en la sentencia insert.
jorge escribi�:
Hola:
Pongo un ejemplo:
La tabla la creo con esta instrucci�n:
CREATE TABLE JJJORGE.TABLA1(
AutoIncrem BIGINT GENERATED BY DEFAULT AS IDENTITY(
START WITH 1 INCREMENT BY 1
MINVALUE 1 NO MAXVALUE NO CYCLE NO ORDER CACHE 20),
NUMERO NUMERIC(6, 0) NOT NULL DEFAULT 0)
El cuerpo del programa en RPG es el siguiente:
H DECEDIT('0,') DATEDIT(*DMY/)
FTABLA1 UF A E K DISK RENAME(TABLA1:RTABLA1)
D X S 3S 0 INZ(0)
C Eval x = 0
C DoW ( X < 100 )
C Eval x = x + 1
C Eval numero = x
C Write RTABLA1
C EndDo
C Eval *InLr = *Off
C Return
Y el resultado es que el campo autoincremental est� a 0 en todos los
registros.
�Me puede ayudar alguien?
Gracias,
-----Mensaje original-----
De: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]En nombre de alex martinez
Enviado el: martes, 24 de mayo de 2005 14:43 p.m.
Para: [email protected]
Asunto: Re: [Help400] Write en ILE-RPG con campos autoincrementales
Hola:
yo lo he probado esto en V5R2 y funciona sin problemas.
�no hay ninguna anotacion en el log?
CREATE TABLE ALEX/AJUT400 (CODIGO BIGINT
GENERATED BY DEFAULT AS IDENTITY (START WITH 1,
INCREMENT BY 1
MINVALUE 1 NO MAXVALUE NO CYCLE NO ORDER CACHE 20) not null,
DESCRI CHAR (50 ) NOT NULL WITH DEFAULT)
c/exec sql
c+ INSERT INTO ALEX/AJUT400 (DESCRI) VALUES('http://www.ajut400.com')
c/end-exec
On 5/24/05, jorge <[EMAIL PROTECTED]> wrote:
Hola:
�Alguien ha probado a grabar un registro de una tabla con un campo
autoincremental desde RPG-ILE?
Lo he probado y con la siguiente definici�n de campo no me graba nada.
AutoIncrem BIGINT GENERATED BY DEFAULT AS IDENTITY(
START WITH 1 INCREMENT BY 1
MINVALUE 1 NO MAXVALUE NO CYCLE NO ORDER CACHE 20)
Saludos
__________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
(c) Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400
__________________________________________________
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 visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400
__________________________________________________
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 visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400
--
Saludos.
Fernando
P�rez
Cer�mica Saloni.
Dpto. Sistemas
|
