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