Quelle  xts769.mco

-- SQL Test Suite, V6.0, SQL Module xts769.mco
-- 59-byte ID
-- 
MODULE XTS769
LANGUAGE COBOL
AUTHORIZATION CTS3

DECLARE F  CURSOR FOR SELECT COL1, COL2, COL3, COL4
               FROM TABLATIN1 WHERE COL3 = _LATIN1'ALLOS'
               ORDER BY COL4


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

PROCEDURE SUB2 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB3 (SQLCODE, SQLSTATE);
      CREATE TABLE TABLATIN1
                    ( COL1 CHARACTER(10) CHARACTER SET LATIN1,
                    COL2 CHAR(12)      CHARACTER SET LATIN1,
                    COL3 VARCHAR(15)   CHARACTER SET LATIN1,
                    COL4 NUMERIC(5));

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO TABLATIN1 VALUES
                    (_LATIN1 'NICKOS', _LATIN1 'VASO', _LATIN1 'BILL',2)
                 ;

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      INSERT INTO TABLATIN1 VALUES
                    (_LATIN1 'HELEN', _LATIN1 'JIM', _LATIN1 'ALLOS',5)
                 ;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO TABLATIN1 VALUES
                    (_LATIN1 'LAMIA', _LATIN1 'ISOS', _LATIN1 'ALLOS',3)
                 ;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      INSERT INTO TABLATIN1 VALUES
                    (_LATIN1 'PAROS', _LATIN1 'MYKONOS', _LATIN1 'ALLOS',4)
                 ;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      INSERT INTO TABLATIN1 VALUES
                    (_LATIN1 'HULL', _LATIN1 'MYKONOS', _LATIN1 'OFFERTON',6)
                 ;

PROCEDURE SUB10 (SQLCODE, SQLSTATE,
    :C1 CHAR(10) CHARACTER SET LATIN1,
    :C2 CHAR(12) CHARACTER SET LATIN1,
    :C3 CHAR(15) CHARACTER SET LATIN1,
    :C4 NUMERIC (9));
      SELECT COL1, COL2, COL3, COL4
                    INTO :C1, :C2, :C3, :C4
                    FROM TABLATIN1
                    WHERE COL1 = _LATIN1'NICKOS';

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :C4 NUMERIC (9));
      SELECT COUNT(COL2) INTO :C4
                    FROM TABLATIN1
                    WHERE COL2 = _LATIN1'MYKONOS';

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
    OPEN F;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :C1 CHAR(10) CHARACTER SET LATIN1,
    :C2 CHAR(12) CHARACTER SET LATIN1,
    :C3 CHAR(15) CHARACTER SET LATIN1,
    :C4 NUMERIC (9));
      FETCH F INTO :C1,:C2,:C3,:C4;

PROCEDURE SUB14 (SQLCODE, SQLSTATE,
    :C1 CHAR(10) CHARACTER SET LATIN1,
    :C2 CHAR(12) CHARACTER SET LATIN1,
    :C3 CHAR(15) CHARACTER SET LATIN1,
    :C4 NUMERIC (9));
      FETCH F INTO :C1,:C2,:C3,:C4;

PROCEDURE SUB15 (SQLCODE, SQLSTATE,
    :C1 CHAR(10) CHARACTER SET LATIN1,
    :C2 CHAR(12) CHARACTER SET LATIN1,
    :C3 CHAR(15) CHARACTER SET LATIN1,
    :C4 NUMERIC (9));
      FETCH F INTO :C1,:C2,:C3,:C4;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      CLOSE F;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      DROP TABLE TABLATIN1 CASCADE;

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      COMMIT WORK;