$ ! BAKDSK.COM - Do a BACKUP of all disks on the system (that we know about) $ ! 21-Jul-86 - tmk - Requires RSTS/E V9.2 or newer (BACKUP, ANSI tape fixes) $ on control_c then goto escape $ set nodata $ set noon $ ope/log/rep $BAKDSK.LOG $ write 0 "This procedure will back up all of the disks onto tape." $ write 0 "It is suggested that you do a PURGE before proceeding." $ inquire/exit=byebye isgood "Do you wish to continue? (/N)" $ if f$left(f$edit(isgood,38),1) .eqs. "N" then goto byebye $ write 0 "" $ inquire/exit=byebye nxtdsk "Do you wish to back up DM0:SYSWK2? (/N)" $ if f$left(f$edit(nxtdsk,38),1) .eqs. "N" then goto dm1 $ backup/account_data/buffer_size=max/in_label=SYSWK2/initialize/listfile= - SYSWK2.LST/out_label=SYSWK2/rewind/end=nodismount - DM0:[*,*]*.* MS0:SYSWK2.BCK $ copy SYSWK2.LST MS0: $ delete SYSWK2.LST $ dismount MS0:/unload $ write 0 "Please dismount this volume." $ where="dm1" $ if $severity .ge. 2 then goto isitok $dm1: $ write 0 "" $ inquire/exit=byebye nxtdsk "Do you wish to back up DM1:SYSWK3? (/N)" $ if f$left(f$edit(nxtdsk,38),1) .eqs. "N" then goto du0 $ backup/account_data/buffer_size=max/in_label=SYSWK3/initialize/listfile= - SYSWK3.LST/out_label=SYSWK3/rewind/end=nodismount - DM1:[*,*]*.* MS0:SYSWK3.BCK $ copy SYSWK3.LST MS0: $ delete SYSWK3.LST $ dismount MS0:/unload $ write 0 "Please dismount this volume." $ where="du0" $ if $severity .ge. 2 then goto isitok $du0: $ write 0 "" $ inquire/exit=byebye nxtdsk "Do you wish to back up du0:SYSRES? (/N)" $ if f$left(f$edit(nxtdsk,38),1) .eqs. "N" then goto alldun $ backup/account_data/buffer_size=max/in_label=SYSRES/initialize/listfile= - SYSRES.LST/out_label=SYSRES/rewind/end=nodismount - du0:[*,*]*.* MS0:SYSRES.BCK $ copy SYSRES.LST MS0: $ delete SYSRES.LST $ dismount MS0:/unload $ write 0 "Please dismount this volume." $ where="alldun" $ if $severity .ge. 2 then goto isitok $alldun: $ write 0 "" $ write 0 "The backup procedure is now complete." $byebye: $ close/log $ _print/queue=LP0: $BAKDSK.LOG $ exit $isitok: $ write 0 "Please inspect the console log for fatal errors and" $ write 0 "retry this volume if required." $ goto 'where' $escape: $ set noon $ write 0 "?Aborted by Control-C" $ goto byebye