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 yts760.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module yts760.mco
-- 59-byte ID
--
MODULE YTS760
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);
      UPDATE CTS1.STAFFc
                    SET GRADE = CASE GRADE WHEN 13 THEN 23 END,
                    MGR = CASE MGR WHEN 'E5' THEN 'E9' ELSE 'E8' END;

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :CO NUMERIC (4));
      SELECT COUNT (*) INTO :CO FROM CTS1.STAFFc
                    WHERE GRADE IS NULL;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :GGET NUMERIC (9));
      SELECT GRADE INTO :GGET FROM CTS1.STAFFc
                    WHERE EMPNUM = 'E3';

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :CO NUMERIC (4));
      SELECT COUNT (*) INTO :CO FROM CTS1.STAFFc
                    WHERE MGR = 'E8';

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :MGET CHAR(3));
      SELECT MGR INTO :MGET FROM CTS1.STAFFc
                    WHERE EMPNUM = 'E6';

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7534','fail','MCO');

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      COMMIT WORK;