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.

quality100%

¤ Dauer der Verarbeitung: 0.41 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.