Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/sources/formale Sprachen/Cobol/Test-Suite/SQL M/ Datei vom 4.1.2008 mit Größe 2 kB

Quelle xts763.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module xts763.mco
-- 59-byte ID
--
MODULE XTS763
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,
    :COUN NUMERIC (9));
      SELECT COUNT(*) INTO :COUN
                    FROM INFORMATION_SCHEMA.CHARACTER_SETS
                    WHERE CHARACTER_SET_SCHEMA = 'INFORMATION_SCHEMA'
                    AND CHARACTER_SET_NAME = 'SQL_TEXT'
                    AND DEFAULT_COLLATE_SCHEMA = 'INFORMATION_SCHEMA'
                    AND DEFAULT_COLLATE_NAME = 'SQL_TEXT'
                    AND CHARACTER_SET_CATALOG IS NOT NULL
                    AND DEFAULT_COLLATE_CATALOG IS NOT NULL
                    AND FORM_OF_USE IS NOT NULL
                    AND NUMBER_OF_CHARACTERS > 0;

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*) INTO :COUN
                    FROM INFORMATION_SCHEMA.CHARACTER_SETS
                    WHERE CHARACTER_SET_SCHEMA = 'CTS1'
                    AND CHARACTER_SET_NAME = 'CS'
                    AND DEFAULT_COLLATE_SCHEMA = 'INFORMATION_SCHEMA'
                    AND DEFAULT_COLLATE_NAME = 'SQL_TEXT'
                    AND CHARACTER_SET_CATALOG IS NOT NULL
                    AND DEFAULT_COLLATE_CATALOG IS NOT NULL
                    AND FORM_OF_USE IS NOT NULL
                    AND NUMBER_OF_CHARACTERS > 0;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :CHR1 CHAR(30),
    :CHR2 CHAR(30),
    :CHR3 CHAR(30),
    :NUM1 NUMERIC (9));
      SELECT CHARACTER_SET_CATALOG,
                  DEFAULT_COLLATE_CATALOG,
                    FORM_OF_USE, NUMBER_OF_CHARACTERS INTO :CHR1, :CHR2,
                  :CHR3,
                    :NUM1 FROM INFORMATION_SCHEMA.CHARACTER_SETS WHERE
                    CHARACTER_SET_SCHEMA = 'CTS1' AND
                    CHARACTER_SET_NAME = 'CS';

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7063','pass','MCO');

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7063','fail','MCO');

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      COMMIT WORK;