7 Aug
2006
7 Aug
'06
4:56 p.m.
Adrian Graham wrote:
On 7/8/06 23:11, "Zane H. Healy" <healyzh
at aracnet.com> wrote:
I have the resubmit program seperate from the actual backup.
Only does 3 backups/week, but easy enough to change.
Change the file names/rules as necessary.
Backup command files (FULL.COM, DAILY.COM) should be easy enough to write.
Looks something like this (stripped out a lot of crap & cleaned up):
$ SET VERIFY
$ USER_NAME := "BACKUP"
$ BACKUP := "DUA0:[BACKUP]"
$ !
$ ! Starting time
$ START_TIME := "20:00:00.00"
$ !
$ DAY = F$CVTIME(,,"WEEKDAY")
$ NDAY = F$CVTIME(,,"DAY")
$ TOM = F$CVTIME("TOMORROW","ABSOLUTE",)
$ TDATE = F$EDIT( F$EXTRACT(0,11,TOM), "TRIM")
$ !
$ ! If it's Friday do the Weekend backup
$ !
$ IF (DAY .EQS. "Friday") -
THEN SUBMIT/USER='USER_NAME'/NOPRINT 'BACKUP':FULL.COM
$ !
$ ! It's just a regular weekday backup
$ !
$ IF (DAY .EQS. "Monday") .OR. (DAY .EQS. "Wednesday") -
THEN SUBMIT/USER='USER_NAME'/NOPRINT 'BACKUP':DAILY.COM
$ !
$ ! Resubmit this command file to take care of backup tomorrow
$ !
$
SUBMIT/USER='USER_NAME'/NOPRINT/AFTER="''TDATE':''START_TIME'"
-
'BACKUP':BACKUPTIME.COM
$ SET NOVERIFY
$ EXIT
I'm actually threatening to put a large ~250GB
IDE drive in my XP1000/667,
as a backup device. Shouldn't be to hard to create a batch job that backs
up the drives in the middle of the night and resubmits itself. Though it
has been quite a while since I did any serious DCL scripting. As the system
has a built in UW-SCSI, plus I've added U2W-SCSI, and FW-SCSI-Diff, I have
no desire to try and actually run on IDE!
I'm sure I won't be alone in offering DCL help for backups :o) If your IDE
drive is the same size or bigger than the drive you're backing up and the
IDE drive is initialised and mounted all you need to do is:
$backup/image dkcnn: dqcn:[000000]dkcnn.bck/save
'course, YMMV depending on how you want to do things - IDE drive as a proper
image copy, differential backups etc.