diff -r perm/scope_test_01.lst tt/scope_test_01.lst
1c1
< ./scope_test_01.p                     09/02/2009 08:26:04   PROGRESS(R) Page 1   
---
> ./scope_test_01.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
9,10c9,10
<       4     find first customer.
< ./scope_test_01.p                     09/02/2009 08:26:04   PROGRESS(R) Page 2   
---
>       4     find first tt1.
> ./scope_test_01.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
15c15
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_02.lst tt/scope_test_02.lst
1c1
< ./scope_test_02.p                     09/02/2009 08:26:04   PROGRESS(R) Page 1   
---
> ./scope_test_02.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
10c10
<       6   1    find first customer.
---
>       6   1    find first tt1.
13c13
< ./scope_test_02.p                     09/02/2009 08:26:04   PROGRESS(R) Page 2   
---
> ./scope_test_02.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
19c19
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_03.lst tt/scope_test_03.lst
1c1
< ./scope_test_03.p                     09/02/2009 08:26:04   PROGRESS(R) Page 1   
---
> ./scope_test_03.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
13c13
<       9   5                find first customer.
---
>       9   5                find first tt1.
18c18
<      14   6                   find first customer.
---
>      14   6                   find first tt1.
26c26
< ./scope_test_03.p                     09/02/2009 08:26:04   PROGRESS(R) Page 2   
---
> ./scope_test_03.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
35c35
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_04.lst tt/scope_test_04.lst
1c1
< ./scope_test_04.p                     09/02/2009 08:26:04   PROGRESS(R) Page 1   
---
> ./scope_test_04.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
7,8c7,8
<       3   1 do for customer:
<       4   2    for each customer:
---
>       3   1 do for tt1:
>       4   2    for each tt1:
10c10
<       6   1    find first customer.
---
>       6   1    find first tt1.
13c13
<       9   1 for each customer:
---
>       9   1 for each tt1:
15c15
< ./scope_test_04.p                     09/02/2009 08:26:04   PROGRESS(R) Page 2   
---
> ./scope_test_04.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
21c21
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
25c25
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_05.lst tt/scope_test_05.lst
1c1
< ./scope_test_05.p                     09/02/2009 08:26:04   PROGRESS(R) Page 1   
---
> ./scope_test_05.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
9c9
<       5   1 for each customer:
---
>       5   1 for each tt1:
11c11
< ./scope_test_05.p                     09/02/2009 08:26:04   PROGRESS(R) Page 2   
---
> ./scope_test_05.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
17c17
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_06.lst tt/scope_test_06.lst
1c1
< ./scope_test_06.p                     09/02/2009 08:26:04   PROGRESS(R) Page 1   
---
> ./scope_test_06.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
9c9
<       5   1 for each customer:
---
>       5   1 for each tt1:
12c12
<       8   1 for each customer:
---
>       8   1 for each tt1:
14c14
< ./scope_test_06.p                     09/02/2009 08:26:04   PROGRESS(R) Page 2   
---
> ./scope_test_06.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
20c20
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
23c23
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_07.lst tt/scope_test_07.lst
1c1
< ./scope_test_07.p                     09/02/2009 08:26:04   PROGRESS(R) Page 1   
---
> ./scope_test_07.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
9,11c9,11
<       5   1 do preselect each customer:
<       6   1    find first customer.
<       7   1    find next customer.
---
>       5   1 do preselect each tt1:
>       6   1    find first tt1.
>       7   1    find next tt1.
14c14
<      10   1 for each customer:
---
>      10   1 for each tt1:
16c16
< ./scope_test_07.p                     09/02/2009 08:26:04   PROGRESS(R) Page 2   
---
> ./scope_test_07.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
22c22
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
25c25
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_08.lst tt/scope_test_08.lst
1c1
< ./scope_test_08.p                     09/02/2009 08:26:04   PROGRESS(R) Page 1   
---
> ./scope_test_08.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
10c10
<       6   2    for each customer:
---
>       6   2    for each tt1:
12c12
<       8   1    find first customer.
---
>       8   1    find first tt1.
14c14
< ./scope_test_08.p                     09/02/2009 08:26:04   PROGRESS(R) Page 2   
---
> ./scope_test_08.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
20c20
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_09.lst tt/scope_test_09.lst
1c1
< ./scope_test_09.p                     09/02/2009 08:26:04   PROGRESS(R) Page 1   
---
> ./scope_test_09.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
12c12
<       8   3       for each customer:
---
>       8   3       for each tt1:
18,19c18,19
<      14     find first customer.
< ./scope_test_09.p                     09/02/2009 08:26:04   PROGRESS(R) Page 2   
---
>      14     find first tt1.
> ./scope_test_09.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
24c24
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_10.lst tt/scope_test_10.lst
1c1
< ./scope_test_10.p                     09/02/2009 08:26:04   PROGRESS(R) Page 1   
---
> ./scope_test_10.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
11c11
<       7   1    find first customer.
---
>       7   1    find first tt1.
14c14
<      10   4          for each customer:
---
>      10   4          for each tt1:
20c20
< ./scope_test_10.p                     09/02/2009 08:26:04   PROGRESS(R) Page 2   
---
> ./scope_test_10.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
26c26
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_11.lst tt/scope_test_11.lst
1c1
< ./scope_test_11.p                     09/02/2009 08:26:04   PROGRESS(R) Page 1   
---
> ./scope_test_11.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
10c10
<       6   4          for each customer.
---
>       6   4          for each tt1.
14c14
<      10   5                find first customer.
---
>      10   5                find first tt1.
19c19
<      15   6                   find first customer.
---
>      15   6                   find first tt1.
27c27
< ./scope_test_11.p                     09/02/2009 08:26:04   PROGRESS(R) Page 2   
---
> ./scope_test_11.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
35c35
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_12.lst tt/scope_test_12.lst
1c1
< ./scope_test_12.p                     09/02/2009 08:26:04   PROGRESS(R) Page 1   
---
> ./scope_test_12.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
12c12
<       8   5                find first customer.
---
>       8   5                find first tt1.
17c17
<      13   6                   find first customer.
---
>      13   6                   find first tt1.
26c26
<      22   3       for each customer.
---
>      22   3       for each tt1.
31c31
< ./scope_test_12.p                     09/02/2009 08:26:04   PROGRESS(R) Page 2   
---
> ./scope_test_12.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
38c38
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_13.lst tt/scope_test_13.lst
1c1
< ./scope_test_13.p                     09/02/2009 08:26:04   PROGRESS(R) Page 1   
---
> ./scope_test_13.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
10c10
<       6   3       for each customer:
---
>       6   3       for each tt1:
12c12
<       8   2       find first customer.
---
>       8   2       find first tt1.
17c17
<      13   3       for each customer:
---
>      13   3       for each tt1:
19c19
<      15   2       find first customer.
---
>      15   2       find first tt1.
26c26
< ./scope_test_13.p                     09/02/2009 08:26:04   PROGRESS(R) Page 2   
---
> ./scope_test_13.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
33c33
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
37c37
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_14.lst tt/scope_test_14.lst
1c1
< ./scope_test_14.p                     09/02/2009 08:26:05   PROGRESS(R) Page 1   
---
> ./scope_test_14.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
10c10
<       6   3       for each customer:
---
>       6   3       for each tt1:
12c12
<       8   2       find first customer.
---
>       8   2       find first tt1.
17c17
<      13   3       for each customer:
---
>      13   3       for each tt1:
19c19
<      15   3       for each customer:
---
>      15   3       for each tt1:
23c23
<      19   5             for each customer:
---
>      19   5             for each tt1:
31c31
<      27   4             find first customer.
---
>      27   4             find first tt1.
34c34
<      30   3          find first customer.
---
>      30   3          find first tt1.
43c43
< ./scope_test_14.p                     09/02/2009 08:26:05   PROGRESS(R) Page 2   
---
> ./scope_test_14.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
50c50
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
54c54
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_15.lst tt/scope_test_15.lst
1c1
< ./scope_test_15.p                     09/02/2009 08:26:05   PROGRESS(R) Page 1   
---
> ./scope_test_15.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
10c10
<       6   3       for each customer:
---
>       6   3       for each tt1:
12c12
<       8   2       find first customer.
---
>       8   2       find first tt1.
17c17
<      13   3       for each customer:
---
>      13   3       for each tt1:
19c19
<      15   3       for each customer:
---
>      15   3       for each tt1:
23c23
<      19   5             for each customer:
---
>      19   5             for each tt1:
31c31
<      27   4             find first customer.
---
>      27   4             find first tt1.
34c34
<      30   3          find first customer.
---
>      30   3          find first tt1.
44,45c44,45
<      40     find first customer.
< ./scope_test_15.p                     09/02/2009 08:26:05   PROGRESS(R) Page 2   
---
>      40     find first tt1.
> ./scope_test_15.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
50c50
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
54c54
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_16.lst tt/scope_test_16.lst
1c1
< ./scope_test_16.p                     09/02/2009 08:26:05   PROGRESS(R) Page 1   
---
> ./scope_test_16.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
10c10
<       6   3       for each customer:
---
>       6   3       for each tt1:
12c12
<       8   2       find first customer.
---
>       8   2       find first tt1.
17c17
<      13   2       find first customer.
---
>      13   2       find first tt1.
22c22
<      18   3       for each customer:
---
>      18   3       for each tt1:
24c24
<      20   3       for each customer:
---
>      20   3       for each tt1:
28c28
<      24   5             for each customer:
---
>      24   5             for each tt1:
36c36
<      32   4             find first customer.
---
>      32   4             find first tt1.
39c39
<      35   3          find first customer.
---
>      35   3          find first tt1.
48c48
< ./scope_test_16.p                     09/02/2009 08:26:05   PROGRESS(R) Page 2   
---
> ./scope_test_16.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
54c54
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_17.lst tt/scope_test_17.lst
1c1
< ./scope_test_17.p                     09/02/2009 08:26:05   PROGRESS(R) Page 1   
---
> ./scope_test_17.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
12c12
<       8   5                find first customer.
---
>       8   5                find first tt1.
17c17
<      13   6                   find first customer.
---
>      13   6                   find first tt1.
26c26
<      22   3       for each customer.
---
>      22   3       for each tt1.
28c28
<      24   3       for each customer.
---
>      24   3       for each tt1.
30c30
<      26   3       for each customer.
---
>      26   3       for each tt1.
35c35
< ./scope_test_17.p                     09/02/2009 08:26:05   PROGRESS(R) Page 2   
---
> ./scope_test_17.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
42c42
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_18.lst tt/scope_test_18.lst
1c1
< ./scope_test_18.p                     09/02/2009 08:26:05   PROGRESS(R) Page 1   
---
> ./scope_test_18.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
11c11
<       7   2    for each customer:
---
>       7   2    for each tt1:
14c14
<      10   2    for each customer:
---
>      10   2    for each tt1:
17c17
<      13   2    for each customer:
---
>      13   2    for each tt1:
22c22
<      18   4          for each customer:
---
>      18   4          for each tt1:
28c28
<      24   4             find first customer.
---
>      24   4             find first tt1.
36c36
<      32   2    for each customer:
---
>      32   2    for each tt1:
41c41
< ./scope_test_18.p                     09/02/2009 08:26:05   PROGRESS(R) Page 2   
---
> ./scope_test_18.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
48c48
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
51c51
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
54c54
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
57c57
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
64c64
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_19.lst tt/scope_test_19.lst
1c1
< ./scope_test_19.p                     09/02/2009 08:26:05   PROGRESS(R) Page 1   
---
> ./scope_test_19.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
11c11
<       7   2    for each customer:
---
>       7   2    for each tt1:
14c14
<      10   2    for each customer:
---
>      10   2    for each tt1:
17c17
<      13   2    for each customer:
---
>      13   2    for each tt1:
22c22
<      18   4          for each customer:
---
>      18   4          for each tt1:
28c28
<      24   4             find first customer.
---
>      24   4             find first tt1.
35c35
<      31   2    for each customer:
---
>      31   2    for each tt1:
40c40
< ./scope_test_19.p                     09/02/2009 08:26:05   PROGRESS(R) Page 2   
---
> ./scope_test_19.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
46c46
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_20.lst tt/scope_test_20.lst
1c1
< ./scope_test_20.p                     09/02/2009 08:26:05   PROGRESS(R) Page 1   
---
> ./scope_test_20.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
11c11
<       7   2    for each customer:
---
>       7   2    for each tt1:
14c14
<      10   2    for each customer:
---
>      10   2    for each tt1:
17c17
<      13   2    for each customer:
---
>      13   2    for each tt1:
22c22
<      18   4          for each customer:
---
>      18   4          for each tt1:
28c28
<      24   4             find first customer.
---
>      24   4             find first tt1.
36c36
<      32   2    for each customer:
---
>      32   2    for each tt1:
39c39
<      35   1    find first customer.
---
>      35   1    find first tt1.
43c43
< ./scope_test_20.p                     09/02/2009 08:26:05   PROGRESS(R) Page 2   
---
> ./scope_test_20.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
49c49
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
52c52
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
55c55
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
58c58
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_21.lst tt/scope_test_21.lst
1c1
< ./scope_test_21.p                     09/02/2009 08:26:05   PROGRESS(R) Page 1   
---
> ./scope_test_21.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
11c11
<       7   2    for each customer:
---
>       7   2    for each tt1:
15c15
<      11   3       for each customer:
---
>      11   3       for each tt1:
17c17
<      13   2       find first customer.
---
>      13   2       find first tt1.
21c21
<      17   2    for each customer:
---
>      17   2    for each tt1:
24c24
<      20   2    for each customer:
---
>      20   2    for each tt1:
29c29
<      25   4          for each customer:
---
>      25   4          for each tt1:
35c35
<      31   4             find first customer.
---
>      31   4             find first tt1.
43c43
<      39   1    find first customer.
---
>      39   1    find first tt1.
47c47
< ./scope_test_21.p                     09/02/2009 08:26:05   PROGRESS(R) Page 2   
---
> ./scope_test_21.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
53c53
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
56c56
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
59c59
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
63c63
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
66c66
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_22.lst tt/scope_test_22.lst
1c1
< ./scope_test_22.p                     09/02/2009 08:26:05   PROGRESS(R) Page 1   
---
> ./scope_test_22.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
11c11
<       7   2    for each customer:
---
>       7   2    for each tt1:
15c15
<      11   3       for each customer:
---
>      11   3       for each tt1:
17c17
<      13   2       find first customer.
---
>      13   2       find first tt1.
24c24
<      20   3       for each customer:
---
>      20   3       for each tt1:
27c27
<      23   3       for each customer:
---
>      23   3       for each tt1:
32c32
<      28   5             for each customer:
---
>      28   5             for each tt1:
38c38
<      34   5                find first customer.
---
>      34   5                find first tt1.
49c49
<      45   1    find first customer.
---
>      45   1    find first tt1.
53c53
< ./scope_test_22.p                     09/02/2009 08:26:05   PROGRESS(R) Page 2   
---
> ./scope_test_22.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
59c59
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
62c62
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
65c65
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
70c70
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
73c73
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_23.lst tt/scope_test_23.lst
1c1
< ./scope_test_23.p                     09/02/2009 08:26:05   PROGRESS(R) Page 1   
---
> ./scope_test_23.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
11c11
<       7   2    for each customer:
---
>       7   2    for each tt1:
15c15
<      11   3       for each customer:
---
>      11   3       for each tt1:
17c17
<      13   2       find first customer.
---
>      13   2       find first tt1.
24c24
<      20   3       for each customer:
---
>      20   3       for each tt1:
27c27
<      23   3       for each customer:
---
>      23   3       for each tt1:
32c32
<      28   5             for each customer:
---
>      28   5             for each tt1:
38c38
<      34   5                find first customer.
---
>      34   5                find first tt1.
46c46
<      42   3       for each customer:
---
>      42   3       for each tt1:
52c52
<      48   1    find first customer.
---
>      48   1    find first tt1.
56c56
< ./scope_test_23.p                     09/02/2009 08:26:05   PROGRESS(R) Page 2   
---
> ./scope_test_23.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
60c60
< ./scope_test_23.p                     09/02/2009 08:26:05   PROGRESS(R) Page 3   
---
> ./scope_test_23.p                     09/02/2009 08:26:21   PROGRESS(R) Page 3   
66c66
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
69c69
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
72c72
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
77c77
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
80c80
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
88c88
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_24.lst tt/scope_test_24.lst
1c1
< ./scope_test_24.p                     09/02/2009 08:26:05   PROGRESS(R) Page 1   
---
> ./scope_test_24.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
9c9
<       5   2    for each customer:
---
>       5   2    for each tt1:
13c13
<       9   3       for each customer:
---
>       9   3       for each tt1:
15c15
<      11   2       find first customer.
---
>      11   2       find first tt1.
19c19
<      15   2    for each customer:
---
>      15   2    for each tt1:
22c22
<      18   2    for each customer:
---
>      18   2    for each tt1:
27c27
<      23   3       for each customer:
---
>      23   3       for each tt1:
30c30
<      26   3       for each customer:
---
>      26   3       for each tt1:
33c33
<      29   3       for each customer:
---
>      29   3       for each tt1:
38c38
<      34   5             for each customer:
---
>      34   5             for each tt1:
48c48
<      44   1    find first customer.
---
>      44   1    find first tt1.
52c52
< ./scope_test_24.p                     09/02/2009 08:26:05   PROGRESS(R) Page 2   
---
> ./scope_test_24.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
58c58
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
61c61
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
70c70
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
73c73
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
78c78
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_25.lst tt/scope_test_25.lst
1c1
< ./scope_test_25.p                     09/02/2009 08:26:05   PROGRESS(R) Page 1   
---
> ./scope_test_25.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
8c8
<       4   2    for each customer.
---
>       4   2    for each tt1.
10c10
<       6   2    for each customer.
---
>       6   2    for each tt1.
14c14
<      10   4          for each customer.
---
>      10   4          for each tt1.
17c17
<      13   5             for each customer.
---
>      13   5             for each tt1.
19c19
<      15   4             find first customer.
---
>      15   4             find first tt1.
23c23
<      19   5             for each customer.
---
>      19   5             for each tt1.
25c25
<      21   4             find first customer.
---
>      21   4             find first tt1.
29c29
<      25   5             for each customer.
---
>      25   5             for each tt1.
31c31
<      27   4             find first customer.
---
>      27   4             find first tt1.
34c34
<      30   4          for each customer.
---
>      30   4          for each tt1.
38c38
<      34   3       for each customer.
---
>      34   3       for each tt1.
42c42
<      38   2    for each customer.
---
>      38   2    for each tt1.
44c44
<      40   1    find first customer.
---
>      40   1    find first tt1.
47c47
< ./scope_test_25.p                     09/02/2009 08:26:05   PROGRESS(R) Page 2   
---
> ./scope_test_25.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
53c53
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
56c56
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
59c59
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
64c64
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
67c67
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
71c71
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
77c77
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
80c80
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_26.lst tt/scope_test_26.lst
1c1
< ./scope_test_26.p                     09/02/2009 08:26:05   PROGRESS(R) Page 1   
---
> ./scope_test_26.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
11c11
<       7   2    for each customer:
---
>       7   2    for each tt1:
14c14
<      10   1    find first customer.
---
>      10   1    find first tt1.
17c17
<      13   3       for each customer:
---
>      13   3       for each tt1:
19c19
<      15   2       find first customer.
---
>      15   2       find first tt1.
23c23
<      19   2    for each customer:
---
>      19   2    for each tt1:
26c26
<      22   2    for each customer:
---
>      22   2    for each tt1:
31c31
<      27   4          for each customer:
---
>      27   4          for each tt1:
37c37
<      33   4             find first customer.
---
>      33   4             find first tt1.
45c45
<      41   1    find first customer.
---
>      41   1    find first tt1.
49c49
< ./scope_test_26.p                     09/02/2009 08:26:05   PROGRESS(R) Page 2   
---
> ./scope_test_26.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
55c55
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_27.lst tt/scope_test_27.lst
1c1
< ./scope_test_27.p                     09/02/2009 08:26:05   PROGRESS(R) Page 1   
---
> ./scope_test_27.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
11c11
<       7   2    for each customer:
---
>       7   2    for each tt1:
14c14
<      10   1    find first customer.
---
>      10   1    find first tt1.
17c17
<      13   3       for each customer:
---
>      13   3       for each tt1:
22c22
<      18   2    for each customer:
---
>      18   2    for each tt1:
25c25
<      21   2    for each customer:
---
>      21   2    for each tt1:
30c30
<      26   4          for each customer:
---
>      26   4          for each tt1:
34c34
<      30   3       for each customer:
---
>      30   3       for each tt1:
39c39
<      35   2    for each customer:
---
>      35   2    for each tt1:
42c42
<      38   2    for each customer:
---
>      38   2    for each tt1:
48c48
< ./scope_test_27.p                     09/02/2009 08:26:05   PROGRESS(R) Page 2   
---
> ./scope_test_27.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
54c54
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_28.lst tt/scope_test_28.lst
1c1
< ./scope_test_28.p                     09/02/2009 08:26:05   PROGRESS(R) Page 1   
---
> ./scope_test_28.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
8c8
<       4   2    for each customer.
---
>       4   2    for each tt1.
10c10
<       6   2    for each customer.
---
>       6   2    for each tt1.
15c15
<      11   5             for each customer.
---
>      11   5             for each tt1.
19c19
<      15   4          for each customer.
---
>      15   4          for each tt1.
22c22
<      18   5             for each customer.
---
>      18   5             for each tt1.
27c27
<      23   5             for each customer.
---
>      23   5             for each tt1.
31c31
<      27   4          for each customer.
---
>      27   4          for each tt1.
35c35
<      31   3       for each customer.
---
>      31   3       for each tt1.
39c39
<      35   2    for each customer.
---
>      35   2    for each tt1.
42c42
<      38   3       for each customer.
---
>      38   3       for each tt1.
44c44
<      40   3       for each customer.
---
>      40   3       for each tt1.
48c48
<      44   2    for each customer.
---
>      44   2    for each tt1.
50c50
<      46   1    find first customer.
---
>      46   1    find first tt1.
53c53
< ./scope_test_28.p                     09/02/2009 08:26:05   PROGRESS(R) Page 2   
---
> ./scope_test_28.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
59c59
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
68c68
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
72c72
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
76c76
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
79c79
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
82c82
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
88c88
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_29.lst tt/scope_test_29.lst
1c1
< ./scope_test_29.p                     09/02/2009 08:26:05   PROGRESS(R) Page 1   
---
> ./scope_test_29.p                     09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
9c9
<       5   2    for each customer:
---
>       5   2    for each tt1:
12c12
<       8   2    for each customer:
---
>       8   2    for each tt1:
18c18
<      14   4             find first customer.
---
>      14   4             find first tt1.
24c24
<      20   4          for each customer:
---
>      20   4          for each tt1:
31c31
<      27   2    for each customer:
---
>      27   2    for each tt1:
36c36
< ./scope_test_29.p                     09/02/2009 08:26:05   PROGRESS(R) Page 2   
---
> ./scope_test_29.p                     09/02/2009 08:26:21   PROGRESS(R) Page 2   
42c42
<     Buffers: p2j_test.customer
---
>     Buffers: tt1
diff -r perm/scope_test_internal_proc_function.lst tt/scope_test_internal_proc_function.lst
1c1
< ...l_proc_function.p                  09/02/2009 08:26:05   PROGRESS(R) Page 1   
---
> ...l_proc_function.p                  09/02/2009 08:26:21   PROGRESS(R) Page 1   
5c5
<       1     
---
>       1     def temp-table tt1 field uniqu as int index idx is unique uniqu.
7,8c7,8
<       3     define buffer b for customer.
<       4     define buffer b2 for customer.
---
>       3     define buffer b for tt1.
>       4     define buffer b2 for tt1.
18c18
<      14   2          define buffer b for customer.
---
>      14   2          define buffer b for tt1.
27c27
<      23     function fun3 returns int (buffer b for customer):
---
>      23     function fun3 returns int (buffer b for tt1):
33c33
<      29     find first customer.
---
>      29     find first tt1.
42c42
<      38     fun3(buffer customer).
---
>      38     fun3(buffer tt1).
56c56
< ...l_proc_function.p                  09/02/2009 08:26:05   PROGRESS(R) Page 2   
---
> ...l_proc_function.p                  09/02/2009 08:26:21   PROGRESS(R) Page 2   
67c67
< ...l_proc_function.p                  09/02/2009 08:26:05   PROGRESS(R) Page 3   
---
> ...l_proc_function.p                  09/02/2009 08:26:21   PROGRESS(R) Page 3   
72,73c72,73
< ...l_proc_function.p   11 Function  Yes  Function fun2                    
<     Buffers: p2j_test.b
---
> ...l_proc_function.p   11 Function  No   Function fun2                    
>     Buffers: b
78c78
<     Buffers: p2j_test.b
---
>     Buffers: b
90,92c90,92
<              p2j_test.customer
<              p2j_test.b2
<              p2j_test.b
---
>              tt1
>              b2
>              b
