Standardize Titles and Headings

Here’s a script that will help you standardize those titles & headings.

Drop proc
rp_title
go
create proc rp_title
@t varchar(255) , /* Title to box
& display */
@s char(1)=’*’ , /* Box character */
@center bit=0 , /*
Center text in box */
@lpad int=0 , /* Shift box to right */
@timestamp
bit=0 , /* display date/time */
@date_format int=0 /* format for date/time
*/
as

DECLARE @pad varchar(80) SELECT @pad=”
IF @lpad>0 SELECT
@pad=replicate(‘ ‘,@lpad)

IF @timestamp=1 SELECT @[email protected] + ‘ (‘ +

convert(varchar(25),getdate(),@date_format) + ‘)’

DECLARE @c
varchar(255)
SELECT @[email protected]+replicate(@s,82) ,
@[email protected][email protected]
+
convert(char(80),replicate(‘ ‘,case when @center=1 then

40-(datalength(@t)/2)else 1 end) + @t) + @s
PRINT ‘ ‘
PRINT
@c
PRINT @t
PRINT @c
PRINT ‘ ‘

RETURN 0

go
exec
rp_title ‘Hello there’,@lpad=0,@center=0,@s=’#’
exec rp_title ‘Hello

there’,@lpad=20,@center=0,@timestamp=1,@date_format=3
exec rp_title
‘Hello there’,@lpad=0,@center=1
exec rp_title ‘Hello
there’,@lpad=20,@center=1

Latest Articles