Quelle  dml144.mco

-- SQL Test Suite, V6.0, SQL Module dml144.mco
-- 59-byte ID
-- 
MODULE DML144
LANGUAGE COBOL
AUTHORIZATION FLATER



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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB3 SQLCODE SQLSTATE;
      CREATE TABLE GRUB (C1 VARCHAR (10));

PROCEDURE SUB4 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB5 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT CHAR_LENGTH (EMPNAME) INTO :INT1
                    FROM HU.STAFF WHERE GRADE = 10;

PROCEDURE SUB6 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT CHARACTER_LENGTH ('HI' || 'THERE')
                    INTO :INT1 FROM HU.ECCO;

PROCEDURE SUB7 SQLCODE SQLSTATE;
      INSERT INTO GRUB VALUES ('Hi  ');

PROCEDURE SUB8 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT CHARACTER_LENGTH (C1)
                    INTO :INT1 FROM GRUB;

PROCEDURE SUB9 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT OCTET_LENGTH (C1)
                    INTO :INT1 FROM GRUB;

PROCEDURE SUB10 SQLCODE SQLSTATE;
      UPDATE GRUB SET C1 = NULL;

PROCEDURE SUB11 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      SELECT CHARACTER_LENGTH (C1)
                    INTO :INT1:INDIC1 FROM GRUB;

PROCEDURE SUB12 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :INDIC1 NUMERIC (4);
      SELECT OCTET_LENGTH (C1)
                    INTO :INT1:INDIC1 FROM GRUB;

PROCEDURE SUB13 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB14 SQLCODE SQLSTATE;
      DROP TABLE GRUB CASCADE;

PROCEDURE SUB15 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB18 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB19 SQLCODE SQLSTATE;
      CREATE TABLE MOREGRUB (C1 VARCHAR (10), ID INT)
                 ;

PROCEDURE SUB20 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB21 SQLCODE SQLSTATE;
      CREATE VIEW X4 (S1, S2, ID) AS
                    SELECT SUBSTRING (C1 FROM 6),
                    SUBSTRING (C1 FROM 2 FOR 4), ID
                    FROM MOREGRUB;

PROCEDURE SUB22 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB23 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      SELECT SUBSTRING (CITY FROM 4 FOR 10)
                    INTO :CH1 FROM HU.STAFF WHERE EMPNAME = 'Ed';

PROCEDURE SUB24 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      SELECT SUBSTRING (CITY FROM 4)
                    INTO :CH1 FROM HU.STAFF WHERE EMPNAME = 'Ed';

PROCEDURE SUB25 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      SELECT SUBSTRING (CITY FROM 4 FOR -1)
                    INTO :CH1 FROM HU.STAFF WHERE EMPNAME = 'Ed';

PROCEDURE SUB26 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      SELECT SUBSTRING (CITY FROM 0 FOR 10)
                    INTO :CH1 FROM HU.STAFF WHERE EMPNAME = 'Ed';

PROCEDURE SUB27 SQLCODE SQLSTATE
    :INT1 NUMERIC (9)
    :CH1 CHAR(10);
      SELECT SUBSTRING (CITY FROM :INT1 FOR 100)
                    INTO :CH1 FROM HU.STAFF WHERE EMPNAME = 'Ed';

PROCEDURE SUB28 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      SELECT SUBSTRING (CITY FROM 1 FOR 1)
                    INTO :CH1 FROM HU.STAFF WHERE EMPNAME = 'Ed';

PROCEDURE SUB29 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      SELECT SUBSTRING (CITY FROM 1 FOR 0)
                    INTO :CH1 FROM HU.STAFF WHERE EMPNAME = 'Ed';

PROCEDURE SUB30 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      SELECT SUBSTRING (CITY FROM 12 FOR 1)
                    INTO :CH1 FROM HU.STAFF WHERE EMPNAME = 'Ed';

PROCEDURE SUB31 SQLCODE SQLSTATE;
      INSERT INTO MOREGRUB VALUES ('Pretzels', 1)
                 ;

