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: yts793.cob Sprache: Unknown

Untersuchungsergebnis.mco Download desSQL {SQL[78] Scala[89] Python[96]}zum Wurzelverzeichnis wechseln

-- SQL Test Suite, V6.0, SQL Module dml082.mco
-- 59-byte ID
--
MODULE DML082
LANGUAGE COBOL
AUTHORIZATION SCHANZLE

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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      DELETE FROM FLATER.TINY;

PROCEDURE SUB3 SQLCODE SQLSTATE;
      INSERT INTO FLATER.TINY VALUES
                       ('Too long for its own good!');

PROCEDURE SUB4 SQLCODE SQLSTATE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT FROM FLATER.TINY
                 ;

PROCEDURE SUB5 SQLCODE SQLSTATE
    :HUGE CHAR(1)
    :INDIC1 NUMERIC (4);
      SELECT C1 INTO :HUGE:INDIC1 FROM FLATER.TINY
                 ;

PROCEDURE SUB6 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB9 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB10 SQLCODE SQLSTATE
    :COLVAL CHAR(15);
      UPDATE HU.STAFF SET CITY = :COLVAL
                    WHERE EMPNUM = 'E1';

PROCEDURE SUB11 SQLCODE SQLSTATE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM HU.STAFF WHERE CITY
                    LIKE '%XX%X_%' ESCAPE 'XX';

PROCEDURE SUB12 SQLCODE SQLSTATE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM HU.STAFF WHERE CITY LIKE '%XX%X_%' ESCAPE 'X'
                 ;

PROCEDURE SUB13 SQLCODE SQLSTATE
    :TMPCNT NUMERIC (9)
    :ESCH2 CHAR(2);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM HU.STAFF WHERE CITY
                    LIKE '%XX_%' ESCAPE :ESCH2;

PROCEDURE SUB14 SQLCODE SQLSTATE
    :TMPCNT NUMERIC (9)
    :ESCH1 CHAR(1);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM HU.STAFF WHERE CITY
                    LIKE '%XX_%' ESCAPE :ESCH1;

PROCEDURE SUB15 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB16 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0492','pass','MCO');

PROCEDURE SUB17 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0492','fail','MCO');

PROCEDURE SUB18 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB19 SQLCODE SQLSTATE;
      DELETE FROM CPBASE;

PROCEDURE SUB20 SQLCODE SQLSTATE;
      INSERT INTO CPBASE VALUES (82,'Per%X&und_')
                 ;

PROCEDURE SUB21 SQLCODE SQLSTATE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM CPBASE WHERE JUNK1
                    LIKE 'P%X%%X' ESCAPE 'X';

PROCEDURE SUB22 SQLCODE SQLSTATE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM CPBASE WHERE JUNK1
                    LIKE 'P%X%%' ESCAPE 'X';

PROCEDURE SUB23 SQLCODE SQLSTATE
    :PATRN7 CHAR(7);
      INSERT INTO HU.STAFF
                    SELECT 'E12','ff',KC,'gg' FROM CPBASE
                    WHERE JUNK1 LIKE :PATRN7 ESCAPE 'X';

PROCEDURE SUB24 SQLCODE SQLSTATE
    :PATRN6 CHAR(6);
      INSERT INTO HU.STAFF
                    SELECT 'E13','ff',KC,'gg' FROM CPBASE
                    WHERE JUNK1 LIKE :PATRN6 ESCAPE 'X';

PROCEDURE SUB25 SQLCODE SQLSTATE
    :ESCH1 CHAR(1);
      UPDATE CPBASE SET KC = -1
                    WHERE JUNK1 LIKE '%?X%' ESCAPE :ESCH1;

PROCEDURE SUB26 SQLCODE SQLSTATE
    :ESCH1 CHAR(1);
      UPDATE CPBASE SET KC = -1
                    WHERE JUNK1 LIKE '%?%X%' ESCAPE :ESCH1;

PROCEDURE SUB27 SQLCODE SQLSTATE
    :PATRN6 CHAR(6)
    :ESCH1 CHAR(1);
      DELETE FROM CPBASE
                    WHERE JUNK1 LIKE :PATRN6 ESCAPE :ESCH1;

PROCEDURE SUB28 SQLCODE SQLSTATE
    :PATRN7 CHAR(7)
    :ESCH1 CHAR(1);
      DELETE FROM CPBASE
                    WHERE JUNK1 LIKE :PATRN7 ESCAPE :ESCH1;

PROCEDURE SUB29 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB30 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0493','pass','MCO');

PROCEDURE SUB31 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0493','fail','MCO');

PROCEDURE SUB32 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB33 SQLCODE SQLSTATE;
      DELETE FROM HU.HH;

PROCEDURE SUB34 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB35 SQLCODE SQLSTATE;
      DELETE FROM HU.FF;

PROCEDURE SUB36 SQLCODE SQLSTATE;
      INSERT INTO HU.FF VALUES (99999);

PROCEDURE SUB37 SQLCODE SQLSTATE
    :SMALL1 NUMERIC (4);
      SELECT INTTEST INTO :SMALL1 FROM HU.FF;

PROCEDURE SUB38 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB39 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB40 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0494','pass','MCO');

PROCEDURE SUB41 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0494','fail','MCO');

PROCEDURE SUB42 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB43 SQLCODE SQLSTATE;
      INSERT INTO FLATER.WCOV VALUES (0);

PROCEDURE SUB44 SQLCODE SQLSTATE;
      INSERT INTO FLATER.WCOV VALUES (75);

PROCEDURE SUB45 SQLCODE SQLSTATE;
      UPDATE FLATER.WCOV SET C1 = -C1 WHERE C1 = 75
                 ;

PROCEDURE SUB46 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB47 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0505','pass','MCO');

PROCEDURE SUB48 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0505','fail','MCO');

PROCEDURE SUB49 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB50 SQLCODE SQLSTATE
    :LONG1 NUMERIC (9);
      INSERT INTO HU.HH VALUES (:LONG1);

PROCEDURE SUB51 SQLCODE SQLSTATE;
      UPDATE HU.FF SET INTTEST = 10 * INTTEST;