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

Quelle dml152.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module dml152.mco
-- 59-byte ID
--
MODULE DML152
LANGUAGE COBOL
AUTHORIZATION FLATER

DECLARE C12741  CURSOR FOR
               SELECT ZZ FROM CONCATBUF

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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB3 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM HU.STAFF2;

PROCEDURE SUB4 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :ST CHAR(5)
    :CO CHAR(11)
    :SCO CHAR(11)
    :NL1 CHAR(1)
    :SNAM CHAR(6)
    :TNAM CHAR(5)
    :NL4 CHAR(1)
    :NL5 CHAR(1)
    :MTXT CHAR(50)
    :MLEN NUMERIC (9)
    :OMLEN NUMERIC (9);
      GET DIAGNOSTICS EXCEPTION 1
                    :INT1 = CONDITION_NUMBER, :ST = RETURNED_SQLSTATE,
                    :CO = CLASS_ORIGIN, :SCO = SUBCLASS_ORIGIN,
                    :NL1 = CONSTRAINT_SCHEMA, :SNAM = SCHEMA_NAME,
                    :TNAM = TABLE_NAME, :NL4 = COLUMN_NAME,
                    :NL5 = CURSOR_NAME, :MTXT = MESSAGE_TEXT,
                    :MLEN = MESSAGE_LENGTH, :OMLEN = MESSAGE_OCTET_LENGTH
                 ;

PROCEDURE SUB5 SQLCODE SQLSTATE;
      DELETE FROM HU.PROJ;

PROCEDURE SUB6 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :ST CHAR(5)
    :CO CHAR(11)
    :SCO CHAR(11)
    :NL1 CHAR(1)
    :SNAM CHAR(6)
    :TNAM CHAR(5)
    :NL4 CHAR(1)
    :NL5 CHAR(1)
    :MTXT CHAR(50)
    :MLEN NUMERIC (9)
    :OMLEN NUMERIC (9);
      GET DIAGNOSTICS EXCEPTION 1
                    :INT1 = CONDITION_NUMBER, :ST = RETURNED_SQLSTATE,
                    :CO = CLASS_ORIGIN, :SCO = SUBCLASS_ORIGIN,
                    :NL1 = CONSTRAINT_SCHEMA, :SNAM = SCHEMA_NAME,
                    :TNAM = TABLE_NAME, :NL4 = COLUMN_NAME,
                    :NL5 = CURSOR_NAME, :MTXT = MESSAGE_TEXT,
                    :MLEN = MESSAGE_LENGTH, :OMLEN = MESSAGE_OCTET_LENGTH
                 ;

PROCEDURE SUB7 SQLCODE SQLSTATE;
      UPDATE HU.VTABLE SET COL2 = 5;

PROCEDURE SUB8 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :ST CHAR(5)
    :CO CHAR(11)
    :SCO CHAR(11)
    :NL1 CHAR(1)
    :SNAM CHAR(6)
    :TNAM CHAR(5)
    :CNAM CHAR(4)
    :NL5 CHAR(1)
    :MTXT CHAR(50)
    :MLEN NUMERIC (9)
    :OMLEN NUMERIC (9);
      GET DIAGNOSTICS EXCEPTION 1
                    :INT1 = CONDITION_NUMBER, :ST = RETURNED_SQLSTATE,
                    :CO = CLASS_ORIGIN, :SCO = SUBCLASS_ORIGIN,
                    :NL1 = CONSTRAINT_SCHEMA, :SNAM = SCHEMA_NAME,
                    :TNAM = TABLE_NAME, :CNAM = COLUMN_NAME,
                    :NL5 = CURSOR_NAME, :MTXT = MESSAGE_TEXT,
                    :MLEN = MESSAGE_LENGTH, :OMLEN = MESSAGE_OCTET_LENGTH
                 ;

PROCEDURE SUB9 SQLCODE SQLSTATE;
      UPDATE HU.VTABLE SET COL1 = 5
                    WHERE COL1 = 0;

PROCEDURE SUB10 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :ST CHAR(5)
    :CO CHAR(11)
    :SCO CHAR(11)
    :NL1 CHAR(1)
    :SNAM CHAR(6)
    :TNAM CHAR(5)
    :CNAM CHAR(4)
    :NL5 CHAR(1)
    :MTXT CHAR(50)
    :MLEN NUMERIC (9)
    :OMLEN NUMERIC (9);
      GET DIAGNOSTICS EXCEPTION 1
                    :INT1 = CONDITION_NUMBER, :ST = RETURNED_SQLSTATE,
                    :CO = CLASS_ORIGIN, :SCO = SUBCLASS_ORIGIN,
                    :NL1 = CONSTRAINT_SCHEMA, :SNAM = SCHEMA_NAME,
                    :TNAM = TABLE_NAME, :CNAM = COLUMN_NAME,
                    :NL5 = CURSOR_NAME, :MTXT = MESSAGE_TEXT,
                    :MLEN = MESSAGE_LENGTH, :OMLEN = MESSAGE_OCTET_LENGTH
                 ;

