Quelle  dml029.mco

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

MODULE DML029
LANGUAGE COBOL
AUTHORIZATION HU



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

PROCEDURE SUB1 SQLCODE;
      INSERT INTO STAFF
                  VALUES('E8','Yang Ling',15,'Xi''an');

PROCEDURE SUB2 SQLCODE
    :GRADE1 NUMERIC (9)
    :SCITY CHAR(15);
      SELECT GRADE,CITY
                  INTO    :GRADE1, :SCITY
                  FROM   STAFF
                  WHERE  EMPNUM='E8';

PROCEDURE SUB3 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB4 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0129','pass','MCO');

PROCEDURE SUB5 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0129','fail','MCO');

PROCEDURE SUB6 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB7 SQLCODE;
      INSERT INTO JJ
                  VALUES(123.456E3);

PROCEDURE SUB8 SQLCODE
    :III NUMERIC (9);
      SELECT COUNT(*)
                  INTO    :III
                  FROM   JJ
                  WHERE FLOATTEST > 123455 AND FLOATTEST < 123457;

PROCEDURE SUB9 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB10 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0130','pass','MCO');

PROCEDURE SUB11 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0130','fail','MCO');

PROCEDURE SUB12 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB13 SQLCODE;
      INSERT INTO JJ
                  VALUES(123456E-3);

PROCEDURE SUB14 SQLCODE
    :III NUMERIC (9);
      SELECT COUNT(*)
                  INTO    :III
                  FROM   JJ
                  WHERE FLOATTEST > 122 AND FLOATTEST < 124;

PROCEDURE SUB15 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB16 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0131','pass','MCO');

PROCEDURE SUB17 SQLCODE;
      INSERT INTO TESTREPORT
                    VALUES('0131','fail','MCO');

PROCEDURE SUB18 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB19 SQLCODE;
      INSERT INTO JJ
                  VALUES(-123456E-3);

PROCEDURE SUB20 SQLCODE
    :III NUMERIC (9);
      SELECT COUNT(*)
                  INTO    :III
                  FROM   JJ
                  WHERE FLOATTEST > -124 AND FLOATTEST < -122;

PROCEDURE SUB21 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB24 SQLCODE;
      COMMIT WORK;