Quelle  dml083.mco

-- SQL Test Suite, V6.0, SQL Module dml083.mco
-- 59-byte ID
-- 
MODULE DML083
LANGUAGE COBOL
AUTHORIZATION SCHANZLE

DECLARE CHARCHAR  CURSOR FOR
               SELECT T_CHAR FROM FOUR_TYPES
               WHERE T_DECIMAL = 4.1
DECLARE SKIER  CURSOR FOR 
               SELECT CITY, COUNT(DISTINCT GRADE) FROM HU.STAFF
               GROUP BY CITY
               ORDER BY CITY DESC
DECLARE JOHNS  CURSOR FOR
               SELECT EMPNAME FROM HU.STAFF
               WHERE EMPNUM = 'E3'


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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      DELETE FROM FOUR_TYPES;

PROCEDURE SUB3 SQLCODE SQLSTATE;
      INSERT INTO FOUR_TYPES VALUES (NULL,NULL,4.1,NULL)
                 ;

PROCEDURE SUB4 SQLCODE SQLSTATE
    :C1 NUMERIC (4);
      SELECT T_INT INTO :C1 FROM FOUR_TYPES
                    WHERE T_DECIMAL = 4.1;

PROCEDURE SUB5 SQLCODE SQLSTATE
    :DECML_12_3 NUMERIC (15,3);
      SELECT T_INT + 1.222 INTO :DECML_12_3
                    FROM FOUR_TYPES
                    WHERE T_DECIMAL = 4.1;

PROCEDURE SUB6 SQLCODE SQLSTATE;
    OPEN CHARCHAR;

PROCEDURE SUB7 SQLCODE SQLSTATE
    :CH22 CHAR(22);
      FETCH CHARCHAR INTO :CH22;

PROCEDURE SUB8 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB11 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB12 SQLCODE SQLSTATE;
      INSERT INTO HU.STAFF VALUES
                    ('E6','Earl Brown',11,'Claggetsville Maryland');

PROCEDURE SUB13 SQLCODE SQLSTATE
    :CH22 CHAR(22);
      INSERT INTO HU.STAFF VALUES
                    ('E7','Ella Brown',12,:CH22);

PROCEDURE SUB14 SQLCODE SQLSTATE
    :C1 NUMERIC (4);
      SELECT COUNT(*) INTO :C1 FROM HU.STAFF;

PROCEDURE SUB15 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB18 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB19 SQLCODE SQLSTATE;
      DELETE FROM HU.HH;

PROCEDURE SUB20 SQLCODE SQLSTATE;
      INSERT INTO HU.HH VALUES (3);

PROCEDURE SUB21 SQLCODE SQLSTATE;
      INSERT INTO HU.HH VALUES (NULL);

PROCEDURE SUB22 SQLCODE SQLSTATE
    :C1 NUMERIC (4);
      SELECT AVG(SMALLTEST) INTO :C1 FROM HU.HH;

PROCEDURE SUB23 SQLCODE SQLSTATE;
      UPDATE HU.STAFF SET GRADE = NULL
                    WHERE GRADE = 13;

PROCEDURE SUB24 SQLCODE SQLSTATE
     :DECML_12_3 NUMERIC(15,3);
      SELECT AVG(GRADE) INTO :DECML_12_3 FROM HU.STAFF
                    WHERE CITY = 'Vienna';

PROCEDURE SUB25 SQLCODE SQLSTATE
    :C1 NUMERIC (4);
      SELECT SUM(DISTINCT GRADE) INTO :C1 FROM HU.STAFF
                 ;

PROCEDURE SUB26 SQLCODE SQLSTATE;
      INSERT INTO HU.HH 
                    SELECT MAX(GRADE) FROM HU.STAFF;

PROCEDURE SUB27 SQLCODE SQLSTATE;
      DELETE FROM HU.HH WHERE SMALLTEST <
                    (SELECT MIN(GRADE) FROM HU.STAFF
                    WHERE CITY = 'Vienna');

PROCEDURE SUB28 SQLSTATE;
    OPEN SKIER;

PROCEDURE SUB29 SQLSTATE SQLCODE
    :CH22 CHAR(22)
    :C1 NUMERIC (4);
      FETCH SKIER INTO :CH22, :C1;

PROCEDURE SUB30 
    :C1 NUMERIC (4)
    SQLSTATE
    :CH22 CHAR(22)
    SQLCODE;
      FETCH SKIER INTO :CH22, :C1;

PROCEDURE SUB31
    :CH22 CHAR(22)
    SQLCODE
    SQLSTATE
    :C1 NUMERIC (4);
      FETCH SKIER INTO :CH22, :C1;

PROCEDURE SUB32 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB35 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB36 SQLCODE SQLSTATE
    :CH1 CHAR(1);
      SELECT EMPNAME INTO :CH1 FROM HU.STAFF
                    WHERE EMPNUM = 'E3';

PROCEDURE SUB37 SQLCODE SQLSTATE;
    OPEN JOHNS;

PROCEDURE SUB38 SQLCODE SQLSTATE
    :CH1 CHAR(1);
      FETCH JOHNS INTO :CH1;

PROCEDURE SUB39 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB42 SQLCODE SQLSTATE;
      COMMIT WORK;