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 *