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

Quelle dml166.mco Sprache: unbekannt

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

PROCEDURE SUB1 (SQLCODE, SQLSTATE,
    :UIDX CHAR(18));
      SELECT USER INTO :UIDX FROM HU.ECCO;

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE,
    :XLNGST CHAR(550));
      SELECT
                    'CREATE SCHEMA SYNCH2'
                    '  CREATE DOMAIN PIDTYP AS NUMERIC(15)'
                    '    CONSTRAINT PIDNONNULL CHECK (VALUE IS NOT NULL)'
                    '  CREATE TABLE SYTAB ('
                    '    TEST CHAR (4)'
                    '      CONSTRAINT SYTABKEY PRIMARY KEY,'
                    '    TOKEN PIDTYP'
                    '      CONSTRAINT PIDREF REFERENCES REGISTRY (PID)'
                    '      ON DELETE CASCADE)'
                    '  CREATE TABLE REGISTRY ('
                    '    TEST CHAR (4) NOT NULL,'
                    '    PID PIDTYP UNIQUE)'
                    '  CREATE VIEW IDLES AS'
                    '    SELECT PID FROM REGISTRY'
                    '    WHERE PID NOT IN (SELECT TOKEN'
                    '    FROM SYTAB)'
                    INTO :XLNGST
                    FROM HU.ECCO;

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :XLNGST CHAR(550));
      EXECUTE IMMEDIATE :XLNGST;

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO SYNCH2.SYTAB VALUES ('0000', 67)
                 ;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      INSERT INTO SYNCH2.REGISTRY
                    VALUES ('0000', 67);

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT PID INTO :INT1 FROM SYNCH2.IDLES;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      INSERT INTO SYNCH2.SYTAB VALUES ('0000', 67)
                 ;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT PID INTO :INT1 FROM SYNCH2.IDLES;

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      DELETE FROM SYNCH2.REGISTRY;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :INT1 NUMERIC (9));
      SELECT TOKEN INTO :INT1 FROM SYNCH2.SYTAB;

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :REGST CHAR(26));
      EXECUTE IMMEDIATE :REGST;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      COMMIT WORK;