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

Quelle dml127.mco Sprache: unbekannt

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

DECLARE C12721  CURSOR FOR
               SELECT EMPNUM FROM HU.WORKS
DECLARE C12722  CURSOR FOR
               SELECT GRADE FROM HU.STAFF

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.ECCO;

PROCEDURE SUB4 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :YORN CHAR(1)
    :CMD CHAR(15);
      GET DIAGNOSTICS :INT1 = NUMBER,
                    :YORN = MORE, :CMD = COMMAND_FUNCTION;

PROCEDURE SUB5 SQLCODE SQLSTATE;
      DELETE FROM HU.STAFF WHERE GRADE < 13;

PROCEDURE SUB6 SQLCODE SQLSTATE
    :CMD CHAR(15)
    :INT2 NUMERIC (9)
    :YORN CHAR(1)
    :INT1 NUMERIC (9);
      GET DIAGNOSTICS :CMD = COMMAND_FUNCTION,
                    :INT2 = ROW_COUNT,
                    :YORN = MORE,
                    :INT1 = NUMBER;

PROCEDURE SUB7 SQLCODE SQLSTATE;
      UPDATE HU.STAFF SET GRADE = GRADE - 1;

PROCEDURE SUB8 SQLCODE SQLSTATE
    :SMINT1 NUMERIC (4)
    :YORN CHAR(1)
    :CMD CHAR(15)
    :INT2 NUMERIC (9);
      GET DIAGNOSTICS :SMINT1 = NUMBER,
                    :YORN = MORE, :CMD = COMMAND_FUNCTION,
                    :INT2 = ROW_COUNT;

PROCEDURE SUB9 SQLCODE SQLSTATE;
      INSERT INTO HU.STAFF
                    SELECT PNUM, 'Temp Worker', 4, CITY FROM HU.PROJ;

PROCEDURE SUB10 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :YORN CHAR(1)
    :CMD CHAR(15)
    :INT2 NUMERIC (9);
      GET DIAGNOSTICS :INT1 = NUMBER,
                    :YORN = MORE, :CMD = COMMAND_FUNCTION,
                    :INT2 = ROW_COUNT;

PROCEDURE SUB11 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB14 SQLCODE SQLSTATE;
      COMMIT WORK;

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

PROCEDURE SUB16 SQLCODE SQLSTATE
    :SMINT1 NUMERIC (4)
    :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
                    :SMINT1 = 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 SUB17 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      INSERT INTO HU.STAFF VALUES (
                    '000', 'Loser', 1 / :INT1, 'Baltimore');

PROCEDURE SUB18 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 SUB19 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 SUB20 SQLCODE SQLSTATE;
      INSERT INTO HU.STAFF VALUES (
                    'E1', 'Bart', 10, 'Annapolis');

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

PROCEDURE SUB22 SQLCODE SQLSTATE;
      CLOSE C12721;

PROCEDURE SUB23 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)
    :CSRNAM CHAR(6)
    :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,
                    :CSRNAM = CURSOR_NAME, :MTXT = MESSAGE_TEXT,
                    :MLEN = MESSAGE_LENGTH, :OMLEN = MESSAGE_OCTET_LENGTH
                 ;

PROCEDURE SUB24 SQLCODE SQLSTATE;
      INSERT INTO WCOV VALUES (0);

PROCEDURE SUB25 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 SUB26 SQLCODE SQLSTATE;
    OPEN C12722;

PROCEDURE SUB27 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      FETCH C12722 INTO :INT1;

PROCEDURE SUB28 SQLCODE SQLSTATE;
      DELETE FROM HU.STAFF WHERE CURRENT OF C12722
                 ;

PROCEDURE SUB29 SQLCODE SQLSTATE;
      DELETE FROM HU.STAFF;

PROCEDURE SUB30 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)
    :CSRNAM CHAR(6)
    :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,
                    :CSRNAM = CURSOR_NAME, :MTXT = MESSAGE_TEXT,
                    :MLEN = MESSAGE_LENGTH, :OMLEN = MESSAGE_OCTET_LENGTH
                 ;

PROCEDURE SUB31 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB34 SQLCODE SQLSTATE;
      COMMIT WORK;