$! $! S T A T E S $! $ START: $ ON WARNING THEN GOTO_STOP_ALL_EXIT $ ON ERROR THEN GOTO_STOP_ALL_EXIT $ ON SEVERE_ERROR THEN GOTO_STOP_ALL_EXIT $! $ CLR $ qual_menu_choice == "" $ menu == "STATES" $ TYPE SYS$INPUT #3EZMONITOR  #4EZMONITOR   STATES      1 /ALL 2 /AVERAGE 3 /CURRENT 4 /MAXIMUM 5 /MINIMUM 6 /PERCENT ^Y stop display, goto main menu M main menu E exit to command level specify which statistics appear in DISPLAY and SUMMARY specify a bar graph for DISPLAY and SUMMARY outputs specify a bar graph for DISPLAY and SUMMARY outputs specify a bar graph for DISPLAY and SUMMARY outputs specify a bar graph for DISPLAY and SUMMARY outputs * statistics appear as percent values in DISPLAY and SUMMARY * this may be added prior to execution Q qualifiers menu H help STATES $! $ PROMPT: $ choice == "" $ IF stackable THEN - WRITE SYS$OUTPUT "R run" $ IF stackable .OR. display THEN - @sys$intezm:DISPLAY.COM $ INQUIRE choice "Choice" $ IF choice .EQS. "1" THEN GOTO CHOICES $ IF choice .EQS. "2" THEN GOTO CHOICES $ IF choice .EQS. "3" THEN GOTO CHOICES $ IF choice .EQS. "4" THEN GOTO CHOICES $ IF choice .EQS. "5" THEN GOTO CHOICES $ IF choice .EQS. "6" THEN GOTO CHOICES $ IF choice .EQS. "Q" THEN GOTO ADD_MONITOR_QUALIFIERS $ IF choice .EQS. "H" THEN GOTO HELP $ IF choice .EQS. "R" THEN GOTO EXECUTE $ IF choice .EQS. "M" THEN GOTO MAIN_MENU $ IF choice .EQS. "E" THEN GOTO STOP_ALL_EXIT $ WRITE SYS$OUTPUT - "''EraseL22'''BOLD'''choice'''NO_BOLD' is not a valid choice, try again" $ WAIT 00:00:02 $ GOTO PROMPT $! $ CHOICES: $ IF choice .EQS. "1" THEN @sys$intezm:PARSECMD.COM " STATES" "/ALL" $ IF choice .EQS. "2" THEN @sys$intezm:PARSECMD.COM " STATES" "/AVERAGE" $ IF choice .EQS. "3" THEN @sys$intezm:PARSECMD.COM " STATES" "/CURRENT" $ IF choice .EQS. "4" THEN @sys$intezm:PARSECMD.COM " STATES" "/MAXIMUM" $ IF choice .EQS. "5" THEN @sys$intezm:PARSECMD.COM " STATES" "/MINIMUM" $ IF choice .EQS. "6" THEN @sys$intezm:PARSECMD.COM " STATES" "/PERCENT" $ IF .NOT. $STATUS THEN GOTO STOP_ALL_EXIT $ IF choice .EQS. "6" THEN GOTO PROMPT $ IF stackable THEN GOTO PROMPT $! $ EXECUTE: $ CLR $ TYPE SYS$INPUT loading monitor ...Please wait #3CONTROL_Y TO STOP #4CONTROL_Y TO STOP $ WAIT 00:00:02 $ 'full_cmd' $ EXIT $! $ ADD_MONITOR_QUALIFIERS: $ previous_menu == "STATES" $ @sys$intezm:QUALIFIER.MNU $ IF .NOT. $STATUS THEN GOTO STOP_ALL_EXIT $ IF qual_menu_choice .EQS. "M" THEN GOTO MAIN_MENU $ GOTO START $! $ HELP: $ INQUIRE help_choice - "Help choice #" $ IF help_choice .EQS. "1" THEN GOTO HELP_1 $ IF help_choice .EQS. "2" THEN GOTO HELP_2 $ IF help_choice .EQS. "3" THEN GOTO HELP_3 $ IF help_choice .EQS. "4" THEN GOTO HELP_4 $ IF help_choice .EQS. "5" THEN GOTO HELP_5 $ IF help_choice .EQS. "6" THEN GOTO HELP_6 $ IF help_choice .EQS. "" THEN GOTO PROMPT $ WRITE SYS$OUTPUT - "''EraseL22'''BOLD'''help_choice'''NO_BOLD' is not a valid help choice, try again" $ WAIT 00:00:02 $ GOTO HELP $ HELP_1: $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_NAMES STATES $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_QUALIFIER /ALL $ GOTO START $ HELP_2: $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_NAMES STATES $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_QUALIFIER /AVERAGE $ GOTO START $ HELP_3: $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_NAMES STATES $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_QUALIFIER /CURRENT $ GOTO START $ HELP_4: $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_NAMES STATES $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_QUALIFIER /MAXIMUM $ GOTO START $ HELP_5: $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_NAMES STATES $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_QUALIFIER /MINIMUM $ GOTO START $ HELP_6: $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_NAMES STATES $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_QUALIFIER /PERCENT $ GOTO START $! $ MAIN_MENU: $ previous_menu = "STATES" $ EXIT $! $ STOP_ALL_EXIT: $ @sys$intezm:CLEANUP.SYM $ STOP