We get the message text for a locked record from the SDS structure.
D SDS
D Prog 10
D Msgtxt 91 170
D User 254 263
On a chain where we want to check for locks we do..
C Sdkey CHAIN Semd 3132
C IF *IN32 = *ON
C CALL 'UTRLOCK' Lock
* Locked Record Utility Parameter List
C Lock PLIST
C PARM User
C PARM Msgtxt
UTRLOCK has been around for some time and needs rewritten but it scans the Msgtxt field which contains "Record 125059 in use by job 070608/KSWANSO/WPDP609AS4" and extracts the Job Number, User and Job name from the end of the text and sends the offending user an e-mail and a break message that they are holding someone up. If it's called from an interactive job it also shows the user who wants the record who has the lock and gives then the users office phone number.
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of KSwanso@xxxxxxxxxxxxxxxxxxxxx
Sent: Monday, April 28, 2008 11:49 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Unable to allocate record in Physical File
Currently users are receiving this message in production. What I am trying
to do is monitor for %status 1218 and use the Program Status Data
Structure to get the Exception error information fields 91 - 170. Numerous
posts on various forums indicate that this field should contain the a
message along the lines of " Record 125059 in use by job
070608/USERNAME/WPDP609AS4."
However the only message that I see in fields 91 - 170 is: "Unable to
allocate a record in file CDIARYP"
Here is a copy of my job log after the run with a locked record.
Record 125059 in use by job 070608/KSWANSO/WPDP609AS4.
? C
Record 125059 in use by job 070608/KSWANSO/WPDP609AS4.
? C
Unable to allocate a record in file CDIARYP.
Now it looks like I have responded to the record in use by job error
message, but I am not responding, it appears to be doing it by itself...
Any suggestions on to how I can get it to either A, not auto reply to the
error message, or B retrieve the prior message using the PSDS?
Thanks
Kevin Swanson
-----------------------------------------
The contents of this email may be confidential. If you are not the
intended recipient of this email, any access to, disclosure,
copying, or distribution of this information, is prohibited and may
be unlawful. If you receive this email in error please reply to the
sender immediately to advise him/her of the error, and then delete
this email and any attachments.
--
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
