ON ERROR CONTINUE
!
!	CREATE LIBRARY OF ALL SUBROUTINES
!
FORT/LI ARCLIB
LIB CREATE ARCHIVE ARCLIB
DEL ARCLIB.OBJ;*
!
!	BUILD HEDARC  -  STARTS DAYARC
!
REM $$$HED
DEL HEDARC.TSK;*
FOR/LI HEDARC
LINK/MAP/OPT HEDARC
ASG=TI:5:6
TASK=$$$HED
MAXBUF=1024
/
DEL HEDARC.OBJ;*
INS HEDARC
!
!	BUILD DAYARC  -  DAILY ARCHIVE RUN 
!
REM DAYARC
DEL DAYARC.TSK;*
FOR/LIST DAYARC
LINK/MAP/OPT DAYARC ARCHIVE/LIB  DB1:[150,1]USERLIB/LIB
UNITS=14
MAXBUF=1024
ACTFIL=14
ASG=TI:1:2
ASG=DB0:3:4:5
ASG=DB1:8:9
ASG=DB0:10:11:12:7
ASG=LP0:6
ASG=DB0:14
/
DEL DAYARC.OBJ;*
INS DAYARC
!
!	BUILD LSTARC  -  LISTS FILES ON ARCHIVE TAPE
!
REM $$$LST
DEL LSTARC.TSK;*
FOR/LIST LSTARC
LINK/MAP/OPT/MULT LSTARC ARCHIVE/LIB DB1:[150,1]USERLIB/LIB
ASG=TI:5
ASG=TI:6
ASG=TI:3
ASG=LP0:4
UNITS=8
ACTFIL=8
TASK=$$$LST
MAXBUF=1024
/
DEL LSTARC.OBJ;*
INS LSTARC
!
!	BUILD RSTARC  -  RESTORES FILES BACK ONTO DISC
!
REM $$$RST
DEL RSTARC.TSK;*
FOR/LIST RSTARC
LINK/MAP/OPT/MULTI RSTARC ARCHIVE/LIB DB1:[150,1]USERLIB/LIB
ASG=TI:5
ASG=TI:6
ASG=TI:3
UNITS=15
ACTFIL=9
TASK=$$$RST
MAXBUF=1024
/
DEL RSTARC.OBJ;*
INS RSTARC
!
!	BUILD ASCARC  -  COMPRESSES ARCHIVE TAPES
!
DEL ASCARC.TSK;*
FOR/LIST ASCARC
LINK/MAP/OPT ASCARC ARCHIVE/LIB DB1:[150,1]USERLIB/LIB
UNITS=8
ACTFIL=8
ASG=TI:6
ASG=LP0:8
MAXBUF=1024
/
DEL ASCARC.OBJ;*
DEL ARCHIVE.OLB;*