-----------------------------------------------------------------------------
-- (c) Copyright IBM Corp. 2007 All rights reserved.
-- 
-- The following sample of source code ("Sample") 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: spcreate.db2
--    
-- SAMPLE: How to catalog COBOL stored procedures
--
-- To run this script from the CLP, perform the following steps:
-- 1. connect to the database
-- 2. issue the command "db2 -td@ -vf spcreate.db2"
-----------------------------------------------------------------------------
--
-- For more information on the sample programs, see the README file.
--
-- For information on developing COBOL applications, see the Application
-- Development Guide.
--
-- For information on using SQL statements, see the SQL Reference.
--
-- For the latest information on programming, building, and running DB2 
-- applications, visit the DB2 Information Center: 
--     http://publib.boulder.ibm.com/infocenter/db2luw/v9r7/index.jsp
-----------------------------------------------------------------------------

CREATE PROCEDURE INPSRV ( IN DEPTNUM SMALLINT,
                          IN DEPTNAME CHAR(14),
                          IN LOCATION CHAR(13),
                          OUT SQLCODE INT)
--- Embedded SQL in COBOL currently does not support result sets.
--- However, if you intend to call this COBOL stored procedure from
--- a client application that can handle result sets, set the DYNAMIC
--- RESULT SETS clause to 1, and follow the instructions in the code
--- comments in inpsrv.sqb.
  DYNAMIC RESULT SETS 0
  LANGUAGE COBOL 
  PARAMETER STYLE GENERAL
  NO DBINFO
  FENCED
  NOT THREADSAFE
  MODIFIES SQL DATA
  PROGRAM TYPE SUB
  EXTERNAL NAME 'inpsrv!inpsrv'@