Quelle  sdl029.mco

-- SQL Test Suite, V6.0, SQL Module sdl029.mco
-- 59-byte ID
-- 
MODULE SDL029
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.AA;

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

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

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

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

PROCEDURE SUB7 SQLCODE;
      DELETE FROM CUGINI.AA;

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

PROCEDURE SUB9 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB12 SQLCODE;
      COMMIT WORK;

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

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

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

PROCEDURE SUB16 SQLCODE;
      DELETE FROM CUGINI.BB;

PROCEDURE SUB17 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB20 SQLCODE;
      COMMIT WORK;

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

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

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

PROCEDURE SUB24 SQLCODE;
      DELETE FROM CUGINI.CC;

PROCEDURE SUB25 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB28 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB29 SQLCODE;
      DELETE FROM CUGINI.DD;

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

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

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

PROCEDURE SUB33 SQLCODE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB36 SQLCODE;
      COMMIT WORK;