***********************************************************************
      ** (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: inpcli.sqb 
      **
      ** SAMPLE: Call stored procedures using the GENERAL parameter style
      ** 
      **         This program is the client of a client/server example.
      **         (The server program is called inpsrv.sqb.) The SQLCA status
      **         is returned to the client program.  This program uses an
      **         embedded SQL CALL statement to call a stored procedure.
      **
      ** SQL STATEMENTS USED:
      **         BEGIN DECLARE SECTION 
      **         END DECLARE SECTION 
      **         CONNECT
      **         CALL
      **
      ** STRUCTURES USED:
      **         sqlca
      **
      ** EXTERNAL DEPENDENCIES:
      **        Ensure existence of database for precompile purposes.
      **        Ensure that the stored procedure called from this program
      **        has been built and cataloged with the database (see the
      **        instructions in inpsrv.sqc).
      **        Precompile with the SQL precompiler (PREP in DB2).
      **        Bind to a database (BIND in DB2).
      **        Compile and link loop with the compiler supported on your
      **        platform. All these building steps can be done with the
      **        commands 'bldapp inpcli', or 'make inpcli' (UNIX) or
      **        'nmake inpcli' (Windows).
      **
      **               
      ***********************************************************************
      **
      ** For more information on the sample programs, see the README file. 
      **
      ** For information on developing embedded SQL applications see the Developing Embedded SQL Applications book.
      **
      ** For information on using SQL statements, see the SQL Reference. 
      **
      ** For the latest information on programming, compiling, and running
      ** DB2 applications, visit the DB2 Information Center: 
      **     http://publib.boulder.ibm.com/infocenter/db2luw/v9r7/index.jsp
      ***********************************************************************

       Identification Division.
       Program-ID. "inpcli".

       Data Division.
       Working-Storage Section.

      * Copy Files for Constants and Structures.
           copy "sql.cbl".
           copy "sqlenv.cbl".
           copy "sqlca.cbl".

           EXEC SQL BEGIN DECLARE SECTION END-EXEC.                     2
       01 userid            pic x(8).
       01 passwd.
         49 passwd-length   pic s9(4) comp-5 value 0.
         49 passwd-name     pic x(18).
           EXEC SQL END DECLARE SECTION END-EXEC.

       01  CALL-STMT.
           05  FILLER    PIC X(23) VALUE "CALL inpsrv(8,'Canada',".
           05  FILLER    PIC X(11) VALUE "'Ottawa',?)".

       01  SQLCODE-LINE.
           05  FILLER    PIC X(27) VALUE "The SQLCODE from the stored".
           05  FILLER    PIC X(15) VALUE " procedure is: ".
           05  R-SQLCODE PIC --------9.

       77  errloc pic x(80).

      * Declare Host Variables
           EXEC SQL BEGIN DECLARE SECTION END-EXEC.
       01  OUT-SQLCODE                 PIC S9(9)   COMP-5.
       01  CLL-SMT-INF.
           05  CLL-STMT.
           49  CLL-LEN       PIC S9(4)  USAGE COMP-5.
           49  CLL-TEXT      PIC X(100).
           EXEC SQL END DECLARE SECTION END-EXEC.

       Procedure Division.
       Main Section.
           display "Sample COBOL program:  inpcli".

           display "Enter your user id (default none): "
                with no advancing.
           accept userid.

           if userid = spaces
             EXEC SQL CONNECT TO sample END-EXEC
           else
             display "Enter your password : " with no advancing
             accept passwd-name.

      * Passwords in a CONNECT statement must be entered in a VARCHAR format
      * with the length of the input string.
           inspect passwd-name tallying passwd-length for characters
              before initial " ".

           EXEC SQL CONNECT TO sample USER :userid USING :passwd        3
               END-EXEC.
           move "CONNECT TO" to errloc.
           call "checkerr" using SQLCA errloc.

      * Call the Remote Procedure.
           display "Use CALL to invoke the INPSRV stored procedure."

           MOVE           CALL-STMT TO CLL-TEXT.
           MOVE LENGTH OF CALL-STMT TO CLL-LEN.
           EXEC SQL
                PREPARE CLL FROM :CLL-STMT
           END-EXEC
           MOVE "SQL PREPARE" to errloc.
           CALL "checkerr" using SQLCA errloc.

           EXEC SQL
                EXECUTE CLL INTO :OUT-SQLCODE
           END-EXEC
           MOVE OUT-SQLCODE to R-SQLCODE.
           MOVE "SQL EXECUTE" to errloc.
           CALL "checkerr" using SQLCA errloc.

           DISPLAY SQLCODE-LINE.
           DISPLAY "Server Procedure Complete.".

      * Disconnect from Remote Database.
           EXEC SQL CONNECT RESET END-EXEC.
           STOP RUN.
           EXIT.