Re: QLMTDEVSSN like for iseries access

[Jonathan Mason <masonjo1@xxxxxxxxxxxxxxxx>]

I used to do a similar thing, limitting users to 4 sessions unless they had a 
user class other than *USER in which case they were allowed unlimmited sessions 
across multiple workstations.

The way I did it was to use the users Initial Program to check on how many 
sessions were active and respond accordingly.  To allow multiple sessions on 
the one PC I would do something like the following in the users initial program:

a) Retrieve the IP address for the current jobs joblog.  Peter Colpaert has 
posted a utility that should help with this on Leif Guldbrand's site at 
www.think400.dk/downloads.htm.

b) Attempt to retrieve the contents of a data area with the same name as the 
user ID into a 25 character field.  The data are should hold a date in the 
first 10 chars and an IP address in the last 15.

c) If the data area doesn't exist then create it (Size: 25 chars), setting 
chars 1-10 to the current date and chars 11-25 to the IP address retrieved in 
step a) above

d) If the IP address is different and the date is the same and this is not the 
only interactive session for the user then display a message and sign him/her 
off.

e) Update the data area with the current date and IP address.

f) Continue with the rest of the initial program

All the best

Jonathan
www.astradyne-uk.com


-----Original message-----
From: Emilio Padilla - Sistemática Intl.        EPADILLA@xxxxxxxxxxxxxxxxxx
Date: Mon, 10 Jan 2005 17:30:02 +0000
To: Midrange Systems Technical Discussion midrange-l@xxxxxxxxxxxx
Subject: QLMTDEVSSN like for iseries access

> Hi everybody, I need some help, I've been ask to create a function that
> works like the QLMTDEVSSN system value on 3476 terminal but in PC's with
> iseries access.  Let me explain a little better:  
> 
> The user must have the ability to open any number of session on 1 pc but, he
> shouldn't been able to open 2 sessions on 2 differents pc.  I was thinking
> in something like a combination between a telnet exit program and an initial
> program on the user profile.  Any suggestion will be appreciated.
> 
> EMILIO PADILLA T
> E-mail: epadilla@xxxxxxxxxxxxxxxxxx
> 
> 
> -- 
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
> 


Jonathan Mason
www.astradyne-uk.com