Quelle  xts735.mco

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

DECLARE F  CURSOR FOR SELECT C1,C2
               FROM CTS1.TAB735
               ORDER BY C1


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 TAB735
                    (C1 NUMERIC(5) UNIQUE,
                    C2 NCHAR(12));

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO TAB735 VALUES(1,NULL);

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      INSERT INTO TAB735 VALUES(2, N'!');

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO TAB735 VALUES(3, N'  !');

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
    OPEN F;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :COL1 NUMERIC (9),
    :COL2 CHAR(12) CHARACTER SET VANGELIS,
    :INDIC1 NUMERIC (4));
      FETCH F INTO :COL1,:COL2:INDIC1;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :COL1 NUMERIC (9),
    :COL2 CHAR(12) CHARACTER SET VANGELIS);
      FETCH F INTO :COL1,:COL2;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :COL1 NUMERIC (9),
    :COL2 CHAR(12) CHARACTER SET VANGELIS);
      FETCH F INTO :COL1,:COL2;

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      CLOSE F;

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      DROP TABLE TAB735 CASCADE;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      COMMIT WORK;