Quelle  dml185.mco

-- SQL Test Suite, V6.0, SQL Module dml185.mco
-- 59-byte ID
-- 
MODULE DML185
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 XX
                    (C1 CHAR(18)   DEFAULT  USER,
                    C2 CHAR(18)   DEFAULT  'USER',
                    C3 CHAR(18)   DEFAULT  'Hello World',
                    C4 CHAR(18)   DEFAULT  NULL,
                    C5 TIMESTAMP  DEFAULT  
                    TIMESTAMP '1993-11-10 00:02:00',
                    C6 REAL       DEFAULT  3.3E1,
                    C7 REAL);

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :H CHAR(32),
    :INDIC1 NUMERIC (4));
      SELECT COLUMN_DEF
                    INTO :H :INDIC1
                    FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'XX'
                    AND COLUMN_DEF = 'USER';

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :H CHAR(32),
    :INDIC1 NUMERIC (4));
      SELECT COLUMN_DEF INTO :H :INDIC1
                    FROM INFO_SCHEM.COLUMNS WHERE TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'XX' AND COLUMN_DEF = '''USER'''
                 ;

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :H CHAR(32),
    :INDIC1 NUMERIC (4));
      SELECT COLUMN_DEF INTO :H :INDIC1
                    FROM INFO_SCHEM.COLUMNS WHERE TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'XX' AND COLUMN_DEF = '''Hello World'''
                 ;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :H CHAR(32),
    :INDIC1 NUMERIC (4));
      SELECT COLUMN_DEF INTO :H :INDIC1
                    FROM INFO_SCHEM.COLUMNS WHERE TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'XX' AND COLUMN_DEF = 'NULL';

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :H CHAR(32),
    :INDIC1 NUMERIC (4));
      SELECT COLUMN_DEF INTO :H :INDIC1
                    FROM INFO_SCHEM.COLUMNS WHERE TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'XX' AND ORDINAL_POSITION = 5;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :H CHAR(32),
    :INDIC1 NUMERIC (4));
      INSERT INTO XX (C4, C5)
                    VALUES ('Timestamp', CAST (:H:INDIC1 AS TIMESTAMP))
                 ;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :INTVAL NUMERIC (9));
      SELECT COUNT(*) INTO :INTVAL
                    FROM XX WHERE C4 = 'Timestamp' 
                    AND C5 BETWEEN TIMESTAMP '1993-11-10 00:01:00' AND
                    TIMESTAMP '1993-11-10 00:03:00';

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :FLTVAL NUMERIC (8,4),
    :INDIC1 NUMERIC (4));
      SELECT CAST (COLUMN_DEF AS REAL)
                    INTO :FLTVAL :INDIC1
                    FROM INFO_SCHEM.COLUMNS
                    WHERE TABLE_SCHEM = 'FLATER' AND TABLE_NAME = 'XX'
                    AND ORDINAL_POSITION = 6;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :H CHAR(32),
    :INDIC1 NUMERIC (4));
      SELECT COLUMN_DEF INTO :H :INDIC1
                    FROM INFO_SCHEM.COLUMNS WHERE TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'XX' AND COLUMN_DEF IS NULL;

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      DROP TABLE XX CASCADE;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      COMMIT WORK;