Quelle  dml034.mco

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

MODULE DML034
LANGUAGE COBOL
AUTHORIZATION HU



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

PROCEDURE SUB1 SQLCODE;
      INSERT INTO GG 
                  VALUES(123.4567E-2);

PROCEDURE SUB2 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT ( * ) INTO  :COUNT1 
                  FROM GG WHERE REALTEST NOT BETWEEN 1.2345 AND 1.2346;

PROCEDURE SUB3 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT ( * ) INTO  :COUNT2 
                  FROM GG WHERE REALTEST BETWEEN 1.2345 AND 1.2346;

PROCEDURE SUB4 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB5 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0088','pass','MCO');

PROCEDURE SUB6 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0088','fail','MCO');

PROCEDURE SUB7 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB8 SQLCODE;
      INSERT INTO II 
                  VALUES(0.123456123456E6);

PROCEDURE SUB9 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT ( * ) INTO  :COUNT1 FROM II
                  WHERE DOUBLETEST BETWEEN 123456.1234 AND 123456.1235;

PROCEDURE SUB10 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT ( * ) INTO  :COUNT2 FROM II
                  WHERE DOUBLETEST NOT BETWEEN 123456.1234 AND 123456.1235;

PROCEDURE SUB11 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB12 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0090','pass','MCO');

PROCEDURE SUB13 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0090','fail','MCO');

PROCEDURE SUB14 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB15 SQLCODE;
      INSERT INTO JJ 
                  VALUES(12.345678);

PROCEDURE SUB16 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT ( * ) INTO  :COUNT1 FROM JJ
                  WHERE FLOATTEST BETWEEN 12.3456 AND 12.3457;

PROCEDURE SUB17 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT ( * ) INTO  :COUNT2 FROM JJ
                  WHERE FLOATTEST NOT BETWEEN 12.3456 AND 12.3457;

PROCEDURE SUB18 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB19 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0091','pass','MCO');

PROCEDURE SUB20 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0091','fail','MCO');

PROCEDURE SUB21 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB22 SQLCODE;
      INSERT INTO KK 
                  VALUES(123.456123456E+3);

PROCEDURE SUB23 SQLCODE
    :COUNT1 NUMERIC (9);
      SELECT COUNT ( * ) INTO  :COUNT1 FROM KK
                  WHERE FLOATTEST > 123456.1234;

PROCEDURE SUB24 SQLCODE
    :COUNT2 NUMERIC (9);
      SELECT COUNT ( * ) INTO  :COUNT2 FROM KK
                  WHERE FLOATTEST < 123456.1236;

PROCEDURE SUB25 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB26 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0092','pass','MCO');

PROCEDURE SUB27 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0092','fail','MCO');

PROCEDURE SUB28 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB29 SQLCODE;
      INSERT INTO LL 
                  VALUES(123456.123456);

PROCEDURE SUB30 SQLCODE
    :D13P6 NUMERIC (13,6);
      SELECT * 
                  INTO    :D13P6
                  FROM   LL;

PROCEDURE SUB31 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB34 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB35 SQLCODE;
      INSERT INTO PP 
                  VALUES(123456.123456);

PROCEDURE SUB36 SQLCODE
    :D13P6 NUMERIC (13,6);
      SELECT * 
                  INTO    :D13P6
                  FROM   PP;

PROCEDURE SUB37 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB38 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0094','pass','MCO');

PROCEDURE SUB39 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0094','fail','MCO');

PROCEDURE SUB40 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB41 SQLCODE;
      INSERT INTO SS 
                  VALUES(123456.123456);

PROCEDURE SUB42 SQLCODE
    :D13P6 NUMERIC (13,6);
      SELECT *
                  INTO    :D13P6
                  FROM   SS;

PROCEDURE SUB43 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB44 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0095','pass','MCO');

PROCEDURE SUB45 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0095','fail','MCO');

PROCEDURE SUB46 SQLCODE;
      COMMIT WORK;