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

-- SQL Test Suite, V6.0, SQL Module xts703.mco
-- 59-byte ID
--
MODULE XTS703
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,
    :COUN NUMERIC (9));
      SELECT COUNT(*)
                    INTO   :COUN
                    FROM   STAFF
                    WHERE  UNIQUE(SELECT * FROM STAFF);

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*) INTO :COUN FROM STAFF AS X
                    WHERE UNIQUE (SELECT * FROM STAFF AS Y
                    WHERE X.EMPNUM = Y.EMPNUM
                    AND X.EMPNAME  = Y.EMPNAME
                    AND X.GRADE    = Y.GRADE
                    AND X.CITY     = Y.CITY);

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*)
                    INTO   :COUN
                    FROM   STAFF
                    WHERE  UNIQUE(SELECT GRADE FROM STAFF);

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :NAAM CHAR(24),
    :GRADE NUMERIC (4));
      SELECT EMPNUM, GRADE INTO :NAAM, :GRADE FROM STAFF
                  X
                    WHERE (UNIQUE(SELECT GRADE FROM STAFF Y
                    WHERE X.GRADE = Y.GRADE));

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT (*) INTO :COUN FROM STAFF X
                    WHERE NOT UNIQUE (SELECT GRADE FROM STAFF Y
                    WHERE X.GRADE = Y.GRADE);

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      INSERT INTO STAFFC (EMPNUM,EMPNAME,GRADE,CITY)
                    VALUES('E9','Terry',13,NULL);

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      INSERT INTO STAFFC (EMPNUM,EMPNAME,GRADE,CITY)
                    VALUES('E8','Nick',13,NULL);

PROCEDURE SUB18 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*)
                    INTO   :COUN
                    FROM   STAFFC AS X
                    WHERE UNIQUE(SELECT CITY, MGR FROM STAFFC AS Y
                    WHERE X.GRADE = Y.GRADE);

PROCEDURE SUB19 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*)
                    INTO   :COUN
                    FROM   STAFFC AS X
                    WHERE NOT UNIQUE(SELECT GRADE, CITY FROM STAFFC AS Y
                    WHERE X.GRADE = Y.GRADE);

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      COMMIT WORK;