Utiliza un insert de SQL, algo as� como:
H DECEDIT('0,') DATEDIT(*DMY/)
FTABLA1 UF A E K DISK RENAME(TABLA1:RTABLA1)
D X S 3S 0 INZ(0)
D @Numero S 5p 0
C Eval x = 0
C DoW ( X < 100 )
C Eval x = x + 1
C Eval @Numero = x
C/exec sql
c+ insert into tabla1 values (default, :@numero)
C EndDo
C Eval *InLr = *Off
C Return
Saludos.
Juan Carlos.
> -----Mensaje original-----
> De: jorge [SMTP:[EMAIL PROTECTED]
> Enviado el: martes, 31 de mayo de 2005 11:58
> Para: [email protected]
> Asunto: [Help400] RE: Write en ILE-RPG con campos autoincrementales
>
> 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] 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
>
> --
> No virus found in this incoming message.
> Checked by AVG Anti-Virus.
> Version: 7.0.322 / Virus Database: 267.3.0 - Release Date: 30/05/2005
>
>
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.322 / Virus Database: 267.3.0 - Release Date: 30/05/2005
__________________________________________________
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
