CREATE FUNCTION      fn_get_parameters_list_1
(   @SPName varchar( 300 )  )

RETURNS      varchar( 8000 )
as 
begin 

declare @a varchar( 40 )
declare @P1 varchar( 4000 )
declare cur cursor for 

select parameter_name 
 ----, data_type, character_maximum_length
 
from INFORMATION_SCHEMA.PARAMETERS   where specific_name =  @SPName
open cur 
fetch next from cur into @a
set @P1=  cast(@a as varchar( 20 )) 
while @@fetch_status= 0 
begin 
fetch next from cur into @a
set @P1= @P1+','+ cast(@a as varchar( 20 )) 
end 

close cur
deallocate cur
 
return @P1

END

select    @P1 = dbo.create_param_list (@CallingProc)
print @P1

CREATE  PROCEDURE test
(
	 @SystemUserID int
	,@ApplicationID int 
	,@ApplicationItemID int
	,@Description nvarchar( 1024 )
             ,@actionURL  nvarchar( 1024 )
	,@SingleInstance bit
	,@CustomerID int 
) 

select    @P2  = cast(@SystemUserID as varchar( 20 )) + ',' + cast(@ApplicationID  AS varchar( 20 )) + ',' +cast (@ApplicationItemID AS varchar( 20 )) +',' +quotename(@Description, '''') +',' +quotename(@actionURL, '''')+','+cast(@SingleInstance as varchar( 20 ))+','+cast(@CustomerID as varchar( 20 )) ..... etd