PROCEDURE SUB32 SQLCODE SQLSTATE;
      INSERT INTO MOREGRUB VALUES (NULL, 2);

PROCEDURE SUB33 SQLCODE SQLSTATE;
      INSERT INTO MOREGRUB VALUES ('Chips', 3);

PROCEDURE SUB34 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      SELECT S1 INTO :CH1
                    FROM X4 WHERE ID = 1;

PROCEDURE SUB35 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      SELECT S1 INTO :CH1
                    FROM X4 WHERE ID = 3;

PROCEDURE SUB36 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      SELECT S2 INTO :CH1
                    FROM X4 WHERE ID = 1;

PROCEDURE SUB37 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      SELECT S2 INTO :CH1
                    FROM X4 WHERE ID = 3;

PROCEDURE SUB38 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      SELECT SUBSTRING (C1 FROM ID)
                    INTO :CH1 FROM MOREGRUB
                    WHERE C1 LIKE 'Ch%';

PROCEDURE SUB39 SQLCODE SQLSTATE
    :CH1 CHAR(10);
      SELECT SUBSTRING (C1 FROM 1 FOR ID)
                    INTO :CH1 FROM MOREGRUB
                    WHERE C1 LIKE 'Ch%';

PROCEDURE SUB40 SQLCODE SQLSTATE
    :CH1 CHAR(10)
    :INT1 NUMERIC (9)
    :CH1 CHAR(10);
      SELECT SUBSTRING (C1 || ' with ' || :CH1
                    FROM 4 FOR :INT1 + 1)
                    INTO :CH1 FROM MOREGRUB
                    WHERE C1 LIKE 'Ch%';

PROCEDURE SUB41 SQLCODE SQLSTATE
    :CH1 CHAR(10)
    :INDIC1 NUMERIC (4);
      SELECT S1 INTO :CH1:INDIC1
                    FROM X4 WHERE ID = 2;

PROCEDURE SUB42 SQLCODE SQLSTATE;
      DELETE FROM MOREGRUB;

PROCEDURE SUB43 SQLCODE SQLSTATE;
      INSERT INTO MOREGRUB VALUES ('Tacos', NULL)
                 ;

PROCEDURE SUB44 SQLCODE SQLSTATE
    :CH1 CHAR(10)
    :INDIC1 NUMERIC (4);
      SELECT SUBSTRING (C1 FROM 1 FOR ID)
                    INTO :CH1:INDIC1 FROM MOREGRUB;

PROCEDURE SUB45 SQLCODE SQLSTATE
    :CH1 CHAR(10)
    :INDIC1 NUMERIC (4);
      SELECT SUBSTRING (C1 FROM ID FOR 1)
                    INTO :CH1:INDIC1 FROM MOREGRUB;

PROCEDURE SUB46 SQLCODE SQLSTATE;
      UPDATE MOREGRUB SET C1 = NULL;

PROCEDURE SUB47 SQLCODE SQLSTATE
    :CH1 CHAR(10)
    :INDIC1 NUMERIC (4);
      SELECT SUBSTRING (C1 FROM ID FOR ID)
                    INTO :CH1:INDIC1 FROM MOREGRUB;

PROCEDURE SUB48 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB49 SQLCODE SQLSTATE;
      DROP TABLE MOREGRUB CASCADE;

PROCEDURE SUB50 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB53 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB54 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT CHAR_LENGTH (SUBSTRING
                    (CITY FROM 4 FOR 4)) INTO :INT1
                    FROM HU.STAFF WHERE EMPNAME = 'Ed';

PROCEDURE SUB55 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT CHARACTER_LENGTH (SUBSTRING
                    (EMPNUM FROM 1)) INTO :INT1
                    FROM HU.STAFF WHERE EMPNAME = 'Ed';

PROCEDURE SUB56 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB59 SQLCODE SQLSTATE;
      COMMIT WORK;