RE: Record Lock

- As many has indicated, you can simply create a logical the is key by
check num with unique keyword to prevent dup.  However, this will
probably cause existing program to start to error out when try to create
dup record.

- You will probably need to determine the cause of problem before doing
above.

- There are several way to create unique number.  My prefer method is
create a service program that can return you the next unique ID by
category.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of steema@xxxxxxxxxxxxx
Sent: Friday, June 16, 2006 11:27 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Record Lock

Then in the RPG, the file is accessed, 1 is added to the check num. and
then the UPDAT is issues. (It is an older program).

I am trying to see where a dup could be done.

Or to put it another way, how would you design such a program in such a
way that a dup could NEVER happen?

HI I am looking at a situation that occassionaly occurs, that a check 
number is allowed to be entered that is a dup.

The CL does an  ALCOBJ     OBJ((APPCKNO.LNDATA *FILE *EXCLRD)).

There are many file members, actually one for each company.

What about in the RPG is there something that could UNLOCK this file 
momentarily and allow for the occurance?

Thanks,
Steve M.
--
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.