Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Haftungshinweis

Bemerkung: zur Agenda Produktseite wechseln Projekt Beratung

Suchen 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 8 kB

Quelle yts806.mco Sprache: unbekannt

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

PROCEDURE SUB4 (SQLCODE, SQLSTATE);
      DELETE FROM CTS1.STAFFa;

PROCEDURE SUB5 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFF1 VALUES
                    ('E1','Alice',4,'Lyon');

PROCEDURE SUB6 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFF1 VALUES
                    ('E1','Alice',8,'Lyon');

PROCEDURE SUB7 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFF1 VALUES
                    ('E1','Alice',12,'Geneva');

PROCEDURE SUB8 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFF1 VALUES
                    ('E2','Betty',16,'Strasbourg');

PROCEDURE SUB9 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFF1 VALUES
                    ('E2','Betty',20,'Munich');

PROCEDURE SUB10 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFF1 VALUES
                    ('E3','Colin',24,'Leuven');

PROCEDURE SUB11 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFF1 VALUES
                    ('E4','Daniel',28,'Cologne');

PROCEDURE SUB12 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFa VALUES
                    (20,40000,'E1',11,'Alice');

PROCEDURE SUB13 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFa VALUES
                    (15,20000,'E2',12,'Betty');

PROCEDURE SUB14 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFa VALUES
                    (15,20000,'E2',13,'Betty');

PROCEDURE SUB15 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFa VALUES
                    (10,15000,'E3',14,'Colin');

PROCEDURE SUB16 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFa VALUES
                    (10,8000,'E3',15,'Colin');

PROCEDURE SUB17 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFa VALUES
                    (10,8000,'E3',16,'Colin');

PROCEDURE SUB18 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.STAFFa VALUES
                    (30,50000,'E5',17,'Edward');

PROCEDURE SUB19 (SQLCODE, SQLSTATE);
      DELETE FROM CTS1.CONCATBUF;

PROCEDURE SUB20 (SQLCODE, SQLSTATE);
      INSERT INTO CTS1.CONCATBUF VALUES (
                    'SELECT * FROM STAFF1 NATURAL FULL OUTER JOIN' ||
                    '  STAFFA ORDER BY EMPNUM, EMPNAME, GRADE, PNUM'
                    );

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

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

PROCEDURE SUB23 (SQLCODE, SQLSTATE);
      ALLOCATE DESCRIPTOR 'dn' WITH MAX 7;

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

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

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

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

PROCEDURE SUB28 (SQLCODE, SQLSTATE,
    :COLNAM CHAR(20),
    :COLTYP NUMERIC (9));
      GET DESCRIPTOR 'dn' VALUE 4 :COLNAM = NAME,
                  :COLTYP = TYPE;

PROCEDURE SUB29 (SQLCODE, SQLSTATE,
    :COLNAM CHAR(20),
    :COLTYP NUMERIC (9));
      GET DESCRIPTOR 'dn' VALUE 5 :COLNAM = NAME,
                  :COLTYP = TYPE;

PROCEDURE SUB30 (SQLCODE, SQLSTATE,
    :COLNAM CHAR(20),
    :COLTYP NUMERIC (9));
      GET DESCRIPTOR 'dn' VALUE 6 :COLNAM = NAME,
                  :COLTYP = TYPE;

PROCEDURE SUB31 (SQLCODE, SQLSTATE,
    :COLNAM CHAR(20),
    :COLTYP NUMERIC (9));
      GET DESCRIPTOR 'dn' VALUE 7 :COLNAM = NAME,
                  :COLTYP = TYPE;

PROCEDURE SUB32 (SQLCODE, SQLSTATE);
    OPEN cn;

PROCEDURE SUB33 (SQLCODE, SQLSTATE,
    :ENO CHAR(3),
    :ENAAM CHAR(20),
    :GRD NUMERIC (4),
    :CIT CHAR(15),
    :HRS NUMERIC (4),
    :SAL NUMERIC (9),
    :PNO NUMERIC (4));
      FETCH cn INTO
                    :ENO, :ENAAM, :GRD, :CIT, :HRS, :SAL, :PNO;

PROCEDURE SUB34 (SQLCODE, SQLSTATE,
    :ENO CHAR(3),
    :ENAAM CHAR(20),
    :GRD NUMERIC (4),
    :CIT CHAR(15),
    :HRS NUMERIC (4),
    :SAL NUMERIC (9),
    :PNO NUMERIC (4));
      FETCH cn INTO
                    :ENO, :ENAAM, :GRD, :CIT, :HRS, :SAL, :PNO;

PROCEDURE SUB35 (SQLCODE, SQLSTATE,
    :ENO CHAR(3),
    :ENAAM CHAR(20),
    :GRD NUMERIC (4),
    :CIT CHAR(15),
    :HRS NUMERIC (4),
    :SAL NUMERIC (9),
    :PNO NUMERIC (4));
      FETCH cn INTO
                    :ENO, :ENAAM, :GRD, :CIT, :HRS, :SAL, :PNO;

