Quelle  xop725s.cob   Sprache: Cobol

       IDENTIFICATION DIVISION.
       PROGRAM-ID. XOP725S.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
           SOURCE-COMPUTER. xyz.
           OBJECT-COMPUTER. xyx.
       DATA DIVISION.


       WORKING-STORAGE SECTION.

      * Embedded SQL COBOL (file "XOP725S.PCO")

      *   Copyright 1994, 1995 X/Open Company Limited  

      *   All rights reserved.                                          
                                                              
      *   DISCLAIMER:                                                   
      *   This program was reviewed by employees of NIST for            
      *   conformance to the SQL standards.                             
      *   NIST assumes no responsibility for any party's use of         
      *   this program.                                                 

      *   X/Open and the 'X' symbol are registered trademarks of X/Open Company
      *   Limited in the UK and other countries.


      *******************************************************
      *
      *          COMMENT SECTION
      *
      * DATE 1994/O7/05 EMBEDDED COBOL LANGUAGE
      * X/Open SQL VALIDATION TEST SUITE V6.0
      *
      * XOP725s.PCO
      * WRITTEN BY SUSAN WATTERS
      *
      * X/O passing SQLCA as a parameter
      * Called by xop725
      *
      * REFERENCES
      *    X/Open CAE SQL Specification
      *    Section 8.1.1
      *
      *         DATE LAST CHANGED  1.11.94 
      *******************************************************

       01 errflg PIC S9(9) DISPLAY SIGN LEADING SEPARATE.

       01 SQL-COD PIC S9(9) DISPLAY SIGN LEADING SEPARATE.

      *answer1 is used to query table INTS
           EXEC SQL BEGIN DECLARE SECTION END-EXEC
       01  SQLSTATE PIC X(5).
       01  uid PIC X(18).
       01  uidx PIC X(18).
       01  answer1 PIC S9(4) COMP.
           EXEC SQL END DECLARE SECTION END-EXEC

       LINKAGE SECTION.
       01  answer                  PIC S9(4) COMP.
           EXEC SQL INCLUDE SQLCA END-EXEC

       PROCEDURE DIVISION USING answer, SQLCA. 
       P0.
           
            EXEC SQL SELECT SUM (INT2)
            INTO :answer1
            FROM INTS WHERE INT1 = 1
            END-EXEC

      *Value recieved from database is returned to calling program
            MOVE answer1 TO answer.

            EXIT PROGRAM.
            STOP RUN.