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: dml154.mco   Sprache: Unknown

Untersuchungsergebnis.mco Download desPl1 {Pl1[75] Latech[128] CS[154]}zum Wurzelverzeichnis wechseln

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

DECLARE BEACH_PARTY  CURSOR FOR
               SELECT EMPNAME AS NAAM FROM VERBOSE_PEOPLE


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 SSSLOG (
                    ENTERED_BY CHAR (128) DEFAULT USER,
                    SEVERITY INT DEFAULT 1,
                    PROBLEM CHAR (40) DEFAULT NULL);

PROCEDURE SUB4 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB5 SQLCODE SQLSTATE;
      INSERT INTO SSSLOG DEFAULT VALUES;

PROCEDURE SUB6 SQLCODE SQLSTATE;
      INSERT INTO SSSLOG VALUES
                    (DEFAULT, DEFAULT, DEFAULT);

PROCEDURE SUB7 SQLCODE SQLSTATE;
      INSERT INTO SSSLOG VALUES
                    (DEFAULT, 3, 'Cross-linked inode');

PROCEDURE SUB8 SQLCODE SQLSTATE;
      INSERT INTO SSSLOG VALUES
                    ('system', DEFAULT, 'Freed a free frag');

PROCEDURE SUB9 SQLCODE SQLSTATE;
      INSERT INTO SSSLOG VALUES
                    ('nobody', 6, DEFAULT);

PROCEDURE SUB10 SQLCODE SQLSTATE;
      UPDATE SSSLOG SET SEVERITY = DEFAULT
                    WHERE PROBLEM LIKE '%inode%';

PROCEDURE SUB11 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM SSSLOG WHERE
                    ENTERED_BY = 'FLATER' AND SEVERITY = 1
                    AND PROBLEM IS NULL;

PROCEDURE SUB12 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM SSSLOG WHERE
                    ENTERED_BY = 'FLATER' AND SEVERITY = 1
                    AND PROBLEM = 'Cross-linked inode';

PROCEDURE SUB13 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM SSSLOG WHERE
                    ENTERED_BY = 'system' AND SEVERITY = 1
                    AND PROBLEM = 'Freed a free frag';

PROCEDURE SUB14 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM SSSLOG WHERE
                    ENTERED_BY = 'nobody' AND SEVERITY = 6
                    AND PROBLEM IS NULL;

PROCEDURE SUB15 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB16 SQLCODE SQLSTATE;
      DROP TABLE SSSLOG CASCADE;

PROCEDURE SUB17 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB20 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB21 SQLCODE SQLSTATE;
      CREATE VIEW VERBOSE_PEOPLE AS
                    SELECT EMPNAME FROM HU.STAFF AS EMPLOYEES_OF_HU
                    WHERE EMPLOYEES_OF_HU.EMPNUM IN
                    (SELECT EMPNUM FROM HU.PROJ AS HUPROJ, HU.WORKS
                    WHERE PTYPE = 'Design'
                    AND HUPROJ.PNUM = HU.WORKS.PNUM);

PROCEDURE SUB22 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB23 SQLCODE SQLSTATE;
      GRANT SELECT ON TABLE VERBOSE_PEOPLE TO PUBLIC
                 ;

PROCEDURE SUB24 SQLCODE SQLSTATE;
      COMMIT;

PROCEDURE SUB25 SQLCODE SQLSTATE;
    OPEN BEACH_PARTY;

PROCEDURE SUB26 SQLCODE SQLSTATE
    :NAME CHAR(20);
      FETCH FROM BEACH_PARTY INTO :NAME;

PROCEDURE SUB27 SQLCODE SQLSTATE;
      CLOSE BEACH_PARTY;

PROCEDURE SUB28 SQLCODE SQLSTATE;
      ROLLBACK;

PROCEDURE SUB29 SQLCODE SQLSTATE;
      DROP VIEW VERBOSE_PEOPLE CASCADE;

