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 5 kB

Quelle isi002.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module isi002.mco
-- 59-byte ID
--
MODULE ISI002
LANGUAGE COBOL
AUTHORIZATION FLATER

PROCEDURE SUB1 (SQLCODE, SQLSTATE,
    :UIDX CHAR(18));
      SELECT USER INTO :UIDX FROM HU.ECCO;

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.VIEWS
                    WHERE CHECK_OPTION IS NULL;

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.VIEWS
                    WHERE IS_UPDATABLE IS NULL;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.VIEWS
                    WHERE IS_UPDATABLE <> 'YES'
                    AND IS_UPDATABLE <> 'NO';

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.VIEWS
                    WHERE TABLE_SCHEMA IS NULL
                    OR TABLE_NAME IS NULL;

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.VIEWS;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :CTR2 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR2
                    FROM INFORMATION_SCHEMA.VIEWS A,
                    INFORMATION_SCHEMA.VIEWS B
                    WHERE A.TABLE_SCHEMA = B.TABLE_SCHEMA
                    AND A.TABLE_NAME = B.TABLE_NAME;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.VIEWS A WHERE NOT EXISTS
                    (SELECT * FROM INFORMATION_SCHEMA.TABLES B
                    WHERE A.TABLE_SCHEMA = B.TABLE_SCHEMA
                    AND A.TABLE_NAME = B.TABLE_NAME
                    AND B.TABLE_TYPE = 'VIEW');

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC (9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.VIEWS WHERE
                    IS_UPDATABLE = 'NO' AND CHECK_OPTION <> 'NONE';

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :COPT CHAR(8),
    :CTR1 NUMERIC (9));
      SELECT VIEW_DEFINITION INTO :COPT:CTR1
                    FROM INFORMATION_SCHEMA.VIEWS
                    WHERE TABLE_SCHEMA = 'FLATER'
                    AND TABLE_NAME = 'DV1';

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :COPT CHAR(8),
    :IUPT CHAR(3));
      SELECT CHECK_OPTION, IS_UPDATABLE
                    INTO :COPT, :IUPT
                    FROM INFORMATION_SCHEMA.VIEWS
                    WHERE TABLE_SCHEMA = 'FLATER'
                    AND TABLE_NAME = 'DV1';

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :COPT CHAR(8),
    :IUPT CHAR(3));
      SELECT CHECK_OPTION, IS_UPDATABLE
                    INTO :COPT, :IUPT
                    FROM INFORMATION_SCHEMA.VIEWS
                    WHERE TABLE_SCHEMA = 'FLATER'
                    AND TABLE_NAME = 'WCOV';

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :COPT CHAR(8),
    :IUPT CHAR(3));
      SELECT CHECK_OPTION, IS_UPDATABLE
                    INTO :COPT, :IUPT
                    FROM INFORMATION_SCHEMA.VIEWS
                    WHERE TABLE_SCHEMA = 'FLATER'
                    AND TABLE_NAME = 'VS1';

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :COPT CHAR(8),
    :IUPT CHAR(3));
      SELECT CHECK_OPTION, IS_UPDATABLE
                    INTO :COPT, :IUPT
                    FROM INFORMATION_SCHEMA.VIEWS
                    WHERE TABLE_SCHEMA = 'FLATER'
                    AND TABLE_NAME = 'VS2';

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :COPT CHAR(8),
    :IUPT CHAR(3));
      SELECT CHECK_OPTION, IS_UPDATABLE
                    INTO :COPT, :IUPT
                    FROM INFORMATION_SCHEMA.VIEWS
                    WHERE TABLE_SCHEMA = 'FLATER'
                    AND TABLE_NAME = 'VS3';

PROCEDURE SUB17 (SQLCODE, SQLSTATE,
    :COPT CHAR(8),
    :IUPT CHAR(3));
      SELECT CHECK_OPTION, IS_UPDATABLE
                    INTO :COPT, :IUPT
                    FROM INFORMATION_SCHEMA.VIEWS
                    WHERE TABLE_SCHEMA = 'FLATER'
                    AND TABLE_NAME = 'VS4';

PROCEDURE SUB18 (SQLCODE, SQLSTATE,
    :COPT CHAR(8),
    :IUPT CHAR(3));
      SELECT CHECK_OPTION, IS_UPDATABLE
                    INTO :COPT, :IUPT
                    FROM INFORMATION_SCHEMA.VIEWS
                    WHERE TABLE_SCHEMA = 'FLATER'
                    AND TABLE_NAME = 'VS5';

PROCEDURE SUB19 (SQLCODE, SQLSTATE,
    :COPT CHAR(8),
    :IUPT CHAR(3));
      SELECT CHECK_OPTION, IS_UPDATABLE
                    INTO :COPT, :IUPT
                    FROM INFORMATION_SCHEMA.VIEWS
                    WHERE TABLE_SCHEMA = 'FLATER'
                    AND TABLE_NAME = 'VS6';

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0569','pass','MCO');

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      INSERT INTO HU.TESTREPORT
                      VALUES('0569','fail','MCO');

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      COMMIT WORK;