DB2 产生生成所有外键的SQL语句

产生生成所有外键的SQL语句
SELECT
    'ALTER TABLE '||tabschema||'.'|| SUBSTR(TABNAME,1,50)||
    'ADD CONSTRAINT ' || CONSTNAME||
    'FOREIGN KEY (' || substr(FK_COLNAMES,1,50) || ')'||
    'REFERENCES '||tabschema||'.' || SUBSTR(REFTABNAME,1,17)||  
    ' ON DELETE ' ||
        case deleterule
          when 'A' then 'NO ACTION'
          when 'C' then 'CASCADE'
          when 'N' then 'SET NULL'
          when 'R' then 'RESTRICT'
        end ||
    ' ON UPDATE ' ||
        case updaterule
          when 'A' then 'NO ACTION'
          when 'R' then 'RESTRICT'
        end
        ||';'
    FROM
        SYSCAT.REFERENCES
;