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

Quelle xts766.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module xts766.mco
-- 59-byte ID
--
MODULE XTS766
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 CHARACTER SET TESTSET GET SQL_TEXT;

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :GTOR CHAR(128),
    :GTEE CHAR(128),
    :OBJSCH CHAR(128),
    :OBJNAM CHAR(128),
    :OBJTYP CHAR(128));
      SELECT GRANTOR, GRANTEE, OBJECT_SCHEMA,
                  OBJECT_NAME, OBJECT_TYPE
                    INTO :GTOR, :GTEE ,:OBJSCH, :OBJNAM, :OBJTYP
                    FROM INFORMATION_SCHEMA.USAGE_PRIVILEGES
                    WHERE OBJECT_TYPE = 'CHARACTER SET'
                    AND OBJECT_NAME = 'TESTSET';

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      DROP CHARACTER SET TESTSET;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*) INTO :COUN
                    FROM INFORMATION_SCHEMA.CHARACTER_SETS
                    WHERE CHARACTER_SET_SCHEMA = 'CTS1'
                    AND CHARACTER_SET_NAME = 'TESTSET';

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      COMMIT WORK;