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

-- SQL Test Suite, V6.0, SQL Module dml185.mco
-- 59-byte ID
--
MODULE DML185
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 XX
                    (C1 CHAR(18)   DEFAULT  USER,
                    C2 CHAR(18)   DEFAULT  'USER',
                    C3 CHAR(18)   DEFAULT  'Hello World',
                    C4 CHAR(18)   DEFAULT  NULL,
                    C5 TIMESTAMP  DEFAULT
                    TIMESTAMP '1993-11-10 00:02:00',
                    C6 REAL       DEFAULT  3.3E1,
                    C7 REAL);

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :H CHAR(32),
    :INDIC1 NUMERIC (4));
      SELECT COLUMN_DEF
                    INTO :H :INDIC1
                    FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'XX'
                    AND COLUMN_DEF = 'USER';

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :H CHAR(32),
    :INDIC1 NUMERIC (4));
      SELECT COLUMN_DEF INTO :H :INDIC1
                    FROM INFO_SCHEM.COLUMNS WHERE TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'XX' AND COLUMN_DEF = '''USER'''
                 ;

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :H CHAR(32),
    :INDIC1 NUMERIC (4));
      SELECT COLUMN_DEF INTO :H :INDIC1
                    FROM INFO_SCHEM.COLUMNS WHERE TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'XX' AND COLUMN_DEF = '''Hello World'''
                 ;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :H CHAR(32),
    :INDIC1 NUMERIC (4));
      SELECT COLUMN_DEF INTO :H :INDIC1
                    FROM INFO_SCHEM.COLUMNS WHERE TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'XX' AND COLUMN_DEF = 'NULL';

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :H CHAR(32),
    :INDIC1 NUMERIC (4));
      SELECT COLUMN_DEF INTO :H :INDIC1
                    FROM INFO_SCHEM.COLUMNS WHERE TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'XX' AND ORDINAL_POSITION = 5;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :H CHAR(32),
    :INDIC1 NUMERIC (4));
      INSERT INTO XX (C4, C5)
                    VALUES ('Timestamp', CAST (:H:INDIC1 AS TIMESTAMP))
                 ;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :INTVAL NUMERIC (9));
      SELECT COUNT(*) INTO :INTVAL
                    FROM XX WHERE C4 = 'Timestamp'
                    AND C5 BETWEEN TIMESTAMP '1993-11-10 00:01:00' AND
                    TIMESTAMP '1993-11-10 00:03:00';

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :FLTVAL NUMERIC (8,4),
    :INDIC1 NUMERIC (4));
      SELECT CAST (COLUMN_DEF AS REAL)
                    INTO :FLTVAL :INDIC1
                    FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME = 'XX'
                    AND ORDINAL_POSITION = 6;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :H CHAR(32),
    :INDIC1 NUMERIC (4));
      SELECT COLUMN_DEF INTO :H :INDIC1
                    FROM INFO_SCHEM.COLUMNS WHERE TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'XX' AND COLUMN_DEF IS NULL;

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      DROP TABLE XX CASCADE;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      COMMIT WORK;