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 Thinking Intellekt

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/Sources/formale Sprachen/Cobol/Test-Suite/SQL M/

Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: dml181.mco Sprache: Unknown

Spracherkennung für: .mco vermutete Sprache: Scala {Scala[77] Pl1[96] Lex[100]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

-- SQL Test Suite, V6.0, SQL Module yts759.mco
-- 59-byte ID
--
MODULE YTS759
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 DOMAIN emp_nos INTEGER;

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      GRANT USAGE ON emp_nos TO CTS2 WITH GRANT OPTION
                 ;

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'CTS2';

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      CREATE TABLE EMP_INFO
                    (  empno       CTS1.emp_nos,
                    emp_name    char(10),
                    salary      smallint);

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      INSERT INTO EMP_INFO VALUES (1, 'watters',20000)
                 ;

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      GRANT USAGE ON CTS1.emp_nos TO CTS3;

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'CTS3';

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      DROP TABLE emp CASCADE;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      CREATE TABLE emp
                    (col1    CTS1.emp_nos,
                    col2    char(10));

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      INSERT INTO emp VALUES (2, 'pratt');

PROCEDURE SUB20 (SQLCODE, SQLSTATE,
    :EMP_CK NUMERIC (9));
      SELECT col1 INTO :EMP_CK FROM emp;

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      DROP TABLE EMP CASCADE;

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB24 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'CTS2';

PROCEDURE SUB25 (SQLCODE, SQLSTATE);
      DROP TABLE EMP_INFO CASCADE;

PROCEDURE SUB26 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB27 (SQLCODE, SQLSTATE);
      SET SESSION AUTHORIZATION 'CTS1';

PROCEDURE SUB28 (SQLCODE, SQLSTATE);
      DROP DOMAIN emp_nos CASCADE;

PROCEDURE SUB29 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB32 (SQLCODE, SQLSTATE);
      COMMIT WORK;