在數據庫應用項目的生命周期中充分利用 DB2 目錄視圖的最佳實踐

部署階段的實踐案例

實踐三 : 部署前分析依賴關系

在數據庫對象部署前，有經驗的開發或管理人員會檢查數據庫對象之間的依賴關系。除了部署修改過定義（代碼）的對象以外，還需要准備步驟去處理與修改過對象有依賴關系的其他對象。清單 3.顯示了如何查詢依賴於一個表的所有數據庫對象，包括引用這個表的視圖（從 SYSCAT.VIEWDEP），用戶自定義函數（從 SYSCAT.FUNCDEP）和存儲過程（從 SYSCAT.ROUTINEDEP 和 SYSCAT.PACKAGEDEP），如結果所示，其中還返回多層次關系（例如調用這個表的視圖又被其他用戶自定義函數調用）。

清單 3. 如何查詢依賴於一個表的所有數據庫對象

　db2=>　WITH　OBJ　as　(　
　　select　TABSCHEMA　as　SCHEMA,　TABNAME　as　NAME　from　SYSCAT.TABLES　
　　where　TABSCHEMA　=　upper('test')　
　　and　TABNAME　=　upper('customer')　
　),　
　PROC　as　(　
　　select　PROCSCHEMA,　PROCNAME,　rd.bname　as　PKGNAME　
　　from　SYSCAT.PROCEDURES　p　
　　join　syscat.routinedep　rd　
　　on(　p.PROCSCHEMA　=　rd.routineschema　
　　and　p.specificname　=　rd.routinename)　
　),　
　RPL　(　
　　ROOTTYPE,　ROOTSCHEMA,　ROOTNAME,　LEVEL,　SCHEMA,　NAME,　DTYPE,　
　　BTYPE,　BSCHEMA,　BNAME　
　)　AS　(　
　　　SELECT　
　　　　　BTYPE　AS　ROOTTYPE,　BSCHEMA　AS　ROOTSCHEMA,　BNAME　AS　ROOTNAME,　
　　　　　1　as　LEVEL,　VIEWSCHEMA　as　SCHEMA,　VIEWNAME　as　NAME,　
　　　　　DTYPE,　BTYPE,　BSCHEMA,　
　　　　　BNAME　
　　　FROM　SYSCAT.VIEWDEP　ROOT　
　　UNION　ALL　
　　　SELECT　
　　　　　ROOTTYPE,　ROOTSCHEMA,　ROOTNAME,　PARENT.LEVEL+1,　
　　　　　CHILD.VIEWSCHEMA　as　SCHEMA,　
　　　　　CHILD.VIEWNAME　as　NAME,　CHILD.DTYPE,　CHILD.BTYPE,　
　　　　　CHILD.BSCHEMA,　CHILD.BNAME　
　　　FROM　RPL　PARENT,　SYSCAT.VIEWDEP　CHILD　
　　　WHERE　PARENT.SCHEMA　=　CHILD.BSCHEMA　
　　　AND　PARENT.NAME　=　CHILD.BNAME　
　　　AND　PARENT.LEVEL　<　50　
　　UNION　ALL　
　　　SELECT　
　　　　　BTYPE　AS　ROOTTYPE,　BSCHEMA　AS　ROOTSCHEMA,　BNAME　AS　ROOTNAME,　
　　　　　1　as　LEVEL,　FUNCSCHEMA　as　SCHEMA,　FUNCNAME　as　NAME,　
　　　　　'F'　as　DTYPE,　BTYPE,　
　　　　　BSCHEMA,　BNAME　
　　　FROM　SYSCAT.FUNCDEP　ROOT　
　　UNION　ALL　
　　　SELECT　
　　　　　ROOTTYPE,　ROOTSCHEMA,　ROOTNAME,　PARENT.LEVEL+1,　
　　　　　CHILD.FUNCSCHEMA　as　SCHEMA,　
　　　　　CHILD.FUNCNAME　as　NAME,　'F'　as　DTYPE,　CHILD.BTYPE,　
　　　　　CHILD.BSCHEMA,　CHILD.BNAME　
　　　FROM　RPL　PARENT,　SYSCAT.FUNCDEP　CHILD　
　　　WHERE　PARENT.SCHEMA　=　CHILD.BSCHEMA　
　　　AND　PARENT.NAME　=　CHILD.BNAME　
　　　AND　PARENT.LEVEL　<　50　
　　UNION　ALL　
　　　SELECT　
　　　　　BTYPE　AS　ROOTTYPE,　BSCHEMA　AS　ROOTSCHEMA,　BNAME　AS　ROOTNAME,　
　　　　　1　as　LEVEL,　PROC.PROCSCHEMA　as　SCHEMA,　
　　　　　PROC.PROCNAME　as　NAME,　'P'　as　DTYPE,　
　　　　　BTYPE,　BSCHEMA,　BNAME　
　　　FROM　SYSCAT.PACKAGEDEP　ROOT,　PROC　PROC　
　　　where　PROC.PROCSCHEMA　=　ROOT.PKGSCHEMA　
　　　and　PROC.PKGNAME　=　ROOT.PKGNAME　
　　UNION　ALL　
　　　SELECT　
　　　　　ROOTTYPE,　ROOTSCHEMA,　ROOTNAME,　PARENT.LEVEL+1,　
　　　　　PROC.PROCSCHEMA　as　SCHEMA,　
　　　　　PROC.PROCNAME　as　NAME,　'P'　as　DTYPE,　CHILD.BTYPE,　
　　　　　CHILD.BSCHEMA,　CHILD.BNAME　
　　　FROM　RPL　PARENT,　SYSCAT.PACKAGEDEP　CHILD,　PROC　PROC　
　　　WHERE　PARENT.SCHEMA　=　CHILD.BSCHEMA　
　　　AND　PARENT.NAME　=　CHILD.BNAME　
　　　and　PROC.PROCSCHEMA　=　CHILD.PKGSCHEMA　
　　　AND　PROC.PKGNAME　=　CHILD.PKGNAME　
　　　AND　PARENT.LEVEL　<　50　
　　)　
　SELECT　distinct　ROOTTYPE,　ROOTSCHEMA,　ROOTNAME,　LEVEL,　RPL.SCHEMA,　
　　CASE　WHEN　DTYPE　=　'F'　
　　THEN　(SELECT　ROUTINENAME　FROM　SYSCAT.ROUTINES　
　　　　　WHERE　ROUTINESCHEMA　=　RPL.SCHEMA　
　　　　　AND　SPECIFICNAME　=　RPL.NAME　)　
　　ELSE　RPL.NAME　
　　END　AS　NAME,　
　　DTYPE,　BTYPE,　BSCHEMA,　
　　CASE　WHEN　BTYPE　=　'F'　
　　THEN　(SELECT　ROUTINENAME　FROM　SYSCAT.ROUTINES　
　　　　　WHERE　ROUTINESCHEMA　=　BSCHEMA　
　　　　　AND　SPECIFICNAME　=　BNAME　)　
　　ELSE　BNAME　
　　END　AS　BNAME　
　FROM　RPL,　OBJ　
　where　ROOTSCHEMA　=　OBJ.SCHEMA　
　　and　ROOTNAME　=　OBJ.NAME　
　ORDER　BY　ROOTTYPE,　ROOTSCHEMA,　ROOTNAME,　LEVEL　
　
　ROOTTYPE　ROOTSCHEMA　ROOTNAME　LEVEL　SCHEMA　NAME　　　DTYPE　BTYPE　BSCHEMA　BNAME　
　--------　----------　--------　-----　-------　--------　-----　-----　-------　--------　
　T　　　　TEST　　　　CUSTOMER　1　　　TEST　　F_CUST_1　F　　　T　　　TEST　　CUSTOMER　
　T　　　　TEST　　　　CUSTOMER　1　　　TEST　　V_CUST_1　V　　　T　　　TEST　　CUSTOMER　
　T　　　　TEST　　　　CUSTOMER　2　　　TEST　　P_CUST_1　P　　　F　　　TEST　　F_CUST_1　
　T　　　　TEST　　　　CUSTOMER　2　　　TEST　　P_CUST_2　P　　　V　　　TEST　　V_CUST_1　
　T　　　　TEST　　　　CUSTOMER　2　　　TEST　　V_CUST_2　V　　　V　　　TEST　　V_CUST_1　
　T　　　　TEST　　　　CUSTOMER　3　　　TEST　　F_CUST_2　F　　　V　　　TEST　　V_CUST_2　
　T　　　　TEST　　　　CUSTOMER　4　　　TEST　　P_CUST_3　P　　　F　　　TEST　　F_CUST_2　
　T　　　　TEST　　　　CUSTOMER　4　　　TEST　　P_CUST_4　P　　　F　　　TEST　　F_CUST_2　
　
　8　record(s)　selected　
　
　T　-　Table　　　　　　--　表　
　F　-　UDF　　　　　　　--　用戶自定義函數　
　V　-　VIEw　　　　　　　--　視圖　
　P　-　Stored　Procedure　--　存儲過程