プロシージャ分析002

SELECT c.モジュール名, c.プロシージャ名, c.コードラインID, c.TrimCode,
       p.プロシージャ名 AS 呼ばれている処理
FROM t01a_コード AS c,
     (SELECT DISTINCT プロシージャ名 FROM q51j02) AS p
WHERE c.コメント行 = False
  AND c.プロシージャ名 <> p.プロシージャ名
  AND ( InStr(1, c.TrimCode, "Call " & p.プロシージャ名) > 0
     OR InStr(1, c.TrimCode, p.プロシージャ名 & "(") > 0 )
ORDER BY p.プロシージャ名, c.コードラインID;