× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. March 2005

RE: Suggestions

or think waaay back & use a data area LOL

Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Bob Cozzi
Sent: Wednesday, March 09, 2005 2:49 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: Suggestions


A more complicated method is as follows:

Create a user space that contains the next available number. You could also
use a single-record database file, but programmers have a much easier time
access database than a user space so the number would be a little safer in
the user space.

Next create a program that is launched in a subsystem that allows it to run
indefinitely.  That program's job is to monitor requires off a data queue or
user queue that are effectively asking for the next available sequence
number. When a request comes in, the program increments the value in the
user space and then places that value on the dataq as a response to the
caller.

Next write a procedure whose job it is, is to send a request via the data
queue for the next sequential number.
Wrap up the procedure in a module and/or service program that can be called
by any program.

In your application call that procedure to get the next sequence number.

  Eval  nextNbr = GetNextValue()

I've written something like this and it works pretty well for now.
-Bob


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Joel Fritz
Sent: Wednesday, March 09, 2005 2:31 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Suggestions


Another option is a data area containing the next available number.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Tim Kredlo
Sent: Wednesday, March 09, 2005 12:25 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: Suggestions

Douglas,

Create a logical file with this field as the unique key.
SetLL to the file at *Hival or *End
ReadP the file and get the last/highest used id#

HTH

Tim Kredlo
Exterior Wood, Inc

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Douglas W. Palme
Sent: Wednesday, March 09, 2005 11:57 AM
To: RPG programming on the AS400 / iSeries
Subject: Suggestions


I have a physical file that will hold gas type information, but one of
the fields needs to be an integer id field.  My experience with other db
formats

is that I could set that field to auto generate so that as each record
is written it will increment the count by 1.  we will be using this for
cross referencing to some other files and must be unique.

I know I can read through the file and increment a counter, but that
seems to have a huge overhead, not to mention that as time goes on,
it'll take longer and longer to calculate.

Does anyone have a viable suggestion on how to accomplish this?

Douglas

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.






--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.


*****************************
NOTICE:
All e-mail sent to or from this e-mail address will be received or otherwise
recorded by
The Sharper Image corporate e-mail system and is subject to archival,
monitoring,
and review by and/or disclosure to Sharper Image security and other
management.
This message is intended only for the use of the addressee and may contain
information
that is privileged and confidential.

The contents of this message may contain personal views which are not the
views of The Sharper Image.
If you are not the intended recipient, dissemination of this communication
is prohibited.
*****************************

-- 
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.




-- 
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2025 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.