Quelle  ist004.mco

-- SQL Test Suite, V6.0, SQL Module ist004.mco
-- 59-byte ID
-- 
MODULE IST004
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
    :UIDX CHAR(18);
      SELECT DISTINCT SCHEM_OWNER
                    INTO :UIDX
                    FROM INFO_SCHEM.SCHEMATA;

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

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

PROCEDURE SUB6 SQLCODE SQLSTATE
    :CTR2 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR2
                    FROM INFO_SCHEM.SCHEMATA A,
                    INFO_SCHEM.SCHEMATA B
                    WHERE A.SCHEM_NAME = B.SCHEM_NAME;

PROCEDURE SUB7 SQLCODE SQLSTATE
    :CTR1 NUMERIC (9);
      SELECT COUNT(*) INTO :CTR1
                    FROM INFO_SCHEM.SCHEMATA
                    WHERE SCHEM_NAME = 'FLATER'
                    AND SCHEM_OWNER = 'FLATER';

PROCEDURE SUB8 SQLCODE SQLSTATE;
      ROLLBACK WORK;

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

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

PROCEDURE SUB11 SQLCODE SQLSTATE;
      COMMIT WORK;