MVSFORUMS.com

[meetrb]

Hi,
I am writing a Rexx exec that will edit a member in a pds. But if that member is being edited by someone else I get a contention message. Is there any way I can prevent the message from being displayed.

I tried using OUTTRAP but it does not seem to be trapping the contention message.

Thanks in advance,
Ranjith

[kolusu]

Ranjith,

what do you want to do when the member is in use by someother person? send a different message or open the member in browse/view mode? Here is a simple way to substitute BROWSE when the member is in use.

[meetrb]

Thanks for the reply Kolusu.

However my requirement was that I do not want the message to be displayed on the screen. The code I used was in my exec was,

ADDRESS ISPEXEC "EDIT DATASET(memname)

If memname is being edited by another user a contention message is displayed. I want to prevent the message from getting to the user.

Regards,
Ranjith

[Dibakar]

Well "if rc = 14 then NOP" would do

[warp5]

I would like to add that you should place a:

EDREC INIT

before each edit. This will give you edit recovery - if your routine or tso or ... crashes you will reenter the edit where you last pressed enter - otherwise you might lose a lot of data that you entered.

[meetrb]

Thanks for all the replies.

But I seem to have left my requirement unclear.
The requirement is that in a pds if there are members m1,m2,m3 .....
My routine would open m4 as the next member in the pds. However if another user is editing the member m4 and has not saved it as yet, I will be getting a contention message. I would like to prevent this message from getting to the screen and open up m5 without the user being aware of m4.

Thanks,
Ranjith.

[Mike]

Perhaps, if you were to show us the code that you are using we may be able provide more ueful information.
_________________
Regards,
Mike.