Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
products/sources/formale sprachen/Cobol/Test-Suite/SQL M/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

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

Datei: dml157.cob   Sprache: Unknown

Untersuchungsergebnis.mco Download desScala {Scala[76] Pl1[101] Isabelle[132]}zum Wurzelverzeichnis wechseln

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

MODULE DML079
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE X1  CURSOR
               FOR SELECT EMPNAME FROM STAFF
               UNION
               SELECT EMPNAME FROM STAFF
               UNION ALL 
               SELECT EMPNAME FROM STAFF
DECLARE X2  CURSOR
               FOR SELECT EMPNAME FROM STAFF
               UNION ALL
               SELECT EMPNAME FROM STAFF
               UNION
               SELECT EMPNAME FROM STAFF


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

PROCEDURE SUB2 SQLCODE;
      UPDATE STAFF SET EMPNUM = 'e2'
                    WHERE EMPNUM = 'E4';

PROCEDURE SUB3 SQLCODE;
      INSERT INTO STAFF(EMPNUM)
                    VALUES ('E1');

PROCEDURE SUB4 SQLCODE;
      INSERT INTO STAFF(EMPNUM)
                    VALUES ('e1');

PROCEDURE SUB5 SQLCODE;
      UPDATE STAFF
                    SET EMPNUM = 'E1' WHERE EMPNUM = 'e1';

PROCEDURE SUB6 SQLCODE;
      INSERT INTO WORKS (EMPNUM,PNUM)
                    VALUES ('e1','p2');

PROCEDURE SUB7 SQLCODE;
      INSERT INTO WORKS (EMPNUM,PNUM)
                    VALUES ('E1','p2');

PROCEDURE SUB8 SQLCODE;
      INSERT INTO WORKS (EMPNUM,PNUM) 
                    VALUES ('E1','P2');

PROCEDURE SUB9 SQLCODE;
      INSERT INTO WORKS (EMPNUM,PNUM)
                    VALUES ('e1', 'P2');

PROCEDURE SUB10 SQLCODE;
      UPDATE WORKS
                    SET EMPNUM = 'E1'
                    WHERE PNUM = 'P5' AND EMPNUM = 'E4';

PROCEDURE SUB11 SQLCODE;
      UPDATE WORKS
                    SET EMPNUM = 'e1'
                    WHERE PNUM = 'P5' AND EMPNUM = 'E4';

PROCEDURE SUB12 SQLCODE;
      UPDATE WORKS
                    SET PNUM = 'P4'
                    WHERE PNUM = 'P2' AND EMPNUM = 'E4';

PROCEDURE SUB13 SQLCODE;
      UPDATE WORKS
                    SET PNUM = 'p4'
                    WHERE PNUM = 'P2' AND EMPNUM = 'E4';

PROCEDURE SUB14 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB15 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0451','pass','MCO');

PROCEDURE SUB16 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0451','fail','MCO');

PROCEDURE SUB17 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB18 SQLCODE;
    OPEN X1;

PROCEDURE SUB19 SQLCODE;
      CLOSE X1;

PROCEDURE SUB20 SQLCODE;
    OPEN X2;

PROCEDURE SUB21 SQLCODE;
      CLOSE X2;

PROCEDURE SUB22 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0452','pass','MCO');

PROCEDURE SUB23 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0452','fail','MCO');

PROCEDURE SUB24 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB25 SQLCODE;
      UPDATE PROJ
                    SET CITY = NULL WHERE PNAME = 'IRM';

PROCEDURE SUB26 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1 
                    FROM PROJ
                    WHERE CITY IS NULL;

PROCEDURE SUB27 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                    FROM PROJ
                    WHERE CITY = ALL (SELECT CITY
                    FROM STAFF
                    WHERE EMPNUM = 'E8');

PROCEDURE SUB28 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT2
                    FROM PROJ
                    WHERE CITY <> ALL (SELECT CITY
                    FROM STAFF
                    WHERE EMPNUM = 'E8');

PROCEDURE SUB29 SQLCODE
    :COUNT3 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT3
                    FROM PROJ
                    WHERE CITY = ANY (SELECT CITY
                    FROM STAFF
                    WHERE EMPNUM = 'E8');

PROCEDURE SUB30 SQLCODE
    :COUNT4 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT4
                    FROM PROJ
                    WHERE CITY <> ANY (SELECT CITY
                    FROM STAFF
                    WHERE EMPNUM = 'E8');

PROCEDURE SUB31 SQLCODE
    :COUNT5 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT5
                    FROM PROJ
                    WHERE CITY = SOME (SELECT CITY
                    FROM STAFF
                    WHERE EMPNUM = 'E8');

PROCEDURE SUB32 SQLCODE
    :COUNT6 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT6
                    FROM PROJ
                    WHERE CITY <> SOME (SELECT CITY
                    FROM STAFF
                    WHERE EMPNUM = 'E8');

PROCEDURE SUB33 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB34 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0453','pass','MCO');

PROCEDURE SUB35 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0453','fail','MCO');

PROCEDURE SUB36 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB37 SQLCODE
    :EMPNM1 CHAR(20);
      FETCH X1 INTO :EMPNM1;

PROCEDURE SUB38 SQLCODE
    :EMPNM1 CHAR(20);
      FETCH X2 INTO :EMPNM1;

[ zur Elbe Produktseite wechseln0.114Quellennavigators  ]