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/JAVA/openjdk-20-36_src/test/hotspot/jtreg/vmTestbase/nsk/monitoring/ThreadMXBean/GetThreadAllocatedBytes/

Quellcode-Bibliothek

^© Kompilation durch diese Firma

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

Datei: xts731.cob Sprache: Unknown

rahmenlose Ansicht.mco DruckansichtSQL {SQL[81] Scala[82] Pl1[97]}Entwicklung

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

DECLARE A  CURSOR FOR SELECT
             COL1,COL2,COL3,COL4,COL5
               FROM TAB753
               ORDER BY COL1

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 TAB753
                    (COL1 DECIMAL(4),
                    COL2 CHAR(10),
                    COL3 CHAR(10));

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      ALTER TABLE TAB753 ADD COLUMN COL4 NUMERIC(7)
                 ;

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*) INTO :COUN FROM
                  INFORMATION_SCHEMA.COLUMNS
                    WHERE TABLE_SCHEMA = 'CTS1' AND TABLE_NAME = 'TAB753'
                    AND COLUMN_NAME = 'COL4';

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      ALTER TABLE TAB753 ADD COLUMN COL5 VARCHAR(7)
                 ;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :COUN NUMERIC (9));
      SELECT COUNT(*) INTO :COUN FROM
                  INFORMATION_SCHEMA.COLUMNS
                    WHERE TABLE_SCHEMA = 'CTS1' AND TABLE_NAME = 'TAB753'
                    AND COLUMN_NAME = 'COL5';

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      INSERT INTO TAB753
                  VALUES(1000,'PHONE','NICKOS',12000,'blue');

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      INSERT INTO TAB753
                  VALUES(1001,'HULME','CHEADLE',12001,'velvet');

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
    OPEN A;

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :C1 NUMERIC (9),
    :C2 CHAR(10),
    :C3 CHAR(10),
    :C4 NUMERIC (9),
    :C5 CHAR(7));
      FETCH A INTO :C1,:C2,:C3,:C4,:C5;

PROCEDURE SUB17 (SQLCODE, SQLSTATE,
    :C1 NUMERIC (9),
    :C2 CHAR(10),
    :C3 CHAR(10),
    :C4 NUMERIC (9),
    :C5 CHAR(7));
      FETCH A INTO :C1,:C2,:C3,:C4,:C5;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      CLOSE A;

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB24 (SQLCODE, SQLSTATE);
      COMMIT WORK;