MVSFORUMS.com

[deepa12]

I have an online application using ISPF, REXX, VSAM. It has to be restricted in such a way that only 1 user can access at the same time

So I need to build a logic to detect this

Is it possible to do it using ISPF Pool variables (VGET, VPUT)

I tried to use a profile pool variable by specifying ‘new application’ and ‘newpool’ option in ISPF SELECT command
The value seems to be retained for the user across that users session.

When i use shared pool variable, it is available across the REXX source codes of that application run and not across different users
Is this understanding correct

So for me it looks like using pool variable may not be the correct choice and currently we have used ISPF table

Please advise
_________________
deepa

[expat]

Why not allocate a control dataset as DISP=OLD.

DISP=OLD requires exclusive access, so this allows RC checking in the ALLOCATE command and error / success messages issued at the time.

So if I have it allocated as OLD, then you cannot allocate it at all.
_________________
If it's true that we are here to help others,
then what exactly are the others here for ?

[misi01]

I was going to suggest a row in a DB2 table, but your suggestion is even simpler.
_________________
Michael

[kolusu]

[misi01]

My immediate thought was a simple table with one row containing the userid of the person using the system, but as expat suggested, his (?) suggestion is much better if the application crashes. All the user has to do is log off and it's available to other users.

There's more than one way to skin a cat, and some methods are better than others
_________________
Michael

[expat]

Definitely a HIS -
_________________
If it's true that we are here to help others,
then what exactly are the others here for ?