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


Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/SQL P/dml1-99/ Datei vom 4.1.2008 mit Größe 8 kB

SSL xts756.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module xts756.mco
-- 59-byte ID
--
MODULE XTS756
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);
      CREATE DOMAIN CHARDOMAIN AS VARCHAR (15)
                    CONSTRAINT cons_strdom CHECK (VALUE IN
                  ('ATHENS','CORFU','RHODES'));

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*) INTO :COUN FROM
                  INFORMATION_SCHEMA.DOMAINS
                    WHERE DOMAIN_SCHEMA = 'CTS1' AND DOMAIN_NAME =
                  'CHARDOMAIN';

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      CREATE TABLE TAB756a
                    (T756a_COL1  NUMERIC(3) PRIMARY KEY,
                    DNAME      VARCHAR(15),
                    LOC        CHARDOMAIN UNIQUE);

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      CREATE TABLE TAB756b
                    (T756b_COL_1    NUMERIC(5) PRIMARY KEY,
                    ENAME         VARCHAR(15) NOT NULL,
                    FOREIGN KEY(ENAME) REFERENCES TAB756a(LOC));

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      CREATE VIEW V_756a
                    AS SELECT LOC,DNAME FROM CTS1.TAB756a;

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      CREATE VIEW V_756b
                    AS SELECT LOC,T756a_COL1 FROM CTS1.TAB756a;

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      ALTER TABLE TAB756a DROP COLUMN LOC CASCADE
                 ;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB17 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*) INTO :COUN FROM
                  INFORMATION_SCHEMA.COLUMNS
                    WHERE TABLE_SCHEMA = 'CTS1' AND TABLE_NAME = 'TAB756A'
                    AND COLUMN_NAME = 'LOC';

PROCEDURE SUB18 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*) INTO :COUN FROM
                  INFORMATION_SCHEMA.VIEWS
                    WHERE TABLE_SCHEMA = 'CTS1' AND TABLE_NAME = 'V_756A'
                 ;

PROCEDURE SUB19 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*) INTO :COUN FROM
                  INFORMATION_SCHEMA.VIEWS
                    WHERE TABLE_SCHEMA = 'CTS1' AND TABLE_NAME = 'V_756B'
                 ;

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      DROP TABLE TAB756b CASCADE;

PROCEDURE SUB24 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB25 (SQLCODE, SQLSTATE);
      DROP DOMAIN CHARDOMAIN CASCADE;

PROCEDURE SUB26 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB29 (SQLCODE, SQLSTATE);
      COMMIT WORK;