>Veery fast answer :-))))
>I just change it to work with SP code that is longer than 8000 bites:
>

>DECLARE @Test TABLE (Id INT IDENTITY(1,1), Code varchar(max))
>
>INSERT INTO @Test (Code)
>SELECT OBJECT_DEFINITION(OBJECT_ID)
>            from sys.procedures
>            where is_ms_shipped = 0
>DECLARE @lnCurrent int, @lnMax int
>DECLARE @LongName varchar(max)
>
>SELECT @lnMax = MAX(Id) FROM @Test
>SET @lnCurrent = 1
>WHILE @lnCurrent <= @lnMax
>      BEGIN
>            SELECT @LongName = Code FROM @Test WHERE Id = @lnCurrent
>            WHILE @LongName <> ''
>               BEGIN
>                   print LEFT(@LongName,8000)
>                   SET @LongName = SUBSTRING(@LongName, 8001, LEN(@LongName))
>               END
>            SET @lnCurrent = @lnCurrent + 1
>      END
>

Thanks.