Quelle  xts728.mco

-- SQL Test Suite, V6.0, SQL Module xts728.mco
-- 59-byte ID
-- 
MODULE XTS728
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);
      DELETE FROM CTS1.TABLE728b;

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TABLE728b
                    SELECT * FROM CTS1.TABLE728a
                    WHERE (C1,C2) IS NOT NULL;

PROCEDURE SUB5 (SQLCODE, SQLSTATE,
    :C_CH1 CHAR(10),
    :C_CH2 CHAR(10));
      SELECT COL_1,COL_2 INTO :C_CH1,:C_CH2
                    FROM CTS1.TABLE728b
                    WHERE COL_1 = 'NICKOS' AND COL_2 = 'GEORGE';

PROCEDURE SUB6 (SQLCODE, SQLSTATE,
    :C_CH1 CHAR(10),
    :C_CH2 CHAR(10));
      SELECT COL_1,COL_2 INTO :C_CH1,:C_CH2
                    FROM CTS1.TABLE728b
                    WHERE COL_1 = 'HARRY' AND COL_2 = 'TANIA';

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.TESTREPORT
                      VALUES('7028','NOGO','MCO');

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      COMMIT WORK;