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

Quelle xts729.mco Sprache: unbekannt

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

DECLARE A  CURSOR
               FOR SELECT * FROM CTS1.TESTB6439
               ORDER BY
                cOlUmNoFNUMERIC123456789012345678901234567890
                123456789012345678901234567890123456789012345
                678901234567890123456789012345678901_0
DECLARE B  CURSOR
               FOR SELECT  COLUMN_NAME, ORDINAL_POSITION
               FROM INFORMATION_SCHEMA.COLUMNS
               WHERE TABLE_SCHEMA = 'CTS1' AND TABLE_NAME = 'TESTB6439'
               ORDER BY ORDINAL_POSITION
DECLARE C  CURSOR
               FOR SELECT * FROM CTS1.TESTC6439
               ORDER BY COLUMNOFCHARACTERSA

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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      CREATE TABLE TESTA6439
                    (COLUMNOFCHARACTERSA CHARACTER(10),
                    columnofcharactersb CHARACTER(10),
                    cOlUmNoFNUMERICss_0 NUMERIC(5),
                    cOlUmNoFNUMERICss_1 NUMERIC(5));

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      CREATE TABLE TESTB6439
                   (COLUMNOFCHARACTERDATATYPE12345678901234567890
                   123456789012345678901234567890123456789012345678
                   90123456789012345678901234567890123 CHARACTER(3),
                   columnofcharacterdatatype12345678901234567890123
                   456789012345678901234567890123456789012345678901
                   2345678901234567890123456789012b CHARACTER(3),
                   cOlUmNoFNUMERIC12345678901234567890123456789012345
                   67890123456789012345678901234567890123456789012345
                   67890123456789012345678901_0 NUMERIC(5),
                   CoLuMnOfNUMERIC123456789012345678901234567890123456
                   789012345678901234567890123456789012345678901234567
                   890123456789012345678901_1 NUMERIC(5));

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTA6439
                    VALUES('ABCD','DCBA',1,9999);

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :BB CHAR(10),
    :CC NUMERIC (9),
    :DD NUMERIC (9));
      SELECT COLUMNOFCHARACTERSA, columnofcharactersb,
                    cOlUmNoFNUMERICss_0, cOlUmNoFNUMERICss_1
                    INTO :AA, :BB, :CC, :DD FROM CTS1.TESTA6439;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTB6439
                    VALUES('AA','BB',1,2);

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTB6439
                    VALUES('CC','DD',3,4);

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTB6439
                    VALUES('EE','FF',5,6);

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTB6439
                    VALUES('GG','HH',7,8);

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTB6439
                    VALUES('II','KK',9,0);

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
    OPEN a;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :BB CHAR(10),
    :CC NUMERIC (9),
    :DD NUMERIC (9));
      FETCH a INTO :AA, :BB, :CC, :DD;

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :BB CHAR(10),
    :CC NUMERIC (9),
    :DD NUMERIC (9));
      FETCH a INTO :AA, :BB, :CC, :DD;

PROCEDURE SUB17 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :BB CHAR(10),
    :CC NUMERIC (9),
    :DD NUMERIC (9));
      FETCH a INTO :AA, :BB, :CC, :DD;

PROCEDURE SUB18 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :BB CHAR(10),
    :CC NUMERIC (9),
    :DD NUMERIC (9));
      FETCH a INTO :AA, :BB, :CC, :DD;

PROCEDURE SUB19 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :BB CHAR(10),
    :CC NUMERIC (9),
    :DD NUMERIC (9));
      FETCH a INTO :AA, :BB, :CC, :DD;

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      CLOSE a;

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
    OPEN b;

PROCEDURE SUB22 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :CC NUMERIC (9));
      FETCH b INTO :AA, :CC;

PROCEDURE SUB23 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :CC NUMERIC (9));
      FETCH b INTO :AA, :CC;

PROCEDURE SUB24 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :CC NUMERIC (9));
      FETCH b INTO :AA, :CC;

PROCEDURE SUB25 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :CC NUMERIC (9));
      FETCH b INTO :AA, :CC;

PROCEDURE SUB26 (SQLCODE, SQLSTATE);
      CLOSE b;

PROCEDURE SUB27 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB28 (SQLCODE, SQLSTATE,
    :SQLSTM CHAR(190));
      EXECUTE IMMEDIATE :SQLSTM;

PROCEDURE SUB29 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB30 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTC6439
                    VALUES('aaa','bbb');

PROCEDURE SUB31 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTC6439
                    VALUES  ('ccc','ddd');

PROCEDURE SUB32 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTC6439
                    VALUES('eee','fff');

PROCEDURE SUB33 (SQLCODE, SQLSTATE);
    OPEN c;

PROCEDURE SUB34 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :BB CHAR(10));
      FETCH c INTO :AA, :BB;

PROCEDURE SUB35 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :BB CHAR(10));
      FETCH c INTO :AA, :BB;

PROCEDURE SUB36 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :BB CHAR(10));
      FETCH c INTO :AA, :BB;

PROCEDURE SUB37 (SQLCODE, SQLSTATE);
      CLOSE c;

PROCEDURE SUB38 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB39 (SQLCODE, SQLSTATE);
      ALTER TABLE CTS1.TESTB6439
                    ADD COLUMN
                     COLUMNOFCHARACTERDATATYPE12345678901234567890
                     123456789012345678901234567890123456789012345
                     6789012345678901234567890123456789012C CHAR(3)
                    ;

PROCEDURE SUB40 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB41 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTB6439
                    VALUES('TTT','TTT',100,100,'ADD');

PROCEDURE SUB42 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :BB CHAR(10),
    :CC NUMERIC (9),
    :DD NUMERIC (9),
    :EE CHAR(9));
      SELECT * INTO :AA, :BB, :CC, :DD, :EE FROM
                  CTS1.TESTB6439
                    WHERE
                     COLUMNOFCHARACTERDATATYPE1234567890123456789012345
                     67890123456789012345678901234567890123456789012345
                     678901234567890123456789012C = 'ADD';

PROCEDURE SUB43 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB44 (SQLCODE, SQLSTATE);
      DROP TABLE TESTA6439 CASCADE;

PROCEDURE SUB45 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB46 (SQLCODE, SQLSTATE);
      DROP TABLE TESTB6439 CASCADE;

PROCEDURE SUB47 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB48 (SQLCODE, SQLSTATE);
      DROP TABLE TESTC6439 CASCADE;

PROCEDURE SUB49 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB52 (SQLCODE, SQLSTATE);
      COMMIT WORK;