PROCEDURE SUB36 (SQLCODE, SQLSTATE,
    :ENO CHAR(3),
    :ENAAM CHAR(20),
    :GRD NUMERIC (4),
    :CIT CHAR(15),
    :HRS NUMERIC (4),
    :SAL NUMERIC (9),
    :PNO NUMERIC (4));
      FETCH cn INTO
                    :ENO, :ENAAM, :GRD, :CIT, :HRS, :SAL, :PNO;

PROCEDURE SUB37 (SQLCODE, SQLSTATE,
    :ENO CHAR(3),
    :ENAAM CHAR(20),
    :GRD NUMERIC (4),
    :CIT CHAR(15),
    :HRS NUMERIC (4),
    :SAL NUMERIC (9),
    :PNO NUMERIC (4));
      FETCH cn INTO
                    :ENO, :ENAAM, :GRD, :CIT, :HRS, :SAL, :PNO;

PROCEDURE SUB38 (SQLCODE, SQLSTATE,
    :ENO CHAR(3),
    :ENAAM CHAR(20),
    :GRD NUMERIC (4),
    :CIT CHAR(15),
    :HRS NUMERIC (4),
    :SAL NUMERIC (9),
    :PNO NUMERIC (4));
      FETCH cn INTO
                    :ENO, :ENAAM, :GRD, :CIT, :HRS, :SAL, :PNO;

PROCEDURE SUB39 (SQLCODE, SQLSTATE,
    :ENO CHAR(3),
    :ENAAM CHAR(20),
    :GRD NUMERIC (4),
    :CIT CHAR(15),
    :HRS NUMERIC (4),
    :SAL NUMERIC (9),
    :PNO NUMERIC (4));
      FETCH cn INTO
                    :ENO, :ENAAM, :GRD, :CIT, :HRS, :SAL, :PNO;

PROCEDURE SUB40 (SQLCODE, SQLSTATE,
    :ENO CHAR(3),
    :ENAAM CHAR(20),
    :GRD NUMERIC (4),
    :CIT CHAR(15),
    :HRS NUMERIC (4),
    :SAL NUMERIC (9),
    :PNO NUMERIC (4));
      FETCH cn INTO
                    :ENO, :ENAAM, :GRD, :CIT, :HRS, :SAL, :PNO;

PROCEDURE SUB41 (SQLCODE, SQLSTATE,
    :ENO CHAR(3),
    :ENAAM CHAR(20),
    :GRD NUMERIC (4),
    :CIT CHAR(15),
    :HRS NUMERIC (4),
    :SAL NUMERIC (9),
    :PNO NUMERIC (4));
      FETCH cn INTO
                    :ENO, :ENAAM, :GRD, :CIT, :HRS, :SAL, :PNO;

PROCEDURE SUB42 (SQLCODE, SQLSTATE,
    :ENO CHAR(3),
    :ENAAM CHAR(20),
    :GRD NUMERIC (4),
    :CIT CHAR(15),
    :HRS NUMERIC (4),
    :SAL NUMERIC (9),
    :PNO NUMERIC (4));
      FETCH cn INTO
                    :ENO, :ENAAM, :GRD, :CIT, :HRS, :SAL, :PNO;

PROCEDURE SUB43 (SQLCODE, SQLSTATE,
    :ENO CHAR(3),
    :ENAAM CHAR(20),
    :GRD NUMERIC (4),
    :CIT CHAR(15),
    :HRS NUMERIC (4),
    :INDIC1 NUMERIC (4),
    :SAL NUMERIC (9),
    :INDIC2 NUMERIC (4),
    :PNO NUMERIC (4),
    :INDIC3 NUMERIC (4));
      FETCH cn INTO
                    :ENO, :ENAAM, :GRD, :CIT, :HRS:INDIC1, :SAL:INDIC2,
                  :PNO:INDIC3;

PROCEDURE SUB44 (SQLCODE, SQLSTATE,
    :ENO CHAR(3),
    :ENAAM CHAR(20),
    :GRD NUMERIC (4),
    :INDIC1 NUMERIC (4),
    :CIT CHAR(15),
    :INDIC2 NUMERIC (4),
    :HRS NUMERIC (4),
    :SAL NUMERIC (9),
    :PNO NUMERIC (4));
      FETCH cn INTO
                    :ENO, :ENAAM, :GRD:INDIC1, :CIT:INDIC2, :HRS, :SAL, :PNO
                 ;

PROCEDURE SUB45 (SQLCODE, SQLSTATE,
    :ENO CHAR(3),
    :ENAAM CHAR(20),
    :GRD NUMERIC (4),
    :CIT CHAR(15),
    :HRS NUMERIC (4),
    :SAL NUMERIC (9),
    :PNO NUMERIC (4));
      FETCH cn INTO
                    :ENO, :ENAAM, :GRD, :CIT, :HRS, :SAL, :PNO;

PROCEDURE SUB46 (SQLCODE, SQLSTATE);
      CLOSE cn;

PROCEDURE SUB47 (SQLCODE, SQLSTATE);
      ROLLBACK WORK;

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

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

PROCEDURE SUB50 (SQLCODE, SQLSTATE);
      COMMIT WORK;