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/PVS/sets_aux/ (Columbo Version 0.7^©) Datei vom 28.9.2014 mit Größe 9 kB

Quelle dml066.mco Sprache: unbekannt

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

MODULE DML066
LANGUAGE COBOL
AUTHORIZATION HU

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

PROCEDURE SUB1 SQLCODE
    :GRADE1 NUMERIC (9)
    :EMPNA1 CHAR(20);
      SELECT GRADE, EMPNAME
                    INTO  :GRADE1, :EMPNA1 FROM STAFF
                    WHERE EMPNUM = 'E1';

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

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

PROCEDURE SUB4 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB5 SQLCODE
    :GRADE1 NUMERIC (9)
    :EMPNA1 CHAR(20);
      SELECT GRADE, EMPNAME
                    INTO  :GRADE1, :EMPNA1 FROM STAFF
                    WHERE EMPNUM = 'E1';

PROCEDURE SUB6 SQLCODE
    :GRADE1 NUMERIC (9)
    :EMPNA1 CHAR(20);
      SELECT GRADE, EMPNAME
                    INTO  :GRADE1, :EMPNA1 FROM STAFF
                    WHERE EMPNUM = 'E2';

PROCEDURE SUB7 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0287','pass','MCO');

PROCEDURE SUB8 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0287','fail','MCO');

PROCEDURE SUB9 SQLCODE;
      COMMIT WORK;