Quelle  yts773.mco

-- 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;