Quelle  cdr024.mco

-- SQL Test Suite, V6.0, SQL Module cdr024.mco
-- 59-byte ID

MODULE CDR024
LANGUAGE COBOL
AUTHORIZATION SUN

DECLARE MOON CURSOR FOR 
               SELECT COUNT(*)  FROM SIZE_TAB
               WHERE COL4 BETWEEN -1.46E22 AND -1.048575E22
               GROUP BY COL1, COL2, COL3


PROCEDURE AUTHCK SQLCODE
  :UIDX CHAR(18);
      SELECT USER INTO :UIDX FROM SUN.ECCO;

PROCEDURE SUB1 SQLCODE;
      DELETE FROM CHAR_DEFAULT;

PROCEDURE SUB2 SQLCODE;
      INSERT INTO CHAR_DEFAULT(SEX_CODE)
                    VALUES ('M');

PROCEDURE SUB3 SQLCODE
    :NICK1 CHAR(20)
    :INSUR1 CHAR(5);
      SELECT NICKNAME, INSURANCE1 INTO  :NICK1,  :INSUR1 
                    FROM CHAR_DEFAULT
                    WHERE SEX_CODE = 'M';

PROCEDURE SUB4 SQLCODE;
      INSERT INTO CHAR_DEFAULT(NICKNAME, INSURANCE1)
                    VALUES ('Piggy', 'Kaise');

PROCEDURE SUB5 SQLCODE
    :SEX1 CHAR(1);
      SELECT SEX_CODE INTO  :SEX1 
                    FROM CHAR_DEFAULT
                    WHERE INSURANCE1 = 'Kaise';

PROCEDURE SUB6 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0385','pass','MCO');

PROCEDURE SUB7 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0385','fail','MCO');

PROCEDURE SUB8 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB9 SQLCODE;
      DELETE FROM EXACT_DEF;

PROCEDURE SUB10 SQLCODE;
      INSERT INTO EXACT_DEF
                    VALUES (98.3, -55556, .000001);

PROCEDURE SUB11 SQLCODE;
      INSERT INTO EXACT_DEF(BODY_TEMP)
                    VALUES (99.0);

PROCEDURE SUB12 SQLCODE;
      INSERT INTO EXACT_DEF(MAX_NUM, MIN_NUM)
                    VALUES (100, .2);

PROCEDURE SUB13 SQLCODE
    :CNT NUMERIC (9);
      SELECT COUNT(*) INTO  :CNT 
                    FROM EXACT_DEF
                    WHERE BODY_TEMP = 99.0 AND 
                    MAX_NUM = -55555 AND MIN_NUM = .000001
                    OR BODY_TEMP = 98.6 AND MAX_NUM = 100 AND MIN_NUM = .2
                 ;

PROCEDURE SUB14 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0386','pass','MCO');

PROCEDURE SUB15 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0386','fail','MCO');

PROCEDURE SUB16 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB17 SQLCODE;
      DELETE FROM APPROX_DEF;

PROCEDURE SUB18 SQLCODE;
      INSERT INTO APPROX_DEF(X_COUNT)
                    VALUES (5.0E5);

PROCEDURE SUB19 SQLCODE;
      INSERT INTO APPROX_DEF
                    VALUES (1.78E11, -9.9E10, 3.45E-10, 7.6777E-7);

PROCEDURE SUB20 SQLCODE;
      INSERT INTO APPROX_DEF(Y_COUNT, Z_COUNT, ZZ_COUNT)
                    VALUES (1.0E3, 2.0E4, 3.8E6);

PROCEDURE SUB21 SQLCODE
    :CNT NUMERIC (9);
      SELECT COUNT(*) INTO  :CNT
                    FROM APPROX_DEF
                    WHERE (Y_COUNT BETWEEN -9.991E10 AND -9.989E10) AND
                    (Z_COUNT BETWEEN 3.44E-11 AND 3.46E-11) AND
                    (ZZ_COUNT BETWEEN -7.6778E-7 AND -7.6776E-7) OR
                    (X_COUNT BETWEEN 1.77E12 AND 1.79E12);

PROCEDURE SUB22 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0387','pass','MCO');

PROCEDURE SUB23 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0387','fail','MCO');

PROCEDURE SUB24 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB25 SQLCODE;
      DELETE FROM SIZE_TAB;

PROCEDURE SUB26 SQLCODE;
      INSERT INTO SIZE_TAB(COL1) VALUES 
('ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz0123456789012');

PROCEDURE SUB27 SQLCODE;
      INSERT INTO SIZE_TAB(COL2, COL3, COL4)
                    VALUES (-999888777, 987654321.123456, -1.45E22);

PROCEDURE SUB28 SQLCODE;
      INSERT INTO SIZE_TAB
                    VALUES('ABCDEFG', 7,7,-1.49E22);

PROCEDURE SUB29 SQLCODE;
    OPEN MOON;

PROCEDURE SUB30 SQLCODE
    :CNT NUMERIC (9);
      FETCH MOON INTO  :CNT;

PROCEDURE SUB31 SQLCODE;
      CLOSE MOON;

PROCEDURE SUB32 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0388','pass','MCO');

PROCEDURE SUB33 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0388','fail','MCO');

PROCEDURE SUB34 SQLCODE;
      COMMIT WORK;