Please feel free to use/modify the following Job stream - which we use to store all spoolfiles to an NBSPOOL archive file and then purge them from the spoolfile queue.
!JOB STNBSARC,OPERATOR.SYS;OUTCLASS=LP,1,1;spsave
!comment
!comment ** Author: Richard Taylor Date: 14th December 1995
!comment
!comment ** STNBSARC archives all redundant $STDLISTs and
(24/92) Continue?
!comment ** SPSAVEd spoolfiles to disk. Disk file name is
!comment ** NBSAddmm in SPOOL.SYS, the files will be stored
!comment ** at the weekend and purged by this job when they
!comment ** are one week old.
!comment
!comment ** This job should be the first to run after the
!comment ** GOODNIGHT udc. Although it might soon be moved to
!comment ** be streamed by the goodmorning one at 2-4pm
!comment
!SETVAR HPAUTOCONT TRUE
!comment LIMIT ![!BASELIMIT+1]
!RUN CI.PUB.VESOFT
!SPOOLF O@;SELEQ=[FILEDES=DFVAPX];DELETE
!comment
!PURGE NBSDATE
!BUILD NBSDATE
!SETVAR DATE FINFO("NBSDATE",-6)
!SETVAR DD STR("!DATE",7,2)
!SETVAR MM STR("!DATE",5,2)
!comment
!comment The archive below is :
!comment (1) All spsaved spool files (Except development accounts)
!comment (2) All files processed by fantasia or sent to network
(47/92) Continue?
!comment (ie all at pri=2) (again exclude development accounts)
!comment (3) All $stdlists
!comment (4) all files more than 31 days old
!comment
!comment After the archive, some files are unarchived
!comment
!comment Then various named spoolfiles more than 7
!comment days old are also purged
!comment
!SETVAR CIERROR 0
!RUN NBSPOOL.PUB.NETBASE
ARCHIVE STATE=SPS,[log in to unmask]@.COMPL,[log in to unmask]@.DEVELOP;FILE=NBSA!DD!MM.SPOOL.SYS&
;PURGE;LIMIT=4000,4000000
ARCHIVE PRI=2,[log in to unmask]@.COMPL,[log in to unmask]@.DEVELOP;FILE=NBSA!DD!MM.SPOOL.SYS&
;PURGE;APPEND
ARCHIVE $;FILE=NBSA!DD!MM.SPOOL.SYS;PURGE;APPEND
ARCHIVE @,<TODAY-31;FILE=NBSA!DD!MM.SPOOL.SYS;PURGE;APPEND
PURGE @,MGR.NETBASE
P DFQAPF,<TODAY-7
P DFNAPF,<TODAY-7
P ROLLBACK,<TODAY-7
P SPSXXXXX,<TODAY-7
P DFAIOP,<TODAY-7
(70/92) Continue?
EXIT
!IF CIERROR <> 0 THEN
! comment LIMIT !BASELIMIT
! TELLOP ***********************
! TELLOP * STNBSARC has failed *
! TELLOP ***********************
! UDCWARN "STNBSARC failed on !hpdatef at !hptimef"
! SHOWVAR CIERROR
! SPOOLF O@;SELEQ=[JOBNUM=#J!HPJOBNUM];PRI=9
! TELLOP Stdlist for job now printing
! TELLOP ..
!ELSE
! TELLOP ***************************************
! TELLOP * STNBSARC has completed successfully *
! TELLOP ***************************************
! UDCCHECK STNBSARC ran OK
!ENDIF
!EXIT
!comment
!comment finally reset the baselimit back to base value (now removed)
!comment
!comment LIMIT !BASELIMIT
!EOJ
>>> Michelle Willis <[log in to unmask]> 06/07/99 >>>
I am new to the HP world (and of course new to this list). I'm sure most of
you will have no problem answering my scenario presented below.......
We run Orbit's backup and utilize NBSpool. I am doing a little monthly cleaning
of spoolfiles. I wanted to Store the spoolfiles and then of course purge them.
I ran LISTSFP command to list all spool files with a date <= 04/30/99 to
determine how many files should qualify. I had files qualify. Then ran STORE
@.OUT.HPSPOOL;*T;CDATE <=04/30/99;AUTOREPLY=7 (purposely left off the purge at
this time, just testing the waters). No files qualify. I reran the Store
procedure substituting CDATE (creation date) with ADATE (access date) and then a
third time with DATA (modification date). Again files did not qualify. From
what I can tell, spool files only have a creation date field and that's it. I
need to understand why the STORE is not picking that up. What field is it
using? And secondly is it a better idea to store then files and purge in a
separate step?
Thanks in advance for any help!!!
Michelle Willis
System Engineer
General Health Information Services
225.381.6815
|
