|
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.
¤ Dauer der Verarbeitung: 0.25 Sekunden
(vorverarbeitet)
¤
|
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.
|
