Quelle  sdl033.mco

-- SQL Test Suite, V6.0, SQL Module sdl033.mco
-- 59-byte ID
-- 
MODULE SDL033
LANGUAGE COBOL
AUTHORIZATION SCHANZLE



PROCEDURE SUB1 SQLCODE
    :UIDX CHAR(18);
      SELECT USER INTO :UIDX FROM HU.ECCO;

PROCEDURE SUB2 SQLCODE;
      DELETE FROM FLATER.VS1 WHERE C2 = 1;

PROCEDURE SUB3 SQLCODE
    :CC1 NUMERIC (9);
      SELECT COUNT(*) INTO :CC1 FROM FLATER.VS1;

PROCEDURE SUB4 SQLCODE;
      INSERT INTO FLATER.VS1 VALUES (0,7);

PROCEDURE SUB5 SQLCODE;
      UPDATE FLATER.VS1
                    SET C2 = 8
                    WHERE C2 = 7;

PROCEDURE SUB6 SQLCODE
    :CC1 NUMERIC (9)
    :CC2 NUMERIC (9);
      SELECT C1, C2 INTO :CC1, :CC2
                    FROM FLATER.VS1
                    WHERE C2 = 0;

PROCEDURE SUB7 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB8 SQLCODE;
      DELETE FROM FLATER.BASE_VS1;

PROCEDURE SUB9 SQLCODE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM FLATER.VS1;

PROCEDURE SUB10 SQLCODE;
      INSERT INTO FLATER.BASE_VS1 VALUES (0,7);

PROCEDURE SUB11 SQLCODE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM FLATER.VS1;

PROCEDURE SUB12 SQLCODE;
      UPDATE FLATER.BASE_VS1
                    SET C2 = 1;

PROCEDURE SUB13 SQLCODE
    :TMPCNT NUMERIC (9);
      SELECT COUNT(*) INTO :TMPCNT
                    FROM FLATER.VS1 WHERE C2 = 1;

PROCEDURE SUB14 SQLCODE
    :CC1 NUMERIC (9);
      SELECT COUNT(*) INTO :CC1 FROM FLATER.BASE_VS1
                 ;

PROCEDURE SUB15 SQLCODE;
      ROLLBACK WORK;

PROCEDURE SUB16 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0473','pass','MCO');

PROCEDURE SUB17 SQLCODE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0473','fail','MCO');

PROCEDURE SUB18 SQLCODE;
      COMMIT WORK;