Quelle  yts778.mco   Sprache: unbekannt

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

DECLARE DATA78  SCROLL CURSOR FOR
               SELECT * FROM alt_test
               ORDER BY K


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 DOMAIN int_dom2 AS INTEGER
                    DEFAULT 99;

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      CREATE TABLE alt_test
                    ( K integer,
                    L integer DEFAULT 50,
                    M integer,
                    N int_dom2);

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO alt_test VALUES (1,1,1,1);

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      INSERT INTO alt_test (K,L,N) VALUES (2,2,2)
                 ;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      INSERT INTO alt_test (K,M) VALUES (3,3);

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
    OPEN data78;

PROCEDURE SUB11 (SQLCODE, SQLSTATE,
    :COL1 NUMERIC (9),
    :COL2 NUMERIC (9),
    :COL3 NUMERIC (9),
    :COL4 NUMERIC (9));
      FETCH FIRST data78 INTO :COL1, :COL2, :COL3, :COL4
                 ;

PROCEDURE SUB12 (SQLCODE, SQLSTATE,
    :COL1 NUMERIC (9),
    :COL2 NUMERIC (9),
    :COL3 NUMERIC (9),
    :INDIC1 NUMERIC (4),
    :COL4 NUMERIC (9));
      FETCH NEXT data78 INTO :COL1, 
                    :COL2, :COL3:INDIC1, :COL4;

PROCEDURE SUB13 (SQLCODE, SQLSTATE,
    :COL1 NUMERIC (9),
    :COL2 NUMERIC (9),
    :COL3 NUMERIC (9),
    :COL4 NUMERIC (9));
      FETCH NEXT data78 INTO 
                    :COL1, :COL2, :COL3, :COL4;

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      ALTER TABLE alt_test ALTER COLUMN L SET DEFAULT
                  100;

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      ALTER TABLE alt_test ALTER COLUMN M SET DEFAULT 90
                 ;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      ALTER TABLE alt_test ALTER COLUMN N SET DEFAULT 80
                 ;

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB22 (SQLCODE, SQLSTATE,
    :COL1 NUMERIC (9),
    :COL2 NUMERIC (9),
    :COL3 NUMERIC (9),
    :COL4 NUMERIC (9));
      FETCH FIRST data78 INTO :COL1, :COL2, :COL3, :COL4
                 ;

PROCEDURE SUB23 (SQLCODE, SQLSTATE,
    :COL1 NUMERIC (9),
    :COL2 NUMERIC (9),
    :COL3 NUMERIC (9),
    :INDIC1 NUMERIC (4),
    :COL4 NUMERIC (9));
      FETCH NEXT data78 INTO :COL1, 
                    :COL2, :COL3:INDIC1, :COL4;

PROCEDURE SUB24 (SQLCODE, SQLSTATE,
    :COL1 NUMERIC (9),
    :COL2 NUMERIC (9),
    :COL3 NUMERIC (9),
    :COL4 NUMERIC (9));
      FETCH NEXT data78 INTO 
                    :COL1, :COL2, :COL3, :COL4;

PROCEDURE SUB25 (SQLCODE, SQLSTATE);
      INSERT INTO alt_test VALUES (4,4,4,4);

PROCEDURE SUB26 (SQLCODE, SQLSTATE);
      INSERT INTO alt_test(K,L) VALUES (5,5);

PROCEDURE SUB27 (SQLCODE, SQLSTATE);
      INSERT INTO alt_test(K,M) VALUES (6,6);

PROCEDURE SUB28 (SQLCODE, SQLSTATE);
      CLOSE data78;

PROCEDURE SUB30 (SQLCODE, SQLSTATE,
    :COL1 NUMERIC (9),
    :COL2 NUMERIC (9),
    :COL3 NUMERIC (9),
    :COL4 NUMERIC (9));
      FETCH FIRST data78 INTO :COL1, :COL2, :COL3, :COL4
                 ;

PROCEDURE SUB31 (SQLCODE, SQLSTATE,
    :COL1 NUMERIC (9),
    :COL2 NUMERIC (9),
    :COL3 NUMERIC (9),
    :INDIC1 NUMERIC (4),
    :COL4 NUMERIC (9));
      FETCH NEXT data78 INTO :COL1, 
                    :COL2, :COL3:INDIC1, :COL4;

PROCEDURE SUB32 (SQLCODE, SQLSTATE,
    :COL1 NUMERIC (9),
    :COL2 NUMERIC (9),
    :COL3 NUMERIC (9),
    :COL4 NUMERIC (9));
      FETCH NEXT data78 INTO 
                    :COL1, :COL2, :COL3, :COL4;

PROCEDURE SUB33 (SQLCODE, SQLSTATE,
    :COL1 NUMERIC (9),
    :COL2 NUMERIC (9),
    :COL3 NUMERIC (9),
    :COL4 NUMERIC (9));
      FETCH NEXT data78 INTO 
                    :COL1, :COL2, :COL3, :COL4;

PROCEDURE SUB34 (SQLCODE, SQLSTATE,
    :COL1 NUMERIC (9),
    :COL2 NUMERIC (9),
    :COL3 NUMERIC (9),
    :COL4 NUMERIC (9));
      FETCH NEXT data78 INTO 
                    :COL1, :COL2, :COL3, :COL4;

PROCEDURE SUB35 (SQLCODE, SQLSTATE,
    :COL1 NUMERIC (9),
    :COL2 NUMERIC (9),
    :COL3 NUMERIC (9),
    :COL4 NUMERIC (9));
      FETCH NEXT data78 INTO 
                    :COL1, :COL2, :COL3, :COL4;

PROCEDURE SUB36 (SQLCODE, SQLSTATE);
      CLOSE data78;

PROCEDURE SUB37 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB38 (SQLCODE, SQLSTATE);
      DROP TABLE ALT_TEST CASCADE;

PROCEDURE SUB39 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB40 (SQLCODE, SQLSTATE);
      DROP DOMAIN INT_DOM2 CASCADE;

PROCEDURE SUB41 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB44 (SQLCODE, SQLSTATE);
      COMMIT WORK;