Quelle  sdl035.mco

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



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

PROCEDURE SUB2 SQLCODE
    :CT20 CHAR(20);
      SELECT CHARTEST
                    INTO :CT20 FROM CUGINI.VAA;

PROCEDURE SUB3 SQLCODE;
      INSERT INTO CUGINI.VAA
                    VALUES ('This should not work');

PROCEDURE SUB4 SQLCODE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM CUGINI.VAA;

PROCEDURE SUB5 SQLCODE;
      UPDATE CUGINI.VAA
                    SET CHARTEST = 'This should not work';

PROCEDURE SUB6 SQLCODE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM CUGINI.VAA WHERE CHARTEST
                    <> 'Twenty Characters...';

PROCEDURE SUB7 SQLCODE;
      DELETE FROM CUGINI.VAA;

PROCEDURE SUB8 SQLCODE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM CUGINI.VAA;

PROCEDURE SUB9 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB10 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0477','pass','MCO');

PROCEDURE SUB11 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0477','fail','MCO');

PROCEDURE SUB12 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB13 SQLCODE;
      INSERT INTO CUGINI.VBB
                    VALUES ('A');

PROCEDURE SUB14 SQLCODE
    :CT1 CHAR(1);
      SELECT CHARTEST INTO :CT1 FROM CUGINI.VBB;

PROCEDURE SUB15 SQLCODE;
      UPDATE CUGINI.VBB
                    SET CHARTEST = 'B';

PROCEDURE SUB16 SQLCODE;
      DELETE FROM CUGINI.VBB;

PROCEDURE SUB17 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB20 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB21 SQLCODE;
      UPDATE CUGINI.VCC
                    SET CHARTEST = 'This --should-- work';

PROCEDURE SUB22 SQLCODE
    :CT20 CHAR(20);
      SELECT CHARTEST
                    INTO :CT20 FROM CUGINI.VCC;

PROCEDURE SUB23 SQLCODE;
      INSERT INTO CUGINI.VCC
                    VALUES ('This should not work');

PROCEDURE SUB24 SQLCODE;
      DELETE FROM CUGINI.VCC;

PROCEDURE SUB25 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB26 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0479','pass','MCO');

PROCEDURE SUB27 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0479','fail','MCO');

PROCEDURE SUB28 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB29 SQLCODE;
      DELETE FROM CUGINI.VDD;

PROCEDURE SUB30 SQLCODE;
      INSERT INTO CUGINI.VDD
                    VALUES ('A');

PROCEDURE SUB31 SQLCODE
    :CT1 CHAR(1);
      SELECT CHARTEST INTO :CT1 FROM CUGINI.VDD;

PROCEDURE SUB32 SQLCODE;
      UPDATE CUGINI.VDD
                    SET CHARTEST = 'B';

PROCEDURE SUB33 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB34 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0480','pass','MCO');

PROCEDURE SUB35 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0480','fail','MCO');

PROCEDURE SUB36 SQLCODE;
      COMMIT WORK;