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

Yes, I know.

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

Those are basically the exact same thing coded in two different languages.

So, yes.

Regards,

Jim Langston

Phil wrote:
>
> 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
> +---

--


Regards,

Jim Langston

Me transmitte sursum, Caledoni!
+---
| 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
+---