Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
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: xts767.mco   Sprache: Unknown

rahmenlose Ansicht.mco DruckansichtScala {Scala[83] Pl1[86] Lex[122]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]

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


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 GROUPS1
                    (EMPNUM INT, GRP INT);

PROCEDURE SUB4 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB5 SQLCODE SQLSTATE;
      CREATE TABLE NAMES1
                    (EMPNUM INT, NAAM CHAR(5));

PROCEDURE SUB6 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB7 SQLCODE SQLSTATE;
      CREATE VIEW NAMGRP1 AS
                    SELECT * FROM NAMES1 NATURAL JOIN GROUPS1;

PROCEDURE SUB8 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB9 SQLCODE SQLSTATE;
      INSERT INTO GROUPS1 VALUES (0, 10);

PROCEDURE SUB10 SQLCODE SQLSTATE;
      INSERT INTO GROUPS1 VALUES (1, 20);

PROCEDURE SUB11 SQLCODE SQLSTATE;
      INSERT INTO GROUPS1 VALUES (2, 30);

PROCEDURE SUB12 SQLCODE SQLSTATE;
      INSERT INTO GROUPS1 VALUES (3, 40);

PROCEDURE SUB13 SQLCODE SQLSTATE;
      INSERT INTO NAMES1 VALUES (5, 'HARRY');

PROCEDURE SUB14 SQLCODE SQLSTATE;
      INSERT INTO NAMES1 VALUES (1, 'MARY');

PROCEDURE SUB15 SQLCODE SQLSTATE;
      INSERT INTO NAMES1 VALUES (7, 'LARRY');

PROCEDURE SUB16 SQLCODE SQLSTATE;
      INSERT INTO NAMES1 VALUES (0, 'KERI');

PROCEDURE SUB17 SQLCODE SQLSTATE;
      INSERT INTO NAMES1 VALUES (9, 'BARRY');

PROCEDURE SUB18 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT EMPNUM INTO :INT1
                    FROM NAMGRP1
                    WHERE NAAM = 'KERI'
                    AND GRP = 10;

PROCEDURE SUB19 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT EMPNUM INTO :INT1
                    FROM NAMGRP1
                    WHERE NAAM = 'MARY'
                    AND GRP = 20;

PROCEDURE SUB20 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM NAMGRP1
                    WHERE (NAAM <> 'MARY'
                    AND NAAM <> 'KERI')
                    OR GRP <> 20
                    AND GRP <> 10
                    OR EMPNUM <> 0
                    AND EMPNUM <> 1
                    OR NAAM IS NULL
                    OR GRP IS NULL
                    OR EMPNUM IS NULL;

PROCEDURE SUB21 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB22 SQLCODE SQLSTATE;
      DROP TABLE NAMES1 CASCADE;

PROCEDURE SUB23 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB24 SQLCODE SQLSTATE;
      DROP TABLE GROUPS1 CASCADE;

PROCEDURE SUB25 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB28 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB29 SQLCODE SQLSTATE;
      CREATE TABLE GROUPS2
                    (EMPNUM SMALLINT, GRP INT);

PROCEDURE SUB30 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB31 SQLCODE SQLSTATE;
      CREATE TABLE NAMES2
                    (EMPNUM INT, NAAM CHAR(5));

PROCEDURE SUB32 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB33 SQLCODE SQLSTATE;
      CREATE VIEW NAMGRP2 AS
                    SELECT * FROM NAMES2 INNER JOIN GROUPS2 USING (EMPNUM)
                 ;

PROCEDURE SUB34 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB35 SQLCODE SQLSTATE;
      CREATE VIEW NMGRP2 AS
                    SELECT * FROM NAMES2 JOIN GROUPS2
                    USING (EMPNUM) WHERE EMPNUM > 0;

PROCEDURE SUB36 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB37 SQLCODE SQLSTATE;
      INSERT INTO GROUPS2 VALUES (0, 10);

PROCEDURE SUB38 SQLCODE SQLSTATE;
      INSERT INTO GROUPS2 VALUES (1, 20);

PROCEDURE SUB39 SQLCODE SQLSTATE;
      INSERT INTO GROUPS2 VALUES (2, 30);

PROCEDURE SUB40 SQLCODE SQLSTATE;
      INSERT INTO GROUPS2 VALUES (3, 40);

PROCEDURE SUB41 SQLCODE SQLSTATE;
      INSERT INTO NAMES2 VALUES (5, 'HARRY');

PROCEDURE SUB42 SQLCODE SQLSTATE;
      INSERT INTO NAMES2 VALUES (1, 'MARY');

