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

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

MODULE DML062
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE CHICHI CURSOR FOR SELECT EMPNUM FROM STAFF1
             WHERE EMPNUM = 'E3'
DECLARE MAC CURSOR FOR SELECT EMPNUM FROM WORKS1
             WHERE EMPNUM = 'E3'
DECLARE KING CURSOR FOR SELECT PNUM FROM PROJ1
             WHERE PNUM = 'P2'
DECLARE PIGGY CURSOR FOR
             SELECT EMPNUM,SECOND2 FROM SULLIVAN1.MUL_SCH
             ORDER BY EMPNUM

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

PROCEDURE SUB1 SQLCODE;
      DELETE FROM SULLIVAN1.AUTH_TABLE;

PROCEDURE SUB2 SQLCODE;
      INSERT INTO SULLIVAN1.AUTH_TABLE
                  VALUES (10,'A');

PROCEDURE SUB3 SQLCODE;
      INSERT INTO SULLIVAN1.AUTH_TABLE
                  VALUES (100,'B');

PROCEDURE SUB4 SQLCODE;
      DELETE FROM AA;

PROCEDURE SUB5 SQLCODE;
      INSERT INTO AA
                  VALUES ('In God we trust');

PROCEDURE SUB6 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB7 SQLCODE;
      DELETE FROM SULLIVAN1.AUTH_TABLE;

PROCEDURE SUB8 SQLCODE;
      DELETE FROM AA;

PROCEDURE SUB9 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB10 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT1 FROM
                  SULLIVAN1.AUTH_TABLE;

PROCEDURE SUB11 SQLCODE
    :TEST1 CHAR(20);
      SELECT CHARTEST INTO  :TEST1 FROM AA;

PROCEDURE SUB12 SQLCODE;
      DELETE FROM AA;

PROCEDURE SUB13 SQLCODE;
      DELETE FROM SULLIVAN1.AUTH_TABLE;

PROCEDURE SUB14 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0274','pass','MCO');

PROCEDURE SUB15 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0274','fail','MCO');

PROCEDURE SUB16 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB17 SQLCODE;
      DELETE FROM STAFF1;

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

PROCEDURE SUB19 SQLCODE;
      INSERT INTO WORKS1
                  SELECT * FROM WORKS;

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

PROCEDURE SUB21 SQLCODE;
    OPEN CHICHI;

PROCEDURE SUB22 SQLCODE;
    OPEN MAC;

PROCEDURE SUB23 SQLCODE;
    OPEN KING;

PROCEDURE SUB24 SQLCODE
    :EMPN1 CHAR(3);
      FETCH CHICHI INTO  :EMPN1;

PROCEDURE SUB25 SQLCODE
    :EMPN2 CHAR(3);
      FETCH MAC INTO  :EMPN2;

PROCEDURE SUB26 SQLCODE
    :PNUM1 CHAR(3);
      FETCH KING INTO  :PNUM1;

PROCEDURE SUB27 SQLCODE;
      UPDATE STAFF1
                  SET EMPNUM = 'E9'
                  WHERE CURRENT OF CHICHI;

PROCEDURE SUB28 SQLCODE;
      UPDATE WORKS1
                  SET EMPNUM = 'E9', PNUM = 'P9'
                  WHERE CURRENT OF MAC;

PROCEDURE SUB29 SQLCODE;
      UPDATE PROJ1
                  SET PNUM = 'P9'
                  WHERE CURRENT OF KING;

PROCEDURE SUB30 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB31 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT1 FROM
                  STAFF1,WORKS1,PROJ1
                  WHERE STAFF1.EMPNUM = 'E9' AND
                  STAFF1.EMPNUM = WORKS1.EMPNUM AND
                  PROJ1.PNUM = WORKS1.PNUM;

PROCEDURE SUB32 SQLCODE;
      DELETE FROM STAFF1;

PROCEDURE SUB33 SQLCODE;
      DELETE FROM PROJ1;

PROCEDURE SUB34 SQLCODE;
      DELETE FROM WORKS1;

PROCEDURE SUB35 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0275','pass','MCO');

PROCEDURE SUB36 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0275','fail','MCO');

PROCEDURE SUB37 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB38 SQLCODE;
      DELETE FROM SULLIVAN1.AUTH_TABLE;

PROCEDURE SUB39 SQLCODE;
      INSERT INTO SULLIVAN1.AUTH_TABLE
                  VALUES (12,'A');

PROCEDURE SUB40 SQLCODE;
    OPEN PIGGY;

PROCEDURE SUB41 SQLCODE
    :EMPN1 CHAR(3)
    :SECND1 CHAR(1);
      FETCH PIGGY INTO  :EMPN1,  :SECND1;

PROCEDURE SUB42 SQLCODE
    :EMPN2 CHAR(3)
    :SECND2 CHAR(1);
      FETCH PIGGY INTO  :EMPN2,  :SECND2;

PROCEDURE SUB43 SQLCODE;
      CLOSE PIGGY;

PROCEDURE SUB44 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB45 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0276','pass','MCO');

PROCEDURE SUB46 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0276','fail','MCO');

PROCEDURE SUB47 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB48 SQLCODE;
      UPDATE WORKS
                  SET HOURS = NULL
                  WHERE PNUM = 'P5' OR EMPNUM = 'E4';

PROCEDURE SUB49 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT1 FROM STAFF;

PROCEDURE SUB50 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT2 FROM STAFF
                  WHERE 40 IN (SELECT HOURS FROM WORKS
                  WHERE STAFF.EMPNUM = WORKS.EMPNUM);

PROCEDURE SUB51 SQLCODE
    :COUNT3 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT3 FROM STAFF
                  WHERE 40 NOT IN (SELECT HOURS FROM WORKS
                  WHERE STAFF.EMPNUM = WORKS.EMPNUM);

PROCEDURE SUB52 SQLCODE
    :COUNT4 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT4 FROM STAFF
                  WHERE EXISTS (SELECT * FROM WORKS
                  WHERE HOURS = 40 AND STAFF.EMPNUM = WORKS.EMPNUM);

PROCEDURE SUB53 SQLCODE
    :COUNT5 NUMERIC (9);
      SELECT COUNT(*) INTO  :COUNT5 FROM STAFF
                  WHERE NOT EXISTS (SELECT * FROM WORKS
                  WHERE HOURS = 40 AND STAFF.EMPNUM = WORKS.EMPNUM);

PROCEDURE SUB54 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB55 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0279','pass','MCO');

PROCEDURE SUB56 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0279','fail','MCO');

PROCEDURE SUB57 SQLCODE;
      COMMIT WORK;