Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/Sources/formale Sprachen/Cobol/Test-Suite/SQL M/ Datei vom 4.1.2008 mit Größe 5 kB

Quelle yts810.mco Sprache: unbekannt

-- 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;