Quelle  ist002.mco

-- SQL Test Suite, V6.0, SQL Module ist002.mco
-- 59-byte ID
-- 
MODULE IST002
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
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.VIEWS
                    WHERE CHECK_OPTION IS NULL;

PROCEDURE SUB4 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.VIEWS
                    WHERE IS_UPDATABLE IS NULL;

PROCEDURE SUB5 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.VIEWS
                    WHERE IS_UPDATABLE <> 'YES'
                    AND IS_UPDATABLE <> 'NO';

PROCEDURE SUB6 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.VIEWS
                    WHERE TABLE_SCHEM IS NULL
                    OR TABLE_NAME IS NULL;

PROCEDURE SUB7 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.VIEWS;

PROCEDURE SUB8 SQLCODE SQLSTATE
    :CTR2 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR2
                    FROM INFO_SCHEM.VIEWS A,
                    INFO_SCHEM.VIEWS B
                    WHERE A.TABLE_SCHEM = B.TABLE_SCHEM
                    AND A.TABLE_NAME = B.TABLE_NAME;

PROCEDURE SUB9 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.VIEWS A WHERE NOT EXISTS
                    (SELECT * FROM INFO_SCHEM.TABLES B
                    WHERE A.TABLE_SCHEM = B.TABLE_SCHEM
                    AND A.TABLE_NAME = B.TABLE_NAME
                    AND B.TABLE_TYPE = 'VIEW');

PROCEDURE SUB10 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.VIEWS WHERE
                    IS_UPDATABLE = 'NO' AND CHECK_OPTION <> 'NONE';

PROCEDURE SUB11 SQLCODE SQLSTATE
    :COPT CHAR(8)
    :CTR1 NUMERIC (9);
      SELECT VIEW_DEFINITION INTO :COPT:CTR1
                    FROM INFO_SCHEM.VIEWS
                    WHERE TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'DV1';

PROCEDURE SUB12 SQLCODE SQLSTATE
    :COPT CHAR(8)
    :IUPT CHAR(3);
      SELECT CHECK_OPTION, IS_UPDATABLE
                    INTO :COPT, :IUPT
                    FROM INFO_SCHEM.VIEWS
                    WHERE TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'DV1';

PROCEDURE SUB13 SQLCODE SQLSTATE
    :COPT CHAR(8)
    :IUPT CHAR(3);
      SELECT CHECK_OPTION, IS_UPDATABLE
                    INTO :COPT, :IUPT
                    FROM INFO_SCHEM.VIEWS
                    WHERE TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'WCOV';

PROCEDURE SUB14 SQLCODE SQLSTATE
    :COPT CHAR(8)
    :IUPT CHAR(3);
      SELECT CHECK_OPTION, IS_UPDATABLE
                    INTO :COPT, :IUPT
                    FROM INFO_SCHEM.VIEWS
                    WHERE TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'VS1';

PROCEDURE SUB15 SQLCODE SQLSTATE
    :COPT CHAR(8)
    :IUPT CHAR(3);
      SELECT CHECK_OPTION, IS_UPDATABLE
                    INTO :COPT, :IUPT
                    FROM INFO_SCHEM.VIEWS
                    WHERE TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'VS2';

PROCEDURE SUB16 SQLCODE SQLSTATE
    :COPT CHAR(8)
    :IUPT CHAR(3);
      SELECT CHECK_OPTION, IS_UPDATABLE
                    INTO :COPT, :IUPT
                    FROM INFO_SCHEM.VIEWS
                    WHERE TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'VS3';

PROCEDURE SUB17 SQLCODE SQLSTATE
    :COPT CHAR(8)
    :IUPT CHAR(3);
      SELECT CHECK_OPTION, IS_UPDATABLE
                    INTO :COPT, :IUPT
                    FROM INFO_SCHEM.VIEWS
                    WHERE TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'VS4';

PROCEDURE SUB18 SQLCODE SQLSTATE
    :COPT CHAR(8)
    :IUPT CHAR(3);
      SELECT CHECK_OPTION, IS_UPDATABLE
                    INTO :COPT, :IUPT
                    FROM INFO_SCHEM.VIEWS
                    WHERE TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'VS5';

PROCEDURE SUB19 SQLCODE SQLSTATE
    :COPT CHAR(8)
    :IUPT CHAR(3);
      SELECT CHECK_OPTION, IS_UPDATABLE
                    INTO :COPT, :IUPT
                    FROM INFO_SCHEM.VIEWS
                    WHERE TABLE_SCHEM = 'FLATER'
                    AND TABLE_NAME = 'VS6';

PROCEDURE SUB20 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB23 SQLCODE SQLSTATE;
      COMMIT WORK;