products/sources/formale sprachen/Cobol/Test-Suite/SQL M/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: xts754.cob   Sprache: Cobol

rahmenlose Ansicht.mco DruckansichtText {Text[132] Latech[190] Haskell[214]}zum Wurzelverzeichnis wechseln

-- SQL Test Suite, V6.0, SQL Module dml147.mco
-- 59-byte ID
-- 
MODULE DML147
LANGUAGE COBOL
AUTHORIZATION FLATER

DECLARE C14721  CURSOR FOR
               SELECT EMPNUM FROM HU.STAFF3
               NATURAL LEFT JOIN HU.STAFF
               NATURAL INNER JOIN HU.STAFF4
               ORDER BY EMPNUM DESC
DECLARE C14722  CURSOR FOR
               SELECT EMPNUM FROM
               (HU.STAFF3 NATURAL LEFT JOIN HU.STAFF)
               NATURAL INNER JOIN HU.STAFF4
               ORDER BY EMPNUM ASC
DECLARE C14723  CURSOR FOR
               SELECT EMPNUM FROM
               HU.STAFF3 NATURAL LEFT JOIN
               (HU.STAFF NATURAL INNER JOIN HU.STAFF4)
               ORDER BY EMPNUM
DECLARE C14731  CURSOR FOR
               SELECT EMPNUM, EMPNAME, SALARY FROM
               HU.STAFF3 NATURAL LEFT OUTER JOIN STAFF66
               WHERE EMPNUM > 'E1'
               ORDER BY EMPNUM ASC
DECLARE C14732  CURSOR FOR
               SELECT EMPNUM, EMPNAME, SALARY FROM
               STAFF66 NATURAL RIGHT OUTER JOIN HU.STAFF
               WHERE EMPNUM > 'E1'
               ORDER BY EMPNUM DESC
DECLARE C14733  CURSOR FOR
               SELECT * FROM STAFF66 RIGHT JOIN HU.STAFF
               USING (GRADE, EMPNUM, EMPNAME)
               WHERE EMPNUM > 'E1'
               ORDER BY EMPNUM
DECLARE C14734  CURSOR FOR
               SELECT * FROM HU.STAFF3 LEFT JOIN STAFF66
               USING (GRADE, EMPNUM)
               WHERE EMPNUM > 'E1'
               ORDER BY EMPNUM ASC
DECLARE C14735  CURSOR FOR
               SELECT EMPNUM, GRADE, HU.STAFF3.EMPNAME, CITY,
               SALARY, STAFF66.EMPNAME
               FROM HU.STAFF3 LEFT JOIN STAFF66
               USING (GRADE, EMPNUM)
               WHERE EMPNUM = 'E3'
DECLARE C14736  CURSOR FOR
               SELECT EMPNUM, CITY, SALARY
               FROM HU.STAFF3 LEFT JOIN STAFF66 USING (EMPNUM)
               UNION
               SELECT EMPNUM, CITY, SALARY
               FROM HU.STAFF3 RIGHT JOIN STAFF66 USING (EMPNUM)
               ORDER BY EMPNUM


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

PROCEDURE SUB2 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB3 SQLCODE SQLSTATE;
      CREATE TABLE NOT_THERE (C1 CHAR (10));

PROCEDURE SUB4 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB5 SQLCODE SQLSTATE;
      INSERT INTO NOT_THERE VALUES ('1234567890')
                 ;

PROCEDURE SUB6 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB7 SQLCODE SQLSTATE;
      CREATE VIEW NOT_HERE AS
                    SELECT * FROM USIG;

PROCEDURE SUB8 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB9 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT (*) INTO :INT1
                    FROM NOT_HERE;

PROCEDURE SUB10 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB11 SQLCODE SQLSTATE;
      ALTER TABLE USIG
                    ADD COLUMN NUL INT;

PROCEDURE SUB12 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB13 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT (*) INTO :INT1
                    FROM USIG WHERE NUL IS NULL;

PROCEDURE SUB14 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB15 SQLCODE SQLSTATE;
      DROP TABLE USIG CASCADE;

PROCEDURE SUB16 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB17 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM U_SIG;

PROCEDURE SUB18 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB19 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM USIG;

PROCEDURE SUB20 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB21 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0840','pass','MCO');

PROCEDURE SUB22 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0840','fail','MCO');

PROCEDURE SUB23 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB24 SQLCODE SQLSTATE;
      DELETE FROM HU.STAFF4;

PROCEDURE SUB25 SQLCODE SQLSTATE;
      INSERT INTO HU.STAFF4
                    SELECT * FROM HU.STAFF3
                    WHERE EMPNUM > 'E3';

