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

Quelle dml058.mco Sprache: unbekannt

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

MODULE DML058
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE SUN CURSOR
             FOR SELECT NUMKEY FROM UPUNIQ
             ORDER BY NUMKEY DESC

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

PROCEDURE SUB1 SQLCODE;
      DELETE FROM STAFF1;

PROCEDURE SUB2 SQLCODE;
      INSERT INTO STAFF1
                  SELECT  * FROM STAFF;

PROCEDURE SUB3 SQLCODE
    :II NUMERIC (9);
      SELECT COUNT(*) INTO  :II
                  FROM STAFF1;

PROCEDURE SUB4 SQLCODE;
      INSERT INTO STAFF1
                  VALUES ('E9','Tom',50,'London');

PROCEDURE SUB5 SQLCODE;
      UPDATE STAFF1
                  SET GRADE = 40
                  WHERE EMPNUM = 'E2';

PROCEDURE SUB6 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB7 SQLCODE;
      DELETE FROM STAFF1;

PROCEDURE SUB8 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB9 SQLCODE
    :I NUMERIC (9);
      SELECT COUNT(*) INTO  :I
                  FROM STAFF1
                  WHERE GRADE > 12;

PROCEDURE SUB10 SQLCODE;
      DELETE FROM STAFF1;

PROCEDURE SUB11 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0251','pass','MCO');

PROCEDURE SUB12 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0251','fail','MCO');

PROCEDURE SUB13 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB14 SQLCODE;
      DELETE FROM STAFF1;

PROCEDURE SUB15 SQLCODE;
      INSERT INTO STAFF1
                  SELECT * FROM STAFF;

PROCEDURE SUB16 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB17 SQLCODE;
      INSERT INTO STAFF1
                  VALUES ('E10','Tom',50,'London');

PROCEDURE SUB18 SQLCODE;
      UPDATE STAFF1
                  SET GRADE = 40
                  WHERE EMPNUM = 'E1';

PROCEDURE SUB19 SQLCODE;
      DELETE FROM STAFF1
                  WHERE EMPNUM = 'E2';

PROCEDURE SUB20 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB21 SQLCODE
    :I NUMERIC (9);
      SELECT SUM(GRADE) INTO  :I
                  FROM STAFF1;

PROCEDURE SUB22 SQLCODE;
      DELETE FROM STAFF1;

PROCEDURE SUB23 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0252','pass','MCO');

PROCEDURE SUB24 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0252','fail','MCO');

PROCEDURE SUB25 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB26 SQLCODE;
    OPEN SUN;

PROCEDURE SUB27 SQLCODE;
      CLOSE SUN;

PROCEDURE SUB28 SQLCODE
    :I NUMERIC (9)
    :II NUMERIC (9);
      SELECT MAX(NUMKEY), MIN(NUMKEY)
                  INTO    :I, :II
                  FROM   UPUNIQ;

PROCEDURE SUB29 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB30 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0253','pass','MCO');

PROCEDURE SUB31 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0253','fail','MCO');

PROCEDURE SUB32 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB33 SQLCODE;
      DELETE FROM PROJ1;

PROCEDURE SUB34 SQLCODE;
      INSERT INTO PROJ1
                  SELECT * FROM PROJ;

PROCEDURE SUB35 SQLCODE;
      UPDATE PROJ1
                  SET  CITY = PTYPE;

PROCEDURE SUB36 SQLCODE
    :CITY1 CHAR(15);
      SELECT CITY INTO  :CITY1
                  FROM PROJ1
                  WHERE PNUM = 'P1';

PROCEDURE SUB37 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB38 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0254','pass','MCO');

PROCEDURE SUB39 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0254','fail','MCO');

PROCEDURE SUB40 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB41 SQLCODE;
      DELETE FROM T4;

PROCEDURE SUB42 SQLCODE;
      INSERT INTO T4
                  VALUES (USER,100,'good','luck');

PROCEDURE SUB43 SQLCODE
    :TUSER1 CHAR(110);
      SELECT STR110 INTO  :TUSER1 FROM T4
                  WHERE NUM6 = 100;

PROCEDURE SUB44 SQLCODE;
      INSERT INTO T4
                  VALUES ('Hello',101,'good','luck');

PROCEDURE SUB45 SQLCODE;
      UPDATE T4
                  SET STR110 = USER
                  WHERE NUM6 = 101;

PROCEDURE SUB46 SQLCODE
    :TUSER2 CHAR(110);
      SELECT STR110 INTO  :TUSER2 FROM T4
                  WHERE NUM6 = 101;

PROCEDURE SUB47 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB48 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0255','pass','MCO');

PROCEDURE SUB49 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0255','fail','MCO');

PROCEDURE SUB50 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB51 SQLCODE;
      DELETE FROM T4;

PROCEDURE SUB52 SQLCODE;
      INSERT INTO T4
                  VALUES ('HU',100,'good','luck');

PROCEDURE SUB53 SQLCODE
    :TUSER1 CHAR(110);
      SELECT STR110 INTO  :TUSER1 FROM T4
                  WHERE STR110 = USER;

PROCEDURE SUB54 SQLCODE;
      INSERT INTO T4
                  VALUES ('Hello',101,'good','luck');

PROCEDURE SUB55 SQLCODE;
      DELETE FROM T4
                  WHERE STR110 = USER;

PROCEDURE SUB56 SQLCODE
    :II NUMERIC (9);
      SELECT COUNT(*) INTO  :II FROM T4
                  WHERE STR110 LIKE '%HU%';

PROCEDURE SUB57 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB58 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0256','pass','MCO');

PROCEDURE SUB59 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0256','fail','MCO');

PROCEDURE SUB60 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB61 SQLCODE
    :JJ NUMERIC (9);
      FETCH SUN INTO  :JJ;

PROCEDURE SUB62 SQLCODE
    :JJ NUMERIC (9);
      UPDATE UPUNIQ
                    SET NUMKEY =  :JJ + 1
                    WHERE NUMKEY =  :JJ;