FWIW,
on MPE 6, I had to replace this line of spyjob
if jinfo('#j!JOB_NUM', 'executing') = true
with this
if lft(jinfo('#j!JOB_NUM', 'jobstate'),4) = 'EXEC' THEN
___________________________________________________________________
Keven Miller mailto:[log in to unmask] http://www.exegesys.com
-----Original Message-----
From: David Powell [mailto:[log in to unmask]]
Sent: Thursday, September 04, 2003 11:53 AM
To: [log in to unmask]
Subject: Re: [HP3000-L] Mystery job
My 'spyjob' command file shows a little more of the input spool-file than
plain old 'print Ixxxx.IN.HPSPOOL. Doesn't need mpex, probably needs SM
cap. (Sorry about the lack of indentation in this listing)
:print spyjob.cmd.sys
OPTION NOLIST
parm JOB_NUM=""
if "!JOB_NUM" = ""
echo Job# to list is required 1st & only parm
echo Example: spyjob 1234
return
endif
if jinfo('#j!JOB_NUM', 'exist') = false
echo No such job as #j!JOB_NUM
return
endif
echo Streamed by ![jinfo('#j!JOB_NUM', 'StreamedBy')] &
at ![jinfo('#j!JOB_NUM', 'FmtStreamedByTime')] &
on ![jinfo('#j!JOB_NUM', 'FmtStreamedByDate')] &
on ldev ![jinfo('#j!JOB_NUM', 'StreamedByLdev')]
if jinfo('#j!JOB_NUM', 'executing') = true
echo CPU seconds so far = ![jinfo('#j!JOB_NUM','CPUSec')]
echo CPU milliseconds = ![jinfo('#j!JOB_NUM','CPUMilliSec')]
endif
setvar _x jinfo('#j!JOB_NUM', 'stdinspid')
printspf !_x.in.hpspool
deletevar _x
return
# Cmd file to display the contents of a job that is running
# or still in the in-queue. Works under MPEX, not in break.
# Does not show the JOB line, or any part that has already
# run.
#
# 08/08/2003 Showing CPU seconds & milliseconds. Sadly,
# these do NOT reflect a program in progess, only
# MPE commands & completed programs.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|