如何为正在进行的 4GL 查询中的每个循环添加日期条件

Question

我在查询时遇到困难，我必须更改以限制从进度数据库导出的数据。我将"我的订单日期"导出到文本文件。但是，我必须将数据限制为仅2012年之后的订单。

OUTPUT STREAM s1 TO VALUE(exportFileStringDirectory).
FOR EACH poTable NO-LOCK WHERE
 ponum = 1 AND
 /* this doesn't work -->*/
 /*myorderdate.YEAR >= DATE("2012").YEAR AND*/
 conum = 1:
 PUT STREAM s1 UNFORMATTED
    ISO-DATE(myorderdate)
 SKIP. 
END.
OUTPUT STREAM s1 CLOSE.

我是Progress 4GL数据库的新手，完全使用数据库。我所要做的就是对代码进行一个小的更改，所以如果描述缺少一些重要信息，请原谅我。

Answer 1

我会这样编码：

FOR EACH poTable NO-LOCK WHERE
 ponum = 1 AND conum = 1 and 
 myorderdate >= 1/1/2012:

这样，您就不必在循环的每次迭代中计算 YEAR（） 函数。

Answer 2

使用 YEAR 函数。YEAR（） 函数将输入作为日期，并以整数形式返回日期的年份值。

所以，替换

myorderdate.YEAR >= DATE("2012").YEAR

跟：

YEAR(myorderdate) >= 2012