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

Quelle xts721.mco Sprache: unbekannt

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

DECLARE ALPHA  CURSOR FOR SELECT
               VIEW_SCHEMA,VIEW_NAME,TABLE_NAME,COLUMN_NAME
               FROM INFORMATION_SCHEMA.VIEW_COLUMN_USAGE
               WHERE VIEW_SCHEMA = 'CTS4' AND TABLE_SCHEMA = 'CTS4'
               ORDER BY COLUMN_NAME

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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE,
    :COUNOK NUMERIC (9));
      SELECT COUNT(*) INTO :COUNOK
                    FROM INFORMATION_SCHEMA.VIEW_COLUMN_USAGE
                    WHERE VIEW_SCHEMA = 'CTS4';

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      CREATE TABLE TAB721a
                    (COLNUM1 NUMERIC(5),
                    COLNUM2 NUMERIC(7),
                    COLSTR1 CHAR(10),
                    COLSTR2 CHAR(5));

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      CREATE VIEW VA_721a AS SELECT
                    COLNUM1,COLNUM2,COLSTR1,COLSTR2 FROM TAB721a;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
    OPEN ALPHA;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :VSCHMA CHAR(128),
    :V_NAME CHAR(128),
    :TABNAM CHAR(128),
    :COLNAM CHAR(128));
      FETCH ALPHA INTO :VSCHMA,:V_NAME,:TABNAM,:COLNAM
                 ;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :VSCHMA CHAR(128),
    :V_NAME CHAR(128),
    :TABNAM CHAR(128),
    :COLNAM CHAR(128));
      FETCH ALPHA INTO :VSCHMA,:V_NAME,:TABNAM,:COLNAM
                 ;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :VSCHMA CHAR(128),
    :V_NAME CHAR(128),
    :TABNAM CHAR(128),
    :COLNAM CHAR(128));
      FETCH ALPHA INTO :VSCHMA,:V_NAME,:TABNAM,:COLNAM
                 ;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :VSCHMA CHAR(128),
    :V_NAME CHAR(128),
    :TABNAM CHAR(128),
    :COLNAM CHAR(128));
      FETCH ALPHA INTO :VSCHMA,:V_NAME,:TABNAM,:COLNAM
                 ;

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      CLOSE ALPHA;

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      DROP VIEW VA_721a CASCADE;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB18 (SQLCODE, SQLSTATE,
    :COUNOK NUMERIC (9));
      SELECT COUNT(*) INTO :COUNOK
                    FROM INFORMATION_SCHEMA.VIEW_COLUMN_USAGE
                    WHERE VIEW_SCHEMA = 'CTS4';

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      DROP TABLE TAB721a CASCADE;

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB24 (SQLCODE, SQLSTATE);
      COMMIT WORK;