PROCEDURE SUB26 SQLCODE SQLSTATE;
    OPEN C14721;

PROCEDURE SUB27 SQLCODE SQLSTATE
    :EN CHAR(3);
      FETCH C14721 INTO :EN;

PROCEDURE SUB28 SQLCODE SQLSTATE
    :EN CHAR(3);
      FETCH C14721 INTO :EN;

PROCEDURE SUB29 SQLCODE SQLSTATE
    :EN CHAR(3);
      FETCH C14721 INTO :EN;

PROCEDURE SUB30 SQLCODE SQLSTATE;
      CLOSE C14721;

PROCEDURE SUB31 SQLCODE SQLSTATE;
    OPEN C14722;

PROCEDURE SUB32 SQLCODE SQLSTATE
    :EN CHAR(3);
      FETCH C14722 INTO :EN;

PROCEDURE SUB33 SQLCODE SQLSTATE
    :EN CHAR(3);
      FETCH C14722 INTO :EN;

PROCEDURE SUB34 SQLCODE SQLSTATE
    :EN CHAR(3);
      FETCH C14722 INTO :EN;

PROCEDURE SUB35 SQLCODE SQLSTATE;
      CLOSE C14722;

PROCEDURE SUB36 SQLCODE SQLSTATE;
    OPEN C14723;

PROCEDURE SUB37 SQLCODE SQLSTATE
    :EN CHAR(3);
      FETCH C14723 INTO :EN;

PROCEDURE SUB38 SQLCODE SQLSTATE
    :EN CHAR(3);
      FETCH C14723 INTO :EN;

PROCEDURE SUB39 SQLCODE SQLSTATE
    :EN CHAR(3);
      FETCH C14723 INTO :EN;

PROCEDURE SUB40 SQLCODE SQLSTATE
    :EN CHAR(3);
      FETCH C14723 INTO :EN;

PROCEDURE SUB41 SQLCODE SQLSTATE
    :EN CHAR(3);
      FETCH C14723 INTO :EN;

PROCEDURE SUB42 SQLCODE SQLSTATE
    :EN CHAR(3);
      FETCH C14723 INTO :EN;

PROCEDURE SUB43 SQLCODE SQLSTATE;
      CLOSE C14723;

PROCEDURE SUB44 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB45 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0841','pass','MCO');

PROCEDURE SUB46 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0841','fail','MCO');

PROCEDURE SUB47 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB48 SQLCODE SQLSTATE;
      CREATE TABLE STAFF66 (
                    SALARY   INTEGER,
                    EMPNAME CHAR(20),
                    GRADE   DECIMAL,
                    EMPNUM  CHAR(3));

PROCEDURE SUB49 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB50 SQLCODE SQLSTATE;
      INSERT INTO STAFF66
                    SELECT GRADE*1000, EMPNAME, GRADE, EMPNUM
                    FROM HU.STAFF3 WHERE EMPNUM > 'E2';

PROCEDURE SUB51 SQLCODE SQLSTATE;
      UPDATE HU.STAFF3 SET EMPNUM = 'E6' WHERE EMPNUM =
                  'E5';

PROCEDURE SUB52 SQLCODE SQLSTATE;
      UPDATE HU.STAFF3 SET EMPNAME = 'Ali' WHERE GRADE =
                  12;

PROCEDURE SUB53 SQLCODE SQLSTATE
    :ENAME CHAR(20)
    :GR NUMERIC (9)
    :EN CHAR(3)
    :SL NUMERIC (9)
    :CT CHAR(15);
      SELECT * INTO :ENAME, :GR, :EN, :SL, :CT FROM
                    STAFF66 NATURAL INNER JOIN HU.STAFF3;

PROCEDURE SUB54 SQLCODE SQLSTATE;
    OPEN C14731;

PROCEDURE SUB55 SQLCODE SQLSTATE
    :EN CHAR(3)
    :ENAME CHAR(20)
    :SL NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C14731 INTO :EN, :ENAME, :SL:INDIC1;

PROCEDURE SUB56 SQLCODE SQLSTATE
    :EN CHAR(3)
    :ENAME CHAR(20)
    :SL NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C14731 INTO :EN, :ENAME, :SL:INDIC1;

PROCEDURE SUB57 SQLCODE SQLSTATE
    :EN CHAR(3)
    :ENAME CHAR(20)
    :SL NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C14731 INTO :EN, :ENAME, :SL:INDIC1;

PROCEDURE SUB58 SQLCODE SQLSTATE
    :EN CHAR(3)
    :ENAME CHAR(20)
    :SL NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C14731 INTO :EN, :ENAME, :SL:INDIC1;

