On Fri, 31 Jan 2003 15:04:06 -0800, Gary Jackson <[log in to unmask]> wrote:
>Fellow listers-
>
>I am trying to develop a way to archive $stdlists without purchasing more
>software :>) Is anyone using MPEX to archive $stdlists to disk, and if so,
>can you turn them back into spoolfiles if you need to? Can you find them
by
>the original creator? What tricks can you do with MPEX to manage
>spoolfiles?
>
>Gary Jackson
>QSS
Gary,
I developed the following command file (SAVESPF) to address this issue. My
application was not to specifically archive, although this command file
will do exactly that. I use it primarily to package up spoolfiles and
transfer them to a second HP3000 for printing. It uses store-to-disk (STD)
and SPIFF. These tools are a no cost part of FOS. I use NS to then
transfer the resulting STD file from machine #1 to machine #2 for
restoration and printing. All spool file attributes are preserved by
SPIFF, which uses STORE. You can apply a great deal of selection criteria
to the process with SPIFF. If the selection criteria gets to be longer
than a command line will allow, you can place the selection criteria in a
flat (byte) file (see the reference to OUTSPIN on the INFO parameter).
Otherwise, the command to SPIFF can go directly in the INFO parameter.
Everything you need to know about SPIFF is provided in its Help section.
(Some lines in the following listing are wrapped from the copy/paste
process).
Hope this helps.
John Wolff
HELP SAVESPF
USER DEFINED COMMAND FILE: SAVESPF.COMMANDS.SYS
PARM SPF,DEV=STD,O=">7",PURGE=""
OPTION NOLIST,BREAK,HELP
COMMENT: Save All SpoolFiles by: JOB Number or User.Account to Tape or STD
File
COMMENT: SPF = Numeric JOB Number or @.@ or USER.ACCOUNT
COMMENT: DEV = STD (Default) or DDS3A or DDS3B(#2) or DLT12(#1)
COMMENT: O = Output SPOOL File Priority Selection; ">7" is Default
COMMENT: PURGE = Null or ";PURGE"
IF HPE3000=1 AND "!DEV"<>"DDS3A" AND "!DEV"<>"STD" AND "!DEV"<>"DLT12" THEN
ECHO
ECHO [SAVESPF] ERROR: DEV Parameter Must Be: DDS3A, DLT12 or STD
ECHO Not: !DEV!BELL
ECHO
RETURN
ELSEIF HPE3000=2 AND "!DEV"<>"DDS3A" AND "!DEV"<>"DDS3B" AND "!DEV"<>"STD"
THEN
ECHO
ECHO [SAVESPF] ERROR: DEV Parameter Must Be: DDS3A, DDS3B or STD
ECHO Not: !DEV!BELL
ECHO
RETURN
ENDIF
IF "!PURGE"<>"" AND "!PURGE"<>";PURGE" THEN
ECHO
ECHO [SAVESPF] ERROR: PURGE Parameter Must Be: ";PURGE" (Not: !PURGE)
ECHO !BELL
ENDIF
IF BOUND(TS_TOTAL_SPOOL_FILES_STORED)=TRUE THEN
DELETEVAR TS_@
ENDIF
IF "!DEV"="STD" AND NUMERIC('!SPF')=TRUE THEN
IF FINFO('J!SPF.STORE2DF',"EXISTS")=TRUE THEN
PURGE J!SPF.STORE2DF
ENDIF
FILE STD=J!SPF.STORE2DF;DEV=DISC
RUN SPIFF.PUB.SYS;&
INFO="STORE [SPF=J!SPF];*!DEV!PURGE";STDIN=EXIT.OPERATOR.SYS"
ELSEIF "!DEV"="STD" AND "!SPF"="@.@" THEN
IF FINFO('OUTSPOOL.STORE2DF',"EXISTS")=TRUE THEN
PURGE OUTSPOOL.STORE2DF
ENDIF
FILE STD=OUTSPOOL.STORE2DF;DEV=DISC
IF "!O"=">7" AND "!PURGE"=";PURGE" THEN
RUN SPIFF.PUB.SYS;STDIN=EXIT.OPERATOR.SYS;INFO="^OUTSPIN.MANAGER.SYS"
ELSE
RUN SPIFF.PUB.SYS;STDIN=EXIT.OPERATOR.SYS;INFO="STORE [[log in to unmask]@ AND
STATE
=READY AND PRI!O AND (DEV=LP OR DEV=LP1 OR DEV=LP2 OR DEV=LP3 OR DEV=LPT OR
DEV=
HP2567C OR DEV=HP2567C7 OR DEV=HP2567B OR DEV=HP2567B3 OR DEV=HP2563A4)];*!
DEV!PURGE"
ENDIF
ELSE
RUN SPIFF.PUB.SYS;STDIN=EXIT.OPERATOR.SYS;INFO="STORE [SPF=J!SPF];*!DEV!
PURGE
"
ENDIF
IF "!DEV"="STD" THEN
RESET STD
ENDIF
IF BOUND(TS_TOTAL_SPOOL_FILES_STORED)=TRUE THEN
ECHO
ECHO [SAVESPF] SPOOL Files STOREd to STORE2DF: !
TS_TOTAL_SPOOL_FILES_STORED
ECHO !BELL
ENDIF
RETURN
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
