Display User Who Has Record Locked 2

[bcd31]

Is there anyway in RPG/400 to display to "user1" the name of "user2" who currently has the record locked that "user1" is trying to access?

 

[onpnt]

WRKACTJOB

should show you all active jobs along with the user that is currently running the job

____________________________________________________
[sub]Python????? The other programming language you never thought of!
thread333-584700[/sub]

http://www.onpntwebdesigns.com

 

[flapeyre]

Google is your friend:

http://makeashorterlink.com/?B2EE32055

In RPG4:

http://www.as400pro.com/TipsRPG5.htm#7

"When once you have tasted flight, you will forever walk the Earth with your eyes turned skyward, for here you have been, and there you will always long to return."

--Leonardo da Vinci

 

[gpzcrasher]

WRKOBJLCK OBJ(MYFILE) OBJTYPE(*FILE)

Will give you a list of all the jobs with a lock on a file. Then option 5 followed by option 14 will tell you which record is locked.


--------------------------------
If it ain't broke, don't fix it!

 

[bobtwigg]

Use:

If %Status = 01218

after a chain to detect a record lock in RPG IV.

 

[Frank49001]

One thing, suppose the program detects a record lock. Great, now what? Do you exit the program, do you send a message to the user, what are your program actions now?
Thanks,
Frank

 

[PeteJohnston]

Depends totally on the purpose of your program, but we had something a while ago that did a SNDUSRMSG with a reply value of R (retry) or C (cancel) specified. The program then did a loop until the update was successful or until the user replied option C.

PeteJ
(Contract Code-monkey)

It's amazing how many ways there are to skin a cat
(apologies to the veggies)

 

[Skittle]

Going back to the original question posted, is there a way of grabbing the identity of the account that has the record locked and displaying it to a user within a program?

In other words can it be automated rather than relying on somebody typing in a command in the command line?

 

[flapeyre]

See:

http://www.as400pro.com/TipsRPG5.htm#10

Also:

http://www.as400pro.com/TipsRPG6.htm#8

"When once you have tasted flight, you will forever walk the Earth with your eyes turned skyward, for here you have been, and there you will always long to return."

--Leonardo da Vinci

 

[Skittle]

Good articles and thanks for introducing me to an excellent tip site.