Quelle  yts810.mco

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

DECLARE CN  CURSOR FOR sn


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 VIEW TA
                    AS SELECT GRADE, DEPTNO, LOC, HOURS
                    FROM CTS1.CL_EMPLOYEE;

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      CREATE VIEW TB
                    AS SELECT EMPNAME, HOURS, EMPNUM, SALARY, PNUM
                    FROM CTS1.STAFFa;

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      DELETE FROM CTS1.staffa;

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      DELETE FROM CL_EMPLOYEE;

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      INSERT INTO CL_EMPLOYEE VALUES (
                    1, 'abc', 'Susan', NULL, NULL, 1, 100);

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      INSERT INTO CL_EMPLOYEE VALUES (
                    2, 'abc', 'Matthew', NULL, NULL, 7, 100);

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      INSERT INTO CL_EMPLOYEE VALUES (
                    3, 'abc', 'Peter', NULL, NULL, 2, 100);

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      INSERT INTO CL_EMPLOYEE VALUES (
                    4, 'abc', 'Rosemary', NULL, NULL, 8, 100);

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      INSERT INTO TB VALUES
                    ('Praze-an-beeble    ',1,'aaa',100,3);

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      INSERT INTO TB VALUES
                    ('Chy-an-gwel        ',2,'abc',100,4);

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      INSERT INTO TB VALUES
                    ('Ponsonooth         ',3,'abc',100,5);

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      INSERT INTO TB VALUES
                    ('Tregwedyn          ',4,'abc',100,6);

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      DELETE FROM CONCATBUF;

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      INSERT INTO CONCATBUF VALUES (
                    'SELECT GRADE, COUNT (*) AS CC, EMPNUM'              ||
                    '  FROM TA FULL OUTER JOIN TB ON GRADE > PNUM'       ||
                    '  AND EMPNUM = DEPTNO WHERE'                        ||
                    '  GRADE IS NOT NULL GROUP BY GRADE, EMPNUM'         ||
                    '  ORDER BY CC DESC, GRADE'
                    );

PROCEDURE SUB19 (SQLCODE, SQLSTATE,
    :LONGST CHAR(240));
      SELECT ZZ INTO :LONGST FROM CONCATBUF;

PROCEDURE SUB20 (SQLCODE, SQLSTATE,
    :LONGST CHAR(240));
      PREPARE sn FROM :LONGST;

PROCEDURE SUB21 (SQLCODE, SQLSTATE);
      ALLOCATE DESCRIPTOR 'dn' WITH MAX 3;

PROCEDURE SUB22 (SQLCODE, SQLSTATE);
      DESCRIBE sn USING SQL DESCRIPTOR 'dn';

PROCEDURE SUB23 (SQLCODE, SQLSTATE,
    :COLNAM CHAR(25),
    :COLTYP NUMERIC (9));
      GET DESCRIPTOR 'dn' VALUE 1
                    :COLNAM = NAME, :COLTYP = TYPE;

PROCEDURE SUB24 (SQLCODE, SQLSTATE,
    :COLNAM CHAR(25),
    :COLTYP NUMERIC (9));
      GET DESCRIPTOR 'dn' VALUE 2
                    :COLNAM = NAME, :COLTYP = TYPE;

PROCEDURE SUB25 (SQLCODE, SQLSTATE,
    :COLNAM CHAR(25),
    :COLTYP NUMERIC (9));
      GET DESCRIPTOR 'dn' VALUE 3
                    :COLNAM = NAME, :COLTYP = TYPE;

PROCEDURE SUB26 (SQLCODE, SQLSTATE);
    OPEN cn;

PROCEDURE SUB27 (SQLCODE, SQLSTATE,
    :GRD NUMERIC (9),
    :GRPNO NUMERIC (4),
    :ENO CHAR(3),
    :INDIC1 NUMERIC (4));
      FETCH cn INTO :GRD, :GRPNO, :ENO:INDIC1;

PROCEDURE SUB28 (SQLCODE, SQLSTATE,
    :GRD NUMERIC (9),
    :GRPNO NUMERIC (4),
    :ENO CHAR(3),
    :INDIC1 NUMERIC (4));
      FETCH cn INTO :GRD, :GRPNO, :ENO:INDIC1;

PROCEDURE SUB29 (SQLCODE, SQLSTATE,
    :GRD NUMERIC (9),
    :GRPNO NUMERIC (4),
    :ENO CHAR(3),
    :INDIC1 NUMERIC (4));
      FETCH cn INTO :GRD, :GRPNO, :ENO:INDIC1;

PROCEDURE SUB30 (SQLCODE, SQLSTATE,
    :GRD NUMERIC (9),
    :GRPNO NUMERIC (4),
    :ENO CHAR(3),
    :INDIC1 NUMERIC (4));
      FETCH cn INTO :GRD, :GRPNO, :ENO:INDIC1;

PROCEDURE SUB31 (SQLCODE, SQLSTATE,
    :GRD NUMERIC (9),
    :GRPNO NUMERIC (4),
    :ENO CHAR(3),
    :INDIC1 NUMERIC (4));
      FETCH cn INTO :GRD, :GRPNO, :ENO:INDIC1;

PROCEDURE SUB32 (SQLCODE, SQLSTATE);
      CLOSE cn;

PROCEDURE SUB33 (SQLCODE, SQLSTATE);
      DEALLOCATE PREPARE sn;

PROCEDURE SUB34 (SQLCODE, SQLSTATE);
      DEALLOCATE DESCRIPTOR 'dn';

PROCEDURE SUB35 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

PROCEDURE SUB36 (SQLCODE, SQLSTATE);
      DROP VIEW TA CASCADE;

PROCEDURE SUB37 (SQLCODE, SQLSTATE);
      COMMIT WORK;

PROCEDURE SUB38 (SQLCODE, SQLSTATE);
      DROP VIEW TB CASCADE;

PROCEDURE SUB39 (SQLCODE, SQLSTATE);
      COMMIT WORK;

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

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

PROCEDURE SUB42 (SQLCODE, SQLSTATE);
      COMMIT WORK;