1 /****^  ***********************************************************
 2         *                                                         *
 3         * Copyright, (C) Honeywell Bull Inc., 1987                *
 4         *                                                         *
 5         * Copyright, (C) Honeywell Information Systems Inc., 1982 *
 6         *                                                         *
 7         * Copyright (c) 1972 by Massachusetts Institute of        *
 8         * Technology and Honeywell Information Systems, Inc.      *
 9         *                                                         *
10         *********************************************************** */
11 
12 
13 quota_util$suspend_quota: proc;         /* Set switch for this process' PDS */
14 
15 dcl switch_val fixed bin(17),
16     pdsp ptr,
17     (pds$quota_inhib ext, pdsval based(pdsp)) fixed bin(17);
18 
19           switch_val = 1;               /* Suspend quota checking for this process */
20 
21           go to this_process_common;
22 
23 restore_quota: entry;                   /* clear switch */
24 
25           switch_val = 0;
26 
27 this_process_common:
28           pds$quota_inhib = switch_val;
29 
30           return;
31 
32 /* Following code is commented out, may be completed and de-commented if
33    it is ever desired to suspend the quota for any process other than
34    one which may call hphcs_$(suspend/restore)_quota in its own right.
35 suspend_proc_quota: entry(pid, code);
36 
37 dcl pid fixed bin(35),
38     code fixed bin(17);
39 
40           switch_val = 1;
41           go to find_pdir;
42 
43 restore_proc_quota: entry(pid, code);
44 
45           switch_val = 0;
46 
47 find_pdir:
48           uc = unique_chars(addr(pid) -> bit36b);
49           ...
50 
51           call initiate(pdir, "pds", "", 1, 0, pdsp, code);
52 
53           if pdsp = null
54           then return;
55 
56           pdsp = ptr(pdsp, rel(addr(pds$quota_inhib));
57 
58           code = 0;
59           pdsp -> pdsval = switch_val;
60 
61           call terminate_noname(pdsp, ignore_code);
62 
63    End of commented code */
64 
65 end quota_util$suspend_quota;