|
-- SQL Test Suite, V6.0, SQL Module yts773.mco
-- 59-byte ID
--
MODULE YTS773
LANGUAGE COBOL
AUTHORIZATION CTS1
PROCEDURE SUB1 (SQLCODE, SQLSTATE,
:UIDX CHAR(18));
SELECT USER INTO :UIDX FROM CTS1.ECCO;
PROCEDURE SUB2 (SQLCODE, SQLSTATE);
ROLLBACK WORK;
PROCEDURE SUB3 (SQLCODE, SQLSTATE,
:CO1 NUMERIC (4));
SELECT COUNT (*) INTO :CO1
FROM INFORMATION_SCHEMA.SQL_LANGUAGES
WHERE SQL_LANGUAGE_SOURCE IS NULL;
PROCEDURE SUB4 (SQLCODE, SQLSTATE,
:CO1 NUMERIC (4));
SELECT COUNT (*) INTO :CO1
FROM INFORMATION_SCHEMA.SQL_LANGUAGES
WHERE SQL_LANGUAGE_BINDING_STYLE = 'EMBEDDED'
AND SQL_LANGUAGE_PROGRAMMING_LANGUAGE = 'C';
PROCEDURE SUB5 (SQLCODE, SQLSTATE,
:CO1 NUMERIC (4));
SELECT COUNT (*) INTO :CO1
FROM INFORMATION_SCHEMA.SQL_LANGUAGES
WHERE NOT
(( SQL_LANGUAGE_SOURCE = 'ISO 9075' AND
SQL_LANGUAGE_YEAR IS NOT NULL AND
SQL_LANGUAGE_CONFORMANCE IS NOT NULL AND
SQL_LANGUAGE_IMPLEMENTATION IS NULL AND
( ( SQL_LANGUAGE_YEAR = '1987' AND
SQL_LANGUAGE_CONFORMANCE IN ( '1', '2' ) AND
SQL_LANGUAGE_INTEGRITY IS NULL AND
( (SQL_LANGUAGE_BINDING_STYLE = 'DIRECT' AND
SQL_LANGUAGE_PROGRAMMING_LANGUAGE IS NULL )
OR
(SQL_LANGUAGE_BINDING_STYLE IN
-- SQL Test Suite, V6.0, SQL Module yts773.mco
-- 59-byte ID
--
( 'EMBEDDED', 'MODULE' ) AND
SQL_LANGUAGE_PROGRAMMING_LANGUAGE IN
( 'COBOL', 'FORTRAN', 'PASCAL', 'PLI' ) ) ) )
OR
( SQL_LANGUAGE_YEAR = '1989' AND
SQL_LANGUAGE_CONFORMANCE IN ( '1', '2' ) AND
SQL_LANGUAGE_INTEGRITY IN ('NO', 'YES') AND
( ( SQL_LANGUAGE_BINDING_STYLE = 'DIRECT' AND
SQL_LANGUAGE_PROGRAMMING_LANGUAGE IS NULL )
OR
( SQL_LANGUAGE_BINDING_STYLE IN
-- SQL Test Suite, V6.0, SQL Module yts773.mco
-- 59-byte ID
--
( 'EMBEDDED', 'MODULE' ) AND
SQL_LANGUAGE_PROGRAMMING_LANGUAGE IN
( 'COBOL', 'FORTRAN', 'PASCAL', 'PLI' ) ) ) )
OR
( SQL_LANGUAGE_YEAR = '1992' AND
SQL_LANGUAGE_CONFORMANCE IN
( 'ENTRY', 'INTERMEDIATE', 'FULL' ) AND
SQL_LANGUAGE_INTEGRITY IS NULL AND
( ( SQL_LANGUAGE_BINDING_STYLE = 'DIRECT' AND
SQL_LANGUAGE_PROGRAMMING_LANGUAGE IS NULL )
OR
( SQL_LANGUAGE_BINDING_STYLE IN
-- SQL Test Suite, V6.0, SQL Module yts773.mco
-- 59-byte ID
--
( 'EMBEDDED', 'MODULE' ) AND
SQL_LANGUAGE_PROGRAMMING_LANGUAGE IN
( 'ADA', 'C', 'COBOL',
'FORTRAN', 'MUMPS', 'PASCAL', 'PLI' ) ) ) ) ) )
OR
(SQL_LANGUAGE_SOURCE <> 'ISO 9075'));
PROCEDURE SUB6 (SQLCODE, SQLSTATE);
ROLLBACK WORK;
PROCEDURE SUB7 (SQLCODE, SQLSTATE);
INSERT INTO CTS1.TESTREPORT
VALUES('7555','pass','MCO');
PROCEDURE SUB8 (SQLCODE, SQLSTATE);
INSERT INTO CTS1.TESTREPORT
VALUES('7555','fail','MCO');
PROCEDURE SUB9 (SQLCODE, SQLSTATE);
COMMIT WORK;
[ Dauer der Verarbeitung: 0.12 Sekunden
(vorverarbeitet)
]
|
