Re: locked record

[rob@xxxxxxxxx]

This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
I am still waiting for that sample code using the Monitor command in RPG
to do something like
/free
 monitor;
 read myfile;
   on-error 01218; // record lock
     recordlock();
   on-error *file; // other file errors
     fileerrors();
   on-error *all;  // what's left?
     crash();
 endmon;

Now how to retrieve the offender from within the rpg would be cool.  With
that information I could roll my own technique for dealing with the
situation.

http://www.eservercomputing.com/iseries/articles/index.asp?sid=10&id=412


Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin




Scott Klement <klemscot@klements.com>
Sent by: midrange-l-admin@midrange.com
10/10/2002 11:24 AM
Please respond to midrange-l


        To:     midrange-l@midrange.com
        cc:
        Fax to:
        Subject:        Re: locked record



Usually, when you can't get a record because another job has it locked,
the system puts a CPF5027 in your job log that lists who the user is.

What I generally do is retrieve that message, and display that userid on
the screen, while trying to lock the record in a loop.   This way, the
user sitting at the screen can call up Dan and complain that he's locking
the record.  (It's always Dan!)


On Thu, 10 Oct 2002 kmskeele@mail.volusia.k12.fl.us wrote:
>
> A somewhat newbie question.... Is there a way to display the user id
that
> has a specific record locked for update ?
>

_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.