PROCEDURE SUB11 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB12 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0667','pass','MCO');

PROCEDURE SUB13 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0667','fail','MCO');

PROCEDURE SUB14 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB15 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB16 SQLCODE SQLSTATE
    :CMD CHAR(15);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB17 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM USIG;

PROCEDURE SUB18 SQLCODE SQLSTATE
    :CMD CHAR(15);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB19 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF;

PROCEDURE SUB20 SQLCODE SQLSTATE
    :CMD CHAR(15);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB21 SQLCODE SQLSTATE;
      INSERT INTO CONCATBUF VALUES ('fnord');

PROCEDURE SUB22 SQLCODE SQLSTATE
    :CMD CHAR(15);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB23 SQLCODE SQLSTATE;
      UPDATE CONCATBUF SET ZZ = 'moby'
                    WHERE ZZ = 'fnord';

PROCEDURE SUB24 SQLCODE SQLSTATE
    :CMD CHAR(15);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB25 SQLCODE SQLSTATE;
    OPEN C12741;

PROCEDURE SUB26 SQLCODE SQLSTATE
    :CMD CHAR(15);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB27 SQLCODE SQLSTATE
    :CMD CHAR(15);
      FETCH C12741 INTO :CMD;

PROCEDURE SUB28 SQLCODE SQLSTATE
    :CMD CHAR(15);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB29 SQLCODE SQLSTATE;
      UPDATE CONCATBUF
                    SET ZZ = 'clobber' WHERE CURRENT OF C12741;

PROCEDURE SUB30 SQLCODE SQLSTATE
    :CMD CHAR(15);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB31 SQLCODE SQLSTATE;
      DELETE FROM CONCATBUF WHERE CURRENT OF C12741
                 ;

PROCEDURE SUB32 SQLCODE SQLSTATE
    :CMD CHAR(15);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB33 SQLCODE SQLSTATE;
      CLOSE C12741;

PROCEDURE SUB34 SQLCODE SQLSTATE
    :CMD CHAR(15);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB35 SQLCODE SQLSTATE;
      FROB;

PROCEDURE SUB36 SQLCODE SQLSTATE
    :CMD CHAR(15);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB37 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB38 SQLCODE SQLSTATE
    :CMD CHAR(15);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB39 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0668','pass','MCO');

PROCEDURE SUB40 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0668','fail','MCO');

PROCEDURE SUB41 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB42 SQLCODE SQLSTATE;
      SET TRANSACTION ISOLATION LEVEL SERIALIZABLE
                 ;

PROCEDURE SUB43 SQLCODE SQLSTATE
    :CMD CHAR(15);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB44 SQLCODE SQLSTATE;
      CREATE VIEW BEABLE AS
                    SELECT ZZ FROM CONCATBUF;

PROCEDURE SUB45 SQLCODE SQLSTATE
    :CMD CHAR(15);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB46 SQLCODE SQLSTATE;
      CREATE TABLE SLACK (
                    NAAM CHAR (10), DONATION DECIMAL (5, 2));

PROCEDURE SUB47 SQLCODE SQLSTATE
    :CMD CHAR(15);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB48 SQLCODE SQLSTATE;
      ALTER TABLE SLACK
                    ADD COLUMN KIBO_NUMBER INT;

PROCEDURE SUB49 SQLCODE SQLSTATE
    :CMD CHAR(15);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB50 SQLCODE SQLSTATE;
      GRANT ALL PRIVILEGES ON SLACK TO PUBLIC;

PROCEDURE SUB51 SQLCODE SQLSTATE
    :CMD CHAR(15);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB52 SQLCODE SQLSTATE;
      REVOKE INSERT ON SLACK FROM PUBLIC CASCADE
                 ;

PROCEDURE SUB53 SQLCODE SQLSTATE
    :CMD CHAR(15);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB54 SQLCODE SQLSTATE;
      DROP TABLE SLACK RESTRICT;

PROCEDURE SUB55 SQLCODE SQLSTATE
    :CMD CHAR(15);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB56 SQLCODE SQLSTATE;
      DROP VIEW BEABLE RESTRICT;

