HP3000-L Archives

January 1999, Week 3

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: listing of backup streams
From:
Tim Ericson <[log in to unmask]>
Reply To:
Tim Ericson <[log in to unmask]>
Date:
Wed, 20 Jan 1999 10:46:58 -0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (95 lines) 
Simonsen, Larry wrote:
>
> I'm looking for some ideas on keeping the backup stdlist files on
> disc rather than printing them every day/week.

Here's a snippet from a job I wrote to do that very thing...

!JOB SPOOLF,MANAGER.SYS;OUTCLASS=P0,1,1
!
!###########################################################
!#                                                         #
!#  SPOOLF.STREAM.SYS                                      #
!#                                                         #
!#    DAILY SPOOLFILE CLEANUP JOB.                         #
!#                                                         #
!###########################################################
!
!ERRCLEAR
!CONTINUE
!
!LISTSPF O@; SELEQ= &
!  [(FILEDES=SYSLIST) AND (JOBNAME=PARTBKUP)] > PARTSYS
!
!IF CIERROR = 0
!
!  CONTINUE
!  PURGE PARTSYS7.SPOOL
!  CONTINUE
!  RENAME PARTSYS6.SPOOL, PARTSYS7.SPOOL
!  CONTINUE
!  RENAME PARTSYS5.SPOOL, PARTSYS6.SPOOL
!  CONTINUE
!  RENAME PARTSYS4.SPOOL, PARTSYS5.SPOOL
!  CONTINUE
!  RENAME PARTSYS3.SPOOL, PARTSYS4.SPOOL
!  CONTINUE
!  RENAME PARTSYS2.SPOOL, PARTSYS3.SPOOL
!  CONTINUE
!  RENAME PARTSYS1.SPOOL, PARTSYS2.SPOOL
!
!  PRINT PARTSYS; START=4; END=4 > PARTSYSL
!
!  INPUT PARTSYS_REC < PARTSYSL
!
!  SETVAR PARTSYS_ID, &
!    STR ( "!PARTSYS_REC", 2, POS ( " ", "!PARTSYS_REC" ) - 2 )
!
!  CONTINUE
!  COPY !PARTSYS_ID.OUT.HPSPOOL, PARTSYS1.SPOOL; YES
!
!  SPOOLF !PARTSYS_ID; DELETE; SHOW
!
!ENDIF
!
!###########################################################
!
!##  THE SPOOLF SECTION MUST BE LAST
!
!CONTINUE
!PURGE SPOOLF7.SPOOL
!CONTINUE
!RENAME SPOOLF6.SPOOL, SPOOLF7.SPOOL
!CONTINUE
!RENAME SPOOLF5.SPOOL, SPOOLF6.SPOOL
!CONTINUE
!RENAME SPOOLF4.SPOOL, SPOOLF5.SPOOL
!CONTINUE
!RENAME SPOOLF3.SPOOL, SPOOLF4.SPOOL
!CONTINUE
!RENAME SPOOLF2.SPOOL, SPOOLF3.SPOOL
!CONTINUE
!RENAME SPOOLF1.SPOOL, SPOOLF2.SPOOL
!
!CONTINUE
!PRINT !HPSPOOLID.OUT.HPSPOOL > SPOOLF1.SPOOL
!SAVE SPOOLF1.SPOOL
!
!###########################################################
!
!SET STDLIST=DELETE
!
!EOJ

 +-------------------------------------------------------------------+
  My mind is my own, as are my ideas and opinions.
  My heart, body, and soul, however, all belong to others.       Tim.
 +-------------------------------------------------------------------+
  Tim Ericson            tericson      DenKor Dental Management Corp.
  Sr. Systems Analyst     at denkor    503-526-4440 (my direct number)
    (& Systems Manager)     dot com         http://www.denkor.com
  Programming HP3000s since 1983!      Quality dental care since 1970!
 +-------------------------------------------------------------------+
  UDCs and Command Files:  http://www.denkor.com/hp3000/command_files
 +-------------------------------------------------------------------+

ATOM RSS1 RSS2