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 Thinking Intellekt

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/Sources/formale Sprachen/COBOL/Test-Suite/SQL M/

Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: yts753.cob Sprache: Unknown

Haftungsausschluß.mco KontaktPython {Python[87] Pl1[115] Fortran[143]}diese Dinge liegen außhalb unserer Verantwortung

-- SQL Test Suite, V6.0, SQL Module dml184.mco
-- 59-byte ID
--
MODULE DML184
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);
      CREATE TABLE T (
                    A CHAR, B CHAR, C CHAR,
                    CONSTRAINT UniqueOnColsAandB UNIQUE (A, B));

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      GRANT REFERENCES (A, B) ON TABLE T TO SCHANZLE
                 ;

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'SCHANZLE';

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      CREATE TABLE S (
                    X CHAR, Y CHAR, Z CHAR,
                    CONSTRAINT RefToColsAandB FOREIGN KEY (X, Y)
                    REFERENCES FLATER.T (A, B));

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'FLATER';

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :NAM1 CHAR(30));
      SELECT CONSTRAINT_NAME
                    INTO :NAM1
                    FROM INFORMATION_SCHEMA.CONSTRAINT_TABLE_USAGE
                    WHERE TABLE_SCHEMA = 'FLATER' AND TABLE_NAME = 'T'
                    AND CONSTRAINT_SCHEMA = 'FLATER';

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :NAM1 CHAR(30));
      SELECT CONSTRAINT_NAME
                    INTO :NAM1
                    FROM INFORMATION_SCHEMA.CONSTRAINT_TABLE_USAGE
                    WHERE TABLE_SCHEMA = 'FLATER' AND TABLE_NAME = 'T'
                    AND CONSTRAINT_SCHEMA = 'SCHANZLE';

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM INFORMATION_SCHEMA.CONSTRAINT_COLUMN_USAGE
                    WHERE TABLE_SCHEMA = 'FLATER'
                    AND TABLE_NAME = 'T'
                    AND (COLUMN_NAME = 'A' OR COLUMN_NAME = 'B')
                    AND CONSTRAINT_SCHEMA = 'FLATER'
                    AND CONSTRAINT_NAME = 'UNIQUEONCOLSAANDB';

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM INFORMATION_SCHEMA.CONSTRAINT_COLUMN_USAGE
                    WHERE TABLE_SCHEMA = 'FLATER'
                    AND TABLE_NAME = 'T'
                    AND (COLUMN_NAME = 'A' OR COLUMN_NAME = 'B')
                    AND CONSTRAINT_SCHEMA = 'SCHANZLE'
                    AND CONSTRAINT_NAME = 'REFTOCOLSAANDB';

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM INFORMATION_SCHEMA.CONSTRAINT_COLUMN_USAGE
                    WHERE TABLE_SCHEMA = 'FLATER'
                    AND TABLE_NAME = 'T';

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT COUNT(*) INTO :INT1
                    FROM INFORMATION_SCHEMA.CONSTRAINT_TABLE_USAGE
                    WHERE TABLE_SCHEMA = 'FLATER'
                    AND TABLE_NAME = 'T';

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      DROP TABLE T CASCADE;

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'SCHANZLE';

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      DROP TABLE S CASCADE;

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB25 (SQLCODE, SQLSTATE);
      COMMIT WORK;