Quelle  sdl027.mco

-- 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;