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

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

DECLARE A  CURSOR
               FOR SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES
               WHERE TABLE_SCHEMA = 'CTS1' AND TABLE_TYPE = 'BASE TABLE'
               AND ( TABLE_NAME = 'LONGIDENTIFIERSAAAA'
               OR TABLE_NAME = 'longidentifiersaaab'
               OR TABLE_NAME = '0"LONGIDENTIFIERS_1'
               OR TABLE_NAME = '0"LONGIDENTIFIERS_2'
               OR TABLE_NAME = 'lngIDENTIFIER% .,()' )
               ORDER BY TABLE_NAME

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 "LONGIDENTIFIERSAAAA" (TNUM
                  NUMERIC(5));

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      CREATE TABLE "longidentifiersaaab" (TNUM
                  NUMERIC(5));

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      CREATE TABLE "0""LONGIDENTIFIERS_1" (TNUM
                  NUMERIC(5));

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      CREATE TABLE "0""LONGIDENTIFIERS_2" (TNUM
                  NUMERIC(5));

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      CREATE TABLE "lngIDENTIFIER% .,()" (TNUM
                  NUMERIC(5));

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :AA NUMERIC (9));
      SELECT  COUNT(*) INTO :AA
                    FROM INFORMATION_SCHEMA.TABLES
                    WHERE TABLE_SCHEMA = 'CTS1'
                    AND TABLE_TYPE = 'BASE TABLE'
                    AND ( TABLE_NAME = 'LONGIDENTIFIERSAAAA'
                    OR TABLE_NAME = 'longidentifiersaaab'
                    OR TABLE_NAME = '0"LONGIDENTIFIERS_1'
                    OR TABLE_NAME = '0"LONGIDENTIFIERS_2'
                    OR TABLE_NAME = 'lngIDENTIFIER% .,()' );

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
    OPEN a;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :BB CHAR(49));
      FETCH a INTO :BB;

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :BB CHAR(49));
      FETCH a INTO :BB;

PROCEDURE SUB17 (SQLCODE, SQLSTATE,
    :BB CHAR(49));
      FETCH a INTO :BB;

PROCEDURE SUB18 (SQLCODE, SQLSTATE,
    :BB CHAR(49));
      FETCH a INTO :BB;

PROCEDURE SUB19 (SQLCODE, SQLSTATE,
    :BB CHAR(49));
      FETCH a INTO :BB;

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      DROP TABLE "LONGIDENTIFIERSAAAA" CASCADE;

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      DROP TABLE "longidentifiersaaab" CASCADE;

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      DROP TABLE "0""LONGIDENTIFIERS_1" CASCADE;

PROCEDURE SUB24 (SQLCODE, SQLSTATE);
      DROP TABLE "0""LONGIDENTIFIERS_2" CASCADE;

PROCEDURE SUB25 (SQLCODE, SQLSTATE);
      DROP TABLE "lngIDENTIFIER% .,()" CASCADE;

PROCEDURE SUB26 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB29 (SQLCODE, SQLSTATE);
      COMMIT WORK;