HP3000-L Archives

October 2007, Week 5

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:
From:
Michael Anderson <[log in to unmask]>
Reply To:
Michael Anderson <[log in to unmask]>
Date:
Wed, 31 Oct 2007 17:12:09 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (58 lines)
I have a command file that might help, it currently only looks at the $STDLIST of a job number passed to it. It could modified to look at other spool files for a job/session.

USER DEFINED COMMAND FILE:  JLIST.UTIL.SYS

Parm jobnum='#' ldev='00'
SETVAR HPAUTOCONT TRUE
Setvar _jobnum '!jobnum'
If '!_jobnum' = '#' Then
  Setvar _jobnum  str(HPLASTJOB,3,![len(HPLASTJOB)] - 2)
Endif
Setvar hpcierr 0
Spoolf o@;seleq=[(jobnum=j!_jobnum) and (filedes=$stdlist)];show > $null
If hpcierr > 0
   Echo !hpcierrmsg
   return
Endif
SETVAR HPLASTJOB '#J!_jobnum'
IF FINFO('!HPLASTSPID.OUT.HPSPOOL','EXISTS') = FALSE
   echo Standard list for job #J!_jobnum doesn't exist!
   return
Endif
setvar _mpecmd 'print '+'!HPLASTSPID'+'.out.hpspool;PAGE=0'
If '!ldev' = '00'
   echo !_mpecmd
   !_mpecmd
Else
   File jlist;dev=!ldev
   !_mpecmd >*jlist
Endif
:


--
Michael Anderson
Programmer/Analyst -- Technology Dept.
Spring Independent School District
16717 Ella Boulevard
Houston, Texas 77090-4299
office: 832.764.4231
Mobile: 832.515.3868
fax: 281.586.1187
-

>>> mag <[log in to unmask]> 10/31/2007 11:57 am >>>
hi,

I ran a vstore command against a tape and set the output to a line printer. I 
dont want to print it, but I want to browse the #0xxxxxx file.  I don't 
remember how in the world to do this?  I would appreciate it! 

thanks a lot!

* 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