清除 AS/400 上的记录

Question

我必须删除一些被认为无用的记录。

有一个地址文件和一个订单历史文件。在拥有消费品的公司中，他们会收到许多产品咨询或开始销售，但从未成为销售。

每次查询都会在地址文件中获得一条记录，即客户编号。在订单历史文件中是相同的客户编号和后缀字段。它从 000 开始，并在有新订单时递增。大部分业务实际上是一个循环模型。

只有“000”记录（可能有多个 000）的客户，意味着他们从未购买过我们希望从这些文件中清除的任何东西。

我正在考虑一个简单的 RPG 程序，但如果可能的话，我也对使用 SQL 或其他方法感兴趣。

在这个阶段，我们实际上不会删除，而是将建议的记录复制到一个输出文件中，该文件将被审查并存储起来以备不时之需。

F Addressfile   IF  E

F OrderHistory  IF  E

**** create 2 output file clones but with altered name for now.

F Zaddressfile  O  E
F ZorderHistory O  E


                  *inlr    doweq *off
                           Read  Addressfile          lr
                  *inlr    ifeq *off
                           move  *off      Flg000
                           exsr  Chk000
                   Flg000  ifeq  *on
                           iter
                           else  exsr      purge
                           endif
                           endif
                           enddo

                   Chk000  begsr

**基本上在 orderhistory 上设置为不同的逻辑 只要我们有匹配的客户编号，就可以阅读 如果有后缀 not = 000 那么我们打开标志 然后出去。

purge subr 将不得不再次读取以获取从 orderhistory 文件中清除所需的记录，方法是使用仍在读取地址文件中的相同客户编号。因为我不确定 subr 对客户有什么价值，我不想存储它。

然后它将写入新文件，包括地址文件，然后我们可以迭代读取下一个 地址文件中的客户。

我们也不能假设如果有人买了，他们有一个 001，也许它多年来被删除了。

如果我们这样做了，我可以简单地链接它。

Answer 1

您在 RPG 中必须执行的各种步骤。这可以在 SQL 中以多种更简单的方式完成。 SQL 擅长同时处理和分析整个文件中的记录组。

CREATE TABLE zaddresses AS
( SELECT *
    FROM addressFile
    WHERE cust IN (SELECT cust 
                     FROM orderHistory
                     GROUP BY cust
                     HAVING max(sufix)='000'
                  )
) 
WITH DATA
NOT LOGGED INITIALLY;

CREATE TABLE zorderHst AS 
( SELECT * 
    FROM orderHistory
    WHERE cust IN (SELECT cust 
                     FROM zaddresses
                  )
)
WITH DATA
NOT LOGGED INITIALLY;

在那里，您已经定义了您的持有表并在每个单独的语句中填充了它。它确实有一些嵌套逻辑，但仍然只有两条语句。

清除它们

DELETE FROM addressfile
  WHERE cust IN (SELECT cust FROM zaddresses);

DELETE FROM orderHistory
  WHERE cust IN (SELECT cust FROM zaddresses);

总共有四个 SQL 语句。 （我什至不会问你的 RPG 程序中有多少）

一旦您了解 SQL，您就可以考虑处理整个文件，而不仅仅是逐条记录指令。完成事情要简单得多，并且做得好几乎总是更快。

（您可能会听到关于特定情况下性能的争论，但大多数情况下，他们根本没有按照应有的方式使用 SQL。如果您编写的 RPG 很差，它的性能也会很差。;-)

Answer 2

我会使用 SQL。

-- Save only the rows to be deleted
CREATE TABLE ZADDRESSFILE AS
   (SELECT *
    FROM   ADDRESSFILE af
    WHERE  NOT EXISTS
        (SELECT 1
         FROM ADDRESSFILE sub
         WHERE sub.CUSTNO = af.CUSTNO
         AND   sub.SUFFIX <> '000' -- (or <> 0 if numeric)
         )
    )

-- If ZADDRESSFILE exists and you want to add the rows 
-- to ZADDRESSFILE instead....
INSERT INTO ZADDRESSFILE
   (SELECT *
    FROM   ADDRESSFILE af
    WHERE  NOT EXISTS
        (SELECT 1
         FROM ADDRESSFILE sub
         WHERE sub.CUSTNO = af.CUSTNO
         AND   sub.SUFFIX <> '000' -- (or <> 0 if numeric)
         )
    AND OT EXISTS
         (SELECT 1
          FROM ZADDRESSFILE sub
          WHERE sub.CUSTNO = af.CUSTNO
          )
    )


-- Get number of rows to be deleted
SELECT COUNT(*)
FROM ADDRESSFILE af
WHERE NOT EXISTS
   (SELECT 1
    FROM   ADDRESSFILE sub
    WHERE  sub.CUSTNO = af.CUSTNO
    AND    sub.SUFIX <> '000'
    )


-- Delete 'em
DELETE
FROM ADDRESSFILE af
WHERE NOT EXISTS
   (SELECT 1
    FROM   ADDRESSFILE sub
    WHERE  sub.CUSTNO = af.CUSTNO
    AND    sub.SUFIX <> '000'
    )