Here is a code that uses optimistic locking strategy. Can you make it work without release statement keeping the same strategy? (This is from ABL Essentials Document. I added a repeat to it)
/* h-findCurrent.p */
define variable l_cust like customer.custnum.
repeat:
update l_cust...
Keep dreaming Mr. Shark. I hope one day you will realize that you are just a fish... and that is for your own good.
There is more in the world to feel good about than knowing “record scope” and feeling like a shark.. ?;^P
My point was to give an example where release can be used. Ofcourse, release is not required at all if the record scope can be fixed. That part was already said by two of the wizards (99% and 100%).
What’s happening here? Some demo of Power? I see that finally the last wizard comes along...
find first pt_mstr no-lock no-error.
for first pt_mstr exclusive-lock:
end.
/** at this point record is in buffer
and it is share-locked. So you may
want to release it right here.
**/
release pt_mstr.
pause.
on leave anywhere do:
if self:name = "aa" then do:
if self:screen-value = "yes" then
self:screen-value = "no".
end.
end.
run org.p
and your org.p is...
def var aa as log.
def var bb as c.
form aa bb with frame f_aa.
update aa bb with frame f_aa.
def var iCopies as i no-undo init 2.
def var iPages as i no-undo init 3.
def var lCollated as l no-undo.
def var iCtr as i no-undo.
def var iCtr2 as i no-undo.
form
iCopies label "Copy"
iPages label "Page"
with frame f_1 down.
repeat:
update iCopies iPages lCollated
with...
From Progress Support Site...
It is possible to perform a silent uninstall on Windows-based systems from OpenEdge 10.1B onwards.
Add –psc_s to the existing uninstall shortcut:
OpenEdge 10.2B Uninstall shortcut property as installed:
"C:\Program Files\InstallShield Installation...
If it was calling TTmvplan.p, it should give error "Mismatched number of parameters passed to procedure sub.p. (3234)" and NOT err#3230.
May be you have an other version of .r with datatype issue. Recompile plan.p and try it.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.