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

Quelle dml009.mco Sprache: unbekannt

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

MODULE DML009
LANGUAGE COBOL
AUTHORIZATION HU

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

PROCEDURE SUB1 SQLCODE;
      INSERT INTO WORKS(PNUM,EMPNUM,HOURS)
                  VALUES ('P22','E22',NULL);

PROCEDURE SUB2 SQLCODE
    :EMPNO1 CHAR(3)
    :PNO1 CHAR(3);
      SELECT EMPNUM,PNUM
                  INTO    :EMPNO1, :PNO1
                  FROM   WORKS
                  WHERE  HOURS IS NULL;

PROCEDURE SUB3 SQLCODE;
      ROLLBACK WORK;

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

PROCEDURE SUB5 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB6 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0022','fail','MCO');

PROCEDURE SUB7 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB8 SQLCODE;
      DELETE FROM TEMP_S;

PROCEDURE SUB9 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB10 SQLCODE;
      INSERT INTO TEMP_S(EMPNUM,GRADE,CITY)
                  VALUES('E23',2323.4,'China');

PROCEDURE SUB11 SQLCODE
    :I NUMERIC (9);
      SELECT COUNT(*)
                  INTO   :I
                  FROM  TEMP_S;

PROCEDURE SUB12 SQLCODE  :HOURS1 NUMERIC (9);
      INSERT INTO TEMP_S
                  VALUES('E23',:HOURS1,'China');

PROCEDURE SUB13 SQLCODE
    :II NUMERIC (9);
      SELECT COUNT(*)
                  INTO    :II
                  FROM   TEMP_S;

PROCEDURE SUB14 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB17 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB18 SQLCODE;
      INSERT INTO TEMP_S
                  SELECT EMPNUM,GRADE,CITY
                  FROM   STAFF
                  WHERE  GRADE > 13;

PROCEDURE SUB19 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB20 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0024','pass','MCO');

PROCEDURE SUB21 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB22 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0024','fail','MCO');

PROCEDURE SUB23 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB24 SQLCODE;
      DELETE FROM TEMP_S;

PROCEDURE SUB25 SQLCODE;
      INSERT INTO TEMP_S(EMPNUM,GRADE,CITY)
                  SELECT EMPNUM,GRADE,CITY
                  FROM   STAFF
                  WHERE  GRADE > 12;

PROCEDURE SUB26 SQLCODE
    :II NUMERIC (9);
      SELECT COUNT(*)
                  INTO  :II
                  FROM TEMP_S;

PROCEDURE SUB27 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB28 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0025','pass','MCO');

PROCEDURE SUB29 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0025','fail','MCO');

PROCEDURE SUB30 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB31 SQLCODE;
      INSERT INTO TEMP_SS
                  SELECT EMPNUM,GRADE,CITY
                  FROM   STAFF3
                  WHERE  GRADE = 10;

PROCEDURE SUB32 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB33 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0026','pass','MCO');

PROCEDURE SUB34 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0026','fail','MCO');

PROCEDURE SUB35 SQLCODE;
      COMMIT WORK;