Quelle  xts729.mco

-- SQL Test Suite, V6.0, SQL Module xts729.mco
-- 59-byte ID
-- 
MODULE XTS729
LANGUAGE COBOL
AUTHORIZATION CTS1

DECLARE A  CURSOR
               FOR SELECT * FROM CTS1.TESTB6439
               ORDER BY
                cOlUmNoFNUMERIC123456789012345678901234567890
                123456789012345678901234567890123456789012345
                678901234567890123456789012345678901_0
DECLARE B  CURSOR
               FOR SELECT  COLUMN_NAME, ORDINAL_POSITION
               FROM INFORMATION_SCHEMA.COLUMNS
               WHERE TABLE_SCHEMA = 'CTS1' AND TABLE_NAME = 'TESTB6439'
               ORDER BY ORDINAL_POSITION
DECLARE C  CURSOR
               FOR SELECT * FROM CTS1.TESTC6439
               ORDER BY COLUMNOFCHARACTERSA


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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      CREATE TABLE TESTA6439
                    (COLUMNOFCHARACTERSA CHARACTER(10),
                    columnofcharactersb CHARACTER(10),
                    cOlUmNoFNUMERICss_0 NUMERIC(5),
                    cOlUmNoFNUMERICss_1 NUMERIC(5));

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      CREATE TABLE TESTB6439
                   (COLUMNOFCHARACTERDATATYPE12345678901234567890
                   123456789012345678901234567890123456789012345678
                   90123456789012345678901234567890123 CHARACTER(3),
                   columnofcharacterdatatype12345678901234567890123
                   456789012345678901234567890123456789012345678901
                   2345678901234567890123456789012b CHARACTER(3),
                   cOlUmNoFNUMERIC12345678901234567890123456789012345
                   67890123456789012345678901234567890123456789012345
                   67890123456789012345678901_0 NUMERIC(5),
                   CoLuMnOfNUMERIC123456789012345678901234567890123456
                   789012345678901234567890123456789012345678901234567
                   890123456789012345678901_1 NUMERIC(5));

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTA6439
                    VALUES('ABCD','DCBA',1,9999);

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :BB CHAR(10),
    :CC NUMERIC (9),
    :DD NUMERIC (9));
      SELECT COLUMNOFCHARACTERSA, columnofcharactersb,
                    cOlUmNoFNUMERICss_0, cOlUmNoFNUMERICss_1
                    INTO :AA, :BB, :CC, :DD FROM CTS1.TESTA6439;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTB6439
                    VALUES('AA','BB',1,2);

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTB6439
                    VALUES('CC','DD',3,4);

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTB6439
                    VALUES('EE','FF',5,6);

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTB6439
                    VALUES('GG','HH',7,8);

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTB6439
                    VALUES('II','KK',9,0);

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
    OPEN a;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :BB CHAR(10),
    :CC NUMERIC (9),
    :DD NUMERIC (9));
      FETCH a INTO :AA, :BB, :CC, :DD;

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :BB CHAR(10),
    :CC NUMERIC (9),
    :DD NUMERIC (9));
      FETCH a INTO :AA, :BB, :CC, :DD;

PROCEDURE SUB17 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :BB CHAR(10),
    :CC NUMERIC (9),
    :DD NUMERIC (9));
      FETCH a INTO :AA, :BB, :CC, :DD;

PROCEDURE SUB18 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :BB CHAR(10),
    :CC NUMERIC (9),
    :DD NUMERIC (9));
      FETCH a INTO :AA, :BB, :CC, :DD;

PROCEDURE SUB19 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :BB CHAR(10),
    :CC NUMERIC (9),
    :DD NUMERIC (9));
      FETCH a INTO :AA, :BB, :CC, :DD;

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      CLOSE a;

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
    OPEN b;

PROCEDURE SUB22 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :CC NUMERIC (9));
      FETCH b INTO :AA, :CC;

PROCEDURE SUB23 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :CC NUMERIC (9));
      FETCH b INTO :AA, :CC;

PROCEDURE SUB24 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :CC NUMERIC (9));
      FETCH b INTO :AA, :CC;

PROCEDURE SUB25 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :CC NUMERIC (9));
      FETCH b INTO :AA, :CC;

PROCEDURE SUB26 (SQLCODE, SQLSTATE);
      CLOSE b;

PROCEDURE SUB27 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB28 (SQLCODE, SQLSTATE,
    :SQLSTM CHAR(190));
      EXECUTE IMMEDIATE :SQLSTM;

PROCEDURE SUB29 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB30 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTC6439
                    VALUES('aaa','bbb');

PROCEDURE SUB31 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTC6439
                    VALUES  ('ccc','ddd');

PROCEDURE SUB32 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTC6439
                    VALUES('eee','fff');

PROCEDURE SUB33 (SQLCODE, SQLSTATE);
    OPEN c;

PROCEDURE SUB34 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :BB CHAR(10));
      FETCH c INTO :AA, :BB;

PROCEDURE SUB35 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :BB CHAR(10));
      FETCH c INTO :AA, :BB;

PROCEDURE SUB36 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :BB CHAR(10));
      FETCH c INTO :AA, :BB;

PROCEDURE SUB37 (SQLCODE, SQLSTATE);
      CLOSE c;

PROCEDURE SUB38 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB39 (SQLCODE, SQLSTATE);
      ALTER TABLE CTS1.TESTB6439
                    ADD COLUMN 
                     COLUMNOFCHARACTERDATATYPE12345678901234567890
                     123456789012345678901234567890123456789012345
                     6789012345678901234567890123456789012C CHAR(3) 
                    ;

PROCEDURE SUB40 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB41 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTB6439
                    VALUES('TTT','TTT',100,100,'ADD');

PROCEDURE SUB42 (SQLCODE, SQLSTATE,
    :AA CHAR(149),
    :BB CHAR(10),
    :CC NUMERIC (9),
    :DD NUMERIC (9),
    :EE CHAR(9));
      SELECT * INTO :AA, :BB, :CC, :DD, :EE FROM
                  CTS1.TESTB6439
                    WHERE
                     COLUMNOFCHARACTERDATATYPE1234567890123456789012345
                     67890123456789012345678901234567890123456789012345
                     678901234567890123456789012C = 'ADD';

PROCEDURE SUB43 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB44 (SQLCODE, SQLSTATE);
      DROP TABLE TESTA6439 CASCADE;

PROCEDURE SUB45 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB46 (SQLCODE, SQLSTATE);
      DROP TABLE TESTB6439 CASCADE;

PROCEDURE SUB47 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB48 (SQLCODE, SQLSTATE);
      DROP TABLE TESTC6439 CASCADE;

PROCEDURE SUB49 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB50 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7029','pass','MCO');

PROCEDURE SUB51 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7029','fail','MCO');

PROCEDURE SUB52 (SQLCODE, SQLSTATE);
      COMMIT WORK;