C:\Program Files\IBM\SQLLIB\BIN>db2look -d EM255536 -e -a -o script.sql
-- Генерировать статистику для всех создателей
-- Создается DDL для таблиц
-- Вывод направлен в файл: script.sql   

            ///.....

SET CURRENT SCHEMA = "METR    ";
SET CURRENT PATH = "SYSIBM","SYSFUN","SYSPROC","SYSIBMADM","METR";

CREATE PROCEDURE REPL_CSM_TRANSIT_UPDATE_SP

 (IN P_CSM_CODE INTEGER, 

  IN P_OP VARCHAR(3), 

  OUT P_RESULT INTEGER

 ) 

  LANGUAGE SQL

  NOT DETERMINISTIC

  CALLED ON NULL INPUT 

  MODIFIES SQL DATA

  INHERIT SPECIAL REGISTERS

  BEGIN

    DECLARE CSM_EXISTS INTEGER;--

    SET P_RESULT = 0;--

    IF NOT EXISTS (SELECT * FROM CSM_FK WHERE CSM_CODE = P_CSM_CODE) THEN<-----Тут идет ссылка на ещё не созданную таблицу CSM_FK

        SET P_RESULT = -1;--

        RETURN;--

    END IF;--

    SET CSM_EXISTS = (SELECT COUNT( * ) FROM REPL_CSM_TRANSIT WHERE CSM_CODE = P_CSM_CODE);--

    CASE P_OP

        WHEN 'INS' THEN

            IF CSM_EXISTS > 0 THEN

                SET P_RESULT = 1;--

                RETURN;--

            END IF;--

            INSERT INTO REPL_CSM_TRANSIT (CSM_CODE) VALUES (P_CSM_CODE);--

        WHEN 'DEL' THEN

            IF CSM_EXISTS = 0 THEN

                SET P_RESULT = 2;--

                RETURN;--

            END IF;--

            DELETE FROM REPL_CSM_TRANSIT WHERE CSM_CODE = P_CSM_CODE;--

        ELSE

            SET P_RESULT = 0;--

    END CASE;--

END;


///....

------------------------------------------------
-- Операторы DDL для таблицы "METR    "."CSM_FK"
------------------------------------------------
 

CREATE TABLE "METR    "."CSM_FK"  (
		  "CSM_CODE" INTEGER NOT NULL )   
		 IN "USERSPACE1" ; 


-- Операторы DDL для первичных ключей таблицы "METR    "."CSM_FK"

ALTER TABLE "METR    "."CSM_FK" 
	ADD CONSTRAINT "XPKCSM_FK" PRIMARY KEY
		("CSM_CODE");

///...  

db2 -tvf script.sql