Re: Record Lock -- RPG400-L

Then, perhaps, a logical of Company + Division + Check# (Unique) shouldbe used to check or, mayhaps, actually process checks. Since theexisting primary key is not really unique (batch# as part of the keyprecludes that, except within the batch).

Now my next question is: What exactly are you trying to do? These checknumbers: Are they your company's check numbers, or are they customercheck numbers? I suspect the former. Next, what function is beingperformed? With the batch# I am guessing that it is a bankreconciliation or similar function. In brief, a little bit more inputinto the function in question would be helpful.




        * Jerry C. Adams
*IBM System i Programmer/Analyst
B&W Wholesale Distributors, Inc.* *
voice
        615.995.7024
fax
        615.995.1201
email
        jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx>



steema@xxxxxxxxxxxxx wrote:

It *IS* unique,
but the key is CO, Div, batch#, check#,

so you could have the same number and a diff batch.

OK but can you make that change to the file once it is already
established?

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.



--
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.