|
Hi,who
With Monitor the error message in the program status data structure only
says a record lock occured but not who is locking the record.
With %Error the error message in the program status data structure says
currently locks the record.them
To handle record locks and separate them from other errors additionally
check the %Status (Record lock = %Status 1218)
/Free
Chain(E) Key MyFileF;
If %Error;
Select;
When %Status = 1218;
//Handle Record locks;
Other
//Other Errors
EndSL;
EndIf;
BTW 1218 can also be checked with monitor;
Monitor;
Chain Key MyFileF;
On-Error 1218; // Record-Lock
//Handle Record-Locks
On-Error;
//Handle other errors;
EndMon;
Mit freundlichen Grüßen / Best regards
Birgitta Hauser
"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training
and keeping them!"Im
-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
Auftrag von Alan Shore
Gesendet: Wednesday, August 20, 2008 23:33
An: RPG programming on the AS400 / iSeries
Betreff: RE: Displaying who has a record lock
I thought of that but what if the error is NOT a lock.
Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxxxxx
P:(631) 244-2000 ext. 5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill
"Florin Todor -
YYZ Concord"
<ftodor@concordtrTo
ans.com> "RPG programming on the AS400 /
Sent by: iSeries" <rpg400-l@xxxxxxxxxxxx>
rpg400-l-bounces@cc
midrange.com
Subject
RE: Displaying who has a record
08/20/2008 05:31 lock
PM
Please respond to
RPG programming
on the AS400 /
iSeries
<rpg400-l@midrang
e.com>
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
%error() perhaps?
Florin Todor
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
On Behalf Of Alan Shorefile
Sent: Wednesday, August 20, 2008 4:20 PM
To: RPG programming on the AS400 / iSeries
Subject: Displaying who has a record lock
Afternoon everyone
I now there is a way to obtain who already has a lock on a record of a
by using indicators and position 91 through 170 of the program statusdata
structure (PSDS), but does anyone know what the code is for the monitorlist
end-monitor.
As always - any and all answers are much appreciated
Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxxxxx
P:(631) 244-2000 ext. 5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe,or
change list options,list
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
To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe,or
change list options,list
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
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.