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.





As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.