样本截取问题

各位达人：大家好，我想请教一个问题：如何在stata中选取样本。
比如，将一个变量数值按大小排序后，再将前10%和后10%数据删除，计算剩下变量数据对应的平均值，谢谢。
比如，这里家庭消费数据有18个，怎么操作？
     | consum |
  7. |  12000 |
16. |  18000 |
40. |   4560 |
45. |   9600 |
110. |   7200 |
135. |   2400 |
157. |   8400 |
159. |  16800 |
182. |   4800 |
198. |   4200 |
220. | 108000 |
243. |   9600 |
304. |    720 |
309. |   3600 |
313. |   3600 |
328. |   8400 |
361. |  24000 |
419. |   7200

. sort consum

. egen p10=pctile(consum),p(10)

. egen p90=pctile(consum),p(90)

. keep if consum>p10 & consum<p90
(4 observations deleted)

. qui summ consum

. gen total=r(sum)

我肯定是复制到excel里面，然后弄一下……  土办法