在 PROGRESS 4GL 中使用 SQL 减操作？

如何解决在 PROGRESS 4GL 中使用 SQL 减操作？

有没有一种方法可以使 sql in Progress 中的减号操作等效？我有 2 个选择，想要第一个减去第二个。例如，最初在 sql 中是这样的：

select id from item
minus
select id from item-uni

我正在尝试这样做

DEF TEMP-TABLE tt-item NO-UNDO
FIELD item-id    AS INT
FIELD desc       AS CHAR
.

DEF TEMP-TABLE tt-item2 NO-UNDO
FIELD item-id    AS INT
FIELD desc       AS CHAR
.


FOR EACH item-uni
WHERE item-uni.desc = '101':

        CREATE tt-item.
        ASSIGN
        tt-item.item-id   = item-uni.item-id
        tt-item.desc = item-uni.desc
        .
END.

   FOR EACH item:

        CREATE tt-item2.
        ASSIGN
        tt-item2.item-id   = item.item-id
        tt-item2.desc = item.desc
        .
END.



FOR EACH tt-item,EACH tt-item2
    WHERE tt-item.item-id = tt-item2.item-id:

            DELETE tt-item.
    END.

然而，当我尝试这样做时，我收到一条错误消息。有没有一种简单的方法（或至少更容易）来做到这一点？谢谢。

解决方法

如果我正在阅读 minus 应该做什么，即返回外部选择中的所有行，而内部选择中不存在行，那么应该这样做：

for each item
   where not can-find( 
            item-uni 
               where item-uni.id = item.id
         )
no-lock:

   /* do something */

end.

自从我发布以来已经有几天了，因为直到现在我才设法得到一个好的和正确的答案。我必须在 IF 子句中使用 NOT CAN-FIND 才能使其工作。第一个临时表获取我想要的值，第二个查看我不想要的这些值中的哪些。第三次迭代是 NOT CAN-FIND 所在的位置，使其成为我想要使用的“减号”。变成了这样：

IF NOT CAN-FIND (tt-item-temp2
            WHERE tt-item-temp2.item-id = tt-item-temp.item-id) THEN DO:

再次感谢 Stefan。如果不是你，我找不到这个答案。