RE: Telnet Session Limit -- MIDRANGE-L

I didn't write it, but we've used it for years, and haven't seen any
problems yet...  

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
Sent: Wednesday, December 20, 2006 12:26 PM
To: Midrange Systems Technical Discussion
Subject: RE: Telnet Session Limit

Missing a few MONMSG's perhaps?  Vary off fails because it is busy.
Delete fails because vary off failed, or something else (security
perhaps?).

Good idea on the special devices.  Also saw you only checked for virtual
displays.  Printers may not be in use but may be a dummy printer for
Query printouts, etc.

And, if you're a shop with QLMTSECOFR turned on, it might be painful to
rebuild security on a device that may not currently be in use.  So keep
that in mind also.

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com

"Turnidge, Dave" <DTurnidge@xxxxxxxxxxxxxxxxxxxx> 
Sent by: midrange-l-bounces@xxxxxxxxxxxx
12/20/2006 11:47 AM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>

To
"Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
cc

Subject
RE: Telnet Session Limit

The following is CL source for a program that we run monthly via Robot
to delete all our virtual devices that are over a month old. (I have not
included the RPG routine for determining the difference between
dates...)

Dave
_________________________________________________________________
pgm

dcl  &days *dec (5 0)

dclf sya0060w

dspobjd *all *devd output(*outfile) outfile(qtemp/sya0060w)

Loop:

rcvf

  monmsg cpf0864 exec(goto endpgm)

/* Weed out non virtual display devices */

if (&odobat *ne DSPVRT) then(goto loop)

/* Keep the PASS* devices for passthru */

if (%sst(&odobnm 1 4) *eq PASS) then(goto loop)

/* Compare dates for more than a month since last used */

/* if no usage date, it is very old, delete it. */

if (&odudat *eq ' ') then(goto deleteit)

/* Call RPG procedure to compare the dates... */

             CALLPRC    PRC(COMPDATES) PARM(&ODDDAT &ODUDAT) + 
                          RTNVAL(&DAYS) 

If (&Days *lt 30) then(goto loop) 

DeleteIt: 
             VRYCFG     CFGOBJ(&ODOBNM) CFGTYPE(*DEV) STATUS(*OFF) 
             DLTDEVD    DEVD(&ODOBNM) 
             GOTO       CMDLBL(LOOP) 

EndPgm: EndPgm 
_____________________________________________________________________

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Pearson, Darran
Sent: Wednesday, December 20, 2006 10:30 AM
To: Midrange Systems Technical Discussion
Subject: RE: Telnet Session Limit

QAutoVRT was set at 100. Reset to 500 and seems to have fixed it.

Setting has worked ok for a long time. Can alot be created all at once
by something?

Do virtual devices go away automatically after they are created?

Thank you for your excellent assistance.

Darran

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Jim Franz
Sent: Tuesday, December 19, 2006 4:12 PM
To: Midrange Systems Technical Discussion
Subject: Re: Telnet Session Limit

Check system value:
                              Display System Value

 System value . . . . . :   QAUTOVRT
 Description  . . . . . :   Autoconfigure virtual devices

 Number of devices to
   autoconfigure  . . . . . . :   150        0-32500, *NOMAX, *REGFAC

jim

----- Original Message -----
From: "Pearson, Darran" <dpearson@xxxxxxxxxxxxxx>
To: <midrange-l@xxxxxxxxxxxx>
Sent: Tuesday, December 19, 2006 3:33 PM
Subject: Telnet Session Limit

Still haven't resolved this telnet 5250 emulator login problem.

Have been observing it though and seems like I can get up to 30 telnet

sessions but no more.

Last session shows time-wait state in work with TCP/IP.

Do you know anything that would limit number of telnet sessions like 
that?

Thanks,

Darran Pearson
--
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.



--
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.