$! BCK_MENU.COM $! 16-Aug-91 L Baldwin $! 24-Apr-93 V1.0.1 $! Menu for unscheduled backups and restores $ @TASM$COM:TASM_MENUSYM $ GOTO SKIP_CNTRLY $!---------------------------------------------------------------- $! $! Control Y was press if we got to this routine. $! Put this here so there is FAST response to ^Y $! $!---------------------------------------------------------------- $CNTRLY: $ TYPE TASM$COM:TASM_MENU_ABORT.MSG $ EXIT $! $SKIP_CNTRLY: $! $! This is the new MENU command file which will allow the system $! manager to do things even if he has never read the manual. $! $ ON CONTROL_Y THEN GOTO CNTRLY $ IF .NOT.F$GETDVI("SYS$OUTPUT","TT_ANSICRT") THEN CLS = CRLF+DASHES+CRLF $ GOTO MENU_NOWAIT $! $! Enter here, if you do not want the text on the screen to disappear $! $ MAIN_MENU: $ SAY "" $ INQUIRE/NOPUNCT DUMMY " Press [return] for main menu" $! $! Screen gets cleared, and menu is displayed below. $! $MENU_NOWAIT: $ MENU_ENTRIES = 4 $ SAY CLS $ TYPE SYS$INPUT B A C K U P / R E S T O R E M E N U 1 - RETURN - Return to previous menu 2 - RESUBMIT - Resubmit NIGHTLY_BACKUP 3 - RESTORE - Restore a file from Backups 4 - SCHED - Print a backup schedule $! $ INQUIRE/NOPUNCT NUMBER "Enter a number: " $ IF NUMBER .EQS. "" THEN EXIT $ N = F$INTEGER(NUMBER) $ IF ((N.LT.1).OR.(N.GT.MENU_ENTRIES)) THEN GOTO MM_ERROR $ SAY CLS $ GOTO DO_'F$STRING(N)' $! $! An incorrect answer has been entered if here. $! $ MM_ERROR: $ TYPE TASM$COM:TASM_MENU_INPERR.MSG $ GOTO MAIN_MENU $!-------------------------------------------------------------------- $! $! We have received a valid entry $! $!-------------------------------------------------------------------- $! $! $DO_1: $ EXIT $! $DO_2: $ @TASM$COM:BCK_NIGHTLY_SUB $ GOTO MAIN_MENU $! $DO_3: $! $ @TASM$COM:BCK_SELECT_FILE $ GOTO MAIN_MENU $! $! $DO_4: $ SAY "Enter a date (DD-MM-YYYY) which is in the month that you want" $ inquire date "a backup schedule for [CURRENT MONTH]" $ if date .eqs. "" then date = "CURRENT" $ inquire bckset "Enter Backup Set [S01]" $ bckset = f$edit(bckset,"UPCASE") $ if bckset .eqs. "" then bckset = "S01" $ inquire prt "Print it (Y/N)? [N]" $ prt = f$edit(prt,"UPCASE") $ if prt .eqs. "" then prt = "N" $ @TASM$COM:BCK_CALC_LABEL 'bckset' 'date' 'prt' $ GOTO MENU_NOWAIT