帮我看一看这个4gl 程序错在哪了?谢谢

一个人

database picc2
define  a integer
define op_date date
define i_info_date date
main
if op_date>;i_info_date then
let a=0
let a=year(op_date)-year(i_info_date)
if a=1 then
     select pol_code,sum(prem) from day_sta_data
     where pay_itrvl1="Y"  and i_info_appl_branch="450021"
  end if
end if
end main

zxhzhong

是查询语句写错了吧，查询字段中如果有聚类函数，则其它字段必须在group by 里。
the correct is:
select pol_code,sum(prem) from day_sta_data
         where pay_itrvl1="Y" and i_info_appl_branch="450021"
         group by    pol_code