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 Thinking Intellekt

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/Sources/formale Sprachen/COBOL/Test-Suite/SQL M/

Quellcode-Bibliothek

^© Kompilation durch diese Firma

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

Datei: Sprache: Cobol

Untersuchungsergebnis.mco Download desScala {Scala[69] Pl1[82] Lex[92]}zum Wurzelverzeichnis wechseln

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

MODULE DML013
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE X CURSOR
             FOR SELECT EMPNUM
             FROM   STAFF
             WHERE  GRADE =
             (SELECT MAX( GRADE )
             FROM   STAFF )
             ORDER BY EMPNUM

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

PROCEDURE SUB1 SQLCODE;
      INSERT INTO WORKS
                  VALUES('E5','P5',NULL);

PROCEDURE SUB2 SQLCODE
    :I NUMERIC (9);
      SELECT COUNT(DISTINCT HOURS)
                  INTO    :I
                  FROM   WORKS;

PROCEDURE SUB3 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB4 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0039','pass','MCO');

PROCEDURE SUB5 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0039','fail','MCO');

PROCEDURE SUB6 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB7 SQLCODE;
      INSERT INTO WORKS
                  VALUES('E5','P5',NULL);

PROCEDURE SUB8 SQLCODE
    :I NUMERIC (9);
      SELECT SUM(ALL HOURS)
                  INTO    :I
                  FROM   WORKS;

PROCEDURE SUB9 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB10 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0167','pass','MCO');

PROCEDURE SUB11 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0167','fail','MCO');

PROCEDURE SUB12 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB13 SQLCODE;
      INSERT INTO WORKS
                  VALUES('E5','P5',NULL);

PROCEDURE SUB14 SQLCODE
    :I NUMERIC (9);
      SELECT SUM(HOURS)
                  INTO    :I
                  FROM   WORKS;

PROCEDURE SUB15 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB16 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0168','pass','MCO');

PROCEDURE SUB17 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0168','fail','MCO');

PROCEDURE SUB18 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB19 SQLCODE;
      INSERT INTO WORKS
                  VALUES('E5','P5',NULL);

PROCEDURE SUB20 SQLCODE
    :I NUMERIC (9);
      SELECT COUNT(*)
                  INTO    :I
                  FROM   WORKS;

PROCEDURE SUB21 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB24 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB25 SQLCODE
    :I NUMERIC (9);
      SELECT SUM(HOURS)
                  INTO    :I
                  FROM   WORKS
                  WHERE  PNUM='P2';

PROCEDURE SUB26 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0040','pass','MCO');

PROCEDURE SUB27 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0040','fail','MCO');

PROCEDURE SUB28 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB29 SQLCODE
    :I NUMERIC (9);
      SELECT SUM (DISTINCT HOURS)
                  INTO    :I
                  FROM   WORKS
                  WHERE  PNUM='P2';

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

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

PROCEDURE SUB32 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB33 SQLCODE
    :I NUMERIC (9);
      SELECT SUM(HOURS)+10
                  INTO    :I
                  FROM   WORKS
                  WHERE  PNUM='P2';

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

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

PROCEDURE SUB36 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB37 SQLCODE;
    OPEN X;

PROCEDURE SUB38 SQLCODE
    :EMPNO1 CHAR(3);
      FETCH X INTO  :EMPNO1;

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

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

PROCEDURE SUB41 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB42 SQLCODE
    :EMPNO1 CHAR(3);
      SELECT EMPNUM
                  INTO    :EMPNO1
                  FROM   STAFF
                  WHERE  GRADE =
                  (SELECT MIN(GRADE) FROM STAFF);

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

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

PROCEDURE SUB45 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB46 SQLCODE
    :I NUMERIC (9);
      SELECT AVG(GRADE)
                  INTO    :I
                  FROM   STAFF;

PROCEDURE SUB47 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0043','pass','MCO');

PROCEDURE SUB48 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0043','fail','MCO');

PROCEDURE SUB49 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB50 SQLCODE;
      DELETE FROM TEMP_S;

PROCEDURE SUB51 SQLCODE
    :NULL1 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      SELECT AVG(GRADE)
                  INTO    :NULL1 :INDIC1
                  FROM   TEMP_S;

PROCEDURE SUB52 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0044','pass','MCO');

PROCEDURE SUB53 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0044','fail','MCO');

PROCEDURE SUB54 SQLCODE;
      COMMIT WORK;