Here is a cut down version of our backup, which is then FTP'd to another
CPU which houses all our backup listings.

!JOBONLINEBU,MANAGER.SYS,SYSOPER;HIPRI;PRI=DS;OUTCLASS=LP,1
!COMMENT * SET VARIABLE TO NAME THE BACKUP LISTING
!CONTINUE
!SETVAR IVAR HPYEAR*10000+HPMONTH*100+HPDATE
!CONTINUE
!SHOWTIME
!CONTINUE
!SETJCW CIERROR=0
!SHOWVAR JCW
!SHOWVAR CIERROR
!FILE TAPE1;DEV=30
!FILE SYSLIST=I!IVAR.DATEDUMP.SYS;DEV=DISC;DISC=1000000
!STORE !!FDFS3.JOB;;STORESET=(*TAPE1);SHOW
!SHOWVAR JCW
!SHOWVAR CIERROR
!IF CIERROR=0 THEN
!SHOWTIME
!CONTINUE
!DISCFREE A
!CONTINUE
!DISCFREE B
!CONTINUE
!TELLOP ***************************
!TELLOP *   THE STORE IS COMPLETE
!TELLOP ***************************
!COMMENT *****************************************************
!COMMENT * SEND TELL AND WARN MESSAGES TO ANY USER
!COMMENT * THAT THE BACKUP HAS COMPLETED.
!COMMENT *******************************************************
!TELL @; The online backup has completed.
!CONTINUE
!WARN @; The online backup has completed.
!ELSE
!TELLOP *************************************************
!TELLOP * AN ERROR HAS OCCURRED DURING THE BACKUP
!TELLOP * PLEASE CONTACT THE MPE SUPPORT SPECIALIST
!TELLOP **************************************************
!ENDIF
!CONTINUE
!COMMENT ******************************************************
!COMMENT * LIST ALL ‘SAVED' SPOOLFILES THAT WERE BACKED UP
!COMMENT * DURING THE DUMP AS A REFERENCE BEFORE DELETING
!COMMENT * THOSE CREATED BEFORE TODAY
!COMMENT *******************************************************
!CONTINUE
!LISTSPF O@;SELEQ=[STATE=SPSAVE]
!CONTINUE
!LISTSPF O@
!CONTINUE
!STREAM SPFDEL.JOB
!CONTINUE
!COMMENT **************************************
!COMMENT * FTP THE BACKUP LISTING TO MUGGA
!COMMENT **************************************
!CONTINUE
!PURGE FTPJOB, TEMP>$NULL
!COMMENT ***************************************************************
!COMMENT * THE ABOVE COMMAND WILL PROBABLY SET CIERROR TO THE
!COMMENT * VALUE OF 383 AS THERE MAY BE NO FILE TO PURGE.
!COMMENT * RESET THE VALUE BACK TO 0
!COMMENT ***************************************************************
!CONTINUE
!SETJCW CIERROR=0
!BUILD FTPJOB;REC=-80,1,F,ASCII;TEMP
!FILE FTPJOB=FTPJOB,OLDTEMP
!ECHO OPEN MUGGA>>*FTPJOB
!ECHO USER ZCOSOPERATOR>>*FTPJOB
!ECHO         >>*FTPJOB
!ECHO CD [.BACKUP]>>*FTPJOB
!ECHO CD [.BANKSIA]>>*FTPJOB
!ECHO PUT I!IVAR.DATEDUMP.SYS I!IVAR.TXT>>*FTPJOB
!ECHO CLOSE>>*FTPJOB
!ECHO EXIT>>*FTPJOB
!ECHO ^EOJ>>*FTPJOB
!FTP <FTPJOB
!IF CIERROR=0 THEN
!RUN MAIN.PUB.VESOFT,MPEX
        %PURGE @.DATEDUMP.SYS(ACCDATE<TODAY-5)
        %E
!CONTINUE
!TELLOP *********************
!TELLOP * FTP COMPLETE
!TELLOP *********************
!CONTINUE
!DELETE IVAR
!CONTINUE
!ELSE
!TELLOP *********************************************************
!TELLOP * THE FTP HAS NOT COMPLETED
!TELLOP * STREAMX DAYFTP.SYSOPER WHEN THE NETWORK IS UP
!TELLOP * OR
!TELLOP * CONTACT THE MPE SUPPORT SPECIALIST
!TELLOP *********************************************************
!CONTINUE
!DELETEVAR IVAR
!CONTINUE
!ENDIF

At 05:51  20/01/99 +0000, Tom Hula wrote:
>I set the outpriority on the job statement so that all stdlists come out at
>priority 2, so they won't print out and use print (printo in mpex) to look
>through them if necessary.  Periodically, I use mpex to delete the
>stdlists...should be able to specify a date on the delete somehow if you
>want to delete some and leave the rest out there.
>
>
>Simonsen, Larry wrote in message ...
>>I'm looking for some ideas on keeping the backup stdlist files on disc
>>rather than printing them every day/week.  They do seem to take about a
>>ream of paper and are used only a few times.  This is especially true
>>for remote sites like Bangalore India where I am now.
>
>