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: dml178.cob Sprache: Cobol

Untersuchungsergebnis.mco Download desSQL {SQL[73] Python[83] Pl1[105]}zum Wurzelverzeichnis wechseln

-- SQL Test Suite, V6.0, SQL Module yts814.mco
-- 59-byte ID
--
MODULE YTS814
NAMES ARE LATIN1
LANGUAGE COBOL
AUTHORIZATION CTS1

DECLARE AA  CURSOR FOR
               SELECT COL�, COL� FROM TAB��
               ORDER BY COL�

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 TAB��
                    (COL� INTEGER,
                    COL� CHAR(1) CHARACTER SET ASCII_GRAPHIC);

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :CO NUMERIC (4));
      SELECT COUNT (*) INTO :CO
                    FROM INFORMATION_SCHEMA.TABLES
                    WHERE TABLE_SCHEMA = 'CTS1' AND
                    TABLE_NAME = 'TAB��';

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :CO2 NUMERIC (4));
      SELECT COUNT (*) INTO :CO2
                    FROM INFORMATION_SCHEMA.COLUMNS
                    WHERE TABLE_SCHEMA = 'CTS1' AND
                    TABLE_NAME = 'TAB��' AND
                    COLUMN_NAME = 'COL�';

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :CO3 NUMERIC (4));
      SELECT COUNT (*) INTO :CO3
                    FROM INFORMATION_SCHEMA.COLUMNS
                    WHERE TABLE_SCHEMA = 'CTS1' AND
                    TABLE_NAME = 'TAB��' AND
                    COLUMN_NAME = 'COL�';

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      INSERT INTO TAB�� VALUES
                    (1, _ASCII_GRAPHIC '#');

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :VAL1 NUMERIC (9),
    :VAL2 CHAR(1) CHARACTER SET ASCII_GRAPHIC);
      INSERT INTO TAB�� VALUES
                    (:VAL1, :VAL2);

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      INSERT INTO TAB�� VALUES
                    (3, _LATIN1 '�');

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :VAL1 NUMERIC (9),
    :VAL2 CHAR(1) CHARACTER SET LATIN1);
      INSERT INTO TAB�� VALUES
                    (:VAL1, :VAL2);

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
    OPEN AA;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :VAL1 NUMERIC (9),
    :VAL2 CHAR(1) CHARACTER SET ASCII_GRAPHIC);
      FETCH AA INTO :VAL1, :VAL2;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :VAL1 NUMERIC (9),
    :VAL2 CHAR(1) CHARACTER SET ASCII_GRAPHIC);
      FETCH AA INTO :VAL1, :VAL2;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :VAL1 NUMERIC (9),
    :VAL2 CHAR(1) CHARACTER SET ASCII_GRAPHIC);
      FETCH AA INTO :VAL1, :VAL2;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      DROP TABLE TAB�� CASCADE;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      COMMIT WORK;