HP3000-L Archives

June 2015, Week 2

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: Reverse Osmosis on Checking Spooled LDEVs
From:
"Johnson, Tracy" <[log in to unmask]>
Reply To:
Johnson, Tracy
Date:
Thu, 11 Jun 2015 17:04:00 +0000
Content-Type:
text/plain
Parts/Attachments:
text/plain (1 lines) 
Sorry reporting is not desired.  Wish to take an action on an active LDEV, such as abortio or stopspool.





Tracy Johnson

00 1 757 766 4318 tel

00 1 757 755-6470 mobile





From: Cornelia Sellitto [mailto:[log in to unmask]]

Sent: Thursday, June 11, 2015 12:58 PM

To: Johnson, Tracy

Cc: [log in to unmask]

Subject: Re: [HP3000-L] Reverse Osmosis on Checking Spooled LDEVs



Tracy,

You can use byREQUEST to select STDLIST files and generate an Excel report; since you already have that product, please let me know if Hillary Software can assist you in some way. You have my contact info.



All the best,

Connie Sellitto







On Thu, Jun 11, 2015 at 9:56 AM, Johnson, Tracy <[log in to unmask]<mailto:[log in to unmask]>> wrote:

I noticed there is no easy way in MPEX to return the value of LDEV if it is a spooled and active printer.  Returning an active spool file is easy but the returning the LDEV is not.



In other words there is no such thing:



IF LDEV = SPOOLED true AND SPOOLER(LDEV)=ACTIVE

  ECHO ***** DO SOMETHING TO LDEV HERE *****

ENDIF



The following method is slow and tedius because we have 15000 spool files.  It takes 6 seconds to pass through each ldev and check 15000 spoolfles before it goes to the next LDEV.



We have 1200 ldevs, 50 are disc, 350 are sessions, 800 printers, The below would must also check nonexistent LDEVs to the upper limit of LDEV numbering,   At 6 seconds per LDEV, the below test would take seven and a half hours:



REPEAT

CONTINUE

SHOWOUT @[log in to unmask]@(SPOOL.DEVICE="!i" AND SPOOL.ISACTIVE=TRUE)

IF MPEXNUMSUCCEEDED > 0 THEN

  ECHO ***** DO SOMETHING TO LDEV HERE *****

ENDIF

FORNUM I=100,4679



Of course, YES I could use a traditional method like performing a SHODEV PRINTER (becasue I assigned that class), and reading the $STDLIST into a file and cropping out the spaces to pic up each LDEV number.  Then execute a script on each line of the edited file.



However my mind was thinking in a serial mode this morning.  Or it could be it is just too early.



Tracy Johnson

00 1 757 766 4318 tel

00 1 757 755-6470 mobile



* To join/leave the list, search archives, change list settings, *

* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *





* To join/leave the list, search archives, change list settings, *

* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2