If you have MPEX, you can perform a REPEAT..FORFILES loop. Here is an
example.
repeat
setvar onbr strwrite("#O![spool.spoolfilenum]":7)
setvar jnbr strwrite("#J![spool.jobnumber]":7)
setvar jname &
strwrite("![spool.jsname],![spool.user].![spool.account]":27)
setvar rd strwrite("![spool.readydate]":8)
setvar rt strwrite("![spool.readytime]":8)
if ![spool.isactive]
setvar OSTAT STRWRITE("ACTIVE":6)
elseif ![spool.isready]
setvar OSTAT STRWRITE("READY":6)
ELSEIF ![SPOOL.ISOPENED]
SETVAR OSTAT STRWRITE("OPENED":6)
ELSEIF ![SPOOL.ISLOCKED]
SETVAR OSTAT STRWRITE("LOCKED":6)
ELSEIF ![SPOOL.ISDEFERRED]
SETVAR OSTAT STRWRITE("DEFER":6)
ELSEIF ![SPOOL.ISSPSAVE]
SETVAR OSTAT STRWRITE("SPSAVE":6)
ENDIF
echo !onbr !jnbr !jname !rd !rt !OSTAT
forfiles [log in to unmask]:spool
Here is the result.
#O289323 #J3978 JINETD,MANAGER.SYS 02/04/23 11:03 PM READY
#O289500 #J4114 JINETD,MANAGER.SYS 02/04/24 11:03 PM READY
#O289679 #J4253 JINETD,MANAGER.SYS 02/04/25 11:04 PM READY
#O289859 #J4394 JINETD,MANAGER.SYS 02/04/26 11:03 PM READY
#O290037 #J4534 JINETD,MANAGER.SYS 02/04/27 10:18 PM READY
#O290216 #J4673 JINETD,MANAGER.SYS 02/04/28 11:02 PM READY
#O290393 #J4811 JINETD,MANAGER.SYS 02/04/29 08:36 AM READY
#O290510 #J2 TAPEJECT,MANAGER.SYS 02/04/29 08:49 AM READY
#O290513 #J6 JINETD,MANAGER.SYS 02/04/29 11:03 PM READY
#O290625 #J118 JINETD,MANAGER.SYS 12:00 AM OPENED
#O289418 #J4037 RECMAILJ,MANAGER.SYS 02/04/23 12:01 AM READY
#O289417 #J4036 SCHEDXJ,MANAGER.SYS 02/04/23 12:02 AM READY
#O289425 #J4039 RECMAILJ,MANAGER.SYS 02/04/23 01:00 AM READY
#O289427 #J4041 RECMAILJ,MANAGER.SYS 02/04/23 02:00 AM READY
#O289429 #J4043 RECMAILJ,MANAGER.SYS 02/04/23 03:00 AM READY
#O289317 #J3971 ORBBCKUP,MANAGER.SYS 02/04/23 03:57 AM READY
#O289430 #J4044 RECMAILJ,MANAGER.SYS 02/04/23 04:00 AM READY
#O289433 #J4047 RECMAILJ,MANAGER.SYS 02/04/23 05:00 AM READY
#O289431 #J4045 RESETSEC,MANAGER.SYS 02/04/23 05:01 AM READY
#O289434 #J4048 RECMAILJ,MANAGER.SYS 02/04/23 06:00 AM READY
#O289435 #J4049 RECMAILJ,MANAGER.SYS 02/04/23 07:00 AM READY
#O289436 #J4050 RECMAILJ,MANAGER.SYS 02/04/23 08:00 AM READY
#O289437 #J4051 RECMAILJ,MANAGER.SYS 02/04/23 09:00 AM READY
#O289438 #J4052 RECMAILJ,MANAGER.SYS 02/04/23 10:00 AM READY
#O289439 #J4053 RECMAILJ,MANAGER.SYS 02/04/23 11:00 AM READY
#O289440 #J4054 RECMAILJ,MANAGER.SYS 02/04/23 12:00 PM READY
#O289441 #J4055 RECMAILJ,MANAGER.SYS 02/04/23 01:00 PM READY
#O289442 #J4056 RECMAILJ,MANAGER.SYS 02/04/23 02:00 PM READY
#O289443 #J4057 RECMAILJ,MANAGER.SYS 02/04/23 03:00 PM READY
#O289445 #J4059 RECMAILJ,MANAGER.SYS 02/04/23 04:00 PM READY
#O289444 #J4058 CHECKOUT,MANAGER.SYS 02/04/23 04:00 PM READY
#O289446 #J4060 RECMAILJ,MANAGER.SYS 02/04/23 05:00 PM READY
#O289447 #J4061 RECMAILJ,MANAGER.SYS 02/04/23 06:00 PM READY
#O289448 #J4062 RECMAILJ,MANAGER.SYS 02/04/23 07:00 PM READY
#O289449 #J4063 RECMAILJ,MANAGER.SYS 02/04/23 08:00 PM READY
#O289450 #J4064 RECMAILJ,MANAGER.SYS 02/04/23 09:00 PM READY
#O289451 #J4065 RECMAILJ,MANAGER.SYS 02/04/23 10:00 PM READY
#O289452 #J4066 UPDSHDW,MANAGER.SYS 02/04/23 10:09 PM READY
#O289454 #J4068 RECMAILJ,MANAGER.SYS 02/04/23 11:00 PM READY
#O289428 #J4042 PSMON,PREDMON.SYS 02/04/23 11:03 PM READY
#O289453 #J4067 PREMASTR,MANAGER.SYS 02/04/23 11:13 PM READY
#O289499 #J4113 DAYSMRET,MANAGER.SYS 02/04/23 11:14 PM READY
#O289498 #J4112 DAYANTST,MANAGER.SYS 02/04/23 11:14 PM READY
#O289497 #J4111 DAYWSTST,MANAGER.SYS 02/04/23 11:14 PM READY
#O289594 #J4174 RECMAILJ,MANAGER.SYS 02/04/24 12:00 AM READY
#O289595 #J4175 RECMAILJ,MANAGER.SYS 02/04/24 12:00 AM READY
#O289596 #J4176 RECMAILJ,MANAGER.SYS 02/04/24 12:00 AM READY
#O289597 #J4177 RECMAILJ,MANAGER.SYS 02/04/24 12:00 AM READY
#O289593 #J4173 SCHEDXJ,MANAGER.SYS 02/04/24 12:01 AM READY
#O289604 #J4179 RECMAILJ,MANAGER.SYS 02/04/24 01:00 AM READY
#O289606 #J4181 RECMAILJ,MANAGER.SYS 02/04/24 02:00 AM READY
#O289494 #J4108 ORBBCKUP,MANAGER.SYS 02/04/24 02:03 AM READY
#O289608 #J4183 RECMAILJ,MANAGER.SYS 02/04/24 03:00 AM READY
#O289609 #J4184 RECMAILJ,MANAGER.SYS 02/04/24 04:00 AM READY
#O289612 #J4187 RECMAILJ,MANAGER.SYS 02/04/24 05:00 AM READY
#O289610 #J4185 RESETSEC,MANAGER.SYS 02/04/24 05:01 AM READY
#O289613 #J4188 RECMAILJ,MANAGER.SYS 02/04/24 06:00 AM READY
#O289614 #J4189 RECMAILJ,MANAGER.SYS 02/04/24 07:00 AM READY
#O289615 #J4190 RECMAILJ,MANAGER.SYS 02/04/24 08:00 AM READY
Ron Horner
HP3000 Systems Administrator
JCPenney Logistics
[log in to unmask]
(414) 259-2274
AIM: hornerrr
----- Original Message -----
From: "Brian Donaldson" <[log in to unmask]>
To: <[log in to unmask]>
Sent: Monday, April 29, 2002 9:56 PM
Subject: $Stdlist MPEiX Intrinsics
> All:
>
> Does anyone know of any intrinsic (or any other method) that will tell me
if
> a spoolfile is a stdlist or not?
>
> I have a file containing DFID numbers (in the form Onnnn, where nnnn = the
> spoolfile id number) and I need to determine if that spoolfile is a
stdlist
> or not. I would prefer my program doesn't open up each file to look for
the
> job card to determine if the spoolfile is a stdlist.
>
> Thanks in advance,
> Brian.
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>
The information transmitted is intended only for the person or entity to
which it is addressed and may contain confidential and/or privileged
material. If the reader of this message is not the intended recipient,
you are hereby notified that you have received this message in error and
that any review, dissemination, distribution or copying of this message
including any attachments is strictly prohibited. If you received this
in error, please contact the sender and delete the material from any
computer.
|
