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 3 kB

Quelle sdl027.mco Sprache: unbekannt

-- SQL Test Suite, V6.0, SQL Module sdl027.mco
-- 59-byte ID

MODULE SDL027
LANGUAGE COBOL
AUTHORIZATION HU

DECLARE MYOB CURSOR FOR SELECT CITY, HIGH, LOW
               FROM MULTI_YEAR_OBSERV
               ORDER BY CITY ASC
DECLARE ET CURSOR FOR SELECT HIGH, YEAR_OBSERV,LOW
               FROM EXTREME_TEMPS
               ORDER BY YEAR_OBSERV DESC
DECLARE THERMO CURSOR FOR
               SELECT X.CITY, X.MAX_C, Y.MAX_C,
               (X.MAX_C + Y.MAX_C) / 2
               FROM CELSIUS_OBSERV X, CELSIUS_OBSERV Y
               WHERE X.YEAR_OBSERV = 1984 AND
               Y.YEAR_OBSERV = 1985 AND
               X.CITY = Y.CITY
               ORDER BY 4 DESC

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

PROCEDURE SUB1 SQLCODE;
      DELETE FROM TEMP_OBSERV;

PROCEDURE SUB2 SQLCODE;
      INSERT INTO TEMP_OBSERV
                    VALUES (1984, 'Sun City', 110, 44);

PROCEDURE SUB3 SQLCODE;
      INSERT INTO TEMP_OBSERV
                    VALUES (1984, 'Iceburg', 45, -90);

PROCEDURE SUB4 SQLCODE;
      INSERT INTO TEMP_OBSERV
                    VALUES (1984, 'Abeland', 101, 10);

PROCEDURE SUB5 SQLCODE;
      INSERT INTO TEMP_OBSERV
                    VALUES (1985, 'Sun City', 105, 50);

PROCEDURE SUB6 SQLCODE;
      INSERT INTO TEMP_OBSERV
                    VALUES (1985, 'Iceburg', 47, -82);

PROCEDURE SUB7 SQLCODE;
      INSERT INTO TEMP_OBSERV
                    VALUES (1985, 'Abeland', 98, -3);

PROCEDURE SUB8 SQLCODE
    :CITY1 CHAR(9)
    :YEAR1 NUMERIC (9)
    :LO NUMERIC (8,4)
    :HI NUMERIC (8,4);
      SELECT CITY, YEAR_OBSERV, MIN_C, MAX_C
                    INTO :CITY1, :YEAR1, :LO, :HI
                    FROM CELSIUS_OBSERV
                    WHERE YEAR_OBSERV = 1984 AND MIN_C > 5;

PROCEDURE SUB9 SQLCODE;
    OPEN MYOB;

PROCEDURE SUB10 SQLCODE
    :CITY1 CHAR(9)
    :HI NUMERIC (8,4)
    :LO NUMERIC (8,4);
      FETCH MYOB INTO
                    :CITY1,:HI, :LO;

PROCEDURE SUB11 SQLCODE;
      CLOSE MYOB;

PROCEDURE SUB12 SQLCODE;
    OPEN ET;

PROCEDURE SUB13 SQLCODE
    :MAX1 NUMERIC (9)
    :YEAR1 NUMERIC (9)
    :MIN1 NUMERIC (9);
      FETCH ET
                    INTO :MAX1, :YEAR1,:MIN1;

PROCEDURE SUB14 SQLCODE;
      CLOSE ET;

PROCEDURE SUB15 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0401','pass','MCO');

PROCEDURE SUB16 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0401','fail','MCO');

PROCEDURE SUB17 SQLCODE;
      COMMIT WORK;

PROCEDURE SUB18 SQLCODE;
    OPEN THERMO;

PROCEDURE SUB19 SQLCODE
    :CITY1 CHAR(9)
    :HI NUMERIC (8,4)
    :HI2 NUMERIC (8,4)
    :AVGHI NUMERIC (8,4);
      FETCH THERMO INTO :CITY1, :HI, :HI2, :AVGHI
                 ;

PROCEDURE SUB20 SQLCODE;
      CLOSE THERMO;

PROCEDURE SUB21 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0391','pass','MCO');

PROCEDURE SUB22 SQLCODE;
      INSERT INTO TESTREPORT
                      VALUES('0391','fail','MCO');

PROCEDURE SUB23 SQLCODE;
      COMMIT WORK;