$! $! P R O C E S S 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 == "PROCESSES" $ TYPE SYS$INPUT #3EZMONITOR  #4EZMONITOR   PROCESSES      1 default 2 TOPCPU 3 TOPBIO 4 TOPDIO 5 TOPFAULTS ^Y stop display, goto main menu M main menu E exit to command level all CPU processes statistically listed top 8 CPU processes in bar graph form top 8 buffered I/O users in bar graph form top 8 direct I/O users in bar graph form top 8 page faulting processes in bar graph form Q qualifiers menu H help PROCESSES $! $ 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. "Q" THEN GOTO ADD_MONITOR_QUALIFIERS $ IF choice .EQS. "H" THEN GOTO HELP $ IF choice .EQS. "M" THEN GOTO MAIN_MENU $ IF choice .EQS. "E" THEN GOTO STOP_ALL_EXIT $ IF choice .EQS. "R" .AND. stackable THEN GOTO EXECUTE $! $ BAD_CHOICE: $ 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 " PROCESSES" "" $ IF choice .EQS. "2" THEN @sys$intezm:PARSECMD.COM " PROCESSES" "/TOPCPU" $ IF choice .EQS. "3" THEN @sys$intezm:PARSECMD.COM " PROCESSES" "/TOPBIU" $ IF choice .EQS. "4" THEN @sys$intezm:PARSECMD.COM " PROCESSES" "/TOPDIU" $ IF choice .EQS. "5" THEN @sys$intezm:PARSECMD.COM " PROCESSES" "/TOPFAULT" $ IF .NOT. $STATUS THEN GOTO STOP_ALL_EXIT $ 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 == "PROCESSES" $ @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. "" THEN GOTO PROMPT $ WRITE SYS$OUTPUT - "''EraseL22'''BOLD'''help_choice'''NO_BOLD' is not a valid choice, try again" $ WAIT 00:00:02 $ GOTO HELP $ HELP_1: $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_NAMES PROCESSES $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_QUALIFIER PROCESSES_DEFAULT $ GOTO START $ HELP_2: $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_NAMES PROCESSES $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_QUALIFIER /TOPCPU $ GOTO START $ HELP_3: $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_NAMES PROCESSES $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_QUALIFIER /TOPBIO $ GOTO START $ HELP_4: $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_NAMES PROCESSES $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_QUALIFIER /TOPDIO $ GOTO START $ HELP_5: $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_NAMES PROCESSES $ CLR $ DEFINE/USER_MODE SYS$INPUT SYS$COMMAND: $ HELP EZMONITOR CLASS_QUALIFIER /TOPFAULT $ GOTO START $! $ MAIN_MENU: $ previous_menu = "PROCESSES" $ EXIT $! $ STOP_ALL_EXIT: $ @sys$intezm:CLEANUP.SYM $ STOP