Quelle  dml091.mco

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

DECLARE RANCID  CURSOR FOR
               SELECT NUMTEST FROM HU.P1


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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      DELETE FROM HU.P1;

PROCEDURE SUB3 SQLCODE SQLSTATE;
      DELETE FROM FOUR_TYPES;

PROCEDURE SUB4 SQLCODE SQLSTATE;
      INSERT INTO HU.P1 VALUES (100000);

PROCEDURE SUB5 SQLCODE SQLSTATE;
      INSERT INTO HU.P1 VALUES (-1000000);

PROCEDURE SUB6 SQLCODE SQLSTATE;
      INSERT INTO HU.P1 VALUES (-9);

PROCEDURE SUB7 SQLCODE SQLSTATE;
      INSERT INTO HU.P1 VALUES (9);

PROCEDURE SUB8 SQLCODE SQLSTATE;
      UPDATE HU.P1 SET NUMTEST = NUMTEST + 100000
                 ;

PROCEDURE SUB9 SQLCODE SQLSTATE
    :C1 NUMERIC (4);
      UPDATE HU.P1 SET NUMTEST =
                    ((1 + NUMTEST) * :C1 * :C1) WHERE NUMTEST = 100009 OR
                    NUMTEST IN (SELECT GRADE - 4 FROM HU.STAFF);

PROCEDURE SUB10 SQLCODE SQLSTATE;
    OPEN RANCID;

PROCEDURE SUB11 SQLCODE SQLSTATE
    :C1 NUMERIC (4);
      FETCH RANCID INTO :C1;

PROCEDURE SUB12 SQLCODE SQLSTATE;
      UPDATE HU.P1
                    SET NUMTEST = NUMTEST * 200000 WHERE CURRENT OF RANCID
                 ;

PROCEDURE SUB13 SQLCODE SQLSTATE;
      INSERT INTO FOUR_TYPES 
                    VALUES (1,'X',11112222.00,.000003E-25);

PROCEDURE SUB14 SQLCODE SQLSTATE
    :C1 NUMERIC (4);
      SELECT T_DECIMAL INTO :C1 FROM FOUR_TYPES
                    WHERE T_CHAR = 'X';

PROCEDURE SUB15 SQLCODE SQLSTATE
    :LONG1 NUMERIC (9);
      SELECT T_DECIMAL / .000000001 INTO :LONG1
                    FROM FOUR_TYPES WHERE T_CHAR = 'X';

PROCEDURE SUB16 SQLCODE SQLSTATE
     :DECML_8_2 NUMERIC (10,2);
      SELECT SUM(T_DECIMAL) INTO :DECML_8_2 FROM FOUR_TYPES
                 ;

PROCEDURE SUB17 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB20 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB21 SQLCODE SQLSTATE;
      INSERT 
                      INTO FOUR_TYPES (T_DECIMAL) VALUES (-99998888.22)
                 ;