Quelle  isi001.mco

-- SQL Test Suite, V6.0, SQL Module isi001.mco
-- 59-byte ID
-- 
MODULE ISI001
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 INFORMATION_SCHEMA.TABLES
                    WHERE TABLE_TYPE IS NULL;

PROCEDURE SUB4 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC(9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.TABLES A
                    WHERE NOT EXISTS (
                    SELECT *
                    FROM INFORMATION_SCHEMA.COLUMNS B
                    WHERE A.TABLE_SCHEMA = B.TABLE_SCHEMA
                    AND A.TABLE_NAME = B.TABLE_NAME
                    );

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC(9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.TABLES
                    WHERE TABLE_SCHEMA IS NULL
                    OR TABLE_NAME IS NULL;

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC(9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.TABLES;

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :CTR2 NUMERIC(9));
      SELECT COUNT(*) INTO :CTR2
                    FROM INFORMATION_SCHEMA.TABLES A,
                  INFORMATION_SCHEMA.TABLES B
                    WHERE A.TABLE_SCHEMA = B.TABLE_SCHEMA
                    AND A.TABLE_NAME = B.TABLE_NAME;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC(9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.TABLES A
                    WHERE NOT EXISTS (
                    SELECT *
                    FROM INFORMATION_SCHEMA.SCHEMATA B
                    WHERE A.TABLE_SCHEMA = B.SCHEMA_NAME
                    );

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

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :CTR1 NUMERIC(9));
      SELECT COUNT(*) INTO :CTR1
                    FROM INFORMATION_SCHEMA.TABLES Z WHERE NOT EXISTS
                    (SELECT TABLE_SCHEMA, TABLE_NAME FROM
                    INFORMATION_SCHEMA.TABLE_PRIVILEGES X
                    WHERE GRANTEE IN ('PUBLIC', USER)
                    AND X.TABLE_SCHEMA = Z.TABLE_SCHEMA
                    AND X.TABLE_NAME = Z.TABLE_NAME
                    UNION
                    SELECT TABLE_SCHEMA, TABLE_NAME FROM
                    INFORMATION_SCHEMA.COLUMN_PRIVILEGES Y
                    WHERE GRANTEE IN ('PUBLIC', USER)
                    AND Y.TABLE_SCHEMA = Z.TABLE_SCHEMA
                    AND Y.TABLE_NAME = Z.TABLE_NAME);

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :TTYPE CHAR(16));
      SELECT TABLE_TYPE INTO :TTYPE
                    FROM INFORMATION_SCHEMA.TABLES WHERE
                    TABLE_SCHEMA = 'FLATER' AND
                    TABLE_NAME = 'USIG';

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :TTYPE CHAR(16));
      SELECT TABLE_TYPE INTO :TTYPE
                    FROM INFORMATION_SCHEMA.TABLES WHERE
                    TABLE_SCHEMA = 'FLATER' AND
                    TABLE_NAME = 'U_SIG';

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :TTYPE CHAR(16));
      SELECT TABLE_TYPE INTO :TTYPE
                    FROM INFORMATION_SCHEMA.TABLES WHERE
                    TABLE_SCHEMA = 'FLATER' AND
                    TABLE_NAME = 'DV1';

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :TTYPE CHAR(16));
      SELECT TABLE_TYPE INTO :TTYPE
                    FROM INFORMATION_SCHEMA.TABLES WHERE
                    TABLE_SCHEMA = 'FLATER' AND
                    TABLE_NAME = 'BASE_WCOV';

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :TTYPE CHAR(16));
      SELECT TABLE_TYPE INTO :TTYPE
                    FROM INFORMATION_SCHEMA.TABLES WHERE
                    TABLE_SCHEMA = 'FLATER' AND
                    TABLE_NAME = 'WCOV';

PROCEDURE SUB16 (SQLCODE, SQLSTATE,
    :TTYPE CHAR(16));
      SELECT TABLE_TYPE INTO :TTYPE
                    FROM INFORMATION_SCHEMA.TABLES WHERE
                    TABLE_SCHEMA = 'FLATER' AND
                    TABLE_NAME = 'BASE_VS1';

PROCEDURE SUB17 (SQLCODE, SQLSTATE,
    :TTYPE CHAR(16));
      SELECT TABLE_TYPE INTO :TTYPE
                    FROM INFORMATION_SCHEMA.TABLES WHERE
                    TABLE_SCHEMA = 'FLATER' AND
                    TABLE_NAME = 'VS1';

PROCEDURE SUB18 (SQLCODE, SQLSTATE,
    :TTYPE CHAR(16));
      SELECT TABLE_TYPE INTO :TTYPE
                    FROM INFORMATION_SCHEMA.TABLES WHERE
                    TABLE_SCHEMA = 'FLATER' AND
                    TABLE_NAME = 'VS2';

PROCEDURE SUB19 (SQLCODE, SQLSTATE,
    :TTYPE CHAR(16));
      SELECT TABLE_TYPE INTO :TTYPE
                    FROM INFORMATION_SCHEMA.TABLES WHERE
                    TABLE_SCHEMA = 'FLATER' AND
                    TABLE_NAME = 'VS3';

PROCEDURE SUB20 (SQLCODE, SQLSTATE,
    :TTYPE CHAR(16));
      SELECT TABLE_TYPE INTO :TTYPE
                    FROM INFORMATION_SCHEMA.TABLES WHERE
                    TABLE_SCHEMA = 'FLATER' AND
                    TABLE_NAME = 'VS4';

PROCEDURE SUB21 (SQLCODE, SQLSTATE,
    :TTYPE CHAR(16));
      SELECT TABLE_TYPE INTO :TTYPE
                    FROM INFORMATION_SCHEMA.TABLES WHERE
                    TABLE_SCHEMA = 'FLATER' AND
                    TABLE_NAME = 'VS5';

PROCEDURE SUB22 (SQLCODE, SQLSTATE,
    :TTYPE CHAR(16));
      SELECT TABLE_TYPE INTO :TTYPE
                    FROM INFORMATION_SCHEMA.TABLES WHERE
                    TABLE_SCHEMA = 'FLATER' AND
                    TABLE_NAME = 'VS6';

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB26 (SQLCODE, SQLSTATE);
      COMMIT WORK;