Quelle  dml082.mco

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



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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      DELETE FROM FLATER.TINY;

PROCEDURE SUB3 SQLCODE SQLSTATE;
      INSERT INTO FLATER.TINY VALUES
                       ('Too long for its own good!');

PROCEDURE SUB4 SQLCODE SQLSTATE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT FROM FLATER.TINY
                 ;

PROCEDURE SUB5 SQLCODE SQLSTATE
    :HUGE CHAR(1)
    :INDIC1 NUMERIC (4);
      SELECT C1 INTO :HUGE:INDIC1 FROM FLATER.TINY
                 ;

PROCEDURE SUB6 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB7 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0491','pass','MCO');

PROCEDURE SUB8 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0491','fail','MCO');

PROCEDURE SUB9 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB10 SQLCODE SQLSTATE
    :COLVAL CHAR(15);
      UPDATE HU.STAFF SET CITY = :COLVAL
                    WHERE EMPNUM = 'E1';

PROCEDURE SUB11 SQLCODE SQLSTATE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM HU.STAFF WHERE CITY
                    LIKE '%XX%X_%' ESCAPE 'XX';

PROCEDURE SUB12 SQLCODE SQLSTATE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM HU.STAFF WHERE CITY LIKE '%XX%X_%' ESCAPE 'X'
                 ;

PROCEDURE SUB13 SQLCODE SQLSTATE
    :TMPCNT NUMERIC (9)
    :ESCH2 CHAR(2);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM HU.STAFF WHERE CITY
                    LIKE '%XX_%' ESCAPE :ESCH2;

PROCEDURE SUB14 SQLCODE SQLSTATE
    :TMPCNT NUMERIC (9)
    :ESCH1 CHAR(1);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM HU.STAFF WHERE CITY
                    LIKE '%XX_%' ESCAPE :ESCH1;

PROCEDURE SUB15 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB16 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0492','pass','MCO');

PROCEDURE SUB17 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0492','fail','MCO');

PROCEDURE SUB18 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB19 SQLCODE SQLSTATE;
      DELETE FROM CPBASE;

PROCEDURE SUB20 SQLCODE SQLSTATE;
      INSERT INTO CPBASE VALUES (82,'Per%X&und_')
                 ;

PROCEDURE SUB21 SQLCODE SQLSTATE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM CPBASE WHERE JUNK1
                    LIKE 'P%X%%X' ESCAPE 'X';

PROCEDURE SUB22 SQLCODE SQLSTATE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM CPBASE WHERE JUNK1
                    LIKE 'P%X%%' ESCAPE 'X';

PROCEDURE SUB23 SQLCODE SQLSTATE
    :PATRN7 CHAR(7);
      INSERT INTO HU.STAFF 
                    SELECT 'E12','ff',KC,'gg' FROM CPBASE
                    WHERE JUNK1 LIKE :PATRN7 ESCAPE 'X';

PROCEDURE SUB24 SQLCODE SQLSTATE
    :PATRN6 CHAR(6);
      INSERT INTO HU.STAFF 
                    SELECT 'E13','ff',KC,'gg' FROM CPBASE
                    WHERE JUNK1 LIKE :PATRN6 ESCAPE 'X';

PROCEDURE SUB25 SQLCODE SQLSTATE
    :ESCH1 CHAR(1);
      UPDATE CPBASE SET KC = -1
                    WHERE JUNK1 LIKE '%?X%' ESCAPE :ESCH1;

PROCEDURE SUB26 SQLCODE SQLSTATE
    :ESCH1 CHAR(1);
      UPDATE CPBASE SET KC = -1
                    WHERE JUNK1 LIKE '%?%X%' ESCAPE :ESCH1;

PROCEDURE SUB27 SQLCODE SQLSTATE
    :PATRN6 CHAR(6)
    :ESCH1 CHAR(1);
      DELETE FROM CPBASE 
                    WHERE JUNK1 LIKE :PATRN6 ESCAPE :ESCH1;

PROCEDURE SUB28 SQLCODE SQLSTATE
    :PATRN7 CHAR(7)
    :ESCH1 CHAR(1);
      DELETE FROM CPBASE
                    WHERE JUNK1 LIKE :PATRN7 ESCAPE :ESCH1;

PROCEDURE SUB29 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB30 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0493','pass','MCO');

PROCEDURE SUB31 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0493','fail','MCO');

PROCEDURE SUB32 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB33 SQLCODE SQLSTATE;
      DELETE FROM HU.HH;

PROCEDURE SUB34 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB35 SQLCODE SQLSTATE;
      DELETE FROM HU.FF;

PROCEDURE SUB36 SQLCODE SQLSTATE;
      INSERT INTO HU.FF VALUES (99999);

PROCEDURE SUB37 SQLCODE SQLSTATE
    :SMALL1 NUMERIC (4);
      SELECT INTTEST INTO :SMALL1 FROM HU.FF;

PROCEDURE SUB38 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB39 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB40 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0494','pass','MCO');

PROCEDURE SUB41 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0494','fail','MCO');

PROCEDURE SUB42 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB43 SQLCODE SQLSTATE;
      INSERT INTO FLATER.WCOV VALUES (0);

PROCEDURE SUB44 SQLCODE SQLSTATE;
      INSERT INTO FLATER.WCOV VALUES (75);

PROCEDURE SUB45 SQLCODE SQLSTATE;
      UPDATE FLATER.WCOV SET C1 = -C1 WHERE C1 = 75
                 ;

PROCEDURE SUB46 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB47 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0505','pass','MCO');

PROCEDURE SUB48 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0505','fail','MCO');

PROCEDURE SUB49 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB50 SQLCODE SQLSTATE
    :LONG1 NUMERIC (9);
      INSERT INTO HU.HH VALUES (:LONG1);

PROCEDURE SUB51 SQLCODE SQLSTATE;
      UPDATE HU.FF SET INTTEST = 10 * INTTEST;