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


Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/C/Lyx/images/ Datei vom 26.9.1998 mit Größe 625 B

Quelle cdr009.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module cdr009.mco
-- 59-byte ID

MODULE CDR009
LANGUAGE COBOL
AUTHORIZATION SUN

PROCEDURE AUTHCK SQLCODE
  :UIDX CHAR(18);
      SELECT USER INTO :UIDX FROM SUN.ECCO;

PROCEDURE SUB1 SQLCODE;
      DELETE FROM WORKS3;

PROCEDURE SUB2 SQLCODE;
      DELETE FROM STAFF3;

PROCEDURE SUB3 SQLCODE;
      INSERT INTO STAFF3
                  VALUES('E1','Alice',12,'Deale');

PROCEDURE SUB4 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                  FROM STAFF3;

PROCEDURE SUB5 SQLCODE;
      INSERT INTO STAFF3
                  VALUES('E1','Tom',12,'Newyork');

PROCEDURE SUB6 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT2
                  FROM STAFF3;

PROCEDURE SUB7 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0327','pass','MCO');

PROCEDURE SUB8 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0327','fail','MCO');

PROCEDURE SUB9 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB10 SQLCODE;
      DELETE  FROM WORKS3;

PROCEDURE SUB11 SQLCODE;
      DELETE  FROM PROJ3;

PROCEDURE SUB12 SQLCODE;
      DELETE  FROM STAFF3;

PROCEDURE SUB13 SQLCODE;
      INSERT INTO STAFF3
                  SELECT * FROM STAFF;

PROCEDURE SUB14 SQLCODE;
      INSERT INTO PROJ3
                  SELECT * FROM PROJ;

PROCEDURE SUB15 SQLCODE;
      INSERT INTO WORKS3
                  SELECT * FROM WORKS;

PROCEDURE SUB16 SQLCODE;
      UPDATE STAFF3
                  SET EMPNUM = 'E9'
                  WHERE EMPNUM = 'E2';

PROCEDURE SUB17 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT1
                  FROM STAFF3
                  WHERE EMPNUM = 'E2';

PROCEDURE SUB18 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0328','pass','MCO');

PROCEDURE SUB19 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0328','fail','MCO');

PROCEDURE SUB20 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB21 SQLCODE;
      DELETE FROM WORKS3;

PROCEDURE SUB22 SQLCODE;
      DELETE FROM STAFF3;

PROCEDURE SUB23 SQLCODE;
      INSERT INTO STAFF3
                  VALUES('E1','Alice',45,'Deale');

PROCEDURE SUB24 SQLCODE;
      INSERT INTO STAFF3
                  VALUES('E2','Tom',45,'Deale');

PROCEDURE SUB25 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                  FROM STAFF3;

PROCEDURE SUB26 SQLCODE;
      UPDATE STAFF3
                  SET EMPNUM = 'E1'
                  WHERE EMPNUM = 'E2';

PROCEDURE SUB27 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT2
                  FROM STAFF3
                  WHERE EMPNUM = 'E2';

PROCEDURE SUB28 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0329','pass','MCO');

PROCEDURE SUB29 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0329','fail','MCO');

PROCEDURE SUB30 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB31 SQLCODE;
      DELETE  FROM WORKS3;

PROCEDURE SUB32 SQLCODE;
      DELETE  FROM PROJ3;

PROCEDURE SUB33 SQLCODE;
      DELETE  FROM STAFF3;

PROCEDURE SUB34 SQLCODE;
      INSERT INTO STAFF3
                  SELECT * FROM STAFF;

PROCEDURE SUB35 SQLCODE;
      INSERT INTO PROJ3
                  SELECT * FROM PROJ;

PROCEDURE SUB36 SQLCODE;
      INSERT INTO WORKS3
                  SELECT * FROM WORKS;

PROCEDURE SUB37 SQLCODE;
      UPDATE WORKS3
                  SET EMPNUM = 'E9'
                  WHERE EMPNUM = 'E2';

PROCEDURE SUB38 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT1
                  FROM WORKS3
                  WHERE EMPNUM = 'E2';

PROCEDURE SUB39 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0330','pass','MCO');

PROCEDURE SUB40 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0330','fail','MCO');

PROCEDURE SUB41 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB42 SQLCODE;
      DELETE  FROM WORKS3;

PROCEDURE SUB43 SQLCODE;
      DELETE  FROM STAFF3;

PROCEDURE SUB44 SQLCODE;
      DELETE  FROM PROJ3;

PROCEDURE SUB45 SQLCODE;
      INSERT INTO STAFF3
                  SELECT * FROM STAFF;

PROCEDURE SUB46 SQLCODE;
      INSERT INTO PROJ3
                  SELECT * FROM PROJ;

PROCEDURE SUB47 SQLCODE;
      INSERT INTO WORKS3
                  SELECT * FROM WORKS;

PROCEDURE SUB48 SQLCODE;
      UPDATE WORKS3
                  SET EMPNUM = 'E2'
                  WHERE EMPNUM = 'E1';

PROCEDURE SUB49 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT1
                  FROM WORKS3
                  WHERE EMPNUM = 'E1';

PROCEDURE SUB50 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0331','pass','MCO');

PROCEDURE SUB51 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0331','fail','MCO');

PROCEDURE SUB52 SQLCODE;
      COMMIT WORK;