?? RIGHT := 110 ??
?? NEWTITLE := 'NOS/VE Statistics Facility: Monitor Requests' ??
MODULE sfm$mtr_stats_facility_requests;
?? RIGHT := 110 ??

{ PURPOSE:
{   This module contains the statistics facility monitor request procedures.

?? NEWTITLE := 'Global Declarations Referenced by This Module', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc ost$cpu_state_table
*copyc sft$rb_stats_facility_requests
?? POP ??
*copyc mtp$error_stop
*copyc sfp$mtr_accumulate_file_space
?? OLDTITLE ??
?? NEWTITLE := 'Global Declarations Declared by This Module', EJECT ??

  VAR
    sfv$dynamic_file_space_limits: [XDCL, #GATE] boolean := FALSE;

?? OLDTITLE ??
?? NEWTITLE := '[XDCL] sfp$mtr_stats_facility_requests', EJECT ??
{  PURPOSE:
{    This procedure is used to process a monitor request for
{    accumulation of file space.
{
{  DESIGN:
{    This procedure calls an inline procedure with the information
{    sent on the monitor call.

  PROCEDURE [XDCL] sfp$mtr_stats_facility_requests
    (VAR request_block: sft$rb_stats_facility_requests;
         cst_p: ^ost$cpu_state_table);

    VAR
      maximum_exceeded: boolean;

    IF sfv$dynamic_file_space_limits THEN
      CASE request_block.sub_reqcode OF
      = sfc$accumulate_file_space =
        sfp$mtr_accumulate_file_space (request_block.file_space_limit_kind, request_block.accumulator,
              maximum_exceeded);
      ELSE
        mtp$error_stop ('MTR STATISTICS FACILITY - Unimplemented sub-request code');
      CASEND;
    IFEND;

  PROCEND sfp$mtr_stats_facility_requests;
?? OLDTITLE ??
MODEND sfm$mtr_stats_facility_requests;

