1 &version 2
 2 &- ***********************************************************
 3 &- *                                                         *
 4 &- * Copyright, (C) Honeywell Information Systems Inc., 1985 *
 5 &- *                                                         *
 6 &- ***********************************************************
 7 &trace off
 8 &- ec to perform fix_quota_used function over a subtree
 9 &- Greenberg 2/23/77
10 &- 84-02-05 BIM to protect against dir named -upward
11 &- 84-12-14, Loepere, for seg/dir variants
12 &-
13 &set path &r1
14 walk_subtree &(path) "&ec_name [wd] &rf2" -brief -bottom_up -priv -msf
15 &label upward_loop
16 &if &[equal &(path) >] &then &quit
17 &set path &[directory &(path)]
18 &ec_name &(path) &rf2
19 &goto upward_loop