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

Quelle xts752.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module xts752.mco
-- 59-byte ID
--
MODULE XTS752
LANGUAGE COBOL
AUTHORIZATION CTS1

DECLARE SCUR  CURSOR FOR S

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 TABLE TAB752a
                    (COL1 NUMERIC(5),
                    COL2 CHAR(15) NOT NULL UNIQUE,
                    COL3 CHAR(15));

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      CREATE TABLE TAB752b
                    (C1 NUMERIC(5) PRIMARY KEY,
                    C2 CHAR(15),
                    C3 CHAR(15));

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      ALTER TABLE CTS1.TAB752a
                    ADD CONSTRAINT TA752a_PRKEY PRIMARY KEY(COL1);

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :COUNOK NUMERIC (9));
      SELECT COUNT(*) INTO :COUNOK
                    FROM INFORMATION_SCHEMA.KEY_COLUMN_USAGE
                    WHERE TABLE_SCHEMA = 'CTS1' AND TABLE_NAME = 'TA752A'
                    AND CONSTRAINT_NAME = 'TA752A_PRKEY' AND COLUMN_NAME =
                  'COL1';

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      ALTER TABLE TAB752b
                    ADD CONSTRAINT TA752b_FKEY FOREIGN KEY(C2) REFERENCES
                  TAB752a(COL2);

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      DELETE FROM CONCATBUF;

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      INSERT INTO CONCATBUF VALUES (
                    'SELECT COUNT(*) FROM'||
                    '  INFORMATION_SCHEMA.KEY_COLUMN_USAGE' ||
                    '  WHERE TABLE_SCHEMA = ''CTS1''' ||
                    '  AND TABLE_NAME = ''TAB752B''' ||
                    '  AND CONSTRAINT_NAME = ''TA752B_FKEY''' ||
                    '  AND COLUMN_NAME = ''C2'''
                    );

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :LONGST CHAR(240));
      SELECT ZZ INTO :LONGST FROM CONCATBUF;

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :LONGST CHAR(240));
      PREPARE S FROM :LONGST;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
    OPEN SCUR;

PROCEDURE SUB18 (SQLCODE, SQLSTATE,
    :COUNOK NUMERIC (9));
      FETCH SCUR INTO :COUNOK;

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      ALTER TABLE TAB752a
                    ADD CONSTRAINT COL3_CHECK CHECK (COL3 IN
                  ('ATHENS','CORFU','PYLOS'));

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      INSERT INTO TAB752a VALUES(1000,'KILLER','PAROS')
                 ;

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB24 (SQLCODE, SQLSTATE);
      DROP TABLE TAB752a CASCADE;

PROCEDURE SUB25 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB26 (SQLCODE, SQLSTATE);
      DROP TABLE TAB752b CASCADE;

PROCEDURE SUB27 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB30 (SQLCODE, SQLSTATE);
      COMMIT WORK;