Re: File locking / field locking

I will share a section of the code, because I am still not convinced this
totally keeps us from having duplicates. My boss seems to think that the
code as is provides ample protection, and he is not going to allow me to
change it unless I can prove there is a hole. I just do not have a
comfort level with it at this point.....I do not know why.....so if you
can see something feel free to comment:

0049.00 fmanifidl1 uf e k disk rename(manifid1:manifid2)
0050.00 f prefix(x_)
0051.00 fmanifidx uf a e k disk

c If svacct <> pkacct
c *hival setgt manifidl1
c readp manifidl1 66
c if *in66 = *off
c and x_mnid < 999999999
c eval newID = x_mnid + 1
c else
c eval newID = 1
c endif
c endif

c except trukhd
**
c if pkacct <> svacct
c or FirstRecord
c pslkey chain pickctrl
c if not %found(pickctrl)
c eval pcdate = date8
c endif
c eval mndc = pkdvsn
c eval mnacct = pkacct
c eval mnname = ccusnm
c eval mnrte = pkrte#
c eval mnampm = pkampm
c eval mnshdt = pcdate
c eval mnid = newID
c write manifid1
c endif
**
c eval svroute = pkrte#
c eval *inof = *off
c eval FirstRecord = *off
c endif
c eval svacct = pkacct
c except trukhd2
c endif
c unlock manifidl1
c endsr

This transmission may contain information that is privileged, confidential
and/or exempt from disclosure under applicable law. If you are not the
intended recipient, you are hereby notified that any disclosure, copying,
distribution, or use of the information contained herein (including any
reliance thereon) is STRICTLY PROHIBITED. If you received this
transmission in error, please immediately contact the sender and destroy
the material in its entirety, whether in electronic or hard copy format.
Thank you.