PROCEDURE SUB30 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB33 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB34 SQLCODE SQLSTATE;
      CREATE TABLE LOTSA_DATETIMES (
                    C1 DATE, C2 TIME, C3 TIMESTAMP,
                    C4 INTERVAL YEAR, C5 INTERVAL MONTH, C6 INTERVAL DAY,
                    C7 INTERVAL HOUR, C8 INTERVAL MINUTE, C9 INTERVAL SECOND,
                    C10 INTERVAL YEAR TO MONTH,
                    C11 INTERVAL DAY TO HOUR,
                    C12 INTERVAL DAY TO MINUTE,
                    C13 INTERVAL DAY TO SECOND,
                    C14 INTERVAL HOUR TO MINUTE,
                    C15 INTERVAL HOUR TO SECOND,
                    C16 INTERVAL MINUTE TO SECOND);

PROCEDURE SUB35 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB36 SQLCODE SQLSTATE;
      INSERT INTO LOTSA_DATETIMES VALUES (
                    CAST ('1976-06-21' AS DATE),
                    CAST ('13:24:00' AS TIME),
                    CAST ('1927-11-30 07:10:00' AS TIMESTAMP),
                    CAST ('-1' AS INTERVAL YEAR),
                    CAST ('+2' AS INTERVAL MONTH),
                    CAST ('-3' AS INTERVAL DAY),
                    CAST ('4' AS INTERVAL HOUR),
                    CAST ('-5' AS INTERVAL MINUTE),
                    CAST ('6.333333' AS INTERVAL SECOND),
                    CAST ('-5-11' AS INTERVAL YEAR TO MONTH),
                    CAST ('2 15' AS INTERVAL DAY TO HOUR),
                    CAST ('-3 4:05' AS INTERVAL DAY TO MINUTE),
                    CAST ('+6 17:08:09' AS INTERVAL DAY TO SECOND),
                    CAST ('-10:45' AS INTERVAL HOUR TO MINUTE),
                    CAST ('11:23:45.75' AS INTERVAL HOUR TO SECOND),
                    CAST ('-20:00' AS INTERVAL MINUTE TO SECOND));

PROCEDURE SUB37 SQLCODE SQLSTATE
    :INT1 NUMERIC (9);
      SELECT COUNT(*) INTO :INT1 FROM LOTSA_DATETIMES
                    WHERE C1 = DATE '1976-06-21' AND
                    C2 = TIME '13:24:00' AND
                    C3 = TIMESTAMP '1927-11-30 07:10:00.000000' AND
                    C4 = INTERVAL -'1' YEAR AND
                    C5 = INTERVAL -'-2' MONTH AND
                    C6 = INTERVAL '-3' DAY AND
                    C7 = INTERVAL '4' HOUR AND
                    C8 = INTERVAL -'5' MINUTE AND
                    C9 = INTERVAL '6.333333' SECOND AND
                    C10 = INTERVAL -'5-11' YEAR TO MONTH AND
                    C11 = INTERVAL +'2 15' DAY TO HOUR AND
                    C12 = INTERVAL '-3 4:05' DAY TO MINUTE AND
                    C13 = INTERVAL '+6 17:08:09.000000' DAY TO SECOND AND
                    C14 = INTERVAL '-10:45' HOUR TO MINUTE AND
                    C15 = INTERVAL '11:23:45.750000' HOUR TO SECOND;

PROCEDURE SUB38 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB39 SQLCODE SQLSTATE;
      DROP TABLE LOTSA_DATETIMES CASCADE;

PROCEDURE SUB40 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB43 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB44 SQLCODE SQLSTATE;
      CREATE TABLE WOODCHUCK (
                    OBSERVATION DATE,
                    WOOD_AGE INTERVAL YEAR TO MONTH);

PROCEDURE SUB45 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB46 SQLCODE SQLSTATE;
      INSERT INTO WOODCHUCK VALUES (
                    CAST ('1994-02-30' AS DATE), NULL);

PROCEDURE SUB47 SQLCODE SQLSTATE;
      INSERT INTO WOODCHUCK VALUES (
                    NULL, CAST ('1-12' AS INTERVAL YEAR TO MONTH));

PROCEDURE SUB48 SQLCODE SQLSTATE;
      COMMIT WORK;

PROCEDURE SUB49 SQLCODE SQLSTATE;
      DROP TABLE WOODCHUCK CASCADE;

PROCEDURE SUB50 SQLCODE SQLSTATE;
      COMMIT WORK;

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

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

PROCEDURE SUB53 SQLCODE SQLSTATE;
      COMMIT WORK;

[ zur Elbe Produktseite wechseln0.210Quellennavigators  ]