PROCEDURE SUB59 SQLCODE SQLSTATE
    :EN CHAR(3)
    :ENAME CHAR(20)
    :SL NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C14731 INTO :EN, :ENAME, :SL:INDIC1;

PROCEDURE SUB60 SQLCODE SQLSTATE;
      CLOSE C14731;

PROCEDURE SUB61 SQLCODE SQLSTATE;
    OPEN C14732;

PROCEDURE SUB62 SQLCODE SQLSTATE
    :EN CHAR(3)
    :ENAME CHAR(20)
    :SL NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C14732 INTO :EN, :ENAME, :SL:INDIC1;

PROCEDURE SUB63 SQLCODE SQLSTATE
    :EN CHAR(3)
    :ENAME CHAR(20)
    :SL NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C14732 INTO :EN, :ENAME, :SL:INDIC1;

PROCEDURE SUB64 SQLCODE SQLSTATE
    :EN CHAR(3)
    :ENAME CHAR(20)
    :SL NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C14732 INTO :EN, :ENAME, :SL:INDIC1;

PROCEDURE SUB65 SQLCODE SQLSTATE
    :EN CHAR(3)
    :ENAME CHAR(20)
    :SL NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C14732 INTO :EN, :ENAME, :SL:INDIC1;

PROCEDURE SUB66 SQLCODE SQLSTATE
    :EN CHAR(3)
    :ENAME CHAR(20)
    :SL NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C14732 INTO :EN, :ENAME, :SL:INDIC1;

PROCEDURE SUB67 SQLCODE SQLSTATE;
      CLOSE C14732;

PROCEDURE SUB68 SQLCODE SQLSTATE;
    OPEN C14733;

PROCEDURE SUB69 SQLCODE SQLSTATE
    :ENAME CHAR(20)
    :GR NUMERIC (9)
    :EN CHAR(3)
    :SL NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :CT CHAR(15);
      FETCH C14733 INTO :ENAME, :GR, :EN, :SL:INDIC1,
                  :CT;

PROCEDURE SUB70 SQLCODE SQLSTATE
    :ENAME CHAR(20)
    :GR NUMERIC (9)
    :EN CHAR(3)
    :SL NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :CT CHAR(15);
      FETCH C14733 INTO :ENAME, :GR, :EN, :SL:INDIC1,
                  :CT;

PROCEDURE SUB71 SQLCODE SQLSTATE
    :ENAME CHAR(20)
    :GR NUMERIC (9)
    :EN CHAR(3)
    :SL NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :CT CHAR(15);
      FETCH C14733 INTO :ENAME, :GR, :EN, :SL:INDIC1,
                  :CT;

PROCEDURE SUB72 SQLCODE SQLSTATE
    :ENAME CHAR(20)
    :GR NUMERIC (9)
    :EN CHAR(3)
    :SL NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :CT CHAR(15);
      FETCH C14733 INTO :ENAME, :GR, :EN, :SL:INDIC1,
                  :CT;

PROCEDURE SUB73 SQLCODE SQLSTATE
    :ENAME CHAR(20)
    :GR NUMERIC (9)
    :EN CHAR(3)
    :SL NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :CT CHAR(15);
      FETCH C14733 INTO :ENAME, :GR, :EN, :SL:INDIC1,
                  :CT;

PROCEDURE SUB74 SQLCODE SQLSTATE;
      CLOSE C14733;

PROCEDURE SUB75 SQLCODE SQLSTATE;
    OPEN C14734;

PROCEDURE SUB76 SQLCODE SQLSTATE
    :EN CHAR(3)
    :GR NUMERIC (9)
    :ENAME CHAR(20)
    :CT CHAR(15)
    :SL NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :ENAME2 CHAR(20)
    :INDIC2 NUMERIC (4);
      FETCH C14734 INTO :EN, :GR, :ENAME, :CT,
                    :SL:INDIC1, :ENAME2:INDIC2;

PROCEDURE SUB77 SQLCODE SQLSTATE
    :EN CHAR(3)
    :GR NUMERIC (9)
    :ENAME CHAR(20)
    :CT CHAR(15)
    :SL NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :ENAME2 CHAR(20)
    :INDIC2 NUMERIC (4);
      FETCH C14734 INTO :EN, :GR, :ENAME, :CT,
                    :SL:INDIC1, :ENAME2:INDIC2;

PROCEDURE SUB78 SQLCODE SQLSTATE
    :EN CHAR(3)
    :GR NUMERIC (9)
    :ENAME CHAR(20)
    :CT CHAR(15)
    :SL NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :ENAME2 CHAR(20)
    :INDIC2 NUMERIC (4);
      FETCH C14734 INTO :EN, :GR, :ENAME, :CT,
                    :SL:INDIC1, :ENAME2:INDIC2;

