?? NEWTITLE := 'NOSVE Device Management' ??
MODULE dmm$monitor_utilities;
?? RIGHT := 110 ??

?? NEWTITLE := 'Global Declarations Referenced by This Module', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc oss$mainframe_wired
*copyc gfc$constants
*copyc rmc$mass_storage_class
*copyc rmd$volume_declarations
*copyc dmt$active_volume_table
*copyc dmt$debug_actions
*copyc dmt$sc_flaw_command
*copyc gft$system_file_identifier
?? POP ??
?? NEWTITLE := 'Global Declarations Declared by This Module', EJECT ??

  VAR
    dmv$active_volume_table: [XDCL, STATIC, #GATE, oss$mainframe_wired] dmt$active_volume_table := [
{ LOCK    } [0],
{ TABLE_P } NIL];

  VAR
    dmv$debug_options: [XDCL, STATIC, #GATE, oss$mainframe_wired] dmt$debug_actions := [];

  VAR
    dmv$split_allocation_log_delay: [XDCL, STATIC, #GATE,
          oss$mainframe_wired] 0 .. 0ffffffffffff(16) := 0ffffffffffff(16),

    dmv$process_device_log_delay: [XDCL, STATIC, #GATE, oss$mainframe_wired] 0 .. 0ffffffffffff(16) :=
          07530(16),

    dmv$manage_volume_space_delay: [XDCL, STATIC, #GATE, oss$mainframe_wired] 0 .. 0ffffffffffff(16) :=
          0ffffffffffff(16),

    dmv$volume_table_space_delay: [XDCL, STATIC, #GATE, oss$mainframe_wired] 0 .. 0ffffffffffff(16) :=
          0ffffffffffff(16);


  VAR
    dmv$split_allocation_log_count: [XDCL, STATIC, #GATE, oss$mainframe_wired] integer := 0,
    dmv$process_device_log_count: [XDCL, STATIC, #GATE, oss$mainframe_wired] integer := 0,
    dmv$log_entries_max_thresehold: [XDCL, STATIC, #GATE, oss$mainframe_wired] integer := 750,
    dmv$mainframe_recovered: [XDCL, STATIC, #GATE, oss$mainframe_wired] boolean := FALSE,
    dmv$manage_volume_space_count: [XDCL, STATIC, #GATE, oss$mainframe_wired] integer := 0;


  VAR
{ The following 3 constants are used for dump analysis purposes ONLY.
    gfv$fde_control_table_base: [XDCL, STATIC, READ, #GATE,
          oss$mainframe_wired] integer := gfc$fde_control_table_base,
    gfv$fde_table_base: [XDCL, STATIC, READ, #GATE, oss$mainframe_wired] integer := gfc$fde_table_base,
    gfv$fde_size: [XDCL, STATIC, READ, #GATE, oss$mainframe_wired] integer := gfc$fde_size,

    gfv$null_sfid: [XDCL, STATIC, READ, #GATE, oss$mainframe_wired] gft$system_file_identifier :=
          [0, gfc$tr_null_residence, gfc$null_file_hash];

  VAR
    dmv$recycle_device_log: [STATIC, XDCL, #GATE, oss$mainframe_wired] boolean := TRUE,
    dmv$recycled_log: [STATIC, XDCL, #GATE, oss$mainframe_wired] integer := 0,
    dmv$skipped_recycle_of_log: [STATIC, XDCL, #GATE, oss$mainframe_wired] integer := 0;

  VAR
    dmv$external_interrupt_selector: [XDCL, #GATE] 0 .. 0ff(16) := 1,

    dmv$system_class: [XDCL, #GATE] dmt$class := $dmt$class
          [rmc$msc_system_swap_files, rmc$msc_user_temporary_files, rmc$msc_system_critical_files],

    dmv$system_class_conversion: [XDCL, #GATE] array [dmt$class_member] of dmt$system_class :=
          [ * , * , dmc$swap_files, REP 10 of * , dmc$temporary_files, * , * , dmc$critical_files,
          REP 9 of * ];

  VAR
    dmv$p_sc_flaw_commands: [XDCL, STATIC, #GATE, oss$mainframe_wired] ^array [1 .. * ] of
          dmt$sc_flaw_command := NIL;

MODEND dmm$monitor_utilities;
