Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
products/sources/formale sprachen/Cobol/Test-Suite/SQL M/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

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

Datei: dml016.cob   Sprache: Cobol

Untersuchungsergebnis.mco Download desPython {Python[66] Fortran[144] Ada[172]}zum Wurzelverzeichnis wechseln

-- SQL Test Suite, V6.0, SQL Module yts805.mco
-- 59-byte ID
-- 
MODULE YTS805
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);
      CREATE SCHEMA ZZZ AUTHORIZATION CTS1
                    CREATE TABLE AAA
                    (A1     CHAR(3),
                    A2     INTEGER,
                    A3     DECIMAL(4),
                    A4     NUMERIC(5),
                    A5     SMALLINT,
                    PRIMARY KEY (A1, A2),
                    FOREIGN KEY (A3, A4) REFERENCES BBB(B1, B2),
                    FOREIGN KEY (A5) REFERENCES CCC(C3))
                    CREATE TABLE BBB
                    (B1     DECIMAL(4),
                    B2     NUMERIC(5),
                    A1     CHAR(3),
                    A2     INTEGER,
                    PRIMARY KEY (B1, B2),
                    FOREIGN KEY (A1, A2) REFERENCES AAA(A1, A2),
                    UNIQUE (A1, A2))
                    CREATE TABLE CCC
                    (B1     DECIMAL(4),
                    B2     NUMERIC(5),
                    C3     SMALLINT,
                    PRIMARY KEY (C3),
                    FOREIGN KEY (B1,B2) REFERENCES BBB(B1, B2));

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :CO NUMERIC (4));
      SELECT COUNT (*) INTO :CO
                    FROM INFORMATION_SCHEMA.SCHEMATA
                    WHERE SCHEMA_NAME = 'ZZZ';

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :CO NUMERIC (4));
      SELECT COUNT (*) INTO :CO
                    FROM INFORMATION_SCHEMA.TABLE_CONSTRAINTS
                    WHERE TABLE_SCHEMA = 'ZZZ' AND
                    TABLE_NAME = 'AAA' AND
                    CONSTRAINT_TYPE = 'FOREIGN KEY';

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :CO NUMERIC (4));
      SELECT COUNT (*) INTO :CO
                    FROM INFORMATION_SCHEMA.TABLE_CONSTRAINTS
                    WHERE TABLE_SCHEMA = 'ZZZ' AND
                    TABLE_NAME = 'BBB' AND
                    CONSTRAINT_TYPE = 'FOREIGN KEY';

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :CO NUMERIC (4));
      SELECT COUNT (*) INTO :CO
                    FROM INFORMATION_SCHEMA.TABLE_CONSTRAINTS
                    WHERE TABLE_SCHEMA = 'ZZZ' AND
                    TABLE_NAME = 'BBB' AND
                    CONSTRAINT_TYPE = 'UNIQUE';

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :CO NUMERIC (4));
      SELECT COUNT (*) INTO :CO
                    FROM INFORMATION_SCHEMA.TABLE_CONSTRAINTS
                    WHERE TABLE_SCHEMA = 'ZZZ' AND
                    TABLE_NAME = 'CCC' AND
                    CONSTRAINT_TYPE = 'FOREIGN KEY';

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      INSERT INTO ZZZ.AAA values ('sue',23,45,67,89)
                 ;

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      INSERT INTO ZZZ.BBB  VALUES (53,778,'mat',1)
                 ;

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      INSERT INTO ZZZ.CCC VALUES (456,231,5);

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      INSERT INTO ZZZ.AAA VALUES ('sue',25, NULL, NULL,
                  NULL);

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      INSERT INTO ZZZ.BBB VALUES (345,8441,'sue',25)
                 ;

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      INSERT INTO ZZZ.CCC VALUES (345, 8441, 1);

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      INSERT INTO ZZZ.AAA VALUES ('ben',22,345,8441,1)
                 ;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      DROP SCHEMA ZZZ CASCADE;

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      COMMIT WORK;

[ zur Elbe Produktseite wechseln0.117Quellennavigators  ]