|
What will this number be used for? If it is just a unique value then you can generate a GUID with an api call. If it is used for sorting then I would go with a stored value in a dtaara or user space.
Phil <sublime78ska@yahoo.com> 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.
Possibl! e 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 ge! nerate a individual number in DB2...
>
> ...like a sequenc e-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
+---
Wes Gordon
Do You Yahoo!?
Yahoo! Auctions $2 Million Sweepstakes - Got something to sell?
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.