PROCEDURE SUB43 SQLCODE SQLSTATE;
      INSERT INTO NAMES2 VALUES (7, 'LARRY');

PROCEDURE SUB44 SQLCODE SQLSTATE;
      INSERT INTO NAMES2 VALUES (0, 'KERI');

PROCEDURE SUB45 SQLCODE SQLSTATE;
      INSERT INTO NAMES2 VALUES (9, 'BARRY');

PROCEDURE SUB46 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT EMPNUM INTO :INT1
                    FROM NAMGRP2
                    WHERE NAAM = 'KERI'
                    AND GRP = 10;

PROCEDURE SUB47 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT EMPNUM INTO :INT1
                    FROM NAMGRP2
                    WHERE NAAM = 'MARY'
                    AND GRP = 20;

PROCEDURE SUB48 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM NAMGRP2
                    WHERE NAAM <> 'MARY'
                    AND NAAM <> 'KERI'
                    OR GRP <> 20
                    AND GRP <> 10
                    OR EMPNUM <> 0
                    AND EMPNUM <> 1
                    OR NAAM IS NULL
                    OR GRP IS NULL
                    OR EMPNUM IS NULL;

PROCEDURE SUB49 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT EMPNUM INTO :INT1
                    FROM NMGRP2
                    WHERE NAAM = 'MARY'
                    AND GRP = 20;

PROCEDURE SUB50 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM NMGRP2
                    WHERE NAAM <> 'MARY'
                    OR GRP <> 20
                    OR EMPNUM <> 1
                    OR NAAM IS NULL
                    OR GRP IS NULL
                    OR EMPNUM IS NULL;

PROCEDURE SUB51 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB52 SQLCODE SQLSTATE;
      DROP TABLE NAMES2 CASCADE;

PROCEDURE SUB53 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB54 SQLCODE SQLSTATE;
      DROP TABLE GROUPS2 CASCADE;

PROCEDURE SUB55 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB58 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB59 SQLCODE SQLSTATE;
      CREATE TABLE GROUPS3
                    (EMPNUM INT, GRP INT);

PROCEDURE SUB60 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB61 SQLCODE SQLSTATE;
      CREATE TABLE NAMES3
                    (EMPNUM INT, NAAM CHAR(5));

PROCEDURE SUB62 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB63 SQLCODE SQLSTATE;
      CREATE VIEW NAMGRP3 AS
                    SELECT * FROM NAMES3 LEFT OUTER JOIN GROUPS3 USING
                  (EMPNUM);

PROCEDURE SUB64 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB65 SQLCODE SQLSTATE;
      CREATE VIEW NMGRP3 AS
                    SELECT NAAM, GRP FROM NAMES3 LEFT OUTER JOIN GROUPS3
                    ON NAMES3.EMPNUM < GROUPS3.EMPNUM
                    WHERE NAAM <> 'KERI';

PROCEDURE SUB66 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB67 SQLCODE SQLSTATE;
      INSERT INTO GROUPS3 VALUES (0, 10);

PROCEDURE SUB68 SQLCODE SQLSTATE;
      INSERT INTO GROUPS3 VALUES (1, 20);

PROCEDURE SUB69 SQLCODE SQLSTATE;
      INSERT INTO GROUPS3 VALUES (2, 30);

PROCEDURE SUB70 SQLCODE SQLSTATE;
      INSERT INTO GROUPS3 VALUES (3, 40);

PROCEDURE SUB71 SQLCODE SQLSTATE;
      INSERT INTO NAMES3 VALUES (5, 'HARRY');

PROCEDURE SUB72 SQLCODE SQLSTATE;
      INSERT INTO NAMES3 VALUES (1, 'MARY');

PROCEDURE SUB73 SQLCODE SQLSTATE;
      INSERT INTO NAMES3 VALUES (7, 'LARRY');

PROCEDURE SUB74 SQLCODE SQLSTATE;
      INSERT INTO NAMES3 VALUES (0, 'KERI');

PROCEDURE SUB75 SQLCODE SQLSTATE;
      INSERT INTO NAMES3 VALUES (9, 'BARRY');

PROCEDURE SUB76 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM NAMGRP3
                    WHERE EMPNUM = 0
                    AND NAAM = 'KERI'
                    AND GRP = 10;

PROCEDURE SUB77 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM NAMGRP3
                    WHERE EMPNUM = 1
                    AND NAAM = 'MARY'
                    AND GRP = 20;

PROCEDURE SUB78 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM NAMGRP3
                    WHERE EMPNUM = 5
                    AND NAAM = 'HARRY'
                    AND GRP IS NULL;

