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 Thinking Intellekt

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/Sources/formale Sprachen/COBOL/Test-Suite/SQL M/

Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: dml138.mco Sprache: Unknown

Spracherkennung für: .mco vermutete Sprache: SQL {SQL[85] Fortran[87] CS[112]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

-- SQL Test Suite, V6.0, SQL Module xts702.mco
-- 59-byte ID
--
MODULE XTS702
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,
    :COUN NUMERIC (9));
      SELECT COUNT(*)
                    INTO   :COUN
                    FROM   STAFF
                    WHERE  'Alice' LIKE 'Alice';

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9),
    :HV2 CHAR(24));
      SELECT COUNT(*)
                    INTO   :COUN
                    FROM   STAFF
                    WHERE  :HV2 NOT LIKE 'Eq_alS_literal%' ESCAPE 'S'
                 ;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*)
                    INTO   :COUN
                    FROM   STAFF
                    WHERE  USER LIKE 'CTS1%';

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*)
                    INTO   :COUN
                    FROM   STAFF
                    WHERE  EMPNAME LIKE EMPNAME;

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      INSERT INTO STAFF
                    VALUES('E6','Theodora_FL',14,'T%S_FL%%%%%%%%%');

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*)
                    INTO   :COUN
                    FROM   STAFF
                    WHERE  EMPNAME LIKE CITY ESCAPE 'S';

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      DELETE FROM STAFF;

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      INSERT INTO STAFF
                    VALUES('S','Dana%ELFT',14,'D%S%%%%%%%%%%%%');

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*)
                    INTO   :COUN
                    FROM   STAFF
                    WHERE  EMPNAME LIKE CITY ESCAPE EMPNUM;

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*)
                    INTO   :COUN
                    FROM   STAFF
                    WHERE  'Del%' LIKE CITY ESCAPE EMPNUM;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      DELETE FROM STAFF;

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      INSERT INTO STAFF
                    VALUES(' ','Dana%ELFT',14,'D%0%%%%%%%%%%%%');

PROCEDURE SUB23 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*)
                    INTO   :COUN
                    FROM   STAFF
                    WHERE  EMPNAME LIKE CITY ESCAPE TRIM(EMPNUM);

PROCEDURE SUB24 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB27 (SQLCODE, SQLSTATE);
      COMMIT WORK;