-----------------------------------------------------------------------------
-- (c) Copyright IBM Corp. 2007 All rights reserved.
--
-- The following sample of source code (<93>Sample<94>) is owned by International
-- Business Machines Corporation or one of its subsidiaries ("IBM") and is
-- copyrighted and licensed, not sold. You may use, copy, modify, and
-- distribute the Sample in any form without payment to IBM, for the purpose
-- of assisting you in the development of your applications.
--
-- The Sample code is provided to you on an "AS IS" basis, without warranty
-- of any kind. IBM HEREBY EXPRESSLY DISCLAIMS ALL WARRANTIES, EITHER EXPRESS
-- OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-- MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. Some jurisdictions
-- do not allow for the exclusion or limitation of implied warranties, so the
-- above limitations or exclusions may not apply to you. IBM shall not be
-- liable for any damages you suffer as a result of using, copying, modifying
-- or distributing the Sample, even if IBM has been advised of the
-- possibility of such damages.
--
-----------------------------------------------------------------------------
--
-- SOURCE FILE NAME: EmpDetails.db2
--
-- SAMPLE: Creates the stored procedure called in SpReturn.vbCREATE PROCEDURE EMP_DETAILS (IN idno INT,
OUT empsalary DOUBLE,
OUT empname VARCHAR(9),
OUT empjob CHAR(5))
BEGIN
DECLARE year INT DEFAULT 0;
DECLARE c1 CURSOR FOR
SELECT CAST(salary AS DOUBLE),years, job, name FROM staff WHERE ID = idno;
OPEN c1;
FETCH c1 INTO empsalary, year, empjob, empname;
CLOSE c1;
RETURN year;
END @