Colin,

You'll need to use some type of command file to determine the spoolfile id
number (See the command file below) and then do the following:

!FILE SA286P;DEV=MISSTD,1  (Or whatever number below your outfence)
!RUN SA286
!GETSPFID SA286P _SPFID_NUM
!SPOOLF  !_SPFID_NUM;PRINT;DEV=HOSTD
!SPOOLF  !_SPFID_NUM;PRINT;DEV=OPSTD
!SPOOLF  ![WORD(_SPFID_NUM, ".")] ;ALTER ;PRI=8

Regards
Paul Christidis


---------------- Start Cut *+1
parm banner_name="?" filename="_spool_fname"
parm job_number="#!hpjobtype!hpjobnum"
if (setvar( _spf_banner,UPS("!banner_name")) = "?") then
 echo
 echo Usage: ![finfo(hpfile,"fname")]  Banner_name [_Spool_fname] &
              [Job_number]
 echo
 echo  Banner_name - File designator name for the desired spool file.
 echo       In the file equation "File x=report01;dev=lp;cctl"
 echo       "report01" is the banner or 'filedes' name.  If multiple
 echo       reports with the same banner name exist then this command
 echo       file will ONLY return the first one.
 echo
 echo  _Spool_name - Optional CI variable name that will hold the fully
 echo       qualified name of the spool file.  If one is NOT specified
 echo       the default CI variable of '_Spool_fname' will be used.
 echo
 echo  Job_Number  - Optional parameter indicating the job/session no.
 echo       that created the indicated spool file.
 echo       The default is the 'current' job/session number.
 echo
 echo   NOTE:  Steps MUST be taken, outside this command file, to remove
 echo    the spool file if duplicate banner names are possible.  If an
 echo    error occurs the spoolfile name is set to: "$NULL.OUT.HPSPOOL".
 echo
 deletevar _spf_banner
 return
endif
setvar _spf_currjob "#" + "![UPS("!Job_Number") - "#"]"
setvar hpcierr 0
listspf o@;seleq=[jobnum=!_spf_currjob and filedes=!_spf_banner] >$newpass
if hpcierr <> 0 then
   setvar _spf_spid_text "$NULL     "
else
   print $oldpass;start=4;end=4;out=$newpass
   input _spf_spid_text < $oldpass
endif
setvar !filename RTRIM(LTRIM(LFT(_spf_spid_text,10) - "#"))+".OUT.HPSPOOL"
echo The spoolfile for report "!_spf_banner" is: [![!filename]]
deletevar _spf_@
--------------------------- End Cut *-1 (SAVE as GETSPFID)

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *