While Mike makes an excellent suggestion of intercepting the 'file'
command, it does not address four additional situations:
1. $stdlists - These could be set to 'spsave' if you have STREAMX and ALL
job streaming is done by that utility. One would need to add the
following line into the file 'streamx.data.vesoft':
$JOBPARMS-ALWAYS @,@.@ @[log in to unmask]@ @,@.@ "SPSAVE"
2. Spool files directly opened by the intrinsic FOPEN/HPFOPEN.
3. Programmatically issuing the 'file' command using the COMMAND
intrinsic (NOT the HPCICOMMAND)
4. Programmatically streaming a job and thus bypassing STREAMX.
BTW a slight improvement on mike's UDC would be:
file
anyparm fparms
errclear
continue
file !fparms;spsave >xfeqrzlt
if hpcierr = 0 OR hpcierr = -9264 then
errclear
else
print xfeqrzlt;page=0
endif
purge xfeqrzlt,temp >$null
Regards
Paul Christidis
----------------------------------------------------------------------------------------
This is a PRIVATE message. If you are not the intended recipient, please
delete without copying and kindly advise us by e-mail of the mistake in
delivery. NOTE: Regardless of content, this e-mail shall not operate to
bind CSC to any order or other contract unless pursuant to explicit
written agreement or government initiative expressly permitting the use of
e-mail for such purpose.
----------------------------------------------------------------------------------------
Mike Hornsby <mikeh
@beechglen.com>
Sent by: HP-3000 Systems Discussion <[log in to unmask]>
06/28/2005 06:15 AM
Please respond to Mike Hornsby
To: [log in to unmask]
cc:
Subject: Re: [HP3000-L] SPSAVE on spoolfiles
Tony Summers wrote:
>Is it possible to configure an HP3000 so that all spoolfiles are
>spsave'd by default ?
>
>
With limited testing, I found that the FILE command can be intercepted
with a UDC
that uses the ANYPARM function to append the ;spsave directive. For
anything other
than a spoolfile creation, the ;spsave seems to be ignored. Thus this
UDC could be
added at the user, account, or system level to turn on spsave by default.
Cordially,
Mike Hornsby
Beechglen Development Inc.
Support for HP3000s;from=1988;to=2020;spsave
513-922-0509
file
ANYPARM fparms
file !fparms;spsave
***
* 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 *
|