帮我看一看这个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

xx_linux

变量引用前要赋值

大梦

是amis在picc2上的中间表呢！
op_date>;i_info_date 是空的！

select pol_code,sum(prem) from day_sta_data
where pay_itrvl1="Y" and i_info_appl_branch="450021"
不止返回一条记录！

zxhzhong

查询语句写错了吧，查询字段中如果有聚类函数，则其它字段必须在group by 里：

select pol_code,sum(prem) from day_sta_data
where pay_itrvl1="Y" and i_info_appl_branch="450021"
group by pol_code

qq12345

要用 group by

牵手

如果你的MAIN函数独立一个文件，那你DEFINE的几个模块变量没有初始化符值，当变量为空时，你的IF判断会被自动跳过(可以加ELSE处理)；还有就是楼上说的SQL语句本身不能运行，增加了Group By后 这个SQL干什么呢，没有被变量捕捉阿

axiongs

这些代码好像是人手的

drummer0218

不等于0，也不一定就等于1吧
之后再谈sql的问题啦