![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to create.q CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 42BSD / ingres / bin|
Return to create.q CVS log | Up to [CSRG BSD Unix] / 42BSD / ingres / bin |
1.1 root 1: create parts (
2: pnum is i2,
3: pname is c20,
4: color is c8,
5: weight is i2,
6: qoh is i2)
7: \p\g
8: copy parts (
9: pnum is i2,
10: pname is c20,
11: color is c8,
12: weight is i2,
13: qoh is i2)
14: from "{pathname}/demo/parts"
15:
16: \p\g
17:
18: range of p is parts
19: create parts1 (
20: pnum is i2,
21: pname is c20,
22: color is c8,
23: weight is i2,
24: qoh is i2)
25: \p\g
26:
27: append to parts1 (p.all) where p.pnum = 1
28: \p\g
29:
30: create parts14 (
31: pnum is i2,
32: pname is c20,
33: color is c8,
34: weight is i2,
35: qoh is i2)
36: \p\g
37:
38: append to parts14 (p.all)
39: \p\g
40:
41: /* 28 tuples */
42:
43: create parts28 (
44: pnum is i2,
45: pname is c20,
46: color is c8,
47: weight is i2,
48: qoh is i2)
49: \p\g
50: append to parts28 (p.all)
51: append to parts28 (p.all)
52: \p\g
53:
54: /* 210 tuples */
55:
56: range of p28 is parts28
57:
58: create parts210 (
59: pnum is i2,
60: pname is c20,
61: color is c8,
62: weight is i2,
63: qoh is i2)
64: \p\g
65:
66: append to parts210 (p.all)
67: append to parts210 (p28.all)
68: append to parts210 (p28.all)
69: append to parts210 (p28.all)
70: \p\g
71: append to parts210 (p28.all)
72: append to parts210 (p28.all)
73: append to parts210 (p28.all)
74: append to parts210 (p28.all)
75: \p\g
76:
77: /* 840 tuples */
78:
79: range of p210 is parts210
80:
81: create parts840 (
82: pnum is i2,
83: pname is c20,
84: color is c8,
85: weight is i2,
86: qoh is i2)
87: \p\g
88:
89: append to parts840 (p210.all)
90: append to parts840 (p210.all)
91: append to parts840 (p210.all)
92: append to parts840 (p210.all)
93: \p\g
94:
95: /* 3360 tuples */
96:
97: range of p840 is parts840
98:
99: create parts3360 (
100: pnum is i2,
101: pname is c20,
102: color is c8,
103: weight is i2,
104: qoh is i2)
105: \p\g
106:
107: append to parts3360 (p840.all)
108: append to parts3360 (p840.all)
109: append to parts3360 (p840.all)
110: append to parts3360 (p840.all)
111: \p\g
112:
113: /* 3360 tuples, ISAM */
114:
115: create i3360 (
116: pnum is i4,
117: pname is c96,
118: color is c96,
119: weight is i2,
120: qoh is i2)
121:
122: \p\g
123:
124: copy i3360 (pnum = c0,
125: pname = c0,
126: color = c0,
127: weight = c0,
128: qoh = c0) from "/a/guest/kalash/=timing/parts3230"
129: \p\g
130:
131: /* 3360 tuples, hashed */
132: create h3360 (
133: pnum is i4,
134: pname is c96,
135: color is c96,
136: weight is i2,
137: qoh is i2)
138:
139: \p\g
140:
141: copy h3360 (pnum = c0,
142: pname = c0,
143: color = c0,
144: weight = c0,
145: qoh = c0) from "/a/guest/kalash/=timing/parts3230"
146: \p\g
147:
148: modify i3360 to isam on pnum\p\g
149: modify h3360 to hash on pnum where fillfactor = 100\p\g
150:
151:
152: create b130 (
153: pnum is i4,
154: pname is c96,
155: color is c96,
156: weight is i2,
157: qoh is i2)
158:
159: \p\g
160: copy b130 (pnum = c0,
161: pname = c0,
162: color = c0,
163: weight = c0,
164: qoh = c0) from "/a/guest/kalash/=timing/parts130"
165: \p\g
166:
167: range of p130 is b130\p\g
168:
169: append to i3360 (p130.all)\p\g
170:
171: range of r is relation
172: retrieve (r.relid, r.reltups)
173: where
174: r.relid = "parts1"
175: or r.relid = "parts14"
176: or r.relid = "parts28"
177: or r.relid = "parts210"
178: or r.relid = "parts840"
179: or r.relid = "parts3360"
180: or r.relid = "h3360"
181: or r.relid = "i3360"
182: \p\g
183: \q
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.