Hi,
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 who
currently locks the record.
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 them
and keeping them!"
-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im
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@concordtr To
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>
%error() perhaps?
Florin Todor
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Alan Shore
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 file
by using indicators and position 91 through 170 of the program status data
structure (PSDS), but does anyone know what the code is for the monitor
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 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..
midrange.com
