Quelle  flg012.mco

-- SQL Test Suite, V6.0, SQL Module flg012.mco
-- 59-byte ID
-- 
MODULE FLG012
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 INDEX II1 ON USIG(C1);

PROCEDURE SUB4 SQLCODE SQLSTATE;
       CREATE UNIQUE INDEX II2 ON USIG(C_1);

PROCEDURE SUB5 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB6 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0832','nogo','MCO');

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

PROCEDURE SUB8 SQLCODE SQLSTATE;
      COMMIT WORK;