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 ist001.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module ist001.mco
-- 59-byte ID
--
MODULE IST001
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 INFO_SCHEM.TABLES
                    WHERE TABLE_TYPE IS NULL;

PROCEDURE SUB4 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.TABLES A
                    WHERE NOT EXISTS (
                    SELECT *
                    FROM INFO_SCHEM.COLUMNS B
                    WHERE A.TABLE_SCHEM = B.TABLE_SCHEM
                    AND A.TABLE_NAME = B.TABLE_NAME
                    );

PROCEDURE SUB5 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.TABLES
                    WHERE TABLE_SCHEM IS NULL
                    OR TABLE_NAME IS NULL;

PROCEDURE SUB6 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.TABLES;

PROCEDURE SUB7 SQLCODE SQLSTATE
    :CTR2 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR2
                    FROM INFO_SCHEM.TABLES A, INFO_SCHEM.TABLES B
                    WHERE A.TABLE_SCHEM = B.TABLE_SCHEM
                    AND A.TABLE_NAME = B.TABLE_NAME;

PROCEDURE SUB8 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.TABLES A
                    WHERE NOT EXISTS (
                    SELECT *
                    FROM INFO_SCHEM.SCHEMATA B
                    WHERE A.TABLE_SCHEM = B.SCHEM_NAME
                    );

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

PROCEDURE SUB10 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.TABLES Z WHERE NOT EXISTS
                    (SELECT TABLE_SCHEM, TABLE_NAME FROM
                    INFO_SCHEM.TABLE_PRIVILEGES X
                    WHERE GRANTEE IN ('PUBLIC', USER)
                    AND X.TABLE_SCHEM = Z.TABLE_SCHEM
                    AND X.TABLE_NAME = Z.TABLE_NAME
                    UNION
                    SELECT TABLE_SCHEM, TABLE_NAME FROM
                    INFO_SCHEM.COLUMN_PRIVILEGES Y
                    WHERE GRANTEE IN ('PUBLIC', USER)
                    AND Y.TABLE_SCHEM = Z.TABLE_SCHEM
                    AND Y.TABLE_NAME = Z.TABLE_NAME);

PROCEDURE SUB11 SQLCODE SQLSTATE
    :TTYPE CHAR(16);
      SELECT TABLE_TYPE INTO :TTYPE
                    FROM INFO_SCHEM.TABLES WHERE
                    TABLE_SCHEM = 'FLATER' AND
                    TABLE_NAME = 'USIG';

PROCEDURE SUB12 SQLCODE SQLSTATE
    :TTYPE CHAR(16);
      SELECT TABLE_TYPE INTO :TTYPE
                    FROM INFO_SCHEM.TABLES WHERE
                    TABLE_SCHEM = 'FLATER' AND
                    TABLE_NAME = 'U_SIG';

PROCEDURE SUB13 SQLCODE SQLSTATE
    :TTYPE CHAR(16);
      SELECT TABLE_TYPE INTO :TTYPE
                    FROM INFO_SCHEM.TABLES WHERE
                    TABLE_SCHEM = 'FLATER' AND
                    TABLE_NAME = 'DV1';

PROCEDURE SUB14 SQLCODE SQLSTATE
    :TTYPE CHAR(16);
      SELECT TABLE_TYPE INTO :TTYPE
                    FROM INFO_SCHEM.TABLES WHERE
                    TABLE_SCHEM = 'FLATER' AND
                    TABLE_NAME = 'BASE_WCOV';

PROCEDURE SUB15 SQLCODE SQLSTATE
    :TTYPE CHAR(16);
      SELECT TABLE_TYPE INTO :TTYPE
                    FROM INFO_SCHEM.TABLES WHERE
                    TABLE_SCHEM = 'FLATER' AND
                    TABLE_NAME = 'WCOV';

PROCEDURE SUB16 SQLCODE SQLSTATE
    :TTYPE CHAR(16);
      SELECT TABLE_TYPE INTO :TTYPE
                    FROM INFO_SCHEM.TABLES WHERE
                    TABLE_SCHEM = 'FLATER' AND
                    TABLE_NAME = 'BASE_VS1';

PROCEDURE SUB17 SQLCODE SQLSTATE
    :TTYPE CHAR(16);
      SELECT TABLE_TYPE INTO :TTYPE
                    FROM INFO_SCHEM.TABLES WHERE
                    TABLE_SCHEM = 'FLATER' AND
                    TABLE_NAME = 'VS1';

PROCEDURE SUB18 SQLCODE SQLSTATE
    :TTYPE CHAR(16);
      SELECT TABLE_TYPE INTO :TTYPE
                    FROM INFO_SCHEM.TABLES WHERE
                    TABLE_SCHEM = 'FLATER' AND
                    TABLE_NAME = 'VS2';

PROCEDURE SUB19 SQLCODE SQLSTATE
    :TTYPE CHAR(16);
      SELECT TABLE_TYPE INTO :TTYPE
                    FROM INFO_SCHEM.TABLES WHERE
                    TABLE_SCHEM = 'FLATER' AND
                    TABLE_NAME = 'VS3';

PROCEDURE SUB20 SQLCODE SQLSTATE
    :TTYPE CHAR(16);
      SELECT TABLE_TYPE INTO :TTYPE
                    FROM INFO_SCHEM.TABLES WHERE
                    TABLE_SCHEM = 'FLATER' AND
                    TABLE_NAME = 'VS4';

PROCEDURE SUB21 SQLCODE SQLSTATE
    :TTYPE CHAR(16);
      SELECT TABLE_TYPE INTO :TTYPE
                    FROM INFO_SCHEM.TABLES WHERE
                    TABLE_SCHEM = 'FLATER' AND
                    TABLE_NAME = 'VS5';

PROCEDURE SUB22 SQLCODE SQLSTATE
    :TTYPE CHAR(16);
      SELECT TABLE_TYPE INTO :TTYPE
                    FROM INFO_SCHEM.TABLES WHERE
                    TABLE_SCHEM = 'FLATER' AND
                    TABLE_NAME = 'VS6';

PROCEDURE SUB23 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB26 SQLCODE SQLSTATE;
      COMMIT WORK;