PROCEDURE SUB79 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM NAMGRP3
                    WHERE EMPNUM = 7
                    AND NAAM = 'LARRY'
                    AND GRP IS NULL;

PROCEDURE SUB80 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM NAMGRP3
                    WHERE EMPNUM = 9
                    AND NAAM = 'BARRY'
                    AND GRP IS NULL;

PROCEDURE SUB81 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM NAMGRP3;

PROCEDURE SUB82 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM NMGRP3
                    WHERE NAAM = 'HARRY'
                    AND GRP IS NULL;

PROCEDURE SUB83 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM NMGRP3
                    WHERE NAAM = 'MARY'
                    AND GRP = 30;

PROCEDURE SUB84 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM NMGRP3
                    WHERE NAAM = 'MARY'
                    AND GRP = 40;

PROCEDURE SUB85 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM NMGRP3
                    WHERE NAAM = 'BARRY'
                    AND GRP IS NULL;

PROCEDURE SUB86 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM NMGRP3
                    WHERE NAAM = 'LARRY'
                    AND GRP IS NULL;

PROCEDURE SUB87 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM NMGRP3;

PROCEDURE SUB88 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB89 SQLCODE SQLSTATE;
      DROP TABLE NAMES3 CASCADE;

PROCEDURE SUB90 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB91 SQLCODE SQLSTATE;
      DROP TABLE GROUPS3 CASCADE;

PROCEDURE SUB92 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB95 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB96 SQLCODE SQLSTATE;
      CREATE TABLE GROUPS4
                    (EMPNUM INT, GRP INT);

PROCEDURE SUB97 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB98 SQLCODE SQLSTATE;
      CREATE TABLE NAMES4
                    (EMPNUM DECIMAL (4, 2), NAAM CHAR(5));

PROCEDURE SUB99 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB100 SQLCODE SQLSTATE;
      CREATE VIEW NAMGRP4 AS
                    SELECT * FROM NAMES4 RIGHT OUTER JOIN GROUPS4 USING
                  (EMPNUM);

PROCEDURE SUB101 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB102 SQLCODE SQLSTATE;
      INSERT INTO GROUPS4 VALUES (0, 10);

PROCEDURE SUB103 SQLCODE SQLSTATE;
      INSERT INTO GROUPS4 VALUES (1, 20);

PROCEDURE SUB104 SQLCODE SQLSTATE;
      INSERT INTO GROUPS4 VALUES (2, 30);

PROCEDURE SUB105 SQLCODE SQLSTATE;
      INSERT INTO GROUPS4 VALUES (3, 40);

PROCEDURE SUB106 SQLCODE SQLSTATE;
      INSERT INTO NAMES4 VALUES (5.0, 'HARRY');

PROCEDURE SUB107 SQLCODE SQLSTATE;
      INSERT INTO NAMES4 VALUES (1.0, 'MARY');

PROCEDURE SUB108 SQLCODE SQLSTATE;
      INSERT INTO NAMES4 VALUES (7.0, 'LARRY');

PROCEDURE SUB109 SQLCODE SQLSTATE;
      INSERT INTO NAMES4 VALUES (0.0, 'KERI');

PROCEDURE SUB110 SQLCODE SQLSTATE;
      INSERT INTO NAMES4 VALUES (9.0, 'BARRY');

PROCEDURE SUB111 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM NAMGRP4
                    WHERE EMPNUM = 0
                    AND NAAM = 'KERI'
                    AND GRP = 10;

PROCEDURE SUB112 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM NAMGRP4
                    WHERE EMPNUM = 1
                    AND NAAM = 'MARY'
                    AND GRP = 20;

PROCEDURE SUB113 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM NAMGRP4
                    WHERE EMPNUM = 2
                    AND NAAM IS NULL
                    AND GRP = 30;

PROCEDURE SUB114 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM NAMGRP4
                    WHERE EMPNUM = 3
                    AND NAAM IS NULL
                    AND GRP = 40;

PROCEDURE SUB115 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1
                    FROM NAMGRP4;

PROCEDURE SUB116 SQLCODE SQLSTATE;
      ROLLBACK WORK;

PROCEDURE SUB117 SQLCODE SQLSTATE;
      DROP TABLE NAMES4 CASCADE;

PROCEDURE SUB118 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB119 SQLCODE SQLSTATE;
      DROP TABLE GROUPS4 CASCADE;

PROCEDURE SUB120 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB123 SQLCODE SQLSTATE;
      COMMIT WORK;

[ zur Elbe Produktseite wechseln0.73Quellennavigators  ]