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

Quelle dml074.mco Sprache: unbekannt

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

MODULE DML074
LANGUAGE COBOL
AUTHORIZATION HU

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

PROCEDURE SUB1 SQLCODE
    :TMP_2 NUMERIC (9)
    :ENAME CHAR(20);
      SELECT GRADE INTO :TMP_2
                    FROM STAFF
                    WHERE EMPNAME = :ENAME;

PROCEDURE SUB2 SQLCODE
    :ENUM CHAR(3)
    :ENAME CHAR(20)
    :GRDE NUMERIC (9)
    :CTY CHAR(15);
      INSERT INTO STAFF
                    VALUES(:ENUM,:ENAME,:GRDE,:CTY);

PROCEDURE SUB3 SQLCODE
    :TMP1 CHAR(3)
    :ENAME CHAR(20)
    :GRDE NUMERIC (9)
    :CTY CHAR(10);
      SELECT EMPNUM INTO :TMP1
                    FROM STAFF
                    WHERE EMPNAME = :ENAME AND GRADE = :GRDE
                    AND CITY = :CTY;

PROCEDURE SUB4 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB5 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0421','pass','MCO');

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

PROCEDURE SUB7 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB8 :TMP1 CHAR(3)
    SQLCODE
    :ENAME CHAR(20)
    :TMP_2 NUMERIC (9)
    :CTY CHAR(15);
      SELECT EMPNUM, EMPNAME, GRADE, CITY
                    INTO :TMP1, :ENAME, :TMP_2, :CTY
                    FROM STAFF
                    WHERE EMPNAME = 'Alice';

PROCEDURE SUB9 :CTY CHAR(15)
    :ENUM CHAR(3)
    :ENAME CHAR(20)
    :GRDE NUMERIC (9)
    SQLCODE;
      SELECT EMPNUM, EMPNAME, GRADE, CITY
                    INTO :ENUM, :ENAME, :GRDE, :CTY
                    FROM STAFF
                    WHERE CITY = 'Akron';

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

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

PROCEDURE SUB12 SQLCODE;
      COMMIT WORK;

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

PROCEDURE SUB14 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                    FROM PROJ;

PROCEDURE SUB15 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT(*) INTO :COUNT1
                    FROM WORKS;

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

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

PROCEDURE SUB18 SQLCODE;
      COMMIT WORK;