Quelle  yts797.mco

-- SQL Test Suite, V6.0, SQL Module yts797.mco
-- 59-byte ID
-- 
MODULE YTS797
LANGUAGE COBOL
AUTHORIZATION CTS1



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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      UPDATE TV AS X
                    SET B =
                    (SELECT D FROM TV AS Y, TW AS Z
                    WHERE Y.A = Z.E
                    AND X.A = Y.A);

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      UPDATE TV AS X
                    SET B =
                    (SELECT D FROM TV AS Y, TW AS Z
                    WHERE Y.A = Z.E AND Z.E <> 2
                    AND X.A = Y.A);

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :TV1 CHAR(1));
      SELECT B INTO :TV1
                    FROM CTS1.TV
                    WHERE A = 1;

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :TV2 CHAR(1),
    :INDIC1 NUMERIC (4));
      SELECT B INTO :TV2:INDIC1
                    FROM CTS1.TV
                    WHERE A = 2;

PROCEDURE SUB7 (SQLCODE, SQLSTATE,
    :TV3 CHAR(1),
    :INDIC1 NUMERIC (4));
      SELECT B INTO :TV3:INDIC1 
                    FROM CTS1.TV
                    WHERE A = 3;

PROCEDURE SUB8 (SQLCODE, SQLSTATE,
    :TV4 CHAR(1));
      SELECT B INTO :TV4
                    FROM CTS1.TV
                    WHERE A = 4;

PROCEDURE SUB9 (SQLCODE, SQLSTATE,
    :TV5 CHAR(1));
      SELECT B INTO :TV5
                    FROM CTS1.TV
                    WHERE A = 5;

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7558','pass','MCO');

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7558','fail','MCO');

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      COMMIT WORK;