PROCEDURE SUB79 SQLCODE SQLSTATE
    :EN CHAR(3)
    :GR NUMERIC (9)
    :ENAME CHAR(20)
    :CT CHAR(15)
    :SL NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :ENAME2 CHAR(20)
    :INDIC2 NUMERIC (4);
      FETCH C14734 INTO :EN, :GR, :ENAME, :CT,
                    :SL:INDIC1, :ENAME2:INDIC2;

PROCEDURE SUB80 SQLCODE SQLSTATE
    :EN CHAR(3)
    :GR NUMERIC (9)
    :ENAME CHAR(20)
    :CT CHAR(15)
    :SL NUMERIC (9)
    :INDIC1 NUMERIC (4)
    :ENAME2 CHAR(20)
    :INDIC2 NUMERIC (4);
      FETCH C14734 INTO :EN, :GR, :ENAME, :CT,
                    :SL:INDIC1, :ENAME2:INDIC2;

PROCEDURE SUB81 SQLCODE SQLSTATE;
      CLOSE C14734;

PROCEDURE SUB82 SQLCODE SQLSTATE
    :EN CHAR(3)
    :GR NUMERIC (9)
    :ENAME CHAR(20)
    :CT CHAR(15)
    :SL NUMERIC (9)
    :ENAME2 CHAR(20);
      SELECT EMPNUM, GRADE, HU.STAFF3.EMPNAME, CITY,
                    SALARY, STAFF66.EMPNAME
                    INTO :EN, :GR, :ENAME, :CT, :SL, :ENAME2
                    FROM HU.STAFF3 LEFT JOIN STAFF66
                    USING (GRADE, EMPNUM)
                    WHERE EMPNUM = 'E3';

PROCEDURE SUB83 SQLCODE SQLSTATE;
    OPEN C14735;

PROCEDURE SUB84 SQLCODE SQLSTATE
    :EN CHAR(3)
    :GR NUMERIC (9)
    :ENAME CHAR(20)
    :CT CHAR(15)
    :SL NUMERIC (9)
    :ENAME2 CHAR(20);
      FETCH C14735 INTO :EN, :GR, :ENAME, :CT, :SL,
                  :ENAME2;

PROCEDURE SUB85 SQLCODE SQLSTATE;
      CLOSE C14735;

PROCEDURE SUB86 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT (*) INTO :INT1
                    FROM STAFF66 NATURAL RIGHT JOIN HU.PROJ;

PROCEDURE SUB87 SQLCODE SQLSTATE;
    OPEN C14736;

PROCEDURE SUB88 SQLCODE SQLSTATE
    :EN CHAR(3)
    :CT CHAR(15)
    :SL NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C14736 INTO :EN, :CT, :SL:INDIC1;

PROCEDURE SUB89 SQLCODE SQLSTATE
    :EN CHAR(3)
    :CT CHAR(15)
    :SL NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C14736 INTO :EN, :CT, :SL:INDIC1;

PROCEDURE SUB90 SQLCODE SQLSTATE
    :EN CHAR(3)
    :CT CHAR(15)
    :SL NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C14736 INTO :EN, :CT, :SL:INDIC1;

PROCEDURE SUB91 SQLCODE SQLSTATE
    :EN CHAR(3)
    :CT CHAR(15)
    :SL NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C14736 INTO :EN, :CT, :SL:INDIC1;

PROCEDURE SUB92 SQLCODE SQLSTATE
    :EN CHAR(3)
    :CT CHAR(15)
    :INDIC1 NUMERIC (4)
    :SL NUMERIC (9);
      FETCH C14736 INTO :EN, :CT:INDIC1, :SL;

PROCEDURE SUB93 SQLCODE SQLSTATE
    :EN CHAR(3)
    :CT CHAR(15)
    :SL NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C14736 INTO :EN, :CT, :SL:INDIC1;

PROCEDURE SUB94 SQLCODE SQLSTATE
    :EN CHAR(3)
    :CT CHAR(15)
    :SL NUMERIC (9)
    :INDIC1 NUMERIC (4);
      FETCH C14736 INTO :EN, :CT, :SL:INDIC1;

PROCEDURE SUB95 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB96 SQLCODE SQLSTATE;
      DROP TABLE STAFF66 CASCADE;

PROCEDURE SUB97 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB98 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0842','pass','MCO');

PROCEDURE SUB99 SQLCODE SQLSTATE;
      INSERT INTO HU.TESTREPORT
                      VALUES('0842','fail','MCO');

PROCEDURE SUB100 SQLCODE SQLSTATE;
      COMMIT WORK;

[ Verzeichnis aufwärts0.168unsichere Verbindung  ]