时间戳

首页 > 解决方案 > DB for z/OS 中的递归查询

db2 - DB for z/OS 中的递归查询

问题描述

亲爱的，我有一个名为“PROGRAM”的源表，如下所示

Program CSECT
X       Y
B       X
M       P
A       L
B       D
C       D
A       C
B       C
A       B
D       B

给定一个程序，例如“A”，我需要找到所有相关的 CSECT

Program CSECT
A       L
A       C
A       B
B       D
B       X
X       Y

我尝试了如下递归查询，但它循环循环引用示例 BD 和 DB

WITH RPL (Program, Csect) AS
      (SELECT ROOT.Program, ROOT.Csect
         FROM Program ROOT
         WHERE Program = 'A'
      UNION ALL
         SELECT CHILD.Program, CHILD.Csect
            FROM RPL PARENT, Program CHILD
            WHERE PARENT.Csect = CHILD.Program)
 SELECT *
     FROM RPL;

标签： db2zos

解决方案

您可以添加额外的列（链），其中包含当前行的完整路径，如下所示。CHILD.Program如果已包含在这样的路径中，则不应添加新行。

WITH RPL (Program, Csect, Chain) AS
(
SELECT ROOT.Program, ROOT.Csect, CAST('|' || ROOT.Program || '|' AS VARCHAR(1000))
FROM Program ROOT
WHERE Program = 'A'
    UNION ALL
SELECT CHILD.Program, CHILD.Csect, PARENT.Chain || CHILD.Program || '|' 
FROM RPL PARENT, Program CHILD
WHERE PARENT.Csect = CHILD.Program
    AND LOCATE('|' || CHILD.Program || '|', PARENT.Chain) = 0
)
SELECT DISTINCT Program, Csect
FROM RPL
ORDER BY Program;

推荐阅读