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

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

MODULE DML073
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE JUPITER CURSOR FOR
               SELECT STAFF.EMPNUM, SUM(HOURS), MIN(HOURS)
               FROM  STAFF, WORKS
               GROUP BY STAFF.EMPNUM
               ORDER BY 1
DECLARE VENUS CURSOR FOR
               SELECT STAFF.EMPNUM, AVG(HOURS), MIN(HOURS)
               FROM  STAFF, WORKS
               WHERE STAFF.EMPNUM IN ('E1','E4','E3') AND
               STAFF.EMPNUM = WORKS.EMPNUM
               GROUP BY STAFF.EMPNUM
               HAVING COUNT(*) > 1
               ORDER BY 1
DECLARE PLUTO CURSOR FOR
               SELECT MAX(STAFF1.GRADE), SUM(STAFF1.GRADE)
               FROM STAFF1, STAFF
               GROUP BY STAFF1.CITY, STAFF.CITY

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

PROCEDURE SUB1 SQLCODE
    :HOUR1 NUMERIC (9)
    :HOUR2 NUMERIC (9);
      SELECT SUM(HOURS), MAX(HOURS)
                    INTO  :HOUR1,  :HOUR2
                    FROM  STAFF, WORKS;

PROCEDURE SUB2 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0393','pass','MCO');

PROCEDURE SUB3 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0393','fail','MCO');

PROCEDURE SUB4 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB5 SQLCODE
    :HOUR1 NUMERIC (9)
    :HOUR2 NUMERIC (9);
      SELECT AVG(HOURS), MIN(HOURS)
                    INTO  :HOUR1,  :HOUR2
                    FROM  STAFF, WORKS
                    WHERE STAFF.EMPNUM = 'E2'
                    AND STAFF.EMPNUM = WORKS.EMPNUM;

PROCEDURE SUB6 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0394','pass','MCO');

PROCEDURE SUB7 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0394','fail','MCO');

PROCEDURE SUB8 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB9 SQLCODE;
    OPEN JUPITER;

PROCEDURE SUB10 SQLCODE
    :EMPNO1 CHAR(3)
    :HOUR1 NUMERIC (9)
    :HOUR2 NUMERIC (9);
      FETCH JUPITER INTO  :EMPNO1,  :HOUR1,  :HOUR2
                 ;

PROCEDURE SUB11 SQLCODE
    :EMPNO1 CHAR(3)
    :HOUR1 NUMERIC (9)
    :HOUR2 NUMERIC (9);
      FETCH JUPITER INTO  :EMPNO1,  :HOUR1,  :HOUR2
                 ;

PROCEDURE SUB12 SQLCODE
    :EMPNO1 CHAR(3)
    :HOUR1 NUMERIC (9)
    :HOUR2 NUMERIC (9);
      FETCH JUPITER INTO  :EMPNO1,  :HOUR1,  :HOUR2
                 ;

PROCEDURE SUB13 SQLCODE
    :EMPNO1 CHAR(3)
    :HOUR1 NUMERIC (9)
    :HOUR2 NUMERIC (9);
      FETCH JUPITER INTO  :EMPNO1,  :HOUR1,  :HOUR2
                 ;

PROCEDURE SUB14 SQLCODE
    :EMPNO1 CHAR(3)
    :HOUR1 NUMERIC (9)
    :HOUR2 NUMERIC (9);
      FETCH JUPITER INTO  :EMPNO1,  :HOUR1,  :HOUR2
                 ;

PROCEDURE SUB15 SQLCODE
    :EMPNO1 CHAR(3)
    :HOUR1 NUMERIC (9)
    :HOUR2 NUMERIC (9);
      FETCH JUPITER INTO  :EMPNO1,  :HOUR1,  :HOUR2
                 ;

PROCEDURE SUB16 SQLCODE;
      CLOSE JUPITER;

PROCEDURE SUB17 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0395','pass','MCO');

PROCEDURE SUB18 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0395','fail','MCO');

PROCEDURE SUB19 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB20 SQLCODE;
    OPEN VENUS;

PROCEDURE SUB21 SQLCODE
    :EMPNO1 CHAR(3)
    :HOUR1 NUMERIC (9)
    :HOUR2 NUMERIC (9);
      FETCH VENUS INTO  :EMPNO1,  :HOUR1,  :HOUR2;

PROCEDURE SUB22 SQLCODE
    :EMPNO1 CHAR(3)
    :HOUR1 NUMERIC (9)
    :HOUR2 NUMERIC (9);
      FETCH VENUS INTO  :EMPNO1,  :HOUR1,  :HOUR2;

PROCEDURE SUB23 SQLCODE
    :EMPNO1 CHAR(3)
    :HOUR1 NUMERIC (9)
    :HOUR2 NUMERIC (9);
      FETCH VENUS INTO  :EMPNO1,  :HOUR1,  :HOUR2;

PROCEDURE SUB24 SQLCODE;
      CLOSE VENUS;

PROCEDURE SUB25 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0396','pass','MCO');

PROCEDURE SUB26 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0396','fail','MCO');

PROCEDURE SUB27 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB28 SQLCODE;
      DELETE FROM STAFF1;

PROCEDURE SUB29 SQLCODE;
      INSERT INTO STAFF
                    VALUES ('E6', 'David', 17, NULL);

PROCEDURE SUB30 SQLCODE;
      INSERT INTO STAFF
                    VALUES ('E7', 'Tony', 18, NULL);

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

PROCEDURE SUB32 SQLCODE;
    OPEN PLUTO;

PROCEDURE SUB33 SQLCODE;
      CLOSE PLUTO;

PROCEDURE SUB34 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB37 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB38 SQLCODE
    :AVG1 NUMERIC (9)
    :AVG2 NUMERIC (9)
    :SUM1 NUMERIC (9)
    :CNT1 NUMERIC (9);
      SELECT AVG(T1.COL4), AVG(T1.COL4 + T2.COL4),
                    SUM(T2.COL4), COUNT(DISTINCT T1.COL4)
                    INTO  :AVG1,  :AVG2,  :SUM1,  :CNT1
                    FROM VTABLE T1, VTABLE T2;

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

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

PROCEDURE SUB41 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB42 SQLCODE
    :SUM1 NUMERIC (9)
    :MAX1 NUMERIC (9)
    :MIN1 NUMERIC (9);
      SELECT SUM(COST), MAX(COST), MIN(COST)
                    INTO  :SUM1,  :MAX1,  :MIN1
                    FROM STAFF_WORKS_DESIGN;

PROCEDURE SUB43 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0419','pass','MCO');

PROCEDURE SUB44 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0419','fail','MCO');

PROCEDURE SUB45 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB46 SQLCODE
    :GRD1 NUMERIC (9)
    :GRD2 NUMERIC (9);
      FETCH PLUTO INTO  :GRD1,  :GRD2;