Sorry. The problems I'm working with are schoolwork but here is a example:
procedure sppatron_info
(
@ssn_in char(9),
@name_out char(30) output,
@number_of_books_out numeric(4) output,
@number_overdue_out numeric(4) output,
@total_fine_out char(10) output,
@return_message char(200) output,
@return_sqlcode numeric(4) output
)
as
begin
declare gc_sppatron_info cursor global for
select
@ssn_in=c.ssn,
@name_out=p.name,
@number_of_books_out = count(c.scan_code),
@number_overdue_out = count(datediff(day,c.date_due,(select todays_date from currentdate))),
@total_fine_out = '$' + convert(char(10), sum(datediff(day,c.date_due,(select todays_date from currentdate))*.15),
@return_message = null,
@return_sqlcode = null
from
circ c,
collection n,
dp260i..patron p
where n.scan_code = c.scan_code
and c.ssn = p.ssn
open gc_sppatron_info
if @@RowCount=0
begin
set @return_sqlcode = 100
set @return_message = 'Patron #' + @ssn_in + ' Not Found'
set @ssn_in=null
set @name_out=null
set @number_of_books_out=null
set @number_overdue_out=null
set @total_fine_out=null
set @return_message=null
set @return_sqlcode=null
end
else
begin
set @return_sqlcode = 0
set @return_message = 'Patron #' + @ssn_in + ' Found'
end
return @return_sqlcode
end