PROCEDURE SUB57 SQLCODE SQLSTATE
    :CMD CHAR(15);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION;

PROCEDURE SUB58 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB59 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0669','pass','MCO');

PROCEDURE SUB60 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0669','fail','MCO');

PROCEDURE SUB61 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB62 SQLCODE SQLSTATE;
      CREATE TABLE DOUBLE_TROUBLE (
                    TOO_LITTLE CHAR (10), TOO_LATE CHAR (10));

PROCEDURE SUB63 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB64 SQLCODE SQLSTATE;
      INSERT INTO DOUBLE_TROUBLE VALUES ('Albatross!',
                  NULL);

PROCEDURE SUB65 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB66 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SET TRANSACTION DIAGNOSTICS SIZE :INT1;

PROCEDURE SUB67 SQLCODE SQLSTATE
    :NL1 CHAR(1)
    :MTXT CHAR(50);
      SELECT * INTO :NL1, :MTXT FROM DOUBLE_TROUBLE
                 ;

PROCEDURE SUB68 SQLCODE SQLSTATE
    :NUM NUMERIC (9);
      GET DIAGNOSTICS :NUM = NUMBER;

PROCEDURE SUB69 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :ST CHAR(5)
    :CO CHAR(11)
    :SCO CHAR(11)
    :NL1 CHAR(1)
    :NL2 CHAR(1)
    :NL3 CHAR(1)
    :NL4 CHAR(1)
    :NL5 CHAR(1)
    :MTXT CHAR(50)
    :MLEN NUMERIC (9)
    :OMLEN NUMERIC (9);
      GET DIAGNOSTICS EXCEPTION 1
                    :INT1 = CONDITION_NUMBER, :ST = RETURNED_SQLSTATE,
                    :CO = CLASS_ORIGIN, :SCO = SUBCLASS_ORIGIN,
                    :NL1 = CONSTRAINT_SCHEMA, :NL2 = SCHEMA_NAME,
                    :NL3 = TABLE_NAME, :NL4 = COLUMN_NAME,
                    :NL5 = CURSOR_NAME, :MTXT = MESSAGE_TEXT,
                    :MLEN = MESSAGE_LENGTH, :OMLEN = MESSAGE_OCTET_LENGTH
                 ;

PROCEDURE SUB70 SQLCODE SQLSTATE
    :INT2 NUMERIC (9)
    :INT1 NUMERIC (9)
    :ST CHAR(5)
    :CO CHAR(11)
    :SCO CHAR(11)
    :NL1 CHAR(1)
    :NL2 CHAR(1)
    :NL3 CHAR(1)
    :NL4 CHAR(1)
    :NL5 CHAR(1)
    :MTXT CHAR(50)
    :MLEN NUMERIC (9)
    :OMLEN NUMERIC (9);
      GET DIAGNOSTICS EXCEPTION :INT2
                    :INT1 = CONDITION_NUMBER, :ST = RETURNED_SQLSTATE,
                    :CO = CLASS_ORIGIN, :SCO = SUBCLASS_ORIGIN,
                    :NL1 = CONSTRAINT_SCHEMA, :NL2 = SCHEMA_NAME,
                    :NL3 = TABLE_NAME, :NL4 = COLUMN_NAME,
                    :NL5 = CURSOR_NAME, :MTXT = MESSAGE_TEXT,
                    :MLEN = MESSAGE_LENGTH, :OMLEN = MESSAGE_OCTET_LENGTH
                 ;

PROCEDURE SUB71 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB72 SQLCODE SQLSTATE;
      SET TRANSACTION DIAGNOSTICS SIZE 2;

PROCEDURE SUB73 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB74 SQLCODE SQLSTATE;
      DROP TABLE DOUBLE_TROUBLE CASCADE;

PROCEDURE SUB75 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB76 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0672','pass','MCO');

PROCEDURE SUB77 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0672','fail','MCO');

PROCEDURE SUB78 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB79 SQLCODE SQLSTATE
    :INT2 NUMERIC (9);
      GET DIAGNOSTICS EXCEPTION 0
                    :INT2 = CONDITION_NUMBER;

PROCEDURE SUB80 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INT2 NUMERIC (9);
      GET DIAGNOSTICS EXCEPTION :INT1
                    :INT2 = CONDITION_NUMBER;

PROCEDURE SUB81 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB82 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0673','pass','MCO');

PROCEDURE SUB83 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0673','fail','MCO');

PROCEDURE SUB84 SQLCODE SQLSTATE;
      COMMIT WORK;