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

Quelle xts715.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module xts715.mco
-- 59-byte ID
--
MODULE XTS715
LANGUAGE COBOL
AUTHORIZATION CTS4

DECLARE ALPHA  CURSOR
               FOR SELECT * FROM T7015aPC.TESTAB2931
               ORDER BY TNUM
DECLARE BETA  CURSOR
               FOR SELECT * FROM T7015bPC.TESTBA2931 ORDER BY TNUM


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 T7015aPC AUTHORIZATION CTS4
                    CREATE TABLE T7015aPC.TESTAB2931
                    (TNUM NUMERIC(5),
                    TCHAR CHAR(3));

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :AA NUMERIC (9));
      SELECT COUNT(*) INTO :AA
                    FROM INFORMATION_SCHEMA.SCHEMATA
                    WHERE SCHEMA_NAME = 'T7015APC';

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      INSERT INTO T7015aPC.TESTAB2931
                    VALUES(4,'DD');

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO T7015aPC.TESTAB2931
                    VALUES(3,'CC');

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      INSERT INTO T7015aPC.TESTAB2931
                    VALUES(2,'BB');

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      INSERT INTO T7015aPC.TESTAB2931
                    VALUES(5,'EE');

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      INSERT INTO T7015aPC.TESTAB2931
                    VALUES(1,'AA');

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
    OPEN ALPHA;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :AA NUMERIC (9),
    :BB CHAR(3));
      FETCH ALPHA INTO :AA, :BB;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :AA NUMERIC (9),
    :BB CHAR(3));
      FETCH ALPHA INTO :AA, :BB;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :AA NUMERIC (9),
    :BB CHAR(3));
      FETCH ALPHA INTO :AA, :BB;

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :AA NUMERIC (9),
    :BB CHAR(3));
      FETCH ALPHA INTO :AA, :BB;

PROCEDURE SUB17 (SQLCODE, SQLSTATE,
    :AA NUMERIC (9),
    :BB CHAR(3));
      FETCH ALPHA INTO :AA, :BB;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      CLOSE ALPHA;

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      CREATE SCHEMA T7015bPC AUTHORIZATION CTS3
                    CREATE TABLE TESTBA2931
                    (TNUM NUMERIC(5),
                    TCHAR CHAR(3))
                    GRANT SELECT, INSERT, UPDATE ON TESTBA2931 TO CTS4
                 ;

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      INSERT INTO T7015bPC.TESTBA2931
                    VALUES(4,'DD');

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      INSERT INTO T7015bPC.TESTBA2931
                    VALUES(3,'CC');

PROCEDURE SUB24 (SQLCODE, SQLSTATE);
      INSERT INTO T7015bPC.TESTBA2931
                    VALUES(2,'BB');

PROCEDURE SUB25 (SQLCODE, SQLSTATE);
      INSERT INTO T7015bPC.TESTBA2931
                    VALUES(5,'EE');

PROCEDURE SUB26 (SQLCODE, SQLSTATE);
      INSERT INTO T7015bPC.TESTBA2931
                    VALUES(1,'AA');

PROCEDURE SUB27 (SQLCODE, SQLSTATE,
    :AA NUMERIC (9));
      SELECT COUNT(*) INTO :AA FROM T7015bPC.TESTBA2931
                 ;

PROCEDURE SUB28 (SQLCODE, SQLSTATE);
    OPEN BETA;

PROCEDURE SUB29 (SQLCODE, SQLSTATE,
    :AA NUMERIC (9),
    :BB CHAR(3));
      FETCH BETA INTO :AA, :BB;

PROCEDURE SUB30 (SQLCODE, SQLSTATE,
    :AA NUMERIC (9),
    :BB CHAR(3));
      FETCH BETA INTO :AA, :BB;

PROCEDURE SUB31 (SQLCODE, SQLSTATE,
    :AA NUMERIC (9),
    :BB CHAR(3));
      FETCH BETA INTO :AA, :BB;

PROCEDURE SUB32 (SQLCODE, SQLSTATE,
    :AA NUMERIC (9),
    :BB CHAR(3));
      FETCH BETA INTO :AA, :BB;

PROCEDURE SUB33 (SQLCODE, SQLSTATE,
    :AA NUMERIC (9),
    :BB CHAR(3));
      FETCH BETA INTO :AA, :BB;

PROCEDURE SUB34 (SQLCODE, SQLSTATE);
      CLOSE BETA;

PROCEDURE SUB35 (SQLCODE, SQLSTATE);
      UPDATE T7015bPC.TESTBA2931
                    SET TCHAR = 'XX'
                    WHERE TNUM = 1;

PROCEDURE SUB36 (SQLCODE, SQLSTATE,
    :AA NUMERIC (9),
    :BB CHAR(3));
      SELECT TNUM, TCHAR INTO :AA, :BB
                    FROM T7015bPC.TESTBA2931
                    WHERE TNUM = 1;

PROCEDURE SUB37 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB38 (SQLCODE, SQLSTATE);
      DROP SCHEMA T7015aPC CASCADE;

PROCEDURE SUB39 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB40 (SQLCODE, SQLSTATE);
      DROP SCHEMA T7015bPC CASCADE;

PROCEDURE SUB41 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB44 (SQLCODE, SQLSTATE);
      COMMIT WORK;