Quelle  dml127.mco

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