Re: Record Lock

use the UNIQUE keyword in the DDS

Michael Schutte



                                                                           
             steema@diskhaven.                                             
             com                                                           
             Sent by:                                                   To 
             rpg400-l-bounces@         "RPG programming on the AS400 /     
             midrange.com              iSeries" <rpg400-l@xxxxxxxxxxxx>    
                                                                        cc 
                                                                           
             06/16/2006 12:27                                      Subject 
             PM                        Re: Record Lock                     
                                                                           
                                                                           
             Please respond to                                             
              RPG programming                                              
              on the AS400 /                                               
                  iSeries                                                  
             <rpg400-l@midrang                                             
                  e.com>                                                   
                                                                           
                                                                           




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.