MS SQL Server'da prosedür ile iç içe tabloları listelemek

procedure.sql

CREATE PROCEDURE RecursiveTableList
    @ParentID INT = NULL,
    @Indent NVARCHAR(100) = ''
AS
BEGIN
    SET NOCOUNT ON;

    DECLARE @SQL NVARCHAR(MAX);

    SET @SQL = '
        SELECT 
            ' + @Indent + 'c.name as ChildTableName, 
            ' + @Indent + 'p.name as ParentTableName
        FROM 
            sys.foreign_keys as f 
            INNER JOIN sys.objects as p ON f.parent_object_id = p.object_id
            INNER JOIN sys.objects as c ON f.referenced_object_id = c.object_id
        WHERE 
            f.parent_object_id = ' + CAST(@ParentID AS NVARCHAR) + '
        ';

    PRINT @SQL;
    EXECUTE sp_executesql @SQL;

    DECLARE @ChildID INT;
    DECLARE child_cursor CURSOR FOR
        SELECT object_id FROM sys.objects WHERE type = 'U' AND object_id != @ParentID;

    OPEN child_cursor;
    FETCH NEXT FROM child_cursor INTO @ChildID;

    WHILE @@FETCH_STATUS = 0
    BEGIN
        EXEC RecursiveTableList @ChildID, @Indent + '    ';
        FETCH NEXT FROM child_cursor INTO @ChildID;
    END;

    CLOSE child_cursor;
    DEALLOCATE child_cursor;
END;