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

Quelle xts728.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module xts728.mco
-- 59-byte ID
--
MODULE XTS728
LANGUAGE COBOL
AUTHORIZATION CTS1

PROCEDURE SUB1 (SQLCODE, SQLSTATE,
    :UIDX CHAR(18));
      SELECT USER INTO :UIDX FROM CTS1.ECCO;

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      DELETE FROM CTS1.TABLE728b;

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TABLE728b
                    SELECT * FROM CTS1.TABLE728a
                    WHERE (C1,C2) IS NOT NULL;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :C_CH1 CHAR(10),
    :C_CH2 CHAR(10));
      SELECT COL_1,COL_2 INTO :C_CH1,:C_CH2
                    FROM CTS1.TABLE728b
                    WHERE COL_1 = 'NICKOS' AND COL_2 = 'GEORGE';

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :C_CH1 CHAR(10),
    :C_CH2 CHAR(10));
      SELECT COL_1,COL_2 INTO :C_CH1,:C_CH2
                    FROM CTS1.TABLE728b
                    WHERE COL_1 = 'HARRY' AND COL_2 = 'TANIA';

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7028','pass','MCO');

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7028','NOGO','MCO');

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      COMMIT WORK;