RE: Is there a object to generate a individual number in DB2...:

Do you mean this:

H*
C/exec sql
C+ INSERT INTO file (keyId) SELECT max(keyId)+ 1
C+ FROM file WITH CS
C/end-exec
C
C                   eval      *inlr = *on

   is equivalent to:

Halwnull(*usrctl)
Ffile    uf a e           k disk  rename(file:rec)  C
C     *hival        setgt     file
C                   readp     file
C                   eval      keyId = keyId + 1
C                   write     rec
C                   unlock    file
C                   eval      *inlr = *on

Phil

-----Original Message-----
From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
Behalf Of Jim Langston
Sent: Tuesday, May 22, 2001 11:34 AM
To: RPG400-L@midrange.com
Subject: Re: Is there a object to generate a individual number in DB2...:

I have a solution involving a program that writes/reads the record from a
simple DB.  This works well and we don't get duplicates, but it saves the
number to a file, so it wouldn't work with your restriction.

Possible solution that may or may not work.

Write a service program that reads the last record in the file once, and
then
returns it and increments it, and exists with LR off.

This would only work if all jobs used the same copy of the program running
in
memory when LR is off and not their own copy.  I think, however, that each
job gets it's own copy of a running program/service program and if so this
wouldn't work for you either.

Your restriction on not writing this record to another file, does this also
exclude data areas and the like?

Regards,

Jim Langston

Me transmitte sursum, Caledoni!

Billy Rowe wrote:
>
> You can accomplish this with a data area, Store a 15.0 number in a data
area
> and use a call to a program or service program
> to update/retreive the next value.
>
> -----Original Message-----
> To: RPG400-L@midrange.com
> Subject: Is there a object to generate a individual number in DB2...
>
> ...like a sequence-object in the Oracle-DB?
>
> My problem is: I must generate a number, but the number is allowed to
exist
> only one time in DB.
> The number's shouldn't saved in a file.
>
> thx,
> Manfred
>
> ____________________________________________________________________
> Get free email and a permanent address at http://www.amexmail.com/?A=1
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---