
{  PURPOSE:
{    This inline procedure is called from job mode.  It makes a
{    monitor call to the monitor inline which accumulates file space.
{
{  DESIGN:
{    The accumulator specified can be any integer value.
{    This procedure is used for both permanent and temporary file
{    space limits.  It may only be called from ring 3 or below.
{
{    If the system attribute for dynamic file space limits is false,
{    Then this procedure returns with no action.

  PROCEDURE [INLINE] sfp$accumulate_file_space
    (    file_space_limit_kind: sft$file_space_limit_kind;
         accumulator: sft$counter);

?? PUSH (LISTEXT := ON) ??

    VAR
      request_block: sft$rb_stats_facility_requests;

    IF sfv$dynamic_file_space_limits THEN
      request_block.reqcode := syc$rc_stats_facility_request;
      request_block.sub_reqcode := sfc$accumulate_file_space;
      request_block.file_space_limit_kind := file_space_limit_kind;
      request_block.accumulator := accumulator;
      i#call_monitor (#LOC (request_block), #SIZE(request_block));
    IFEND;

  PROCEND sfp$accumulate_file_space;
*copyc i#call_monitor
*copyc sft$counter
*copyc sft$file_space_limit_kind
*copyc sft$rb_stats_facility_requests
*copyc sfv$dynamic_file_space_limits
*copyc syc$monitor_request_codes
?? POP ??
